summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authorflz <flz@FreeBSD.org>2006-01-11 16:00:38 +0000
committerflz <flz@FreeBSD.org>2006-01-11 16:00:38 +0000
commit9b3867833664c258c8690d54b42327d30a6d2bdc (patch)
tree424c2c01415030ab2124c8ee344669296cbba64e /tools
parent3c55fbecc573cb9c1d0662104ce9485950b986ae (diff)
downloadFreeBSD-src-9b3867833664c258c8690d54b42327d30a6d2bdc.zip
FreeBSD-src-9b3867833664c258c8690d54b42327d30a6d2bdc.tar.gz
- Fix search.
- Fix author matching. Approved by: ssouhlal (implicit)
Diffstat (limited to 'tools')
-rw-r--r--tools/tools/mfc/mfc.pl10
1 files changed, 5 insertions, 5 deletions
diff --git a/tools/tools/mfc/mfc.pl b/tools/tools/mfc/mfc.pl
index 2043cbf..a972a04 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";
+my $version = "0.4.1";
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`;
last if (!($url =~ /^$/));
}
if ($url =~ /^$/) {
@@ -166,7 +166,7 @@ sub search_mail($)
# XXX - I guess we could take 5 first results instead of just the first
# but it has been working correctly for each search I've made so ...
- my $result = `fetch -q -o - http://www.freebsd.org/cgi/search.cgi?words=$query&max=1&sort=score&index=recent&source=cvs-all | grep getmsg.cgi`;
+ my $result = `fetch -q -o - 'http://www.freebsd.org/cgi/search.cgi?words=$query&max=1&sort=score&index=recent&source=cvs-all' | grep getmsg.cgi`;
$result =~ s/.*href="(.*)">.*/http:\/\/www.freebsd.org\/cgi\/$1+raw/;
if ($result =~ /^$/) {
@@ -196,7 +196,7 @@ sub mfc_headers($)
{
if ($_[0] =~ /^$/) {
$mfc_func = \&mfc_author;
- } elsif ($_[0] =~ /^(\S+)\s+(\S+\s\S+\s\S+)$/) {
+ } elsif ($_[0] =~ /^(\w+)\s+(\S+\s\S+\s\S+)$/) {
# Skipped headers (probably a copy/paste from sobomax MFC reminder).
mfc_author($_[0]);
} else {
@@ -206,7 +206,7 @@ sub mfc_headers($)
sub mfc_author($)
{
- if (!($_[0] =~ /^(\S+)\s+(\S+\s\S+\s\S+)$/)) {
+ if (!($_[0] =~ /^(\w+)\s+(\S+\s\S+\s\S+)$/)) {
die "Can't determine commit author and date.";
}
$commit_author = $1;
OpenPOWER on IntegriCloud