use zUtil;

sub lwnHandler
{
   $html = shift;
   my( @rValue ) = ();
   my( $headline, $table, $page, $date, $day, $blurb );
   
   print "---------------- lwnHandler -----------------------\n\n" ;
 #  print $html;

 

   while( $html =~ /<a href="(.*?)">(.*?)<\/a>/gsi )
   {
       $headline = $2;
       $page = $1;

       push @rValue,
       {
	   'headline' => $headline,
	   'page'     => "n/a",
	   'date'     => "n/a",
	   'day'      => "n/a",
	   'blurb'    => "n/a"
	   };
   }
  
   return @rValue;
}

return 1;

