46 lines
1.3 KiB
Perl
46 lines
1.3 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# Copyright (C) 2001-2023 Graeme Walker <graeme_walker@users.sourceforge.net>
|
|
#
|
|
# This program is free software: you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation, either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
# ===
|
|
#
|
|
# Scanner.pm
|
|
#
|
|
# A wrapper for running the "emailrelay_test_scanner" program.
|
|
#
|
|
# See also: Helper
|
|
#
|
|
|
|
use strict ;
|
|
use Helper ;
|
|
|
|
package Scanner ;
|
|
|
|
sub new
|
|
{
|
|
my ( $classname , $address ) = @_ ;
|
|
return bless { h => new Helper( "emailrelay_test_scanner" , $address ) } , $classname ; # "--port <address>"
|
|
}
|
|
|
|
sub port { return shift->{h}->port(@_) }
|
|
sub logfile { return shift->{h}->logfile(@_) }
|
|
sub exe { return shift->{h}->exe(@_) }
|
|
sub run { return shift->{h}->run(@_) }
|
|
sub pid { return shift->{h}->pid(@_) }
|
|
sub kill { return shift->{h}->kill(@_) }
|
|
sub cleanup { return shift->{h}->cleanup(@_) }
|
|
|
|
1 ;
|