git://git.jankratochvil.net
/
PerlMail.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
763ff17
)
Fixed PerlMail::Config separate namespace.
author
short
<>
Sat, 18 Oct 2003 19:51:12 +0000
(19:51 +0000)
committer
short
<>
Sat, 18 Oct 2003 19:51:12 +0000
(19:51 +0000)
perlmail-accept
patch
|
blob
|
history
diff --git
a/perlmail-accept
b/perlmail-accept
index
0213a48
..
967a758
100755
(executable)
--- a/
perlmail-accept
+++ b/
perlmail-accept
@@
-314,7
+314,7
@@
sub smssend
{
my($ignorenewmail,$smscount,%args)=@_;
{
my($ignorenewmail,$smscount,%args)=@_;
- my $text=audit_sms(
+ my $text=
PerlMail::Config::
audit_sms(
"subject"=>unmime($Audit->subject()),
"from"=>[ Mail::Address->parse(unmime($Audit->from())) ],
"body"=>substr(body_simple(),0,$MaxBodySMS*(1+0.25*$smscount)),
"subject"=>unmime($Audit->subject()),
"from"=>[ Mail::Address->parse(unmime($Audit->from())) ],
"body"=>substr(body_simple(),0,$MaxBodySMS*(1+0.25*$smscount)),
@@
-476,7
+476,7
@@
my($message)=@_;
local @AuditStored=();
do { smssend 0,$opt_smstest; return; } if $opt_smstest;
write_message("$Mail/input") or die;
local @AuditStored=();
do { smssend 0,$opt_smstest; return; } if $opt_smstest;
write_message("$Mail/input") or die;
- audit();
+
PerlMail::Config::
audit();
warn 'Corrupted $_, repaired' if defined($save_)!=defined($_) || (defined($_) && $save_ ne $_);
}
warn 'Corrupted $_, repaired' if defined($save_)!=defined($_) || (defined($_) && $save_ ne $_);
}