#!/usr/bin/perl -w
# example usage: rfc 1459     (gets the IRC RFC)

use strict;
use LWP::Simple qw(get);

die("usage: rfc <rfc#>\n") unless defined($ARGV[0]);

my $rfcnum=$ARGV[0];
my $base="http://www.rfc.net/rfc";
my $rfcdir="$ENV{HOME}/rfcs";
my $rfcfile="${rfcdir}/rfc${rfcnum}.txt";
my $rfc;

if(-e $rfcfile) {
    open(RFC,"<$rfcfile") or die("open($rfcfile): $!\n");
    local $/ = undef;
    $rfc=<RFC>;
    close(RFC);
} else {
    $rfc=get($base.$rfcnum.".txt");
    open(RFC,">$rfcfile") or die("open($rfcfile): $!\n");
    print RFC "$rfc";
    close(RFC);
}

print "$rfc";
__END__