cvs commit: qpsmtpd/plugins check_badrcptto

[email protected] (Ask "Bj?rn" Hansen)
Newsgroups perl.cvs.qpsmtpd
Message-ID <[email protected]>
cvsuser     04/04/21 05:42:45

  Modified:    .        Changes
               lib/Qpsmtpd Transaction.pm
               plugins  check_badrcptto
  Log:
  +  Create temp files with permissions 0600 (thanks to Robert James Kaes again)
  +
  +  Fix warning in check_badrcptto plugin (Thanks to Robert James Kaes)
  
  Revision  Changes    Path
  1.66      +5 -0      qpsmtpd/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /cvs/public/qpsmtpd/Changes,v
  retrieving revision 1.65
  retrieving revision 1.66
  diff -u -w -r1.65 -r1.66
  --- Changes	11 Mar 2004 09:34:38 -0000	1.65
  +++ Changes	21 Apr 2004 12:42:44 -0000	1.66
  @@ -1,5 +1,10 @@
   0.28
   
  +
  +  Create temp files with permissions 0600 (thanks to Robert James Kaes again)
  +
  +  Fix warning in check_badrcptto plugin (Thanks to Robert James Kaes)
  +
     Proper "Log levels" with a configuration option
   
     $Include feature in config/plugins
  
  
  
  1.9       +1 -1      qpsmtpd/lib/Qpsmtpd/Transaction.pm
  
  Index: Transaction.pm
  ===================================================================
  RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/Transaction.pm,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -w -r1.8 -r1.9
  --- Transaction.pm	14 Mar 2004 22:35:51 -0000	1.8
  +++ Transaction.pm	21 Apr 2004 12:42:45 -0000	1.9
  @@ -81,7 +81,7 @@
        -d $spool_dir or mkdir($spool_dir, 0700) or die "Could not create spool_dir: $!";
        $self->{_filename} = $spool_dir . join(":", time, $$, $transaction_counter++);
        $self->{_filename} =~ tr!A-Za-z0-9:/_-!!cd;
  -    $self->{_body_file} = IO::File->new($self->{_filename}, O_RDWR|O_CREAT)    
  +    $self->{_body_file} = IO::File->new($self->{_filename}, O_RDWR|O_CREAT, 0600)
         or die "Could not open file $self->{_filename} - $! "; # . $self->{_body_file}->error;
     }
     # go to the end of the file
  
  
  
  1.3       +1 -1      qpsmtpd/plugins/check_badrcptto
  
  Index: check_badrcptto
  ===================================================================
  RCS file: /cvs/public/qpsmtpd/plugins/check_badrcptto,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -w -r1.2 -r1.3
  --- check_badrcptto	10 Sep 2002 17:17:15 -0000	1.2
  +++ check_badrcptto	21 Apr 2004 12:42:45 -0000	1.3
  @@ -16,7 +16,7 @@
       return (DENY, "mail to $bad not accepted here")
         if $bad eq $from;
       return (DENY, "mail to $bad not accepted here")
  -      if substr($bad,0,1) eq '@' && $bad eq "@$host";
  +      if substr($bad,0,1) eq '@' && $bad eq "\@$host";
     }
     return (DECLINED);
   }
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.