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);
}