[SAtalk] NoMailAudit.pm Patch

[Kamil Kisiel]

I noticed that the accept() method of NoMailAudit wasn't allowing you
to specify WHERE to accept mail to (somehow this disappeared)... I fixed
this an have included a patch, quite easy fix as well.

Please cc: me on any replies as I am not currently subscribed to the
list.

-- 
Kamil Kisiel <[EMAIL PROTECTED]>
ICQ: 253495
GPG KeyID: 0xC61F6FD4

--- NoMailAudit.pm.orig Wed Mar  6 12:16:19 2002
+++ NoMailAudit.pm      Wed Mar  6 12:18:03 2002
@@ -322,14 +322,16 @@
   my $file = shift;
 
   # determine location of mailspool
-  if ($ENV{'MAIL'}) {
-    $file = $ENV{'MAIL'};
-  } elsif (-d "/var/spool/mail/") {
-    $file = "/var/spool/mail/" . getpwuid($>);
-  } elsif (-d "/var/mail/") {
-    $file = "/var/mail/" . getpwuid($>);
-  } else {
-    die('Could not determine mailspool location for your system.  Try setting $MAIL 
in the environment.');
+  unless ($file) {
+    if ($ENV{'MAIL'}) {
+      $file = $ENV{'MAIL'};
+    } elsif (-d "/var/spool/mail/") {
+      $file = "/var/spool/mail/" . getpwuid($>);
+    } elsif (-d "/var/mail/") {
+      $file = "/var/mail/" . getpwuid($>);
+    } else {
+      die('Could not determine mailspool location for your system.  Try setting $MAIL 
+in the environment.');
+    }
   }
 
   # some bits of code from Mail::Audit here:

msg01967/pgp00000.pgp
Description: PGP signature