#!/usr/local/bin/perl
#
# Extract version info and write a patch header
#
# We expect to find this in a CHANGES file
#

$vers = shift(@ARGV);
open(IN,"CHANGES.$vers") or die "Can't find CHANGES!\n";
while (<IN>) {
  last if /^Version/;
}
($version,$patchlevel) = ($1,$2) if /Version (\d+\.\d+\.\d+) patchlevel (\d+)/i;
$patchname = sprintf("patch%02d",$patchlevel);

print <<EOP;

This is $patchname to PennMUSH $version. After applying this patch, you will
have version ${version}p${patchlevel}

To apply this patch, save it to a file in your top-level MUSH directory,
and do the following:
	patch -p1 < $version-$patchname
	make clean
	make install

If you use GNU patch 2.2, you probably want the above to be 'patch -b -p1',
not just 'patch -p1'.

Unix (or cygwin) users need not worry about failed hunks in src/switchinc.c,
hdrs/switches.h, hdrs/cmds.h, or hdrs/funs.h. These files are automatically
rebuilt on compile. On the off chance they appear not to be, simply
rm them and re-run make.

Then \@shutdown and restart your MUSH.
    - Alan/Javelin

In this patch:
EOP

while (<IN>) {
  last if /^Version/;
  print;
}

$patchlevel--;
print "Prereq: ${version}p${patchlevel}\n";