Changeset 10583
- Timestamp:
- 2005-08-30T11:30:45+12:00 (19 years ago)
- Location:
- trunk/gsdl/cgi-bin
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/cgi-bin/download
r10226 r10583 13 13 { 14 14 my $gsdl_cgi = new gsdlCGI("+cmdline"); 15 15 $gsdl_cgi->parse_cgi_args(); 16 16 $gsdl_cgi->setup_gsdl(); 17 17 my $gsdlhome = $ENV{'GSDLHOME'}; -
trunk/gsdl/cgi-bin/gsdlCGI.pm
r10565 r10583 10 10 my $class = shift @_; 11 11 my ($mode) = @_; 12 13 12 14 13 my $self; … … 26 25 } 27 26 27 return bless $self, $class; 28 } 29 30 31 sub parse_cgi_args 32 { 33 my $self = shift @_; 28 34 my $xml = (defined $self->param("xml")) ? 1 : 0; 29 35 … … 40 46 41 47 $self->{'args'} = join("&",@arg_list); 42 43 return bless $self, $class;44 48 } 45 49 -
trunk/gsdl/cgi-bin/launch
r10213 r10583 197 197 { 198 198 my $gsdl_cgi = new gsdlCGI("+cmdline"); 199 199 $gsdl_cgi->parse_cgi_args(); 200 200 $gsdl_cgi->setup_gsdl(); 201 201 my $gsdlhome = $ENV{'GSDLHOME'}; -
trunk/gsdl/cgi-bin/upload
r10252 r10583 13 13 { 14 14 my $gsdl_cgi = new gsdlCGI(); 15 15 $gsdl_cgi->parse_cgi_args(); 16 16 $gsdl_cgi->setup_gsdl(); 17 17 my $gsdlhome = $ENV{'GSDLHOME'};
Note:
See TracChangeset
for help on using the changeset viewer.