}
+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
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