+++ /dev/null
-#!/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 (<IN>) {
- 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`;
-}
-