push(@Addons_Loaded, 'RSS Addon'); 
push(@Addons_BuildNews_PreLoop, 'RSS_Open'); 
push(@Addons_BuildNews_1, 'RSS_Build'); 
push(@Addons_BuildNews_Post, 'RSS_Close'); 
$Addons_List{'RSS Addon v1.14'} = ['npa_rss4.pl', 'Publishes the main page news as an RSS feed. Made by <a href="mailto:leandro@futurama-madhouse.com.ar">Leandro</a>. Modified by <a href="http://johnslone.org" class="" target="_blank">JDS</a> for <a href="http://pokemonpalace.net" class="" target="_blank">PPN</a>.', '']; 

#set the full path, title, links and details for the rss feed page we're to generate 
$RSS_File = '/home/abietto/www/asn_rss.xml'; 
$RSS_Title = 'Abietti si Nasce - RSS Feed'; 
$RSS_Link = 'http://www.abietto.net'; 
$RSS_Desc = 'Gli ultimi dieci post di ASN'; 
$RSS_Lang = 'en-US'; 
$RSS_MaxItems = 10; 

#do not modify anything below 
sub RSS_Open { 
   open (RSSFEED,">$RSS_File"); 
   print RSSFEED "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>\n <rss version=\"2.00\">\n  <channel>\n    <title>$RSS_Title</title>\n"; 
   print RSSFEED "    <link>$RSS_Link</link>\n    <description>$RSS_Desc</description>\n"; 
   print RSSFEED "    <language>$RSS_Lang</language>\n"; 
   $RSS_ItemCount = 0; 
} 

sub RSS_Build { 
   if ($RSS_ItemCount < $RSS_MaxItems) { 
      $RSS_NewsText = $newssubject; 
      while ($RSS_NewsText =~ /[\<\>]/) { 
        $RSS_NewsText =~ s/\<[ -\;\?-\~\=]+\>//; 
      } 
      print RSSFEED "    <item>\n      <title>$RSS_NewsText</title>\n"; 
      print RSSFEED "      <link>$RSS_Link/#newsitem$newsid</link>\n      <description>"; 
      $RSS_NewsText = $newstext; 
      $RSS_NewsText =~ s/(<\/?)(\w+)([^>]*>)/\3/g; 
         $RSS_NewsText =~ s/>//g; 
      $RSS_NewsText = substr($RSS_NewsText,0,100); 
      $RSS_NewsText =~ s/\ [!-~]*$//; 
      print RSSFEED $RSS_NewsText; 
          
         $RSS_NewsText = $newsid; 
      $RSS_NewsText =~ s/^([0-9]+).*$/$1/; 
      $RSS_NewsText = gmtime($RSS_NewsText); 
      $RSS_NewsText =~ s/^(...) (...) (..) (........) (....)$/$1, $3 $2 $5 $4/; 
      print RSSFEED "...</description>\n<pubDate>$RSS_NewsText GMT</pubDate>\n    </item>\n"; 
      $RSS_ItemCount++; 
   } 
} 

sub RSS_Close { 
   print RSSFEED "  </channel>\n</rss>\n"; 
   close(RSSFEED); 
} 

1;