# Dumps a release notice and diffs as a MIME multipart message
# in RELEASE_NOTES
#
-$timezone = "EDT";
-
-sub rfc822date
-{
- @wdays = ("Mon", "Tue", "Wed", "Thu", "Fri", "Sat");
- @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Nov", "Dec");
-
- my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time());
- "$wdays[$wday] $months[$mon] " . substr("0$mday", -2) . " " . substr("0$hour", -2) . ":" . substr("0$min", -2) . ":" . substr("0$sec", -2) . " $timezone " . (1900+$year);
-}
-
+$timezone = "-0500";
$version=`grep 'VERSION *=' Makefile.in`;
$version =~ /VERSION *= *(.*)/;
die("Compilation failure\n");
}
-# Update the Debian logfile
-open(DEBLOG, "debian/changelog");
-$firstline = <DEBLOG>;
-close(DEBLOG);
-$firstline =~ /fetchmail \(*([^-]*)/;
-$logvers = $1;
-if ($version eq $logvers) {
- print "No change to Debian logfile...\n";
-} else {
- $date = &rfc822date();
- print "Updating the Debian logfile ($logvers -> $version)...\n";
- open(DEBLOG, ">>debian/changelog");
- print DEBLOG <<EOF;
-fetchmail (${version}-1) unstable; urgency=low
-
- * new upstream version
-
--- Eric S. Raymond <esr\@thyrsus.com> ${date}
-
-EOF
- close(DEBLOG);
-}
-
print "Building the distribution...\n";
if (system("su -c 'make dist >/dev/null' esr")) {
die("Distribution-build failure\n");
print "Building index page...\n";
system("rm -f index.html; indexgen.sh");
+print "Making activity graph...";
+growthplot;
+
print "Done\n";
# makerelease ends here