use zUtil;

sub noaa_rss
{
   $html = shift;
   my( @rValue ) = ();
   my ( $title, $url, $description );

   # Clean up common RSS artifacts
   $html =~ s/&/&/gixs;

   while( $html =~ s/<item>.*?<title>(.*?)<\/title>.*?<link>(.*?)<\/link>.*?<\/item>//six )
   {
       $title = $1;
       $url = $2;

       # Clean CDATA wrappers
       $title =~ s/<\!\[CDATA\[//gsi;
       $title =~ s/\]\]\>//gsi;

       # Skip empty titles
       next if $title =~ /^\s*$/;

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

       undef($url);
       undef($title);
   }

   return @rValue;
}

1;