#!/usr/bin/perl

use CGI qw(:standard);

if (param()) {
   if (param(type) eq "dirty") {
   $fortune=`/usr/games/fortune -o`;
   }
   else {
   $type=param(type);
   $fortune=`/usr/games/fortune $type`;
   }
}
else {
   $fortune=`/usr/games/fortune`;
}

print header;
print "<pre>\n";
print "$fortune\n";
print "</pre>\n";
print end_html;

exit;