INIT {
require Sys::Syslog;
- Sys::Syslog::openlog("lacemail","pid","mail");
+ Sys::Syslog::openlog("perlmail","pid","mail");
my @syslogging_stack;
sub syslogging_on_save
{
exit 0;
}
-# FIXME: separate 'lacemail'-transfer together with lacemail-submit away
+# FIXME: separate 'perlmail'-transfer together with perlmail-submit away
sub inetd
{
die "Excessive arguments" if @ARGV;
push @AuditStored,$folder if $do{"did"};
return if $store_ignore || $opt_dry;
$DoBell++ if $do{"bell"};
- write_message($folder);
+ write_message($folder) or die;
smssend_tryall $store_ignorenewmail,$do{"sms"},%args if $do{"sms"};
}
local $Audit=Mail::Audit->new(
"emergency"=>"$Mail/emergency",
"data"=>[map("$_\n",split("\n",$message))],
- "log"=>"$HOME/.lacemail.log",
+ "log"=>"$HOME/.perlmail.log",
"loglevel"=>99,
);
local @AuditStored=();
do { smssend 0,$opt_smstest; return; } if $opt_smstest;
- write_message("$Mail/input");
+ write_message("$Mail/input") or die;
audit();
warn 'Corrupted $_, repaired' if defined($save_)!=defined($_) || (defined($_) && $save_ ne $_);
}
open CHILD,'|'
.'('.'(razor-check 2>&1;echo >&3 $?)'
.'|sed "s/^/razor-check: /"'
- .'|logger -t "lacemail['.$$.']" -p mail.crit'
+ .'|logger -t "perlmail['.$$.']" -p mail.crit'
.') 3>&1'
.'|exit `cat`'
or return 0;
}
# FIXME: Unify
-# BEGIN lacemail-sendmail
+# BEGIN perlmail-sendmail
# return: Mail::Address instance or undef()
sub parseone
{
warn "Got ".scalar(@r)." addresses while wanting just one; when parsing: $line" if 1!=@r;
return $r[0];
}
-# END lacemail-sendmail
+# END perlmail-sendmail
# FIXME: host may get multiple recipients and thus not showing "for <...>"
# FIXME: muttrc_get("from") is too strict
$text=~s/\b\Q$from\E\b/$to/gsi;
}
return if $text eq $orig;
- $Audit->put_header("X-LaceMail-header_remap-$header",$orig);
+ $Audit->put_header("X-PerlMail-header_remap-$header",$orig);
$Audit->replace_header($header,$text);
}