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 |
# |
# |
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 |
|
|
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 |
|
|