sub geekNewsHandler
{
    $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>/i )
	{
#	    print "Author: $1\n";
	    $author = $1;
	}

	if( $item =~ /\@.*?(\d+\:\d+\w)\s*(\w+)/i )
	{
#	    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;