byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

More accessors

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@290 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Robert Spier 2004-08-29 07:53:15 +00:00
parent 56ee8641ec
commit e1785b1923
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lib/Qpsmtpd/Connection.pm
View File

@ -14,7 +14,8 @@ sub start {
my %args = @_; 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}; $self->$f($args{$f}) if $args{$f};
} }
@ -33,6 +34,25 @@ sub remote_ip {
$self->{_remote_ip}; $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 { sub remote_info {
my $self = shift; my $self = shift;
@_ and $self->{_remote_info} = shift; @_ and $self->{_remote_info} = shift;