/[cvs]/nfo/perl/libs/Mail/Audit/Dispatch.pm
ViewVC logotype

Diff of /nfo/perl/libs/Mail/Audit/Dispatch.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by joko, Wed Jan 22 07:54:24 2003 UTC revision 1.3 by joko, Wed Jan 22 07:55:43 2003 UTC
# Line 9  Line 9 
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  #  #
# Line 80  sub _init_settings { Line 83  sub _init_settings {
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  }  }
# Line 131  sub _run { Line 134  sub _run {
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);
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed