sub canTickerHandler
{
   my $html = shift;
   my( @rValue ) = ();
   my( $headline, $url, $count );
   my( $table, $start, $entry );

   print "--> :: canTickerHandler ::\n";

   #print "html: $html";

   $start = 16;
   $table = zUtil::getNthItemNew( $start, $html, "<table", "</table>" );
   if( !($table =~ /\<div id\=smtext\>/gsi) )
   {
       $start = $start + 1;
       $table = zUtil::getNthItemNew( $start, $html, "<table", "</table>" );
   }

   # first table is the new headlines

   $count = 1;
   $entry = zUtil::getNthItemNew( $count, $table, "<td", "</td>" );
   while( !($entry =~ /^$/) )
   {
       if( $entry =~  /<a href=\"(.*?)\".*?><b>(.*?)<\/b><\/a>/gsi )
       {
           $url      = $1;
           $headline = $2;
           push @rValue,
           {
               'headline' => $headline,
               'url'      => $url
           };

           print "headline: $headline\n";
           print "url: $url\n"; 
       }
       if( $entry =~  /<b><a href=\"(.*?)\".*?>(.*?)<\/a><\/b>/gsi )
       {
           $url      = $1;
           $headline = $2;
           push @rValue,
           {
               'headline' => $headline,
               'url'      => $url
           };

           print "headline: $headline\n";
           print "url: $url\n";
       }

       $count++;
       $entry = zUtil::getNthItemNew( $count, $table, "<td", "</td>" );
   }

   $start = $start + 1;
   $table = zUtil::getNthItemNew( $start, $html, "<table", "</table>" );

   # second table is the older headlines
   while( $table =~ /<a href=\"(.*?)\".*?>(.*?)<\/a>/gsi )
   {
       $url      = $1;
       $headline = $2;
       push @rValue,
       {
           'headline' => $headline,
           'url'      => $url
       };

       print "headline: $headline\n";
   }

   print "<-- :: canTickerHandler ::\n";

   return @rValue;  
}

return 1;
