]>
git.ipfire.org Git - ipfire-2.x.git/blob - html/cgi-bin/redirect.cgi
4 # $Id: redirect.cgi,v 0.1 2004/09/26 00:00:00 marco Exp $
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";
41 <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
48 if (($filtersettings{'ENABLE_JPEG'} eq 'on') && (-e
"/home/httpd/html/images/urlfilter/background.jpg"))
51 <body background="http://$netsettings{'GREEN_ADDRESS'}:81//images/urlfilter/background.jpg" bgcolor="#FFFFFF">
56 <body bgcolor="#FFFFFF">
65 <table width="80%" cellspacing="10" cellpadding="5" border="0">
68 <td bgcolor="#C0C0C0" align="right">
69 <font face="verdana, arial, sans serif" color="#000000" size="1">
75 <td bgcolor="#F4F4F4" align="center">
76 <table width="100%" cellspacing="20" cellpadding="20" border="0">
78 <td nowrap bgcolor="#FF0000" align="center">
79 <font face="verdana, arial, sans serif" color="#FFFFFF" size="6">
85 <td bgcolor="#E2E2E2" align="center">
86 <font face="verdana, arial, sans serif" color="#000000" size="4">
89 <font face="verdana,arial,sans serif" color="#000000" size="2">
96 <p>URL: <a href="$url">$url</a>
104 <p>Client IP address: <i>$ip</i>
119 <td bgcolor="#C0C0C0" align="right">
120 <font face="verdana,arial,sans serif" color="#FFFFFF" size="1">Web Filtering by
122 <a href="http://www.ipcop.org" target="_blank"><b>
123 <font face="verdana,arial,sans serif" color="#FFFFFF" size="1">IPCop</b></a> and
124 <a href="http://www.squidguard.org" target="_blank"><b>
125 <font face="verdana,arial,sans serif" color="#FFFFFF" size="1">SquidGuard
142 my $filename = $_[0];
148 open(FILE
, $filename) or die "Unable to read file $filename";
152 ($var, $val) = split /=/, $_, 2;
158 # Untaint variables read from hash
159 $var =~ /([A-Za-z0-9_-]*)/; $var = $1;
160 $val =~ /([\w\W]*)/; $val = $1;
161 $hash->{$var} = $val;
170 # $Id: redirect.cgi,v 0.1 2004/09/26 00:00:00 marco Exp $
175 $swroot="/var/ipfire";
180 &readhash
("$swroot/ethernet/settings", \
%netsettings);
181 &readhash
("$swroot/urlfilter/settings", \
%filtersettings);
183 $category=param
("category");
187 if ($filtersettings{'MSG_TEXT_1'} eq '') {
188 $msgtext1 = "A C C E S S D E N I E D";
189 } else { $msgtext1 = $filtersettings{'MSG_TEXT_1'}; }
190 if ($filtersettings{'MSG_TEXT_2'} eq '') {
191 $msgtext2 = "Access to the requested page has been denied";
192 } else { $msgtext2 = $filtersettings{'MSG_TEXT_2'}; }
193 if ($filtersettings{'MSG_TEXT_3'} eq '') {
194 $msgtext3 = "Please contact the Network Administrator if you think there has been an error";
195 } else { $msgtext3 = $filtersettings{'MSG_TEXT_3'}; }
197 if ($category eq '') { $category = ' '; } else { $category = '['.$category.']'; }
199 print "Pragma: no-cache\n";
200 print "Cache-control: no-cache\n";
201 print "Connection: close\n";
202 print "Content-type: text/html\n\n";
207 <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
214 if (($filtersettings{'ENABLE_JPEG'} eq 'on') && (-e
"/home/httpd/html/images/urlfilter/background.jpg"))
217 <body background="http://$netsettings{'GREEN_ADDRESS'}:81//images/urlfilter/background.jpg" bgcolor="#FFFFFF">
222 <body bgcolor="#FFFFFF">
231 <table width="80%" cellspacing="10" cellpadding="5" border="0">
234 <td bgcolor="#C0C0C0" align="right">
235 <font face="verdana, arial, sans serif" color="#000000" size="1">
241 <td bgcolor="#F4F4F4" align="center">
242 <table width="100%" cellspacing="20" cellpadding="20" border="0">
244 <td nowrap bgcolor="#FF0000" align="center">
245 <font face="verdana, arial, sans serif" color="#FFFFFF" size="6">
251 <td bgcolor="#E2E2E2" align="center">
252 <font face="verdana, arial, sans serif" color="#000000" size="4">
255 <font face="verdana,arial,sans serif" color="#000000" size="2">
262 <p>URL: <a href="$url">$url</a>
270 <p>Client IP address: <i>$ip</i>
285 <td bgcolor="#C0C0C0" align="right">
286 <font face="verdana,arial,sans serif" color="#FFFFFF" size="1">Web Filtering by
288 <a href="http://www.ipcop.org" target="_blank"><b>
289 <font face="verdana,arial,sans serif" color="#FFFFFF" size="1">IPCop</b></a> and
290 <a href="http://www.squidguard.org" target="_blank"><b>
291 <font face="verdana,arial,sans serif" color="#FFFFFF" size="1">SquidGuard
308 my $filename = $_[0];
314 open(FILE
, $filename) or die "Unable to read file $filename";
318 ($var, $val) = split /=/, $_, 2;
324 # Untaint variables read from hash
325 $var =~ /([A-Za-z0-9_-]*)/; $var = $1;
326 $val =~ /([\w\W]*)/; $val = $1;
327 $hash->{$var} = $val;
336 # $Id: redirect.cgi,v 0.1 2004/09/26 00:00:00 marco Exp $
341 $swroot="/var/ipfire";
346 &readhash
("$swroot/ethernet/settings", \
%netsettings);
347 &readhash
("$swroot/urlfilter/settings", \
%filtersettings);
349 $category=param
("category");
353 if ($filtersettings{'MSG_TEXT_1'} eq '') {
354 $msgtext1 = "A C C E S S D E N I E D";
355 } else { $msgtext1 = $filtersettings{'MSG_TEXT_1'}; }
356 if ($filtersettings{'MSG_TEXT_2'} eq '') {
357 $msgtext2 = "Access to the requested page has been denied";
358 } else { $msgtext2 = $filtersettings{'MSG_TEXT_2'}; }
359 if ($filtersettings{'MSG_TEXT_3'} eq '') {
360 $msgtext3 = "Please contact the Network Administrator if you think there has been an error";
361 } else { $msgtext3 = $filtersettings{'MSG_TEXT_3'}; }
363 if ($category eq '') { $category = ' '; } else { $category = '['.$category.']'; }
365 print "Pragma: no-cache\n";
366 print "Cache-control: no-cache\n";
367 print "Connection: close\n";
368 print "Content-type: text/html\n\n";
373 <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
380 if (($filtersettings{'ENABLE_JPEG'} eq 'on') && (-e
"/home/httpd/html/images/urlfilter/background.jpg"))
383 <body background="http://$netsettings{'GREEN_ADDRESS'}:81//images/urlfilter/background.jpg" bgcolor="#FFFFFF">
388 <body bgcolor="#FFFFFF">
397 <table width="80%" cellspacing="10" cellpadding="5" border="0">
400 <td bgcolor="#C0C0C0" align="right">
401 <font face="verdana, arial, sans serif" color="#000000" size="1">
407 <td bgcolor="#F4F4F4" align="center">
408 <table width="100%" cellspacing="20" cellpadding="20" border="0">
410 <td nowrap bgcolor="#FF0000" align="center">
411 <font face="verdana, arial, sans serif" color="#FFFFFF" size="6">
417 <td bgcolor="#E2E2E2" align="center">
418 <font face="verdana, arial, sans serif" color="#000000" size="4">
421 <font face="verdana,arial,sans serif" color="#000000" size="2">
428 <p>URL: <a href="$url">$url</a>
436 <p>Client IP address: <i>$ip</i>
451 <td bgcolor="#C0C0C0" align="right">
452 <font face="verdana,arial,sans serif" color="#FFFFFF" size="1">Web Filtering by
454 <a href="http://www.ipcop.org" target="_blank"><b>
455 <font face="verdana,arial,sans serif" color="#FFFFFF" size="1">IPCop</b></a> and
456 <a href="http://www.squidguard.org" target="_blank"><b>
457 <font face="verdana,arial,sans serif" color="#FFFFFF" size="1">SquidGuard
474 my $filename = $_[0];
480 open(FILE
, $filename) or die "Unable to read file $filename";
484 ($var, $val) = split /=/, $_, 2;
490 # Untaint variables read from hash
491 $var =~ /([A-Za-z0-9_-]*)/; $var = $1;
492 $val =~ /([\w\W]*)/; $val = $1;
493 $hash->{$var} = $val;