version 1.12, 2004/06/09 19:04:47
|
version 1.14, 2005/05/25 22:31:51
|
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=$Apache::lonnet::env{'cgi.file'}; |
my $dir=$ENV{'cgi.dir'}; |
my $dir=$Apache::lonnet::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> |