[project @ 2003-09-16 20:32:12 by doogie]

[debbugs.git] / scripts / mailsummary.in

diff --git a/scripts/mailsummary.in b/scripts/mailsummary.in
index d3a50ad6f5897bcd98fec50f8e22a31e03a76589..1ed2e0b509007198108f47906ad1727fa1c18653 100755 (executable)
--- a/scripts/mailsummary.in
+++ b/scripts/mailsummary.in
@@ -1,9 +1,13 @@
 #!/usr/bin/perl
-# $Id: mailsummary.in,v 1.5 2000/10/07 17:27:13 joy Exp $
+# $Id: mailsummary.in,v 1.11 2003/04/28 23:51:15 cjwatson Exp $
 
-require( '/etc/debbugs/config' );
+$config_path = '/etc/debbugs';
+$lib_path = '/usr/lib/debbugs';
+
+require("$config_path/config");
+require("$lib_path/errorlib");
+$ENV{'PATH'} = $lib_path.':'.$ENV{'PATH'};
 
-$ENV{'PATH'} = '/usr/lib/debbugs:'.$ENV{'PATH'};
 chdir("$gSpoolDir") || die "chdir spool: $!\n";
 
 #open(DEBUG,">&4");
@@ -14,7 +18,7 @@ if ($ARGV[0] eq 'undone') {
     $intro=
 "The following problem reports have not yet been marked as `taken up\' by a
 message to done\@$gEmailDomain or or `forwarded\' by a
-message to fowarded\@$gEmailDomain."
+message to forwarded\@$gEmailDomain."
     ;
 } elsif ($ARGV[0] eq 'bymaint') {
     $vdef= "(no outstanding $gBug reports on file, or problem running script)\n";
@@ -31,7 +35,7 @@ and do not expect to issue a new version soon.
 Variant versions of the Maintainer field for the same actual package
 maintainer will be listed separately.
 
-Maintainers with few outstanding $gBug appear first, to avoid those with few
+Maintainers with few outstanding $gBugs appear first, to avoid those with few
 $gBugs being lost deep in the message.
 "
     ;
@@ -41,7 +45,7 @@ $gBugs being lost deep in the message.
     $intro=
 "The following problem reports are very old but have not yet been marked
 as `taken up\' by a message to done\@$gEmailDomain as forwarded
-to a developer by CCing a message to fowarded\@$gEmailDomain.
+to a developer by CCing a message to forwarded\@$gEmailDomain.
 Please help ensure that these $gBugs are dealt with quickly, even if you
 are not the package maintainer in question.  (NB a full list of outstanding
 $gBug reports is posted periodically - this is a partial list only!)
@@ -50,12 +54,12 @@ $gBug reports is posted periodically - this is a partial list only!)
     die "urgk, wrong argument @ARGV";
 }
 
-$v=`/usr/lib/debbugs/summary $ARGV[0]`; $? && die "undone failed $?: $!\n";
+$v=`$lib_path/summary $ARGV[0]`; $? && die "undone failed $?: $!\n";
 
 $v= $vdef if $v eq '';
 exit 0 if $v eq '';
 
-open(D, '| '.join(' ',('/usr/lib/sendmail','-f'.$gMaintainerEmail)).' -odi -oem -oi -t') ||
+open(D, '| '.join(' ',('/usr/lib/sendmail','-f'.$gMaintainerEmail)).' -odq -oem -oi -t') ||
     die "start sendmail: $!";
 
 print D <<END || die "complete sendmail";
@@ -66,11 +70,11 @@ Subject: $subject
 $intro
 $v
 Every Tuesday, the listing by package maintainer is posted.
-Every Frideay, the listing by age of the report is posted.
+Every Friday, the listing by age of the report is posted.
 
 Please see the documentation for more information about how to
 use the $gBug tracking system.  It is available on the WWW at
-<A HREF=\"http://$gWebUrl/txt/\">$gWebUrl/txt</A>
+<A HREF=\"http://$gWebDomain/txt/\">$gWebDomain/txt</A>
 END
 
 close(D);