#!/usr/bin/perl
use XML::RSS;

my $title = @ARGV[0];
my $link = @ARGV[1];
my $description = @ARGV[2];

 # insert an item into an RSS file and removes the oldest item if
 # there are already 15 items
 my $rss = new XML::RSS;
 $rss->parsefile("/usr/local/nagios/rss/rss.xml");
 pop(@{$rss->{'items'}}) if (@{$rss->{'items'}} == 15);
 $rss->add_item(title => $title,
                link  => $link,
		description => $description,
                mode  => 'insert'
                );

 $rss->save("/usr/local/nagios/rss/rss.xml");

#By Scott Sugar ssugar@proserveit.com
