cvs commit: qpsmtpd/lib/Qpsmtpd SMTP.pm Transaction.pm
[email protected] (John Peacock)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/09/23 06:51:09
Modified: . Changes
lib/Qpsmtpd SMTP.pm Transaction.pm
Log:
Remove the $transaction->relaying() code completely
Revision Changes Path
1.76 +1 -2 qpsmtpd/Changes
Index: Changes
===================================================================
RCS file: /cvs/public/qpsmtpd/Changes,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -w -r1.75 -r1.76
--- Changes 22 Sep 2004 16:01:16 -0000 1.75
+++ Changes 23 Sep 2004 13:51:09 -0000 1.76
@@ -27,9 +27,8 @@
Move relay flag to connection object (John Peacock):
+ add relay_client() method to Connection.pm
- + change SMTP.pm to copy relay_client() flag to transaction relaying
- flag (for compatibility purposes) - should deprecate instead
+ Update Auth.pm module to set $connection->relay_client()
+ + Remove $transaction->relaying() completely (due to popular demand)
Split check_relay plugin into two plugins (John Peacock):
+ check_relay now fires on connect and sets relay_client() flag
1.44 +1 -3 qpsmtpd/lib/Qpsmtpd/SMTP.pm
Index: SMTP.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/SMTP.pm,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -w -r1.43 -r1.44
--- SMTP.pm 22 Sep 2004 16:01:16 -0000 1.43
+++ SMTP.pm 23 Sep 2004 13:51:09 -0000 1.44
@@ -116,9 +116,7 @@
sub reset_transaction {
my $self = shift;
$self->run_hooks("reset_transaction") if $self->{_transaction};
- $self->{_transaction} = Qpsmtpd::Transaction->new();
- $self->{_transaction}->relaying($self->{_connection}->{_relay_client});
- return $self->{_transaction};
+ return $self->{_transaction} = Qpsmtpd::Transaction->new();
}
1.17 +0 -6 qpsmtpd/lib/Qpsmtpd/Transaction.pm
Index: Transaction.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/Transaction.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -w -r1.16 -r1.17
--- Transaction.pm 16 Sep 2004 10:46:38 -0000 1.16
+++ Transaction.pm 23 Sep 2004 13:51:09 -0000 1.17
@@ -32,12 +32,6 @@
($self->{_recipients} ? @{$self->{_recipients}} : ());
}
-sub relaying {
- my $self = shift;
- @_ and $self->{_relaying} = shift;
- $self->{_relaying};
-}
-
sub sender {
my $self = shift;
@_ and $self->{_sender} = shift;