version 3.3, 2000/07/27 16:16:41 |
version 3.4, 2000/07/28 17:24:35 |
Line 217 foreach (keys %DEFAULTVALUE) |
|
Line 217 foreach (keys %DEFAULTVALUE) |
|
$barequery = ""; |
$barequery = ""; |
foreach (@stickyvars) { |
foreach (@stickyvars) { |
# construct a query string with the sticky non default parameters set |
# construct a query string with the sticky non default parameters set |
if (defined($input{$_}) && $input{$_} ne "" && $input{$_} ne $DEFAULTVALUE{$_}) { |
if (defined($input{$_}) && $input{$_} ne '' && |
if ($barequery) { |
!(defined($DEFAULTVALUE{$_}) && $input{$_} eq $DEFAULTVALUE{$_})) { |
|
if ($barequery) { |
$barequery = $barequery . "&"; |
$barequery = $barequery . "&"; |
} |
} |
my $thisval = urlencode($_) . "=" . urlencode($input{$_}); |
my $thisval = urlencode($_) . "=" . urlencode($input{$_}); |
|
|
Apache->request->status((split(/ /, $errcode))[0]); |
Apache->request->status((split(/ /, $errcode))[0]); |
} |
} |
else { |
else { |
print "Status: $errcode\n"; |
print "Status: $errcode\r\n"; |
} |
} |
html_header("Error"); |
html_header("Error"); |
print "Error: $errmsg\n"; |
print "Error: $errmsg\n"; |
|
|
Apache->request->header_out(Location => $url); |
Apache->request->header_out(Location => $url); |
} |
} |
else { |
else { |
print "Status: 301 Moved\n"; |
print "Status: 301 Moved\r\n"; |
print "Location: $url\n"; |
print "Location: $url\r\n"; |
} |
} |
html_header("Moved"); |
html_header("Moved"); |
print "This document is located <A HREF=$url>here</A>.\n"; |
print "This document is located <A HREF=$url>here</A>.\n"; |
Line 1475 sub getDirLogs { |
|
Line 1476 sub getDirLogs { |
|
else { |
else { |
my $kidpid = open($fh, "-|"); |
my $kidpid = open($fh, "-|"); |
if (! $kidpid) { |
if (! $kidpid) { |
close(STDERR); # rlog may complain; ignore. |
open(STDERR, '>/dev/null'); # rlog may complain; ignore. |
exec("rlog","-r",@files); |
exec("rlog","-r",@files); |
} |
} |
} |
} |
Line 2631 sub http_header { |
|
Line 2632 sub http_header { |
|
Apache->request->header_out(Last_modified => scalar gmtime($moddate) . " GMT"); |
Apache->request->header_out(Last_modified => scalar gmtime($moddate) . " GMT"); |
} |
} |
else { |
else { |
print "Last-Modified: " . scalar gmtime($moddate) . " GMT\n"; |
print "Last-Modified: " . scalar gmtime($moddate) . " GMT\r\n"; |
} |
} |
} |
} |
if ($is_mod_perl) { |
if ($is_mod_perl) { |
Apache->request->content_type($content_type); |
Apache->request->content_type($content_type); |
} |
} |
else { |
else { |
print "Content-type: $content_type\n"; |
print "Content-type: $content_type\r\n"; |
} |
} |
if ($allow_compress && $maycompress) { |
if ($allow_compress && $maycompress) { |
my $fh = do {local(*FH);}; |
my $fh = do {local(*FH);}; |
Line 2649 sub http_header { |
|
Line 2650 sub http_header { |
|
Apache->request->send_http_header; |
Apache->request->send_http_header; |
} |
} |
else { |
else { |
print "Content-encoding: x-gzip\n"; |
print "Content-encoding: x-gzip\r\n"; |
print "Vary: Accept-Encoding\n"; #RFC 2068, 14.43 |
print "Vary: Accept-Encoding\r\n"; #RFC 2068, 14.43 |
print "\n"; # Close headers |
print "\r\n"; # Close headers |
} |
} |
$| = 1; $| = 0; # Flush header output |
$| = 1; $| = 0; # Flush header output |
select ($fh); |
select ($fh); |
Line 2662 sub http_header { |
|
Line 2663 sub http_header { |
|
Apache->request->send_http_header; |
Apache->request->send_http_header; |
} |
} |
else { |
else { |
print "\n"; # Close headers |
print "\r\n"; # Close headers |
} |
} |
print "<font size=-1>Unable to find gzip binary in the \$PATH to compress output</font><br>"; |
print "<font size=-1>Unable to find gzip binary in the \$PATH to compress output</font><br>"; |
} |
} |
Line 2672 sub http_header { |
|
Line 2673 sub http_header { |
|
Apache->request->send_http_header; |
Apache->request->send_http_header; |
} |
} |
else { |
else { |
print "\n"; # Close headers |
print "\r\n"; # Close headers |
} |
} |
} |
} |
} |
} |