/
ColdX-0.2-4-dev/
ColdX-0.2-4-dev/etc/
ColdX-0.2-4-dev/test/ 
#!/u2/consultants/brandon/bin/p
#
# it is perl, Ultrix doesn't like the above line to be longer than ~30
# characters, so I softlinked p to perl.
#
# this munches on the headers of each file for each archive, and is
# rather useless for anything else.
#
# -Brandon

select(STDOUT); $|=1;

@months = ("Jan","Feb","Mar","Apr","May","Jun",
           "Jul","Aug","Sep","Oct","Nov","Dec");

###############################
# get the head
open(HEAD, ">$$.head");
print HEAD<<END;
/*
// ColdMUD was created and is copyright 1993, 1994 by Greg Hudson
//
// ColdX is a derivitive work, and is copyright 1995 by the ColdX Project.
// Full copyright information can be found in the file doc/CREDITS
//
// @@@FILE@@@
// @@@VERSION@@@
// @@@DATE@@@
// ---
END
close(HEAD);

###############################
# get the version
open(FILE, "../etc/version");
$ver = <FILE>;
chop $ver;
close(FILE);

###############################
# Loop n stuff
for (@ARGV) {
    $file = $_;
    print "$file...\n";
    open(FILE, $file);
    $line = <FILE>;
    chop $line;
    close(FILE);

    # Date is rather useless, but cute.
    open(FILE, "$file");
    @stuff = stat(FILE);
    @time = localtime($stuff[9]);
    $date = "$time[3]-$months[$time[4]]-19$time[5]";

    open(OUT, ">$$.out");
    open(HEAD, "$$.head");
    if ($line =~ /^\/\* \@\@\@HEAD\@\@\@.*$/) {
        <FILE>;
    }
    while (<HEAD>) {
        $_ =~ s/\@\@\@FILE\@\@\@/File:    $file/;
        $_ =~ s/\@\@\@VERSION\@\@\@/Version: $ver/;
        $_ =~ s/\@\@\@DATE\@\@\@/Date:    $date/;
        print(OUT);
    }
    while (<FILE>) {
        print(OUT);
    }
    close(HEAD);
    close(FILE);
    close(OUT);
    system("mv", "$file", "$file.orig");
    system("mv", "$$.out", "$file");
}

system("rm", "-f", "$$.out", "$$.head");