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

use strict;
$|++;
use LWP::Simple;
use HTTP::Status;

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

my $rfcnum=$ARGV[0];
my $base="ftp://ftp.rfc-editor.org/in-notes/rfc";
my $rfcurl=$base.$rfcnum.".txt";
my $rfcdir="$ENV{HOME}/rfcs";
my $rfcfile="${rfcdir}/rfc${rfcnum}.txt";
my $rfc;

my $rc=mirror($rfcurl,$rfcfile);

# any 4xx or 5xx error probably means we got no RFC
if($rc < 400) {
    open(RFC,"<$rfcfile") or die("open($rfcfile): $!\n");
    local $/ = undef;
    $rfc=<RFC>;
    close(RFC);

    print "$rfc";
} else {
    print "Failed to fetch ${rfcurl}: $rc ", status_message($rc), "\n"
+;
}
__END__
[download]