sub geekNewsHandler
{
   $html = shift;
   my( @rValue ) = ();
   my( $url, $category, $headline, $author, $date, $story );

   # first, throw away any bits that might confuse us.
   # yeah, it slows things down, but I'm lazy.
   $html =~ /\<\!\-\- *end of header *\-\-\>(.*?)\<\!\-\- *FOOTER_TOP *\-\-\>/si;
   $clean = $1;
   printf STDERR "-->$clean<--";
   while($clean =~ s/
                     <table\swidth=.*?>.*?<td.*?class=\"title\">.*?
                     <a\shref=\"(.*?)\".*?>         # url for story class ($1)
                      (.*?)<\/a>                    # story class ($2)
                      : \s* (\S[\S\s]*?)\<\/td\>    # story title ($3)
                      .*?\<td.*?class=\"content\"\> # noise
                      (.*?)\<\/td\>                 # story ($4)
                      .*?                           # more noise
                      \.\.\. .*?(\<a .*?>.*?\<\/a>) # author ($5)
                      .*?<.*?>(.*?)\.\.\.           # date ($6)
                    //six )
   {
      $url      =  $1;
      $category = $2;
      $headline = $3;
      $story    = $4;
      $author   = $5;
      $date     = $6;

      #printf STDERR "\nurl = $url\n";
      #printf STDERR "category = $category\n";
      #printf STDERR "headline = $headline\n";
      #printf STDERR "story = $story\n";
      #printf STDERR "author = $author\n";
      #printf STDERR "date = $date\n";
      #exit(1);

      push @rValue,
      {
         'headline' => $headline,
         'author'   => $author,
         'story'    => $story,
         'date'     => $date,
         'url'      => $url,
         'category' => $category
      }
   }

   return @rValue;
}

# -- {
# --     $html = shift;
# --     my( @rValue ) = ();
# --     my( $headline, $author, $story );
# -- 
# -- #    print $html;
# -- 
# --     while( $html =~ s/\<\!\-\- NEWS UPDATED ON.+?\-\-\>.*?(\<p.*?)\<\!\-\-//si )
# --     {
# -- #	print "------------------------------------------\n";
# -- #	print $1;
# -- 
# -- 	$item = $1;
# -- 
# -- 	if( $item =~ /^\<p.*?\>\<a.*?\/a\>\<font.*?\><b>(.*?)<\/b>/i )
# -- 	{
# -- #	    print "Title: $1\n\n";
# -- 	    $headline = $1;
# -- 	}
# -- 
# -- 	if( $item =~ /By\s*<A.*?>(.*?)<\/a>/ )
# -- 	{
# -- #	    print "Author: $1\n";
# -- 	    $author = $1;
# -- 	}
# -- 
# -- 	if( $item =~ /\@.*?(\d+\:\d+\w)\s*(\w+)/ )
# -- 	{
# -- #	    print "Time: $1\nDate: $2\n";
# -- 	    $date = $2;
# -- 	    $time = $1;
# -- 	}
# -- 
# -- 	if( $item =~ /\_\.gif.*?>(.*)/i )
# -- 	{
# -- 	    $story = $1;
# -- 
# -- 	    # Strip everything except a hrefs ..
# -- 	    $story =~ s/<b>//gsi;
# -- 	    $story =~ s/<\/b>//gsi;
# --             $story =~ s/<i>//gsi;
# --             $story =~ s/<\/i>//gsi;
# -- 	    $story =~ s/<font.*?>//gsi;
# -- 	    $story =~ s/<\/font.*?>//gsi;
# -- 	    $story =~ s/<img.*?>//gsi;
# -- 	    $story =~ s/<br>//gsi;
# -- 
# -- 
# -- #	    print "Story: $story\n";
# -- 	}
# -- 	
# -- 
# -- 	push @rValue, 
# -- 	{ 
# -- 	    'headline' => $headline, 
# -- 	    'author' => $author,
# -- 	    'story' => $story,
# -- 	    'date' => $date,
# -- 	    'time' => $time		
# -- 	};
# -- 	#print "pushed: $story\n"; 
# --     }
# -- 
# --     return @rValue;
# -- }
# -- 
# -- 
return 1;

