A
PPENDICES
S
ECTION
A
PPENDIX
C
414
8
E
6 T
ECHNOLOGIES
, P
ROXY
B
LOCKER
U
SER
G
UIDE
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";
Содержание ProxyBlocker
Страница 1: ... ProxyBlocker USER GUIDE Model ProxyBlocker Release 2 1 00 Manual Version 1 01 ...
Страница 2: ...ii 8E6 TECHNOLOGIES PROXYBLOCKER USER GUIDE ...
Страница 4: ...iv 8E6 TECHNOLOGIES PROXYBLOCKER USER GUIDE ...
Страница 468: ...APPENDICES SECTION APPENDIX H 454 8E6 TECHNOLOGIES PROXYBLOCKER USER GUIDE ...
Страница 482: ...INDEX 468 8E6 TECHNOLOGIES PROXYBLOCKER USER GUIDE ...
