open(LOG, ">>/tmp/perlplus-secure.log");

##</code><code>##

use CGI;
$q = new CGI;

open(LOG, ">>/tmp/perlplus-secure.log");
$url = $q->param('URL');
print LOG "URL=" . $url . "\n";

# Some potentially useful environment variables you can play with:
#
# DOCUMENT_ROOT=/ahome
# GATEWAY_INTERFACE=CGI/1.1
# HTTP_HOST=www.xyz.edu
# HTTP_REFERER=http://www.xyz.EDU/~sol0/ptk/plop.ppl
# HTTP_USER_AGENT='Mozilla/4.5C-SGI [en] (X11; I; IRIX 6.3 IP32)'
# REMOTE_ADDR=a.b.c.d
# REMOTE_PORT=12801
# REQUEST_METHOD=POST
# REQUEST_URI=/cgi-bin/perlplus-secure.cgi
# SCRIPT_FILENAME=/home/wwwserv/cgi-bin/perlplus-secure.cgi
# SCRIPT_NAME=/cgi-bin/perlplus-secure.cgi
# SERVER_NAME=www.xyz.EDU
# SERVER_PORT=80
# SERVER_PROTOCOL=HTTP/1.0
# SERVER_SOFTWARE=Apache/1.2.6

# This example varies the security level as required for the sample plugins:

#$URL_ROOT="http://www/~eserte/ppl";
#$URL_ROOT="http://www.Lehigh.EDU/~sol0/ptk/ppl";
$URL_ROOT="http://myhost/~basm101/cgi-bin/perl_scripts";
%url = ("$URL_ROOT/neko.ppl" => 3,
	"$URL_ROOT/plop.ppl" => 3,
	"$URL_ROOT/y2k.ppl" => 3,
	"$URL_ROOT/thunder.ppl" => 3,
	"$URL_ROOT/ptk_test.ppl" => 3,
	"$URL_ROOT/quest.ppl" => 3,
	"$URL_ROOT/tktetris.ppl" => 3
       );

$sec_level= $url{$url} || 1;

print LOG "  security level=$sec_level\n";
close LOG;
                                                    
print "Content-type: application/x-perlplus:.ppl:Perl\n\n";
print "$sec_level";