# perlmail-accept & perlmail-sendmail
+# Various configuration files location is derived from it:
our $HOME="/home/lace";
# perlmail-accept
+# Mail folder:
our $Mail="$HOME/Mail";
+# Users respected for the 'idle' state (see $IdleMax):
our @ValidUsers=qw(root lace short kratochvil _local);
+# Maximum number of local console idle seconds while still considered as 'active user':
our $IdleMax=10;
-our $MaxBodySMS=0x1000; # max bytes to pass to Lingua::EN::Squeeze
+# Maxium number of bytes to pass to Lingua::EN::Squeeze (performance optimization):
+our $MaxBodySMS=0x1000;
+# Telephone number to send SMSes by WWW::SMS to:
our @SMSwebRcpt=qw(420 602 431329);
+# Some WWW::SMS modules require username:
our $SMSwebRcpt_username="lace2";
# perlmail-submit
+# Global system lock for exclusive $DB_table access:
our $Lock_pathname="/tmp/PerlMail.lock";
+# 'workstation' hostname and port. Hostname may be dyndns:
our $PeerAddr="exuhome.dyn.jankratochvil.net.:852";
#our $PeerAddr="127.0.0.1:2852";
-our $Socket_timeout=7600; # 15sec is NOT enough!
+# 15sec is NOT enough as the remote peer must complete mail store:
+our $Socket_timeout=7600;
+# MySQL table name:
our $DB_table="PerlMail_folder";
+# MySQL database name:
our $DBI_database="short";
+# MySQL user name:
our $DBI_user="short";
+# MySQL user password:
our $DBI_pwd=$ENV{"HOME"}."/priv/mysql.".$DBI_user.".pwd";
# perlmail-sendmail
+# Lists where <rcpt-USER.AT.HOST@jankratochvil.net> address is generated:
my @lists=qw(
tacplus-l@disaster.com
gsm@sh.cvut.cz
captive-devel-list@jankratochvil.net
);
+# Pathname of the original sendmail(8) binary:
our $sendmail_orig=(-x ($_="/usr/sbin/sendmail-orig") ? $_ : "/usr/sbin/sendmail");
+# List of addresses to locally Bcc all mails to:
# Mail-Alias-1.12 defaults to "/etc/mail/aliases" which does not exist on RedHat sendmail-8.12.5-7
# Mail-Alias-1.12 will clutter $_ !
our @addr_addon=(Mail::Alias->new("/etc/aliases")->exists("sentout") ? ("sentout") : ());
our $opt_F; # imported
our $is_pgp; # imported
my %lists=map(($_=>1),@lists);
+# Generate new From address for the target $rcpt of type Mail::Address.
+# $iserror is true for "MAIL FROM" RFC821 address, false for "From:" RFC822 address.
+# Returns: Mail::Address instance.
sub FromAddress
{
my($rcpt,$iserror)=@_;
# My-Audit
+# Setup profile names.
+# First element of /^=/ form copies it referenced profile to be extended.
+# 'did' =>did() subroutine will return true for it.
+# 'syslog' =>Use syslog(3).
+# 'bell' =>Bell sound.
+# 'sms=\d+'=>Send SMS by WWW::SMS with specified maximum # of parts
our %audit_profile=(
"btw" =>[],
"silent"=>["=btw" ,"did"],
"sms" =>["=bell" ,"sms=1"],
"crit" =>["=sms" ,"sms=3"],
);
+# Try the squeezing methods in this order:
our @sms_squeezes=(
{ "SqueezeControl"=>"noconv" },
{ "SqueezeControl"=>"conv" ,"SQZ_OPTIMIZE_LEVEL"=>0 },
{ "SqueezeControl"=>"max" ,"SQZ_OPTIMIZE_LEVEL"=>0 },
{ "SqueezeControl"=>"max" ,"SQZ_OPTIMIZE_LEVEL"=>1 },
);
+# Hostnames where we had alternate e-mail addresses:
our @alternates_host=(
"jabberwock.ucw.cz", # short@ucw.cz
"atrey.karlin.mff.cuni.cz", # short@atrey.karlin.mff.cuni.cz
"k332.feld.cvut.cz", # short@k332.feld.cvut.cz
);
+# Override DNS blacklists:
our @dnsbl_whitelist=(
"195.250.128.83", # smtp3.vol.cz; vol.cz.multistage.blackholes.five-ten-sg.com.
"64.49.222.22", # mail.pm.org: rackspace.com.spam-support.blackholes.five-ten-sg.com.
store "=winecvs","silent" if headeris "List-Id" ,'<wine-cvs.winehq.com>';
store "=wineann","log" if headeris "List-Id" ,'<wine-announce.winehq.com>';
store "=ros","log" if headeris "List-Id" ,'<ros-general.reactos.geldorp.nl>';
- store "=roskernel","log" if headeris "List-Post",'<ros-kernel@reactos.com>';
- store "=roscvs","silent" if headeris "List-Post",'<ros-cvs@reactos.com>';
+ store "=roskernel","log" if headeris "List-Id" ,'<ros-kernel.reactos.com>';
+ store "=roscvs","silent" if headeris "List-Id" ,'<ros-cvs.reactos.com>';
store "=rosbug","log" if headeris "Reply-To" ,'<scarab@reactos.wox.org>';
store "=fsd","silent" if headeris "X-Mailing-List",'<linux-fsdevel@vger.kernel.org>';
store "=kerneld","silent" if headeris "X-Mailing-List",'<linux-kernel@vger.kernel.org>';
&& $Audit->subject()=~/^'.*' has been updated!$/;
store "=libtoold","log" if headeris "List-Id" ,'<libtool.gnu.org>';
store "=libtoolpat","log" if headeris "List-Id" ,'<libtool-patches.gnu.org>';
+ store "=cap","bell" if headeris "List-Id" ,'<captive-list.jankratochvil.net>';
+ store "=capd","bell" if headeris "List-Id" ,'<captive-devel-list.jankratochvil.net>';
+ store "=capann","bell" if headeris "List-Id" ,'<captive-announce-list.jankratochvil.net>';
# own webs
store "=energie","bell" if headeris "From" ,qr/^EnergieWeb/;
store "=ats","log" if headeris("From" ,'<root@ms.atspraha.cz>')
return $_;
}
+# $args{"from"}
+# $args{"subject"}
+# $args{"body"}
sub audit_sms
{
my(%args)=@_;