9 |
# |
# |
10 |
# ============================================================ |
# ============================================================ |
11 |
# $Log$ |
# $Log$ |
12 |
|
# Revision 1.3 2003/01/22 07:55:43 joko |
13 |
|
# + replaced '$HOME' with '$self->{settings}->{HOME}' |
14 |
|
# |
15 |
# Revision 1.2 2003/01/22 07:54:24 joko |
# Revision 1.2 2003/01/22 07:54:24 joko |
16 |
# + replaced global variables with class-variables |
# + replaced global variables with class-variables |
17 |
# |
# |
83 |
my $self = shift; |
my $self = shift; |
84 |
$self->{settings}->{USER} = $ENV{USER}; |
$self->{settings}->{USER} = $ENV{USER}; |
85 |
$self->{settings}->{HOME} = $self->{options}->{base}; |
$self->{settings}->{HOME} = $self->{options}->{base}; |
86 |
$self->{settings}->{MAILDIR} = "$HOME/Mail"; |
$self->{settings}->{MAILDIR} = "$self->{settings}->{HOME}/Mail"; |
87 |
$self->{settings}->{RULESFILE} = "$HOME/.dispatchmailrc.pm"; |
$self->{settings}->{RULESFILE} = "$self->{settings}->{HOME}/.dispatchmailrc.pm"; |
88 |
#$self->{settings}->{LOCKFILE} = "$HOME/.procmail.lockfile"; |
#$self->{settings}->{LOCKFILE} = "$self->{settings}->{HOME}/.procmail.lockfile"; |
89 |
$self->{settings}->{LOCKFILE} = "$HOME/.dispatchmail.lockfile"; |
$self->{settings}->{LOCKFILE} = "$self->{settings}->{HOME}/.dispatchmail.lockfile"; |
90 |
$self->{settings}->{LOGFILE} = "$self->{settings}->{MAILDIR}/.dispatchmail.log"; |
$self->{settings}->{LOGFILE} = "$self->{settings}->{MAILDIR}/.dispatchmail.log"; |
91 |
$self->{settings}->{DEFAULT} = "$self->{settings}->{MAILDIR}/Inbox"; |
$self->{settings}->{DEFAULT} = "$self->{settings}->{MAILDIR}/Inbox"; |
92 |
} |
} |
134 |
|
|
135 |
# 0.b. pre flight checks |
# 0.b. pre flight checks |
136 |
|
|
137 |
# TODO: check if $HOME is empty |
# TODO: check if $self->{settings}->{HOME} is empty |
138 |
|
|
139 |
# check if $HOME exists |
# check if $self->{settings}->{HOME} exists |
140 |
if (! -e $self->{settings}->{MAILDIR}) { |
if (! -e $self->{settings}->{MAILDIR}) { |
141 |
my $msg = "delivery failed, base directory $self->{settings}->{MAILDIR} does not exist"; |
my $msg = "delivery failed, base directory $self->{settings}->{MAILDIR} does not exist"; |
142 |
report($msg); |
report($msg); |