sub yahooSpaceHandler
{

   # TODO:
   #  Get the date of the last update . . .  It's on the page.
   $html = shift;
   my( @rValue ) = ();
   my( $headline, $page, $date, $day, $blurb );
   my( $temp );
   
   print "--------------------- yahooSpaceHandler -------------------------\n";
  # print "$html\n";


   while( $html =~ /<b>(.*?)<\/b>.*?<font.*?><i>(.*?)<\/i>.*?<font.*?>(.*?)<\/font>/gsi )
   {
       $headline = $1;
       $date = $2;
       $blurb = $3;

       if( $headline =~ /<a href=\"(.*?)\">(.*?)<\/a>/si )
       {
	   $page = $1;
	   $headline = $2;

	   print "headline: ->$headline<-\n";
	   print "url: ->$page<-\n";
	   print "date: ->$date<-\n";
	   print "blurb: ->$blurb<-\n\n";

	   push @rValue,
	   {
	       'url' => $page,
	       'headline' => $headline,
	       'date' => $date,
	       'blurb' => $blurb
	       };
       }
   }


   return @rValue;
   
}

return 1;

