#! /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",
		);