#!/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`;
}