Cgi Written In Perl; Embed Data In Query String - M86 Security M86 Web Filter User Manual

Hide thumbs Also See for M86 Web Filter:

Table of Contents

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.

#!/usr/bin/perl

# Original Filename: cusp_block1.cgi

# File Type:

# Description:

# Replace the <Web Filter IP> with the real IP before using.

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

# Date: 03/08/2004

$method = $ENV{'REQUEST_METHOD'};

if ($method=~ /post/i) {

$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 " Web Filter Customized Block Page (CGI written with

print "URL: $url \n";

print "IP: $ip \n";

print "CAT: $cat \n";

print "USER: $user \n";

Sample Perl script for Web Filter customized block

$string = <STDIN>;

$string= $ENV{"QUERY_STRING"};