diff options
author | flz <flz@FreeBSD.org> | 2007-07-10 15:30:15 +0000 |
---|---|---|
committer | flz <flz@FreeBSD.org> | 2007-07-10 15:30:15 +0000 |
commit | 3496c2f794019be6a777f3a71bef195556794049 (patch) | |
tree | 2a5ae25b4df94d1f20517af81b83a36857358809 | |
parent | fb1dc96e7297ef975bb8867201aa88d1a1d7f379 (diff) | |
download | FreeBSD-src-3496c2f794019be6a777f3a71bef195556794049.zip FreeBSD-src-3496c2f794019be6a777f3a71bef195556794049.tar.gz |
Fix commit mail retrieval when using message-id.
Submitted by: novel
Approved by: re (hrs)
-rw-r--r-- | tools/tools/mfc/mfc.pl | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/tools/tools/mfc/mfc.pl b/tools/tools/mfc/mfc.pl index 40ad9c8..c862679 100644 --- a/tools/tools/mfc/mfc.pl +++ b/tools/tools/mfc/mfc.pl @@ -147,25 +147,21 @@ sub previous_revision($) sub fetch_mail($) { my $msgid = $_[0]; - my @years = ( "current", "2006", "2005", "2004", "2003", "2002", "2001", "2000", "1999", "1998", "1997", "1996", "1995", "1994" ); my $url = ""; $msgid =~ s/<//; $msgid =~ s/>//; $msgid =~ s/@.*//; - # XXX - This should go away once my mid.cgi patches hits the doc tree. - foreach (@years) { - $url = `fetch -q -o - 'http://www.freebsd.org/cgi/mid.cgi?id=$msgid+$_/cvs-all&db=mid' | grep getmsg.cgi | head -n 1`; - last if (!($url =~ /^$/)); - } + $url = `fetch -q -o - 'http://www.freebsd.org/cgi/mid.cgi?id=$msgid'| grep getmsg.cgi | head -n 1`; + if ($url =~ /^$/) { print "No mail found for Message-Id <$msgid>.\n"; exit 1; } - $url =~ s/.*HREF="(.*)".*/$1+raw/; $url =~ s/.*href="(.*)".*/$1/; - $url =~ s/^.*\/cgi/http:\/\/www.freebsd.org\/cgi/; + $url =~ s/\n$/\+raw/; + $url = "http://www.freebsd.org/cgi/$url"; return $url; } |