# http://rss.slashdot.org/Slashdot/slashdot
sub slashrss
{
   $html = shift;
   my( @rValue ) = ();
   my ( $title, $url, $blurb );

   #$html =~ s/&amp;/&/gixs;
   print $html;
   #exit;

   $count=0;
   while( $html =~ s/
      <item\ rdf:about="(.*?)\?.*?\">.*?
         <title>(.*?)<\/title>.*?
         <link>.*?<\/link>.*?
         <description>(.*?)<\/description>.*?
         <dc:creator>(.*?)<\/dc:creator>.*?
         <dc:date>(.*?)<\/dc:date>.*?
         <dc:subject>(.*?)<\/dc:subject>.*?
         <slash:department>(.*?)<\/slash:department>.*?
         <slash:section>(.*?)<\/slash:section>.*?
         <slash:comments>(.*?)<\/slash:comments>.*?
         <slash:hit_parade>(.*?)<\/slash:hit_parade>.*?
      <\/item>//six )
   {
      $url           = $1;
      $name          = $2;
      $description   = $3;
      $poster        = $4;
      $date          = $5;
      $icon          = $6;
      $department    = $7;
      $category      = $8;
      $catUrl        = $url =~ /(http:\/\/.*?\/)/;
      $cmntsGood     = 0;
      $cmntsAll      = 0;
      #$icon =~ s/\/\/[a-z]*.?slashdot\.org//si;
      #$url  =~ s/\/\/[a-z]*.?slashdot\.org//si;
      #$categoryUrl =~ s/\/\/slashdot\.org//si;
      $description =~ s/&lt;.*?&gt;//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 "url           => $url\n";
       # print STDERR "icon          => $icon\n";
       # print STDERR "comments      => $comments\n";
       # print STDERR "category      => $category\n";
       # print STDERR "caturl        => $catUrl\n";

      push @rValue, {
         'name'         => $name,
         'poster'       => $poster,
         'date'         => $date,
         'department'   => $department,
         'description'  => $description,
         'url'          => $url,
         'icon'         => $icon,
         'comments'     => $comments,
         'category'     => $category,
         'caturl'       => $catUrl
      };
      # 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);

      $count=$count+1;
      last if ($count > 20);
   }


   #exit 1;

   return @rValue;
}

1;
