X-Git-Url: http://git.ipfire.org/?p=ipfire-2.x.git;a=blobdiff_plain;f=html%2Fcgi-bin%2Fredirect.cgi;h=c7b6a608f3685fc0333396f46726a99f7e519dc3;hp=40087d17438d34f3090931dc3060d2bc7f49e759;hb=e24010a9a90b8a5a4fdb1cffcac94df5a07a17fc;hpb=10e4f2395ed42d50545ef9c3d73994b542e09dac diff --git a/html/cgi-bin/redirect.cgi b/html/cgi-bin/redirect.cgi index 40087d1743..c7b6a608f3 100644 --- a/html/cgi-bin/redirect.cgi +++ b/html/cgi-bin/redirect.cgi @@ -164,335 +164,3 @@ sub readhash close FILE; } } -#!/usr/bin/perl - -# -# $Id: redirect.cgi,v 0.1 2004/09/26 00:00:00 marco Exp $ -# - -use CGI qw(param); - -$swroot="/var/ipfire"; - -my %netsettings; -my %filtersettings; - -&readhash("$swroot/ethernet/settings", \%netsettings); -&readhash("$swroot/urlfilter/settings", \%filtersettings); - -$category=param("category"); -$url=param("url"); -$ip=param("ip"); - -if ($filtersettings{'MSG_TEXT_1'} eq '') { - $msgtext1 = "A C C E S S    D E N I E D"; -} else { $msgtext1 = $filtersettings{'MSG_TEXT_1'}; } -if ($filtersettings{'MSG_TEXT_2'} eq '') { - $msgtext2 = "Access to the requested page has been denied"; -} else { $msgtext2 = $filtersettings{'MSG_TEXT_2'}; } -if ($filtersettings{'MSG_TEXT_3'} eq '') { - $msgtext3 = "Please contact the Network Administrator if you think there has been an error"; -} else { $msgtext3 = $filtersettings{'MSG_TEXT_3'}; } - -if ($category eq '') { $category = ' '; } else { $category = '['.$category.']'; } - -print "Pragma: no-cache\n"; -print "Cache-control: no-cache\n"; -print "Connection: close\n"; -print "Content-type: text/html\n\n"; - -print < - - - - - -END -; - -if (($filtersettings{'ENABLE_JPEG'} eq 'on') && (-e "/home/httpd/html/images/urlfilter/background.jpg")) -{ -print < -END -; -} else { -print < -END -; -} - -print < - - - - - - - - - - - -
- - $category - -
- - - - - - - - - -
- - $msgtext1 - -
- - $msgtext2 - - -END -; - -if (!($url eq "")) -{ -print <URL: $url -END -; -} - -if (!($ip eq "")) -{ -print <Client IP address: $ip -END -; -} - -print <

$msgtext3 - -

- -
- Web Filtering by - - - IPCop and - - SquidGuard - -
- - - - - - -END -; - -sub readhash -{ - my $filename = $_[0]; - my $hash = $_[1]; - my ($var, $val); - - if (-e $filename) - { - open(FILE, $filename) or die "Unable to read file $filename"; - while () - { - chop; - ($var, $val) = split /=/, $_, 2; - if ($var) - { - $val =~ s/^\'//g; - $val =~ s/\'$//g; - - # Untaint variables read from hash - $var =~ /([A-Za-z0-9_-]*)/; $var = $1; - $val =~ /([\w\W]*)/; $val = $1; - $hash->{$var} = $val; - } - } - close FILE; - } -} -#!/usr/bin/perl - -# -# $Id: redirect.cgi,v 0.1 2004/09/26 00:00:00 marco Exp $ -# - -use CGI qw(param); - -$swroot="/var/ipfire"; - -my %netsettings; -my %filtersettings; - -&readhash("$swroot/ethernet/settings", \%netsettings); -&readhash("$swroot/urlfilter/settings", \%filtersettings); - -$category=param("category"); -$url=param("url"); -$ip=param("ip"); - -if ($filtersettings{'MSG_TEXT_1'} eq '') { - $msgtext1 = "A C C E S S    D E N I E D"; -} else { $msgtext1 = $filtersettings{'MSG_TEXT_1'}; } -if ($filtersettings{'MSG_TEXT_2'} eq '') { - $msgtext2 = "Access to the requested page has been denied"; -} else { $msgtext2 = $filtersettings{'MSG_TEXT_2'}; } -if ($filtersettings{'MSG_TEXT_3'} eq '') { - $msgtext3 = "Please contact the Network Administrator if you think there has been an error"; -} else { $msgtext3 = $filtersettings{'MSG_TEXT_3'}; } - -if ($category eq '') { $category = ' '; } else { $category = '['.$category.']'; } - -print "Pragma: no-cache\n"; -print "Cache-control: no-cache\n"; -print "Connection: close\n"; -print "Content-type: text/html\n\n"; - -print < - - - - - -END -; - -if (($filtersettings{'ENABLE_JPEG'} eq 'on') && (-e "/home/httpd/html/images/urlfilter/background.jpg")) -{ -print < -END -; -} else { -print < -END -; -} - -print < - - - - - - - - - - - -
- - $category - -
- - - - - - - - - -
- - $msgtext1 - -
- - $msgtext2 - - -END -; - -if (!($url eq "")) -{ -print <URL: $url -END -; -} - -if (!($ip eq "")) -{ -print <Client IP address: $ip -END -; -} - -print <

$msgtext3 - -

- -
- Web Filtering by - - - IPCop and - - SquidGuard - -
- - - - - - -END -; - -sub readhash -{ - my $filename = $_[0]; - my $hash = $_[1]; - my ($var, $val); - - if (-e $filename) - { - open(FILE, $filename) or die "Unable to read file $filename"; - while () - { - chop; - ($var, $val) = split /=/, $_, 2; - if ($var) - { - $val =~ s/^\'//g; - $val =~ s/\'$//g; - - # Untaint variables read from hash - $var =~ /([A-Za-z0-9_-]*)/; $var = $1; - $val =~ /([\w\W]*)/; $val = $1; - $hash->{$var} = $val; - } - } - close FILE; - } -}