]>
git.ipfire.org Git - people/teissler/ipfire-2.x.git/blob - html/html/redirect.cgi
6c78e3171122484c72c5e5747eb4a7c3579483f1
4 # $Id: redirect.cgi,v 0.3 2006/07/18 00:00:00 modyfy bye linuxadmin
14 &readhash
("$swroot/ethernet/settings", \
%netsettings);
15 &readhash
("$swroot/urlfilter/settings", \
%filtersettings);
17 $category=param
("category");
21 if ($filtersettings{'MSG_TEXT_1'} eq '') {
22 $msgtext1 = "A C C E S S D E N I E D";
23 } else { $msgtext1 = $filtersettings{'MSG_TEXT_1'}; }
24 if ($filtersettings{'MSG_TEXT_2'} eq '') {
25 $msgtext2 = "Access to the requested page has been denied";
26 } else { $msgtext2 = $filtersettings{'MSG_TEXT_2'}; }
27 if ($filtersettings{'MSG_TEXT_3'} eq '') {
28 $msgtext3 = "Please contact the Network Administrator if you think there has been an error";
29 } else { $msgtext3 = $filtersettings{'MSG_TEXT_3'}; }
31 if ($category eq '') { $category = ' '; } else { $category = '['.$category.']'; }
33 print "Pragma: no-cache\n";
34 print "Cache-control: no-cache\n";
35 print "Connection: close\n";
36 print "Content-type: text/html\n\n";
42 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
43 <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
44 <title>ACCESS MESSAGE</title>
45 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
49 <table width="100%" height='100%' border="0">
51 <td colspan='3' width='100%' height='130' align="center" background="http://$netsettings{'GREEN_ADDRESS'}:81//images/background.gif">
52 <tr> <td width='10%'><td align='center' bgcolor='#CC000000' width='80%'><font face="verdana, arial, sans serif" color="#FFFFFF" size="5">
59 if (!($category eq ""))
62 <tr> <td colspan='3' align='center'>
63 <font face="verdana, arial, sans serif" color="#CC000000" size="1">
71 <td colspan='3' align="center">
72 <font face="verdana, arial, sans serif" color="#000000" size="4">
75 <font face="verdana,arial,sans serif" color="#000000" size="2">
82 <p>URL: <a href="$url">$url</a>
90 <p>Client IP address: <i>$ip</i>
100 <td colspan='3' height='60%' valign="bottom" align="right">
101 <font face="verdana,arial,sans serif" color="#656565" size="1">Web Filtering by
103 <a href="http://www.ipfire.eu" target="_blank"><b>
104 <font face="verdana,arial,sans serif" color="#656565" size="1">IPFire</b></a>
116 my $filename = $_[0];
122 open(FILE
, $filename) or die "Unable to read file $filename";
126 ($var, $val) = split /=/, $_, 2;
132 # Untaint variables read from hash
133 $var =~ /([A-Za-z0-9_-]*)/; $var = $1;
134 $val =~ /([\w\W]*)/; $val = $1;
135 $hash->{$var} = $val;