Fixed using of $ENV{"HOME"} by using $HOME instead.

@lists+=squid-dev@squid-cache.org
Make a lot of lists "silent".
sa-learn(1) path changed to: $HOME/bin/

diff --git a/PerlMail/Config.pm b/PerlMail/Config.pm
index bd40727..9ca80cb 100644 (file)
--- a/PerlMail/Config.pm
+++ b/PerlMail/Config.pm
@@ -87,7 +87,7 @@ our $DBI_database="short";
 # MySQL user name:
 our $DBI_user="short";
 # MySQL user password:
-our $DBI_pwd=$ENV{"HOME"}."/priv/mysql.".$DBI_user.".pwd";
+our $DBI_pwd=$HOME."/priv/mysql.".$DBI_user.".pwd";
 
 
 # perlmail-sendmail
@@ -131,6 +131,7 @@ my @lists=qw(
                asterisk-perl@lists.gnuinter.net
                isdn4linux@listserv.isdn4linux.de
                libc-alpha@sources.redhat.com
+               squid-dev@squid-cache.org
                );
                #4c-list@vellum.cz
 
@@ -366,24 +367,24 @@ sub audit
        store "=mffstatnice","bell"  if headeris "List-Post",'<statnice@atrey.karlin.mff.cuni.cz>';
        store "=hw","log"            if headeris "List-Post",'<hw-news@list.gin.cz>';
        store "=gnokii","log"        if headeris "List-Id"  ,'<gnokii-users.mail.freesoftware.fsf.org>';
-       store "=winelic","log"       if headeris "List-Id"  ,'<wine-license.winehq.org>';
-       store "=wined","log"         if headeris "List-Id"  ,'<wine-devel.winehq.org>';
+       store "=winelic","silent"    if headeris "List-Id"  ,'<wine-license.winehq.org>';
+       store "=wined","silent"      if headeris "List-Id"  ,'<wine-devel.winehq.org>';
        store "=winepat","silent"    if headeris "List-Id"  ,'<wine-patches.winehq.org>';
        store "=winecvs","silent"    if headeris "List-Id"  ,'<wine-cvs.winehq.org>';
-       store "=wineann","log"       if headeris "List-Id"  ,'<wine-announce.winehq.org>';
-       store "=wineconf","log"      if headeris "List-Id"  ,'<wineconf.winehq.org>';
-       store "=ros","log"           if headeris "List-Id"  ,'<ros-general.reactos.com>';
-       store "=roskernel","log"     if headeris "List-Id"  ,'<ros-kernel.reactos.com>';
-       store "=rosd","log"          if headeris "List-Id"  ,'<ros-dev.reactos.com>';
+       store "=wineann","silent"    if headeris "List-Id"  ,'<wine-announce.winehq.org>';
+       store "=wineconf","silent"   if headeris "List-Id"  ,'<wineconf.winehq.org>';
+       store "=ros","silent"        if headeris "List-Id"  ,'<ros-general.reactos.com>';
+       store "=roskernel","silent"  if headeris "List-Id"  ,'<ros-kernel.reactos.com>';
+       store "=rosd","silent"       if headeris "List-Id"  ,'<ros-dev.reactos.com>';
        store "=roscvs","silent"     if headeris "List-Id"  ,'<ros-cvs.reactos.com>';
-       store "=rosbug","log"        if headeris "Reply-To" ,'<scarab@reactos.wox.org>';
+       store "=rosbug","silent"     if headeris "Reply-To" ,'<scarab@reactos.wox.org>';
        store "=fsd","silent"        if headeris "X-Mailing-List",'<linux-fsdevel@vger.kernel.org>';
        store "=kerneld","silent"    if headeris "X-Mailing-List",'<linux-kernel@vger.kernel.org>';
        store "=surprise","sms"      if headeris "List-Post",'<surprise@atrey.karlin.mff.cuni.cz>';
        store "=surprisesuse","sms"  if headeris "Sender"   ,'<owner-surprise@suse.cz>';
-       store "=tacacs","log"        if headeris "Sender"   ,'<tacplus-l@disaster.com>';
-       store "=tacacs","log"        if headeris "Sender"   ,'<owner-tacplus-l@disaster.com>';
-       store "=tacacs","log"        if headeris "List-Id"  ,'<devel.lists.tacplus.org>';
+       store "=tacacs","silent"     if headeris "Sender"   ,'<tacplus-l@disaster.com>';
+       store "=tacacs","silent"     if headeris "Sender"   ,'<owner-tacplus-l@disaster.com>';
+       store "=tacacs","silent"     if headeris "List-Id"  ,'<devel.lists.tacplus.org>';
        store "=pm","log"            if headeris "Sender"   ,'<owner-prague-pm@pm.org>';
        store "=radary","log"        if headeris "Reply-To" ,'<pha@radary.cz>';
        store "=dnet","log"          if headeris "Sender"   ,'<@lists.distributed.net>';
