INIT {
require Sys::Syslog;
- Sys::Syslog::openlog("lacemail","pid","mail");
+ Sys::Syslog::openlog("perlmail","pid","mail");
my @syslogging_stack;
sub syslogging_on_save
{
}
+use PerlMail::Config;
+
use Mail::Audit qw(MAPS);
require IO::Handle;
use Carp qw(cluck confess);
require WWW::SMS;
-my $HOME="/home/lace";
-my $Mail="$HOME/Mail";
-my @ValidUsers=qw(root lace short kratochvil _local);
-my $IdleMax=10;
-my $MaxBodySMS=0x1000; # max bytes to pass to Lingua::EN::Squeeze
-my $SMSmailError='short+err@ucw.cz';
-my @SMSwebRcpt=qw(420 602 431329);
-my $SMSwebRcpt_username="lace2";
-my $SMScontact='<short@ucw.cz>';
-
our($Message,$Audit,@AuditStored,$store_ignore,$store_ignorenewmail,$store_profile,$DoBell);
our(%audit_profile,@sms_squeezes,@alternates_host,@dnsbl_whitelist); # imported
my %alternates_host; # from @alternates_host
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;
return map({
my $l=160;
if (!$ignorenewmail) { # send by mail
- $l-=length("Z emailu $SMSmailError: ");
+ $l-=length("Z emailu FIXME SMSmailError: ");
$l-=length(smsbuild($_,$smscount));
}
else { # send by web
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=();
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);
}