#!/usr/bin/perl $allow_html_code = 1; # your mailer program and any options neccessary $mailer = "/usr/lib/sendmail -t" ; # person to send notification emails to $reportto = "your@email.com" ; # URL to this CGI $myurl = "/cgi-bin/filter.pl" ; &ReadEnvs; # # Removing unused date routines... # #$thismonth = (localtime)[4] + 1; #$thisday = (localtime)[3]; #$thisyear = (localtime)[5]; #if ($thisyear > 98) { # $thisyear += 1900; #} #else { # $thisyear += 2000; #} #$hours = (localtime)[2]; #$mins = (localtime)[1]; #$secs = (localtime)[0]; # my $deniedurl = $in{'DENIEDURL'}; my $reason = $in{'REASON'}; my $task = $in{'TASK'}; print "Content-type: text/html\n\n" ; if ( defined $task ) { if ( $task =~ /email/ ) { &email() }; }; print < ACCESS HAS BEEN DENIED

$deniedurl has been blocked!

You are seeing this error because the website or file you attempted to access contains material, links or language that has been deemed to be inappropriate for viewing at INSERT YOUR ORGANIZATION.  Details including your username have been logged and sent to the IT Dept!


Block Reason

If you are unable to determine why this website was blocked click on the following button.

WARNING: This will display a sample of inappropriate language that was contained on the blocked page!


Blocked in Error?

If you believe the server has incorrectly blocked a page or file that does not contain inappropriate material or language please take the time to complete the following form. This site will be reviewed and the accuracy of blocking improved.  Please do not fill in a report if you have accidentally gone to a page that has resulted in a block.

Full Name:

Email: (Optional)

Username:

Reason:

I believe the page was blocked in error, does not contain
inappropriate material, and is suitable for viewing at school.

 

EOE exit; sub ReadEnvs { local($cl, @clp, $pair, $name, $value); if ( $ENV{'REQUEST_METHOD'} eq 'POST' ) { read(STDIN, $cl, $ENV{'CONTENT_LENGTH'} ); } else { $cl = $ENV{'QUERY_STRING'}; } @clp = split(/&/, $cl); foreach $pair (@clp) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; if ($allow_html_code != 1) { $value =~ s/<([^>]|\n)*>//g; } $in{$name} = $value; } } sub email { my $name = $in{'name'}; my $email = $in{'email'}; my $id = $in{'id'}; my $error = $in{'error'}; if ( $name =~ /^$/) { $name = "No name provided" ; }; if ( $email =~ /^$/ ) { $email = "No Email address provided" ; $from = $reportto; } else { $from = $email ; }; if ( $id =~ /^$/ ) { $id = "No ID provided" ; }; if ( $error =~ /^$/ ) { $error = "No error provided" ; }; if ( $deniedurl =~ /^$/ ) { $deniedurl = "No Denied URL provided" ; }; if ( $reason =~ /^$/ ) { $reason = "No Cause of Denial provided" ; }; open (EMAILER, "|$mailer") or die "Can't open the mailer" ; print EMAILER < From: $name <$from> To: Content Filter Administrator <$reportto> Subject: User BAN complaint - $deniedurl - $reason A user has provided details as to why they believe the ban is wrong. Name: $name Email: $email Username: $id Site: $deniedurl Ban Cause: $reason Users argument: $error EOM close (EMAILER) ; print < Details have been submitted..

Thank You

Your details have been sent to the Content Filter Administrator.

As a result of your feedback filtering rules will be modified
to help prevent legitimate web pages being blocked.
EOT exit ; };