update-drafts.pl revision 247bf378605811d695e968dbe930a7fc45c0038e
#
*
*
# $Id$
#
# Replace internet drafts with updated versions, if any.
#
# Usage:
#
# perl ../../util/update-drafts.pl *.txt
# (ignore "404 Not Found" errors from FTP)
# cvs commit -m"updated drafts"
#
foreach (@ARGV) {
$ofile = $_;
print $nfile, "\n";
system "ftp http://www.ietf.org/internet-drafts/$nfile";
if ($? == 0) {
unlink($ofile);
system "cvs remove $ofile";
system "cvs add $nfile";
}
}
}