cvs commit: qpsmtpd/lib/Qpsmtpd Connection.pm

cvsuser     04/08/29 00:53:15

  Modified:    lib/Qpsmtpd Connection.pm
  Log:
  More accessors
  
  Revision  Changes    Path
  1.5       +21 -1     qpsmtpd/lib/Qpsmtpd/Connection.pm
  
  Index: Connection.pm
  ===================================================================
  RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/Connection.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -w -r1.4 -r1.5
  --- Connection.pm	7 Jun 2004 18:48:13 -0000	1.4
  +++ Connection.pm	29 Aug 2004 07:53:15 -0000	1.5
  @@ -14,7 +14,8 @@
   
     my %args = @_;
   
  -  for my $f (qw(remote_host remote_ip remote_info)) {
  +  for my $f (qw(remote_host remote_ip remote_info remote_port
  +               local_ip local_port)) {
       $self->$f($args{$f}) if $args{$f};
     }
   
  @@ -33,6 +34,25 @@
     $self->{_remote_ip};
   }
   
  +sub remote_port {
  +  my $self = shift;
  +  @_ and $self->{_remote_port} = shift;
  +  $self->{_remote_port};
  +}
  +
  +sub local_ip {
  +  my $self = shift;
  +  @_ and $self->{_local_ip} = shift;
  +  $self->{_local_ip};
  +}
  +
  +sub local_port {
  +  my $self = shift;
  +  @_ and $self->{_local_port} = shift;
  +  $self->{_local_port};
  +}
  +
  +
   sub remote_info {
     my $self = shift;
     @_ and $self->{_remote_info} = shift;