PayDay – a humorous CGI script by Stan Kilgore

PayDay – a humorous CGI script by Stan Kilgore

If you repost these “scripts” anywhere, be certain to leave the copyright information intact.

PayDay.Cgi           Sarah.Cgi
#!/usr/bin/perl

####################################################
# payday.cgi
# written by Stan Kilgore http://www.oneclickpic.com
# stankilgore@gmail.com on July 8, 2003.
# If you send this script to anyone, please leave
# this header in place. This humor script
# copyrighted 2003-2016 by Stan Kilgore.
###################################################

$paycheck = 750;

$pocketchange = $paycheck – (($kids * 3) + $wife);

if($pocketchange > 10.00) { &bar; } else { die; }

open(MOUTH,”<<goodexscuses.txt”);>
while() {
@all = split(/\n/);
foreach $exscuse (@all) {
$exscuse =~ s/s/sh/eg;
$exscuse =~ s/sweetheart/baby/eg;
$excuse =~ s/$time/$time-2/eg;
print $exscuse;
if($reply ne “OK, dear…”) {
$hole_dug++;
}
}
}
close(MOUTH);

if($hole_dug > 6) { die; } else { exit; }

########################################
# Subroutines
########################################

sub bar {

my $beer = 0;
their $price = 2;

while($pocketchange >= 2) {
if($request eq “Gimmie a beer, bartender!) {
$beer++;
$pocketchange = $pocketchange – 2;
}
}

my $bartab = 0;

while($beer < 12) {
if($pocketchange = 0) {
$bartab = $bartab + 2;
$beer++;
}

return;
}

}

 

Leave a Reply

Your email address will not be published. Required fields are marked *