Separate Config space.

[PerlMail.git] / PerlMail / Config.pm

diff --git a/PerlMail/Config.pm b/PerlMail/Config.pm
new file mode 100644 (file)
index 0000000..e06be0c
--- /dev/null
+++ b/PerlMail/Config.pm
@@ -0,0 +1,123 @@
+#! /usr/bin/perl
+# 
+#      $Id$
+# Copyright (C) 2002-2003 Jan Kratochvil <short@ucw.cz>
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+
+package PerlMail::Config;
+use vars qw($VERSION);
+$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+use strict;
+use warnings;
+
+require Exporter;
+use vars qw(@ISA @EXPORT);
+@ISA=qw(Exporter);
+@EXPORT=qw(
+               $HOME
+               $Mail @ValidUsers $IdleMax $MaxBodySMS @SMSwebRcpt $SMSwebRcpt_username
+               $Lock_pathname $PeerAddr $Socket_timeout $DB_table $DBI_database $DBI_user $DBI_pwd
+               $sendmail_orig @addr_addon &FromAddress @h_rcpt @h_from);
+
+require Mail::Alias;
+
+
+# perlmail-accept & perlmail-sendmail
+
+our $HOME="/home/lace";
+
+
+# perlmail-accept
+
+our $Mail="$HOME/Mail";
+our @ValidUsers=qw(root lace short kratochvil _local);
+our $IdleMax=10;
+our $MaxBodySMS=0x1000;        # max bytes to pass to Lingua::EN::Squeeze
+our @SMSwebRcpt=qw(420 602 431329);
+our $SMSwebRcpt_username="lace2";
+
+
+# perlmail-submit
+
+our $Lock_pathname="/tmp/PerlMail.lock";
+our $PeerAddr="exuhome.dyn.jankratochvil.net.:852";
+#our $PeerAddr="127.0.0.1:2852";
+our $Socket_timeout=7600;       # 15sec is NOT enough!
+our $DB_table="PerlMail_folder";
+our $DBI_database="short";
+our $DBI_user="short";
+our $DBI_pwd=$ENV{"HOME"}."/priv/mysql.".$DBI_user.".pwd";
+
+
+# perlmail-sendmail
+
+our $sendmail_orig=(-x ($_="/usr/sbin/sendmail-orig") ? $_ : "/usr/sbin/sendmail");
+# 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
+sub FromAddress
+{
+my($rcpt,$iserror)=@_;
+
+       my $phrase=(defined $opt_F ? $opt_F : "Jan Kratochvil");
+       {
+               last if !$is_pgp;
+               last if $iserror;
+               local *F;
+               local $_;
+               my $filename="$HOME/.gnupg/options";
+               open F,$filename or do { warn "Open \"$filename\": $!"; last; };
+               local $/="\n";
+               my @keys=map((/^\s*default-key\s+(\S+)\s*$/),<F>);
+               @keys==1 or do { warn "Found ".scalar(@keys)." 'default-key's in your \"$filename\", ignoring"; last; };
+               close F or warn "Close \"$filename\": $!";
+               my $default_key=$keys[0];
+               $default_key=~/^[[:xdigit:]]{8}$/ or do { warn "Invalid 'default-key', ignoring: $default_key"; last; };
+               return Mail::Address->new(
+                               $phrase,
+                               'pgp-'.uc($default_key).'@jankratochvil.net',
+                               );
+               }
+       # !$is_pgp or fallback
+       return Mail::Address->new(
+                       $phrase,
+                       (!$iserror ? 'rcpt' : 'rcpterr')
+                                       .'-'
+                                       .(defined($rcpt->user()) ? $rcpt->user() : "NOUSER")
+                                       .".AT."
+                                       .(defined($rcpt->host()) ? $rcpt->host() : "LOCAL")
+                                       .'@jankratochvil.net',
+                       );
+}
+
+# RedHat sendmail-8.9.3-20/src/conf.c/HdrInfo[]/\Q/* destination fields */\E
+# FIXME: Recognize "Resent-$_" headers for -t but when we are in 'resent' mode?
+our @h_rcpt=(  # case in-sensitive!
+               "To",
+               "Cc",
+               "Bcc",
+               "Apparently-To",
+               );
+# ordering matters; first header found is substituted
+# last header is subsituted if no one is found
+our @h_from=(
+               "Resent-From",
+               "From",
+               );