sub geekNewsHandler
{
$html = shift;
my( @rValue ) = ();
my( $headline, $author, $story );
# print $html;
while( $html =~ s/\<\!\-\- NEWS UPDATED ON.+?\-\-\>.*?(\
\\(.*?)<\/b>/i )
{
# print "Title: $1\n\n";
$headline = $1;
}
if( $item =~ /By\s*(.*?)<\/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///gsi;
$story =~ s/<\/b>//gsi;
$story =~ s///gsi;
$story =~ s/<\/i>//gsi;
$story =~ s///gsi;
$story =~ s/<\/font.*?>//gsi;
$story =~ s///gsi;
$story =~ s/
//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;