15 lines
695 B
Plaintext
15 lines
695 B
Plaintext
$NetBSD: patch-aa,v 1.4 2012/02/25 14:07:59 hans Exp $
|
|
|
|
--- rfc.orig 2011-11-23 13:08:42.000000000 +0000
|
|
+++ rfc
|
|
@@ -106,6 +106,9 @@ if ($ARGV[0] eq "-i") {
|
|
#system ("$viewer -dump http://www.faqs.org/rfc/rfc-index.txt > $indexpath");
|
|
#system ("$viewer -dump http://www.dewn.com/rfc/rfc-index.txt > $indexpath");
|
|
system ("$viewer -dump http://ftp.isi.edu/in-notes/rfc-index.txt > $indexpath");
|
|
+
|
|
+ my $filetype = `file '$indexpath'`;
|
|
+ system("if expr \"$filetype\" : \".*gzip.*\" 2>&1 >/dev/null ; then mv ${indexpath} ${indexpath}.gz ; gunzip ${indexpath}.gz ; fi");
|
|
$indexlength=numlines($indexpath); print "new lines \t= $indexlength\t$indexpath\n";
|
|
exit }
|
|
|