HTTP::Response => 0,
LWP::UserAgent => 0,
Module::Pluggable::Fast => 0,
+ Path::Class => 0,
Template => 0,
Text::ASCIITable => 0,
Tree::Simple => 0,
);
print( '*' x 80, "\n" );
-print( (qw/draven fordmason naughton sri the_jester/)[ int( rand(5) ) ],
- " is the greatest and gabb is drunk again!\n" );
+print( (qw/chansen draven fordmason naughton sri the_jester/)[ int( rand(6) ) ],
+ " is the greatest and gabb is ",
+ ((localtime)[2] > 12 ? "drunk" : "hung over"), " again!\n" );
print( '*' x 80, "\n" );
eval "use mod_perl; use Apache::Request";