/[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.6 by root, Sun Mar 23 21:12:20 2003 UTC revision 1.7 by root, Sun Mar 23 22:26:22 2003 UTC
# Line 9  Line 9 
9  #  #
10  # ============================================================  # ============================================================
11  #  $Log$  #  $Log$
12    #  Revision 1.7  2003/03/23 22:26:22  root
13    #  + header-field 'Message-ID' now included when tracing
14    #
15  #  Revision 1.6  2003/03/23 21:12:20  root  #  Revision 1.6  2003/03/23 21:12:20  root
16  #  + sub jerror and related modifications  #  + sub jerror and related modifications
17  #  #
# Line 100  sub _init_settings_paths { Line 103  sub _init_settings_paths {
103    $self->{settings}->{RULESFILE} = "$self->{settings}->{HOME}/.dispatchmailrc";    $self->{settings}->{RULESFILE} = "$self->{settings}->{HOME}/.dispatchmailrc";
104    #$self->{settings}->{LOCKFILE}  = "$self->{settings}->{HOME}/.procmail.lockfile";    #$self->{settings}->{LOCKFILE}  = "$self->{settings}->{HOME}/.procmail.lockfile";
105    $self->{settings}->{LOCKFILE}  = "$self->{settings}->{HOME}/.dispatchmail.lockfile";    $self->{settings}->{LOCKFILE}  = "$self->{settings}->{HOME}/.dispatchmail.lockfile";
106    $self->{settings}->{LOGFILE}   = "$self->{settings}->{MAILDIR}/.dispatchmail.log";    $self->{settings}->{LOGFILE}   = "$self->{settings}->{MAILDIR}/.mail-delivery.log";
107    $self->{settings}->{ERRLOG}    = ".dispatchmail-errors.log";    $self->{settings}->{ERRLOG}    = ".mail-delivery_errors.log";
108    $self->{settings}->{DEFAULT}   = "$self->{settings}->{MAILDIR}/Inbox";    $self->{settings}->{DEFAULT}   = "$self->{settings}->{MAILDIR}/Inbox";
109  }  }
110    
# Line 214  sub _mail2news { Line 217  sub _mail2news {
217    sub traceEntry {    sub traceEntry {
218      my $self = shift;      my $self = shift;
219      $self->appendLog('-' x 40 . '  TRACE  ' . '-' x 10);      $self->appendLog('-' x 40 . '  TRACE  ' . '-' x 10);
220      $self->appendLog("From:    " . get_chomped($self->{incoming}->from));      $self->appendLog("From:       " . get_chomped($self->{incoming}->from));
221      $self->appendLog("To:      " . get_chomped($self->{incoming}->to));      $self->appendLog("To:         " . get_chomped($self->{incoming}->to));
222      $self->appendLog("Subject: " . get_chomped($self->{incoming}->subject));      $self->appendLog("Subject:    " . get_chomped($self->{incoming}->subject));
223        $self->appendLog("Message-ID: " . get_chomped($self->{incoming}->get('Message-ID')));
224      $self->appendLog('-' x 40 . '  TRACE  ' . '-' x 10);      $self->appendLog('-' x 40 . '  TRACE  ' . '-' x 10);
225    }    }
226    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed