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

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

   #print "html: $html";

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

   print "first table is at: $start\n";

   # 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;
           
           if( !($headline =~ /img src/gsi || ($headline =~ /archive/gsi )) )
           {
               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;

           if( !($headline =~ /img src/gsi || ($headline =~ /archive/gsi )) )
           {
               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>" );
   while( !($table =~ /cnewsred/gsi) && $start < 20 )
   {
       $start = $start + 1;
       $table = zUtil::getNthItemNew( $start, $html, "<table", "</table>" );
   }

   print "second table is at: $start\n";
   # second table is the older headlines
   while( $table =~ /<a href=\"(.*?)\".*?>(.*?)<\/a>/gsi )
   {
       $url      = $1;
       $headline = $2;

       if( !($headline =~ /img src/gsi) )
       {
           push @rValue,
           {
               'headline' => $headline,
               'url'      => $url
            };

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

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

   #exit;

   return @rValue;
}

return 1;
