[Bio] / FigKernelPackages / ServerThing.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/ServerThing.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.53, Thu Jul 8 20:15:39 2010 UTC revision 1.54, Tue Jul 13 18:49:09 2010 UTC
# Line 1036  Line 1036 
1036          # Determing the encoding scheme. The default is YAML.          # Determing the encoding scheme. The default is YAML.
1037          my $encoding = $cgi->param('encoding') || 'yaml';          my $encoding = $cgi->param('encoding') || 'yaml';
1038          # The parameter structure will go in here.          # The parameter structure will go in here.
1039          my $args;          my $args = {};
1040          # Start the timer.          # Start the timer.
1041          my $start = time();          my $start = time();
1042          # The output document goes in here.          # The output document goes in here.
# Line 1048  Line 1048 
1048              # Here we parse the arguments. This is affected by the encoding parameter.              # Here we parse the arguments. This is affected by the encoding parameter.
1049              # Get the argument string.              # Get the argument string.
1050              my $argString = $cgi->param('args');              my $argString = $cgi->param('args');
1051                # Only proceed if we found one.
1052                if ($argString) {
1053              if ($encoding eq 'yaml') {              if ($encoding eq 'yaml') {
1054                  # Parse the arguments using YAML.                  # Parse the arguments using YAML.
1055                  $args = YAML::Load($argString);                  $args = YAML::Load($argString);
# Line 1058  Line 1060 
1060              } else {              } else {
1061                  Die("Invalid encoding type $encoding.");                  Die("Invalid encoding type $encoding.");
1062              }              }
1063                }
1064          };          };
1065          # Check to make sure we got everything.          # Check to make sure we got everything.
1066          if ($@) {          if ($@) {

Legend:
Removed from v.1.53  
changed lines
  Added in v.1.54

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3