#!/usr/bin/perl
#
# release-patch  - install a patch and email it to the mailing list
#
# Usage: release-patch filename
#
my $file = shift @ARGV;
die "No filename given\n" unless $file;
open(IN,$file) or die "Can't open that file\n";
my $info = info_header($file);
while (<IN>) {
  last if /^In this patch/;
}
while (<IN>) {
  last if /^Prereq:/;
  $info .= $_;
}
close IN;
  
system "install -m 644 $file /ftp/pub/PennMUSH/Source";
system "mv $file /home/dunemush/versions";

open(MAIL,"|-") || exec '/usr/sbin/sendmail -oi -t';
print MAIL <<EOP;
To: pennmush\@pennmush.org,pennmush-announce\@pennmush.org
From: Javelin <dunemush\@pennmush.org>
Subject: $file

$info

EOP
close MAIL;

exit 0;

sub info_header {
  my $file = shift;
  return <<EOP;

The PennMUSH development team announces the release of $file

You can retrieve this patch, or a complete tarball of this version
of PennMUSH, from the PennMUSH download site http://ftp.pennmush.org/Source

Please read the instructions at the top of the patch file if using
a patch. Sometimes they differ slightly. Changes in this patch
are listed below.

Enjoy!

  Javelin, for the penndevs

--------------------------------------------------------------------

EOP
}