misc-code/fetchrfc.pl

#!/usr/bin/perl

use LWP::Simple;
$type = shift @ARGV;
if($type eq '-rfc'){
    $rfc = shift @ARGV;
    getstore("http://flintfam.org/rfcs/rfc${rfc}.txt", "rfc${rfc}.txt");
}elsif($type eq '-bcp'){
    $bcp = shift @ARGV;
    getstore("http://flintfam.org/rfcs/bcp/bcp${bcp}.txt", "bcp${bcp}.txt");
}elsif($type eq '-fyi'){
    $fyi = shift @ARGV;
    getstore("http://flintfam.org/rfcs/fyi/fyi${fyi}.txt", "fyi${fyi}.txt");
}elsif($type eq '-ien'){
    $ien = shift @ARGV;
    getstore("http://flintfam.org/rfcs/ien/ien${ien}.txt", "ien${ien}.txt");
}elsif($type eq '-std'){
    $std = shift @ARGV;
    getstore("http://flintfam.org/rfcs/std/std${std}.txt", "std${std}.txt");
}else{
    $rfc = $type;
    getstore("http://flintfam.org/rfcs/rfc${rfc}.txt", "rfc${rfc}.txt");
}

#getstor($url, $file)