Changeset 11148
- Timestamp:
- 2006-01-27T15:12:59+13:00 (18 years ago)
- Location:
- trunk/gsdl/cgi-bin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/cgi-bin/gliserver.pl
r11119 r11148 4 4 5 5 use gsdlCGI; 6 use strict; 6 7 7 8 … … 17 18 sub main 18 19 { 19 my $gsdl_cgi = new gsdlCGI( "+cmdline");20 my $gsdl_cgi = new gsdlCGI(); 20 21 21 22 # Load the Greenstone modules that we need to use -
trunk/gsdl/cgi-bin/gsdlCGI.pm
r10584 r11148 9 9 sub new { 10 10 my $class = shift @_; 11 my ($mode) = @_;12 11 13 12 my $self; 14 if ((defined $ mode) && ($mode eq "+cmdline")) {13 if ((defined $ENV{'REQUEST_METHOD'}) && ($ENV{'REQUEST_METHOD'} eq "POST")) { 15 14 my $line = <STDIN>; 16 15 if ((defined $line) && ($line ne "")) {
Note:
See TracChangeset
for help on using the changeset viewer.