ua1zbe
/
aprsc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

= tests IS_Fake: support selecting the fake server's callsign 

git-svn-id: http://repo.ham.fi/svn/aprsc/trunk@378 3ce903b1-3385-4e86-93cd-f9a4a239f7ac
This commit is contained in:
Heikki Hannikainen 2012-06-03 18:07:32 +00:00
parent d7965b0673
commit 54dab6371e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/libperl/Ham/APRS/IS_Fake.pm
View File

@ -30,7 +30,11 @@ sub new($$$;%)
my($host_port, $mycall, %options) = @_;
$self->{'host_port'} = $host_port;
$self->{'mycall'} = $mycall;
if (defined $mycall) {
$self->{'mycall'} = $mycall;
} else {
$self->{'mycall'} = "FAKE" . sprintf("%d", rand(999));
}
#$self->{'filter'} = $options{'filter'} if (defined $options{'filter'});
#warn "aprspass for $self->{mycall} is $self->{aprspass}\n";
@ -93,7 +97,7 @@ sub send_login_ok($$)
{
my($self, $is) = @_;
return $is->sendline("# logresp CALLSIGN unverified, server FAKE" . sprintf("%d", rand(999)) );
return $is->sendline("# logresp CALLSIGN unverified, server " . $self->{'mycall'} );
}
1;