Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: rfc://

by agent00013 (Pilgrim)
on Aug 02, 2001 at 18:53 UTC ( [id://101667]=note: print w/replies, xml ) Need Help??


in reply to rfc://

Not a bad idea. However, I don't see that this is a common enough type of thing used on the site to be necessary (or for vroom or whoever to spend the time setting it up). On another note, I believe I once saw a snippet for grabbing an RFC straight off the FTP. *digs through some stuff*

Ok, found the code. Here it is... *Disclaimer* I didn't write this, but I don't remember who did. If it was you, take credit for it in reply to this post.
#!/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__

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://101667]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others contemplating the Monastery: (4)
As of 2024-04-23 19:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found