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

= support IPv6 fake IS server in the tests 

git-svn-id: http://repo.ham.fi/svn/aprsc/trunk@355 3ce903b1-3385-4e86-93cd-f9a4a239f7ac
This commit is contained in:
Heikki Hannikainen 2012-05-17 22:50:05 +00:00
parent 7508485b09
commit 1ebc142d19
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,7 +6,7 @@ use strict;
use warnings;
use IO::Handle '_IOFBF';
use IO::Socket::INET;
use IO::Socket::INET6;
use IO::Select;
use Ham::APRS::IS;
@ -47,7 +47,7 @@ sub bind_and_listen($)
my($localaddr, $localport) = split(':', $self->{'host_port'});
$self->{'lsock'} = IO::Socket::INET->new(
$self->{'lsock'} = IO::Socket::INET6->new(
Listen => 10,
LocalAddr => $self->{'host_port'},
Proto => 'tcp',
@ -86,7 +86,7 @@ sub send_login_ok($$)
{
my($self, $is) = @_;
return $is->sendline("# logresp CALLSIGN unverified, server IS_FAKE");
return $is->sendline("# logresp CALLSIGN unverified, server FAKE" . sprintf("%d", rand(999)) );
}
1;