From 8c852f9dd40d54ee3d4ac23e103ab5de120a98f3 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 26 May 2002 23:24:34 +0000 Subject: [PATCH] r2075: *** empty log message *** --- batch-update | 26 -------------------------- 1 file changed, 26 deletions(-) delete mode 100755 batch-update 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`; -} - -- 2.34.1