Changeset 23070

Timestamp:

2010-10-09T23:08:52+13:00 (14 years ago)

Author:

davidb

Message:

Post code originally written to allow for debugging from the command-line by piping in required input. However, this has caused problems elsewhere, from time to time. Decision made to remove this debug option, as there are others ways to debug CGI scripts (such as printing to STDERR and looking in web log file) that do not cause these complications. At this stage old code has been commented out. At some stage in the future it will be removed entirely.

File:

• main/trunk/greenstone2/cgi-bin/gsdlCGI.pm (modified) (2 diffs)

main/trunk/greenstone2/cgi-bin/gsdlCGI.pm

@@ -16 +16 @@
     my $class = shift @_;
     
-    my $self;
+#    my $self;
    
     # We'll determine the correct config file in this constructor itself 
@@ -29 +29 @@
     }
 
-    if ((defined $ENV{'REQUEST_METHOD'}) && ($ENV{'REQUEST_METHOD'} eq "POST")) {
-
-    # Check if we're dealing with the upload-coll-file cmd. Because it will be a 
-    # multipart POST message and must be dealt with by the default CGI() constructor
-    if((defined $ENV{'QUERY_STRING'}) && ($ENV{'QUERY_STRING'} =~ m/upload-collection-file/)) {
-        $self = new CGI(); 
-    } 
-
-    else { # all other POST commands processed using CGI($line)
-        my $line = <STDIN>;
-        if ((defined $line) && ($line ne "")) { 
-        $self = new CGI($line);
-        }
-    }
-    
-    }    
+#    if ((defined $ENV{'REQUEST_METHOD'}) && ($ENV{'REQUEST_METHOD'} eq "POST")) {
+#
+#   # Check if we're dealing with the upload-coll-file cmd. Because it will be a 
+#   # multipart POST message and must be dealt with by the default CGI() constructor
+#   if((defined $ENV{'QUERY_STRING'}) && ($ENV{'QUERY_STRING'} =~ m/upload-collection-file/)) {
+#       $self = new CGI(); 
+#   } 
+#
+#   else { # all other POST commands processed using CGI($line)
+#       my $line = <STDIN>;
+#       if ((defined $line) && ($line ne "")) { 
+#       $self = new CGI($line);
+#       }
+#   }
+#   
+#    }    
     
     # If one of the conditions above did not hold, then self=new CGI() 
-    if (!defined $self) { 
-    $self = new CGI();
-    }
+#    if (!defined $self) { 
+#   $self = new CGI();
+#    }
+
+    my $self = new CGI(@_);
 
     if ($version == 2) {