Changeset 10583

Timestamp:

2005-08-30T11:30:45+12:00 (19 years ago)

Author:

mdewsnip

Message:

Moved the second half of the gsdlCGI.pm new() code out into a new function (parse_cgi_args) to make things a little easier for the West Yorkshire stuff.

Location:

trunk/gsdl/cgi-bin

Files:

• download (modified) (1 diff)
• gsdlCGI.pm (modified) (3 diffs)
• launch (modified) (1 diff)
• upload (modified) (1 diff)

trunk/gsdl/cgi-bin/download

@@ -13 +13 @@
 {
     my $gsdl_cgi = new gsdlCGI("+cmdline");
-
+    $gsdl_cgi->parse_cgi_args();
     $gsdl_cgi->setup_gsdl();
     my $gsdlhome = $ENV{'GSDLHOME'};

trunk/gsdl/cgi-bin/gsdlCGI.pm

@@ -10 +10 @@
     my $class = shift @_;
     my ($mode) = @_;
-
 
     my $self;
@@ -26 +25 @@
     }
 
+    return bless $self, $class;
+}
+
+
+sub parse_cgi_args
+{
+    my $self = shift @_;
     my $xml = (defined $self->param("xml")) ? 1 : 0;
 
@@ -40 +46 @@
     
     $self->{'args'} = join("&",@arg_list);
-
-    return bless $self, $class;
 }
 

trunk/gsdl/cgi-bin/launch

@@ -197 +197 @@
 {
     my $gsdl_cgi = new gsdlCGI("+cmdline");
-
+    $gsdl_cgi->parse_cgi_args();
     $gsdl_cgi->setup_gsdl();
     my $gsdlhome = $ENV{'GSDLHOME'};

trunk/gsdl/cgi-bin/upload

@@ -13 +13 @@
 {
     my $gsdl_cgi = new gsdlCGI();
-
+    $gsdl_cgi->parse_cgi_args();
     $gsdl_cgi->setup_gsdl();
     my $gsdlhome = $ENV{'GSDLHOME'};