sub sportsnet_rss
{
   $html = shift;
   my( @rValue ) = ();
   my ( $title, $url, $blurb );

   $html =~ s/&amp;/&/gixs;
   print $html;
   #exit;
 
   while( $html =~ s/
      <item.*?>.*?
         <title>(.*?)<\/title>.*?
         <link>(.*?)<\/link>.*?
         <description>(.*?)<\/description>.*?
      <\/item>//six )
   {
      $name          = $1;
      $link          = $2;
      $description   = $3;
      $date          = $4;
      $description =~ s/&lt;.*?&gt;//gsix;
      $description =~ s/<\!.*?<p>(.*?)<\/p>.*?]]>/$1/gsix;
      $name =~ s/\(.*?\)//gsix;

      $link =~ s/<\!\[CDATA\[\ //gsix;
      $link =~ s/\ ]]>//gsix;

      print STDERR "\nname          => $name\n";
      #print STDERR "poster        => $poster\n";
      #print STDERR "date          => $date\n";
      #print STDERR "department    => $department\n";
      print STDERR "description   => $description\n";
      print STDERR "link           => $link\n";
      #print STDERR "icon          => $icon\n";
      #print STDERR "comments      => $comments\n";
      #print STDERR "category      => $category\n";
      #print STDERR "caturl        => $catUrl\n";
      push @rValue, {
         'headline'         => $name,
         'url'              => $link,
       };
      # clean up after ourselves.
      undef($name);        undef($icon);
      undef($poster);      undef($date);
      undef($department);  undef($description);
      undef($url);         undef($comments);
      undef($cmntsAll);    undef($cmntsGood);
      undef($category);    undef($catUrl);
   }

   return @rValue;
}

return 1;

