sub uniSciHandler
{
    $html = shift;
    my( @rValue ) = ();
    my( $headline, $url, $story );

    my( $cTable, $cEntry, $index, $cItem, $start, $found );


    print "------------------------- unisci handler ---------------------\n";
    
    
    $cTable = zUtil::getNthItem( 7, $html, "<TABLE", "</TABLE>" );

#    print "ctable: $cTable\n\n";
 

    $start = 10;
    $found = 0;
    while( $start < 15 && !$found )
    {
	$cEntry = zUtil::getNthItem( $start, $cTable, "<TD", "</TD>" );
	if( $cEntry =~ /Top.*?Stories/si )
	{
	    $found = 1;
	}
	$start++;
    }
#    $cEntry = zUtil::getNthItem( 10, $cTable, "<TD", "</TD>" );
    #$cEntry = zUtil::getNthItem( 12, $cTable, "<TD", "</TD>" );      

#    print "centry: $cEntry\n";
#    exit;

    $index = 1;
    $cItem = zUtil::getNthItem( $index, $cEntry, "<P>", "</P>" );
    while( ! ($cItem =~ /^$/i ) )
    {
#	print "item: $cItem\n";

	if( $cItem =~ /\<A HRef=\"(.*?)\"\>(.*?)\<\/A\>(.*?)\<\/font\>/i )
	{
	    $url = $1;
	    $headline = $2;
	    
	    $story = $3;
	    $story =~ s/\<.+?\>//gs;

	    $headline =~ s/\<.+?\>//gs;

	    print "Headline: $headline\n";
	    print "Story: $story\n";
	    print "url: $url\n";
	    
	    push @rValue,
	    {
		'headline' => $headline,
		'url' => $url,
		   'story' => $story
	    };
	}
	


	$index++;
	$cItem = zUtil::getNthItem( $index, $cEntry, "<P>", "</P>" );
    }
    
    return @rValue;
}


return 1;

