X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=batch-update;fp=batch-update;h=0000000000000000000000000000000000000000;hb=8c852f9dd40d54ee3d4ac23e103ab5de120a98f3;hp=3e9d4f8a8cd5f22f91d0d108f1aea60b1e532432;hpb=a15dd06c7d4aa19df16295edce15710e3e7127d0;p=ctsim.git diff --git a/batch-update b/batch-update deleted file mode 100755 index 3e9d4f8..0000000 --- a/batch-update +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/perl - -foreach $file (@ARGV) -{ - open(IN,$file) || die "Can not open $file"; - open(OUT,"> /tmp/upd.$$") || die "Can not open /tmp/upd.$$"; - while () { - if (/Copyright \(C\) 1983-2000 Kevin Rosenberg/) { - print OUT '** Copyright (C) 1983-2000 Kevin Rosenberg -** -** $Id: batch-update,v 1.1 2000/04/28 13:02:43 kevin Exp $ -** $Log: batch-update,v $ -** Revision 1.1 2000/04/28 13:02:43 kevin -** Initial revision -** -'; - } else { - print OUT $_; - } - } - close(IN); - close(OUT); - unlink($file); - `mv /tmp/upd.$$ $file`; -} -