use zUtil;
use POSIX qw(strftime);

sub biographyOfTheDayHandler
{
   my $html = shift;
   my $maxItems = shift;
   my( @rValue ) = ();
   my( @holder ) = ();
   my( $table, $row, $value, $day, $count, $date, $blurb );
   my( $done );
   my( $item );
   my( $index );
   my( $time );

   print "------------------ biographyOfTheDayHandler --------------------\n";
   #print "$html\n";
   #exit;

   $index = 2;
   $table = zUtil::getNthItemNew( $index, $html, "<item", "</item>" );
   $item = zUtil::getNthItemNew( 1, $table, "<description", "</description>" );

   $item =~ s/<description.*?>//gsi;
   $item =~ s/<\/description>//gsi;
   $item =~ s/<\!\[CDATA\[\<p\>//gsi;
   $item =~ s/\.<\/p>\]\]>//gsi;

   print "desc: $item";


   push @rValue,
   {
       'simple' => $item
   };

   return @rValue;
}

return 1;