@@ -399,9 +400,9 @@ sub audit
        store "=sourceforge","bell"  if headeris "From"     ,'<noreply@sourceforge.net>';
        store "=gsmperlcvs","silent" if headeris("From"     ,'<johan@intra.tektonica.com>')
                                        && $Audit->subject()=~/^'.*' has been updated!$/;
-       store "=libtoold","log"      if headeris "List-Id"  ,'<libtool.gnu.org>';
-       store "=libtoolpat","log"    if headeris "List-Id"  ,'<libtool-patches.gnu.org>';
-       store "=automake","log"      if headeris "List-Id"  ,'<automake.gnu.org>';
+       store "=libtoold","silent"   if headeris "List-Id"  ,'<libtool.gnu.org>';
+       store "=libtoolpat","silent" if headeris "List-Id"  ,'<libtool-patches.gnu.org>';
+       store "=automake","silent"   if headeris "List-Id"  ,'<automake.gnu.org>';
        store "=autoconf","log"      if headeris "List-Id"  ,'<autoconf.gnu.org>';
        store "=autoconfpat","log"   if headeris "List-Id"  ,'<autoconf-patches.gnu.org>';
        my %mailman=(
@@ -424,14 +425,14 @@ sub audit
                store "=capann","bell"     if headeris "List-Id"  ,'<captive-announce-list.jankratochvil.net>';
                store "=4c","bell"         if headeris "List-Id"  ,'<4c-list.vellum.cz>';
                }
-       store "=ntfsann","log"       if headeris "List-Id"  ,'<linux-ntfs-announce.lists.sourceforge.net>';
-       store "=ntfsd","log"         if headeris "List-Id"  ,'<linux-ntfs-dev.lists.sourceforge.net>';
-       store "=orbit","log"         if headeris "List-Id"  ,'<orbit-list.gnome.org>';
+       store "=ntfsann","silent"    if headeris "List-Id"  ,'<linux-ntfs-announce.lists.sourceforge.net>';
+       store "=ntfsd","silent"      if headeris "List-Id"  ,'<linux-ntfs-dev.lists.sourceforge.net>';
+       store "=orbit","silent"      if headeris "List-Id"  ,'<orbit-list.gnome.org>';
        store "=kand","log"          if headeris "List-Id"  ,'<devel.kannel.org>';
-       store "=mailmand","log"      if headeris "List-Id"  ,'<mailman-developers.python.org>';
+       store "=mailmand","silent"   if headeris "List-Id"  ,'<mailman-developers.python.org>';
        store "=asterisk-perl","log" if headeris "List-Post",'<asterisk-perl@lists.gnuinter.net>';
-       store "=i4l","log"           if headeris "List-Id"  ,'<isdn4linux.listserv.isdn4linux.de>';
-       store "=glibc","log"         if headeris "Mailing-List",qr/\b\Qlibc-alpha-help\E@\Qsources.redhat.com\E\b/;
+       store "=i4l","silent"        if headeris "List-Id"  ,'<isdn4linux.listserv.isdn4linux.de>';
+       store "=glibc","silent"      if headeris "Mailing-List",qr/\b\Qlibc-alpha-help\E@\Qsources.redhat.com\E\b/;
        store "=fedann","bell"       if headeris "List-Id"  ,'<fedora-announce-list.redhat.com>';
        store "=fedtools","log"      if headeris "List-Id"  ,'<fedora-tools-list.redhat.com>';
        # own webs
@@ -442,17 +443,18 @@ sub audit
        store "=www-sms","log"       if headeris "List-Id"  ,'<www-sms-developers.lists.sourceforge.net>';
        store "=httpdd","log"        if headeris "list-post",'<dev@httpd.apache.org>';
        store "=mms2log","log"       if headeris "Return-Path",'<root@node0.mms2.org>';
-       store "=hotelgatelog","log"  if headeris "Return-Path",'<root@hotelgate.hotelsevendays.cz>';
+       store "=hotelgatelog","log"  if headeris "Return-Path",'<root@hotelgate.hotelnet>';
 
        # Petr Koutecky does not mark his Stuff
        store "=koutecky","log"      if headeris "Return-Path",'<velkyhroch@seznam.cz>';
        store "=koutecky","log"      if headeris "Return-Path",'<pk.petr@centrum.cz>';
+       store "=koutecky","log"      if headeris "Return-Path",'<petr.koutecky@premisa.cz>';
 
        store "=errm","bell"         if $isFROM_MAILER && !did();
 
        if (!did) {
                store "==","sms";
-               spamassassin "sa-learn --ham";
+               spamassassin "$HOME/bin/sa-learn --ham";
                }
 }