
sub euroSportsHandler
{
    $html = shift;
    my( @rValue ) = ();
    my( $title );
    my( $link );
    my( $desc );
    my( $region );
    my( $block, $count, $done );
    my( $table, $headline );

    print "===================== euroSportsHandler ==================\n";
    #print "Got: $html\n";

    $done = 0;
    $count = 10;
    while( $count < 21 && !$done )
    {
        $table = zUtil::getNthItemNew( $count, $html, "<table", "</table>" );

        $region = zUtil::getNthItemNew( 3, $table, "<td", "</td>" );
        #print "region: $region\n";

        if( $region =~ /<span class="storyshorttitle2"><a href="(.*?)".*?>(.*?)<\/a>/gsi )
        {
            $url = $1;
            $headline = $2;
            
            $headline =~ s/^\s*//si;

# 	print "url: $url\n";
# 	print "story: $headline\n\n";

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

        $count++;
    }

#    exit;

    return @rValue;
}

1;

