
sub fortuneHandler
{
   open (FORTUNE, "/usr/games/fortune -s all |");

   $result = "";
   while( <FORTUNE> )
   {
      $result .= $_;
   }
   close (FORTUNE);

   # Who needs the last \n ?
   chomp( $result );

   # Replace the \n's with <BR>'s
   ##$result =~ s/\n/<BR>/gsi;
   $result =~ s/\n/ /gsi;

   push @rValue, { 'fortune' => $result };

   return @rValue;
}

1;

