#!/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