diff options
| author | flz <flz@FreeBSD.org> | 2006-01-11 16:22:24 +0000 |
|---|---|---|
| committer | flz <flz@FreeBSD.org> | 2006-01-11 16:22:24 +0000 |
| commit | 9596321736dd63f15fa57f40e0fee8bbf2adb06c (patch) | |
| tree | 2122c04cb975fc73b9da3892f1c9aa1da9a4c714 /tools | |
| parent | 9b3867833664c258c8690d54b42327d30a6d2bdc (diff) | |
| download | FreeBSD-src-9596321736dd63f15fa57f40e0fee8bbf2adb06c.zip FreeBSD-src-9596321736dd63f15fa57f40e0fee8bbf2adb06c.tar.gz | |
- Fix another bug, it seems sometimes mail is sent to cvs-all but not cvs-ports.
Approved by: ssouhlal (implicit)
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/tools/mfc/mfc.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tools/tools/mfc/mfc.pl b/tools/tools/mfc/mfc.pl index a972a04..69d39e6 100644 --- a/tools/tools/mfc/mfc.pl +++ b/tools/tools/mfc/mfc.pl @@ -56,7 +56,7 @@ my $mfchome = $MFCHOME ? $MFCHOME : "/var/tmp/mfc"; my $mfclogin = $MFCLOGIN ? $MFCLOGIN : ""; my $cvsroot = $MFCCVSROOT ? $MFCCVSROOT : ':pserver:anoncvs@anoncvs.at.FreeBSD.org:/home/ncvs'; -my $version = "0.4.1"; +my $version = "0.4.2"; my %opt; my $commit_author; my $commit_date; @@ -146,7 +146,7 @@ sub fetch_mail($) # 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`; + $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 =~ /^$/)); } if ($url =~ /^$/) { @@ -154,7 +154,8 @@ sub fetch_mail($) exit 1; } $url =~ s/.*HREF="(.*)".*/$1+raw/; - $url =~ s/hub.freebsd.org/www.freebsd.org/; + $url =~ s/.*href="(.*)".*/$1/; + $url =~ s/^.*\/cgi/http:\/\/www.freebsd.org\/cgi/; return $url; } @@ -254,7 +255,7 @@ if ($opt{s}) { print "Searching commit mail on www.freebsd.org...\n"; $commiturl = search_mail($opt{s}); print "Fetching commit mail from www.freebsd.org...\n"; - @commitmail = `fetch -q -o - $commiturl`; + @commitmail = `fetch -q -o - '$commiturl'`; } elsif ($opt{f}) { open MAIL, $opt{f} || die "Can't open $opt{f} for reading."; @commitmail = <MAIL>; |
