| | 1 | #!/usr/bin/perl |
| | 2 | |
| | 3 | # |
| | 4 | # $Id: redirect.cgi,v 0.1 2004/09/26 00:00:00 marco Exp $ |
| | 5 | # |
| | 6 | |
| | 7 | use CGI qw(param); |
| | 8 | |
| | 9 | $swroot="/var/ipfire"; |
| | 10 | |
| | 11 | my %netsettings; |
| | 12 | my %filtersettings; |
| | 13 | |
| | 14 | &readhash("$swroot/ethernet/settings", \%netsettings); |
| | 15 | &readhash("$swroot/urlfilter/settings", \%filtersettings); |
| | 16 | |
| | 17 | $category=param("category"); |
| | 18 | $url=param("url"); |
| | 19 | $ip=param("ip"); |
| | 20 | |
| | 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'}; } |
| | 30 | |
| | 31 | if ($category eq '') { $category = ' '; } else { $category = '['.$category.']'; } |
| | 32 | |
| | 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"; |
| | 37 | |
| | 38 | print <<END |
| | 39 | <html> |
| | 40 | <head> |
| | 41 | <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> |
| | 42 | <title></title> |
| | 43 | </head> |
| | 44 | |
| | 45 | END |
| | 46 | ; |
| | 47 | |
| | 48 | if (($filtersettings{'ENABLE_JPEG'} eq 'on') && (-e "/home/httpd/html/images/urlfilter/background.jpg")) |
| | 49 | { |
| | 50 | print <<END |
| | 51 | <body background="http://$netsettings{'GREEN_ADDRESS'}:81//images/urlfilter/background.jpg" bgcolor="#FFFFFF"> |
| | 52 | END |
| | 53 | ; |
| | 54 | } else { |
| | 55 | print <<END |
| | 56 | <body bgcolor="#FFFFFF"> |
| | 57 | END |
| | 58 | ; |
| | 59 | } |
| | 60 | |
| | 61 | print <<END |
| | 62 | |
| | 63 | <center> |
| | 64 | |
| | 65 | <table width="80%" cellspacing="10" cellpadding="5" border="0"> |
| | 66 | |
| | 67 | <tr> |
| | 68 | <td bgcolor="#C0C0C0" align="right"> |
| | 69 | <font face="verdana, arial, sans serif" color="#000000" size="1"> |
| | 70 | <b>$category</b> |
| | 71 | </font> |
| | 72 | </td> |
| | 73 | </tr> |
| | 74 | <tr> |
| | 75 | <td bgcolor="#F4F4F4" align="center"> |
| | 76 | <table width="100%" cellspacing="20" cellpadding="20" border="0"> |
| | 77 | <tr> |
| | 78 | <td nowrap bgcolor="#FF0000" align="center"> |
| | 79 | <font face="verdana, arial, sans serif" color="#FFFFFF" size="6"> |
| | 80 | <b>$msgtext1</b> |
| | 81 | </font> |
| | 82 | </td> |
| | 83 | </tr> |
| | 84 | <tr> |
| | 85 | <td bgcolor="#E2E2E2" align="center"> |
| | 86 | <font face="verdana, arial, sans serif" color="#000000" size="4"> |
| | 87 | <b>$msgtext2</b> |
| | 88 | </font> |
| | 89 | <font face="verdana,arial,sans serif" color="#000000" size="2"> |
| | 90 | END |
| | 91 | ; |
| | 92 | |
| | 93 | if (!($url eq "")) |
| | 94 | { |
| | 95 | print <<END |
| | 96 | <p>URL: <a href="$url">$url</a> |
| | 97 | END |
| | 98 | ; |
| | 99 | } |
| | 100 | |
| | 101 | if (!($ip eq "")) |
| | 102 | { |
| | 103 | print <<END |
| | 104 | <p>Client IP address: <i>$ip</i> |
| | 105 | END |
| | 106 | ; |
| | 107 | } |
| | 108 | |
| | 109 | print <<END |
| | 110 | <br><p>$msgtext3 |
| | 111 | </font> |
| | 112 | </td> |
| | 113 | </tr> |
| | 114 | </td> |
| | 115 | </tr> |
| | 116 | </table> |
| | 117 | |
| | 118 | <tr> |
| | 119 | <td bgcolor="#C0C0C0" align="right"> |
| | 120 | <font face="verdana,arial,sans serif" color="#FFFFFF" size="1">Web Filtering by |
| | 121 | </font> |
| | 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 |
| | 126 | </font></b></a> |
| | 127 | </td> |
| | 128 | </tr> |
| | 129 | |
| | 130 | </table> |
| | 131 | |
| | 132 | </center> |
| | 133 | |
| | 134 | </body> |
| | 135 | |
| | 136 | </html> |
| | 137 | END |
| | 138 | ; |
| | 139 | |
| | 140 | sub readhash |
| | 141 | { |
| | 142 | my $filename = $_[0]; |
| | 143 | my $hash = $_[1]; |
| | 144 | my ($var, $val); |
| | 145 | |
| | 146 | if (-e $filename) |
| | 147 | { |
| | 148 | open(FILE, $filename) or die "Unable to read file $filename"; |
| | 149 | while (<FILE>) |
| | 150 | { |
| | 151 | chop; |
| | 152 | ($var, $val) = split /=/, $_, 2; |
| | 153 | if ($var) |
| | 154 | { |
| | 155 | $val =~ s/^\'//g; |
| | 156 | $val =~ s/\'$//g; |
| | 157 | |
| | 158 | # Untaint variables read from hash |
| | 159 | $var =~ /([A-Za-z0-9_-]*)/; $var = $1; |
| | 160 | $val =~ /([\w\W]*)/; $val = $1; |
| | 161 | $hash->{$var} = $val; |
| | 162 | } |
| | 163 | } |
| | 164 | close FILE; |
| | 165 | } |
| | 166 | } |
| | 167 | #!/usr/bin/perl |
| | 168 | |
| | 169 | # |
| | 170 | # $Id: redirect.cgi,v 0.1 2004/09/26 00:00:00 marco Exp $ |
| | 171 | # |
| | 172 | |
| | 173 | use CGI qw(param); |
| | 174 | |
| | 175 | $swroot="/var/ipfire"; |
| | 176 | |
| | 177 | my %netsettings; |
| | 178 | my %filtersettings; |
| | 179 | |
| | 180 | &readhash("$swroot/ethernet/settings", \%netsettings); |
| | 181 | &readhash("$swroot/urlfilter/settings", \%filtersettings); |
| | 182 | |
| | 183 | $category=param("category"); |
| | 184 | $url=param("url"); |
| | 185 | $ip=param("ip"); |
| | 186 | |
| | 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'}; } |
| | 196 | |
| | 197 | if ($category eq '') { $category = ' '; } else { $category = '['.$category.']'; } |
| | 198 | |
| | 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"; |
| | 203 | |
| | 204 | print <<END |
| | 205 | <html> |
| | 206 | <head> |
| | 207 | <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> |
| | 208 | <title></title> |
| | 209 | </head> |
| | 210 | |
| | 211 | END |
| | 212 | ; |
| | 213 | |
| | 214 | if (($filtersettings{'ENABLE_JPEG'} eq 'on') && (-e "/home/httpd/html/images/urlfilter/background.jpg")) |
| | 215 | { |
| | 216 | print <<END |
| | 217 | <body background="http://$netsettings{'GREEN_ADDRESS'}:81//images/urlfilter/background.jpg" bgcolor="#FFFFFF"> |
| | 218 | END |
| | 219 | ; |
| | 220 | } else { |
| | 221 | print <<END |
| | 222 | <body bgcolor="#FFFFFF"> |
| | 223 | END |
| | 224 | ; |
| | 225 | } |
| | 226 | |
| | 227 | print <<END |
| | 228 | |
| | 229 | <center> |
| | 230 | |
| | 231 | <table width="80%" cellspacing="10" cellpadding="5" border="0"> |
| | 232 | |
| | 233 | <tr> |
| | 234 | <td bgcolor="#C0C0C0" align="right"> |
| | 235 | <font face="verdana, arial, sans serif" color="#000000" size="1"> |
| | 236 | <b>$category</b> |
| | 237 | </font> |
| | 238 | </td> |
| | 239 | </tr> |
| | 240 | <tr> |
| | 241 | <td bgcolor="#F4F4F4" align="center"> |
| | 242 | <table width="100%" cellspacing="20" cellpadding="20" border="0"> |
| | 243 | <tr> |
| | 244 | <td nowrap bgcolor="#FF0000" align="center"> |
| | 245 | <font face="verdana, arial, sans serif" color="#FFFFFF" size="6"> |
| | 246 | <b>$msgtext1</b> |
| | 247 | </font> |
| | 248 | </td> |
| | 249 | </tr> |
| | 250 | <tr> |
| | 251 | <td bgcolor="#E2E2E2" align="center"> |
| | 252 | <font face="verdana, arial, sans serif" color="#000000" size="4"> |
| | 253 | <b>$msgtext2</b> |
| | 254 | </font> |
| | 255 | <font face="verdana,arial,sans serif" color="#000000" size="2"> |
| | 256 | END |
| | 257 | ; |
| | 258 | |
| | 259 | if (!($url eq "")) |
| | 260 | { |
| | 261 | print <<END |
| | 262 | <p>URL: <a href="$url">$url</a> |
| | 263 | END |
| | 264 | ; |
| | 265 | } |
| | 266 | |
| | 267 | if (!($ip eq "")) |
| | 268 | { |
| | 269 | print <<END |
| | 270 | <p>Client IP address: <i>$ip</i> |
| | 271 | END |
| | 272 | ; |
| | 273 | } |
| | 274 | |
| | 275 | print <<END |
| | 276 | <br><p>$msgtext3 |
| | 277 | </font> |
| | 278 | </td> |
| | 279 | </tr> |
| | 280 | </td> |
| | 281 | </tr> |
| | 282 | </table> |
| | 283 | |
| | 284 | <tr> |
| | 285 | <td bgcolor="#C0C0C0" align="right"> |
| | 286 | <font face="verdana,arial,sans serif" color="#FFFFFF" size="1">Web Filtering by |
| | 287 | </font> |
| | 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 |
| | 292 | </font></b></a> |
| | 293 | </td> |
| | 294 | </tr> |
| | 295 | |
| | 296 | </table> |
| | 297 | |
| | 298 | </center> |
| | 299 | |
| | 300 | </body> |
| | 301 | |
| | 302 | </html> |
| | 303 | END |
| | 304 | ; |
| | 305 | |
| | 306 | sub readhash |
| | 307 | { |
| | 308 | my $filename = $_[0]; |
| | 309 | my $hash = $_[1]; |
| | 310 | my ($var, $val); |
| | 311 | |
| | 312 | if (-e $filename) |
| | 313 | { |
| | 314 | open(FILE, $filename) or die "Unable to read file $filename"; |
| | 315 | while (<FILE>) |
| | 316 | { |
| | 317 | chop; |
| | 318 | ($var, $val) = split /=/, $_, 2; |
| | 319 | if ($var) |
| | 320 | { |
| | 321 | $val =~ s/^\'//g; |
| | 322 | $val =~ s/\'$//g; |
| | 323 | |
| | 324 | # Untaint variables read from hash |
| | 325 | $var =~ /([A-Za-z0-9_-]*)/; $var = $1; |
| | 326 | $val =~ /([\w\W]*)/; $val = $1; |
| | 327 | $hash->{$var} = $val; |
| | 328 | } |
| | 329 | } |
| | 330 | close FILE; |
| | 331 | } |
| | 332 | } |
| | 333 | #!/usr/bin/perl |
| | 334 | |
| | 335 | # |
| | 336 | # $Id: redirect.cgi,v 0.1 2004/09/26 00:00:00 marco Exp $ |
| | 337 | # |
| | 338 | |
| | 339 | use CGI qw(param); |
| | 340 | |
| | 341 | $swroot="/var/ipfire"; |
| | 342 | |
| | 343 | my %netsettings; |
| | 344 | my %filtersettings; |
| | 345 | |
| | 346 | &readhash("$swroot/ethernet/settings", \%netsettings); |
| | 347 | &readhash("$swroot/urlfilter/settings", \%filtersettings); |
| | 348 | |
| | 349 | $category=param("category"); |
| | 350 | $url=param("url"); |
| | 351 | $ip=param("ip"); |
| | 352 | |
| | 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'}; } |
| | 362 | |
| | 363 | if ($category eq '') { $category = ' '; } else { $category = '['.$category.']'; } |
| | 364 | |
| | 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"; |
| | 369 | |
| | 370 | print <<END |
| | 371 | <html> |
| | 372 | <head> |
| | 373 | <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> |
| | 374 | <title></title> |
| | 375 | </head> |
| | 376 | |
| | 377 | END |
| | 378 | ; |
| | 379 | |
| | 380 | if (($filtersettings{'ENABLE_JPEG'} eq 'on') && (-e "/home/httpd/html/images/urlfilter/background.jpg")) |
| | 381 | { |
| | 382 | print <<END |
| | 383 | <body background="http://$netsettings{'GREEN_ADDRESS'}:81//images/urlfilter/background.jpg" bgcolor="#FFFFFF"> |
| | 384 | END |
| | 385 | ; |
| | 386 | } else { |
| | 387 | print <<END |
| | 388 | <body bgcolor="#FFFFFF"> |
| | 389 | END |
| | 390 | ; |
| | 391 | } |
| | 392 | |
| | 393 | print <<END |
| | 394 | |
| | 395 | <center> |
| | 396 | |
| | 397 | <table width="80%" cellspacing="10" cellpadding="5" border="0"> |
| | 398 | |
| | 399 | <tr> |
| | 400 | <td bgcolor="#C0C0C0" align="right"> |
| | 401 | <font face="verdana, arial, sans serif" color="#000000" size="1"> |
| | 402 | <b>$category</b> |
| | 403 | </font> |
| | 404 | </td> |
| | 405 | </tr> |
| | 406 | <tr> |
| | 407 | <td bgcolor="#F4F4F4" align="center"> |
| | 408 | <table width="100%" cellspacing="20" cellpadding="20" border="0"> |
| | 409 | <tr> |
| | 410 | <td nowrap bgcolor="#FF0000" align="center"> |
| | 411 | <font face="verdana, arial, sans serif" color="#FFFFFF" size="6"> |
| | 412 | <b>$msgtext1</b> |
| | 413 | </font> |
| | 414 | </td> |
| | 415 | </tr> |
| | 416 | <tr> |
| | 417 | <td bgcolor="#E2E2E2" align="center"> |
| | 418 | <font face="verdana, arial, sans serif" color="#000000" size="4"> |
| | 419 | <b>$msgtext2</b> |
| | 420 | </font> |
| | 421 | <font face="verdana,arial,sans serif" color="#000000" size="2"> |
| | 422 | END |
| | 423 | ; |
| | 424 | |
| | 425 | if (!($url eq "")) |
| | 426 | { |
| | 427 | print <<END |
| | 428 | <p>URL: <a href="$url">$url</a> |
| | 429 | END |
| | 430 | ; |
| | 431 | } |
| | 432 | |
| | 433 | if (!($ip eq "")) |
| | 434 | { |
| | 435 | print <<END |
| | 436 | <p>Client IP address: <i>$ip</i> |
| | 437 | END |
| | 438 | ; |
| | 439 | } |
| | 440 | |
| | 441 | print <<END |
| | 442 | <br><p>$msgtext3 |
| | 443 | </font> |
| | 444 | </td> |
| | 445 | </tr> |
| | 446 | </td> |
| | 447 | </tr> |
| | 448 | </table> |
| | 449 | |
| | 450 | <tr> |
| | 451 | <td bgcolor="#C0C0C0" align="right"> |
| | 452 | <font face="verdana,arial,sans serif" color="#FFFFFF" size="1">Web Filtering by |
| | 453 | </font> |
| | 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 |
| | 458 | </font></b></a> |
| | 459 | </td> |
| | 460 | </tr> |
| | 461 | |
| | 462 | </table> |
| | 463 | |
| | 464 | </center> |
| | 465 | |
| | 466 | </body> |
| | 467 | |
| | 468 | </html> |
| | 469 | END |
| | 470 | ; |
| | 471 | |
| | 472 | sub readhash |
| | 473 | { |
| | 474 | my $filename = $_[0]; |
| | 475 | my $hash = $_[1]; |
| | 476 | my ($var, $val); |
| | 477 | |
| | 478 | if (-e $filename) |
| | 479 | { |
| | 480 | open(FILE, $filename) or die "Unable to read file $filename"; |
| | 481 | while (<FILE>) |
| | 482 | { |
| | 483 | chop; |
| | 484 | ($var, $val) = split /=/, $_, 2; |
| | 485 | if ($var) |
| | 486 | { |
| | 487 | $val =~ s/^\'//g; |
| | 488 | $val =~ s/\'$//g; |
| | 489 | |
| | 490 | # Untaint variables read from hash |
| | 491 | $var =~ /([A-Za-z0-9_-]*)/; $var = $1; |
| | 492 | $val =~ /([\w\W]*)/; $val = $1; |
| | 493 | $hash->{$var} = $val; |
| | 494 | } |
| | 495 | } |
| | 496 | close FILE; |
| | 497 | } |
| | 498 | } |
projects / people / teissler / ipfire-2.x.git / blame_incremental