in reply to Re^5: PerlPlusPlugin: Security CGI problems
in thread PerlPlusPlugin: Security CGI problems
Should that write to the tmp directory on my system ? I looked in the tmp directoryopen(LOG, ">>/tmp/perlplus-secure.log");
I did screw around with the numbers, but I think level 3 means the scriptuse 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 pl +ugins: #$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";
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^7: PerlPlusPlugin: Security CGI problems
by tall_man (Parson) on Feb 22, 2003 at 15:17 UTC | |
by basm101 (Acolyte) on Feb 24, 2003 at 17:21 UTC | |
by tall_man (Parson) on Feb 25, 2003 at 19:11 UTC | |
by basm101 (Acolyte) on Feb 26, 2003 at 11:45 UTC | |
by tall_man (Parson) on Feb 26, 2003 at 19:59 UTC | |
|