#!/usr/bin/perl $machine = "grumet.net"; $dfk = `df -k`; $uptime = `uptime`; $date = `date --rfc-822`; chomp($date); print <<EOF <?xml version="1.0"?> <rss version="2.0"> <channel> <title>Uptime Monitor for $machine</title> <link>http://grumet.net/weblog/archives/2003/10/08/rss_uptime_script.html</link> <description>Contains uptime and disk usage information for $machine.</description> <language>en-us</language> <lastBuildDate>$date</lastBuildDate> <pubDate>$date</pubDate> <generator>uptime-monitor-rss.pl, by Andrew Grumet</generator> <item> <description><pre> Uptime: $uptime Disk usage: $dfk </pre> </description> <pubDate>$date</pubDate> <guid isPermaLink="false">$machine $date</guid> </item> </channel> </rss> EOF