#!/usr/bin/perl
#
# Make a fetchmail release. Must be run as root, to make RPMs.
# Dumps a release notice and diffs as a MIME multipart message
# in RELEASE_NOTES
#
$timezone = "-0500";
$diffs = 0;
$verbose = 0;
$null = ">/dev/null";
while ($i = shift @ARGV)
{
if ($i =~ /^(--diffs|-d)$/i)
{
$diffs = 1;
next;
}
if ($i =~ /^(--verbose|-v)$/i)
{
$verbose = 1;
$null = "";
next;
}
die "Error: Unknown option: $i\n";
}
$version=`grep 'VERSION *=' Makefile.in`;
$version =~ /VERSION *= *(.*)/;
$version = $1;
$rcsid = $version;
$rcsid =~ tr/./-/;
open(ID, "rlog -h NEWS|");
while (<ID>) {
last if /^symbolic names/;
}
while (<ID>) {
if (/^\t(.*):/) {
push(@versions, $1);
}
}
close(ID);
if ($versions[0] eq $rcsid) {
$rcsid = $versions[0];
$oldid = $versions[1];
} else {
$rcsid = '<workfile>';
$oldid = $versions[0];
}
#$ENV{'PATH'} = "~esr/bin:/bin:/usr/bin";
print "Building $version release, RCS ID $rcsid, previous RCS ID $oldid\n";
if (system("./configure; make -C po update-po; make clean")) {
die("Failure in translation-file rebuild.")
}
print "### Test-building the software...\n";
if (system("configure --disable-nls; make")) {
die("Compilation failure\n");
}
print "### Building the distribution...\n";
if (system(