git://git.jankratochvil.net
/
PerlMail.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
+=ats
[PerlMail.git]
/
My-Audit.pm
diff --git
a/My-Audit.pm
b/My-Audit.pm
index
4bcb2ed
..
1097bfd
100644
(file)
--- a/
My-Audit.pm
+++ b/
My-Audit.pm
@@
-80,6
+80,7
@@
sub audit
store "=err","bell" and return if headerhas \&Received_for,'<short+err@>';
# ppl-wished foreign remapping, Reply-To is left untouched!
store "=err","bell" and return if headerhas \&Received_for,'<short+err@>';
# ppl-wished foreign remapping, Reply-To is left untouched!
+ # FIXME: modifications are now being dropped by &write_message!
header_remap("From",{
'kerere@post.cz' =>'kamzik@k332.feld.cvut.cz',
'profes@mbox.vol.cz' =>'kratochvilova@egp.cz',
header_remap("From",{
'kerere@post.cz' =>'kamzik@k332.feld.cvut.cz',
'profes@mbox.vol.cz' =>'kratochvilova@egp.cz',
@@
-161,6
+162,8
@@
sub audit
store "=libtoolpat","log" if headeris "List-Id" ,'<libtool-patches.gnu.org>';
# own webs
store "=energie","bell" if headeris "From" ,qr/^EnergieWeb/;
store "=libtoolpat","log" if headeris "List-Id" ,'<libtool-patches.gnu.org>';
# own webs
store "=energie","bell" if headeris "From" ,qr/^EnergieWeb/;
+ store "=ats","bell" if headeris "From" ,'<root@ms.atspraha.cz>';
+ store "=atscasablanca","sms" if headeris "From" ,'<casablanca@ms.atspraha.cz>';
# Petr Koutecky does not mark his Stuff
store "=koutecky","log" if headeris "From" ,'<velkyhroch@seznam.cz>';
# Petr Koutecky does not mark his Stuff
store "=koutecky","log" if headeris "From" ,'<velkyhroch@seznam.cz>';