Changeset 23070
- Timestamp:
- 2010-10-09T23:08:52+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/cgi-bin/gsdlCGI.pm
r21804 r23070 16 16 my $class = shift @_; 17 17 18 my $self;18 # my $self; 19 19 20 20 # We'll determine the correct config file in this constructor itself … … 29 29 } 30 30 31 if ((defined $ENV{'REQUEST_METHOD'}) && ($ENV{'REQUEST_METHOD'} eq "POST")) {32 33 # Check if we're dealing with the upload-coll-file cmd. Because it will be a34 # multipart POST message and must be dealt with by the default CGI() constructor35 if((defined $ENV{'QUERY_STRING'}) && ($ENV{'QUERY_STRING'} =~ m/upload-collection-file/)) {36 $self = new CGI();37 }38 39 else { # all other POST commands processed using CGI($line)40 my $line = <STDIN>;41 if ((defined $line) && ($line ne "")) {42 $self = new CGI($line);43 }44 }45 46 }31 # if ((defined $ENV{'REQUEST_METHOD'}) && ($ENV{'REQUEST_METHOD'} eq "POST")) { 32 # 33 # # Check if we're dealing with the upload-coll-file cmd. Because it will be a 34 # # multipart POST message and must be dealt with by the default CGI() constructor 35 # if((defined $ENV{'QUERY_STRING'}) && ($ENV{'QUERY_STRING'} =~ m/upload-collection-file/)) { 36 # $self = new CGI(); 37 # } 38 # 39 # else { # all other POST commands processed using CGI($line) 40 # my $line = <STDIN>; 41 # if ((defined $line) && ($line ne "")) { 42 # $self = new CGI($line); 43 # } 44 # } 45 # 46 # } 47 47 48 48 # If one of the conditions above did not hold, then self=new CGI() 49 if (!defined $self) { 50 $self = new CGI(); 51 } 49 # if (!defined $self) { 50 # $self = new CGI(); 51 # } 52 53 my $self = new CGI(@_); 52 54 53 55 if ($version == 2) {
Note:
See TracChangeset
for help on using the changeset viewer.