loncom/cgi/decompress.pl - diff

Return to decompress.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.12, 2004/06/09 19:04:47	version 1.13, 2005/04/07 06:56:21
Line 31	Line 31
####	####
use strict;	use strict;
use lib '/home/httpd/lib/perl';	use lib '/home/httpd/lib/perl';
use LONCAPA::loncgi ();	use LONCAPA::loncgi;
my %origENV=%ENV;
if(! &LONCAPA::loncgi::check_cookie_and_load_env()) {	if(! &LONCAPA::loncgi::check_cookie_and_load_env()) {
print "Content-type: text/html\n\n";	print "Content-type: text/html\n\n";
print <<END;	print <<END;
Line 40 if(! &LONCAPA::loncgi::check_cookie_and_	Line 40 if(! &LONCAPA::loncgi::check_cookie_and_
END	END
} else {	} else {
print "Content-type: text/html\n\n";	print "Content-type: text/html\n\n";
my $file=$ENV{'cgi.file'};	my $file=$env{'cgi.file'};
my $dir=$ENV{'cgi.dir'};	my $dir=$env{'cgi.dir'};
%ENV=%origENV;
if(! $file \|\| ! $dir) {	if(! $file \|\| ! $dir) {
print <<END;	print <<END;
<html><body>Bad Enviroment!</body></html>	<html><body>Bad Enviroment!</body></html>