* The monitor and interface options may be removed from a future fetchmail
version as they are not reasonably portable across operating systems.
* POP2 is obsolete, support will be removed from a future fetchmail version.
+* IMAP2 and IMAP4 (not IMAP4r1) are obsolete, support may be removed from a
+ future fetchmail version.
* RPOP is obsolete, support will be removed from a future fetchmail release.
* --sslcertck will become a default setting in a future fetchmail version.
* The multidrop To/Cc guessing code along with the fragile duplicate suppressor
--------------------------------------------------------------------------------
-fetchmail 6.3.15 (not yet released):
+fetchmail-6.3.15 (released 2010-03-28, 25572 LoC):
# FEATURE
* Fetchmail now supports a bad-header command line or rcfile option that takes
import commands, os, string, ftplib
-print "This script must be adjusted for Git."
-exit(1)
-
# Get version and date
-date = commands.getoutput("LC_TIME=C date -u")
+date = commands.getoutput("LC_TIME=C date +'%Y-%m-%d'")
pid = os.getpid()
-if True:
- # this is a fast variant using the base of the current working directory
- # (ignores uncommitted modifications)
- cmd = "svn export -q -rBASE . /tmp/getstats.%d" % pid
-else:
- # this is a slower variant that may export the whole tree across
- # the net
- cmd = "svn export -rCOMMITTED . /tmp/getstats.%d" % pid
+os.mkdir("/tmp/getstats.%d" % pid)
+
+cmd = "git archive --format=tar HEAD | ( cd /tmp/getstats.%d && tar -xf -)" % pid
if os.system(cmd):
- print "SVN FAILED"
+ print "git-archive FAILED"
os.exit(1)
ln = commands.getoutput("cat /tmp/getstats.%d/*.[chly] 2>/dev/null | wc -l" % pid)
os.system("rm -rf /tmp/getstats.%d" % pid)
vers = commands.getoutput("sed -n -e '/AC_INIT/s/AC_INIT(\\[.\\+\\],\\[\\(.*\\)\\],.*)/\\1/p' <configure.ac")
-print "fetchmail-" + vers + " (" + date + "), " + string.strip(ln) + " lines:"
+print "fetchmail-" + vers + " (released " + date + ", " + string.strip(ln) + " LoC):"
# end of getstats.py
-#!/usr/bin/env perl
+#!/usr/bin/perl -w
#
# Make a fetchmail release.
# Dumps a release notice and diffs as a MIME multipart message
# in RELEASE_NOTES
#
+
use POSIX qw(strftime);
$tmp = $ENV{TMPDIR} || $ENV{TMP} || $ENV{TEMP} || "/tmp";
-die "This script ($0) needs to be updated for the Git-orious repo.";
-
$project = "fetchmail";
-$svnrepos = "http://mknod.org/svn/$project";
$website = "http://developer.berlios.de/projects/$project";
$mailfrom = "<$project-devel-owner\@lists.berlios.de> (Fetchmail Development Team)";
{
if ($i =~ /^(--diffs|-d)$/i)
{
+ die "$0 does not yet work with --diffs - needs to be updated for Git first!";
$diffs = 1;
next;
}
}
# extract version from source
-$version=`grep 'AC_INIT' configure.ac`;
+$version =`grep 'AC_INIT' configure.ac`;
$version =~ /AC_INIT\([^,]*,\[?([0-9.rc-]+)\]?\,.*\)/;
$version = $1;
die "cannot determine version" unless defined $1;
$tag =~ tr/./-/;
# extract existing tags
-open(ID, "svn ls \"$svnrepos/tags\" | sort -t- -k1,1 -k2,2n -k3,3n |") || die "cannot run svn ls: $!\naborting";
+open(ID, "git tag | sort -t- -k1,1 -k2,2n -k3,3n |") || die "cannot run git tag: $!\naborting";
while (<ID>) {
- if (m{^(RELEASE_.*)/}) {
- unshift(@versions, $1);
- }
+ chomp;
+ if (m{^(RELEASE_.*)$}) {
+ unshift(@versions, $1);
+ }
}
-close ID || die "svn ls failed, aborting";
+close ID || die "git tag failed, aborting";
if ($versions[0] eq $tag) {
- $tag = $versions[0];
- $oldtag = $versions[1];
+ $tag = $versions[0];
+ $oldtag = $versions[1];
} else {
- $tag = '<workfile>';
- $oldtag = $versions[0];
+ $tag = '<workfile>';
+ $oldtag = $versions[0];
}
$pwd = `pwd`; chomp $pwd;
print "Building $version release, tag $tag, previous tag $oldtag\n";
if (-d "autom4te.cache") {
- system("rm -rf autom4te.cache")
- and die "Failure in removing autom4te.cache";
+ system("rm -rf autom4te.cache")
+ and die "Failure in removing autom4te.cache";
}
-if (system("autoreconf -isv")) {
+if (system("autoreconf -ifs") . ($verbose ? 'v' : '')) {
die("Failure in regenerating autoconf files\n");
}
print "### Test-building the software...\n";
-if (system("mkdir -p autobuild && cd autobuild && ../configure -C --silent && make -s clean && make check distcheck")) {
+if (system("mkdir -p autobuild && cd autobuild && ../configure -C --silent && make -s clean && make " . ($verbose ? '' : '-s') . " check distcheck")) {
die("Compilation failure\n");
}
-# print "### Building the RPMs...\n";
-# if (system("cd autobuild && cp ../fetchmail.xpm . && buildrpms $project-${version}.tar.bz2 $null")) {
-# die("RPM-build failure\n");
-# }
-
open(REPORT, ">$tmp/$project.PREAMBLE.$$");
print REPORT <<EOF;
# Extract the current notes
open(NEWS, "NEWS");
while (<NEWS>) {
- if (/^$project/) {
- print REPORT $_;
- last;
- }
+ if (/^$project/) {
+ print REPORT $_;
+ last;
+ }
}
while (<NEWS>) {
- if (/^$project/) {
- last;
- }
- print REPORT $_;
+ if (/^$project/) {
+ last;
+ }
+ print REPORT $_;
}
$oldver = $oldtag;
if ($diffs) {
print REPORT "Diffs from the previous ($oldver) release follow as a MIME attachment."
} else {
- print REPORT "By popular demand, diffs from the previous release have been omitted."
+ print REPORT "By popular demand, diffs from the previous release have been omitted."
}
close(NEWS);
close(REPORT);
-if ($tag eq '<workfile>') {
- system("svn diff -r$oldtag $errnull >$tmp/$project.DIFFS.$$");
-} else {
- system("svn diff -r$oldtag -r$tag $errnull >$tmp/$project.DIFFS.$$");
-}
-print "Diff size:";
-system("wc <$tmp/$project.DIFFS.$$");
-
if ($diffs) {
+ if ($tag eq '<workfile>') {
+ system("svn diff -r$oldtag $errnull >$tmp/$project.DIFFS.$$");
+ } else {
+ system("svn diff -r$oldtag -r$tag $errnull >$tmp/$project.DIFFS.$$");
+ }
+ print "Diff size:";
+ system("wc <$tmp/$project.DIFFS.$$");
+
system "metasend -b"
- ." -D '$project-$tag announcement' -m 'text/plain' -e 7bit -f $tmp/$project.PREAMBLE.$$"
- ." -n -D 'diff between $oldver and $version' -m 'text/plain' -e 7bit -f $tmp/$project.DIFFS.$$"
- ." -o ANNOUNCE.EMAIL";
+ ." -D '$project-$tag announcement' -m 'text/plain' -e 7bit -f $tmp/$project.PREAMBLE.$$"
+ ." -n -D 'diff between $oldver and $version' -m 'text/plain' -e 7bit -f $tmp/$project.DIFFS.$$"
+ ." -o ANNOUNCE.EMAIL";
} else {
system("mv", "$tmp/$project.PREAMBLE.$$", "ANNOUNCE.EMAIL");
}
projects / ~andy / fetchmail / commitdiff