APPENDICES SECTION APPENDIX C

CGI written in Perl

There are two methods for CGI written in Perl: One lets you embed data in the query string to pass data to the Options CGI, and the other lets you use Java Script to post form data to the Options CGI.

Embed data in query string

#!/usr/bin/perl

#Original Filename: cusp_block1.cgi

#File Type: CGI

#Description: Sample Perl script for ProxyBlocker customized block page

#Replace the <ProxyBlocker IP> with the real IP before using.

#This script provide data to the options CGI through query string

#Revision: 1

#Date: 03/08/2004

$method = $ENV{'REQUEST_METHOD'};

if ($method=~ /post/i) { $string = <STDIN>;

} else {

$string= $ENV{"QUERY_STRING"};

}

$url = $1 if ($string =~ /URL=(\S+)&IP=/i); $ip = $1 if ($string =~ /IP=(\S+)&CAT=/i); $cat = $1 if ($string =~ /CAT=(\S+)&USER=/i); $user = $1 if ($string =~ /USER=(\S+)/i);

print "Content-type: text/html\n\n"; print "<html>\n";

print "<head>\n"; print "</head>\n"; print "<body>\n";

print "<br>ProxyBlocker Customized Block Page (CGI written with Perl)<br>\n";

print "URL: $url<br>\n";

print "IP: $ip<br>\n";

print "CAT: $cat<br>\n";

print "USER: $user<br>\n";

414

8E6 TECHNOLOGIES, PROXYBLOCKER USER GUIDE

Page 428
Image 428
8e6 Technologies ProxyBlocker manual CGI written in Perl, Embed data in query string