version 1.15, 2003/10/18 17:17:12
|
version 1.17, 2003/10/18 17:19:49
|
Line 45 use Apache::lonnet;
|
Line 45 use Apache::lonnet;
|
use Apache::Log (); |
use Apache::Log (); |
use HTML::Entities(); |
use HTML::Entities(); |
|
|
my $DEBUG = 1; |
my $DEBUG = 0; |
=pod |
=pod |
|
|
=item Debug($request, $message) |
=item Debug($request, $message) |
Line 123 sub handler {
|
Line 123 sub handler {
|
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['decompress']); |
($ENV{'QUERY_STRING'},['decompress']); |
if ($ENV{'form.decompress'}) { |
if ($ENV{'form.decompress'}) { |
$lowerframe='http://$ENV{'SERVER_NAME'}/cgi-bin/decompress.pl?something'; |
$lowerframe='http://$ENV{'SERVER_NAME'}/cgi-bin/decompress.pl?decompress'; |
} |
} |
$r->print(<<ENDPAGE); |
$r->print(<<ENDPAGE); |
<html> |
<html> |