#!/usr/bin/perl
# little perl bofh cgi excuse jobbie
# copyleft Paul Sladen, released under the terms of the GNU GPL
###############################################################################
# $verbose controls printing of dates in the headers - may need for proxies
$verbose = 0;
# $filename where to get the errors from
$filename = "./bofh-excuses";
# $bluecoat fixes the chances of getting "Alan Marshall"
$bluecoat_enable = 0;
$bluecoat_chance = 8;
$bluecoat_proxy = "10.0.0.2";
###############################################################################
open(INPUT, "<$filename") || die "Can't open excuses file: \'$filename\'\n";
@excuses = ;
close INPUT;
# date, internet style
if ( $verbose )
{
$todays_date = `date -u "+%a, %d %b %Y %T GMT"`;
chomp $todays_date;
}
#### generate the excuse ####
# fetch a random excuse
$todays_excuse = @excuses[rand $#excuses];
# choose a not *so* random quote
if ( $bluecoat_enable )
{
# $foo = $ENV{"REMOTE_ADDR"};
# $bar = $ENV{"REMOTE_ADDR"} eq $bluecoat_proxy;
# $radi = int(rand $bluecoat_chance);
# $todays_excuse = "enabled [$bluecoat_proxy] [$foo] [$bar] [$radi]";
if (( $ENV{"REMOTE_ADDR"} eq $bluecoat_proxy ) &&
not int(rand $bluecoat_chance))
{
$todays_excuse = @excuses[0];
}
}
#### http headers ####
print <
error: bofh says
FOOBAR3
$verbose && print <
FOOBAR4
#### html body ####
print <
$todays_excuse