#! /usr/bin/perl

# 'blocked' script for squidGard installation on SmoothWall GPL or related
# firewalls.
#
# By       : Chris Lowth
# Date     : 10th May 2003
# Web site : http://www.lowth.com/sg4sw
#
# Released under the terms of the GNU General Public License, Version 2 (June
# 1991) - see: http://www.lowth.com/sg4sw/COPYING.txt

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

print "<h1>Access to this web site is blocked by the firewall</h1>\n";
print "Please dont continue to try to access it or others like it.<p>\n";

$qs = $ENV{QUERY_STRING};

if ( $qs =~ m{^clientaddr=(.*?)\+clientname=(.*?)\+clientident=(.*?)\+srcclass=(.*?)\+targetclass=(.*?)\+url=(.*)$} ) {
	$clientaddr = $1;
	$clientname = $2;
	$clientident = $3;
	$srcclass = $4;
	$targetclass = $5;
	$url = $6;
}


print "<table border=1 cellspacing=0>\n";
print "<tr><td>Client address<td>$clientaddr\n";
print "<tr><td>Client Name<td>$clientname&nbsp;\n";
print "<tr><td>Client ident<td>$clientident&nbsp;\n";
print "<tr><td>Source class<td>$srcclass\n";
print "<tr><td>Target class<td>$targetclass\n";
print "<tr><td>URL<td>$url\n";
print "</table>\n";

open(LOG, ">> /var/log/squid/blocked.log") or print "Cant open log file";
print LOG localtime() . " : $clientaddr : $targetclass : $url\n";
close(LOG);