75 lines
1.6 KiB
Perl
75 lines
1.6 KiB
Perl
use strict;
|
|
|
|
use Test::More;
|
|
|
|
BEGIN {
|
|
use_ok('Parse::Netstat::Search');
|
|
}
|
|
|
|
my $res=[ '0', '1',
|
|
{
|
|
'active_conns'=>[
|
|
{
|
|
'foriegn_host'=>'10.0.0.1',
|
|
'local_host'=>'10.0.0.2',
|
|
'foriegn_port'=>'22222',
|
|
'local_port'=>'22',
|
|
'sendq'=>'0',
|
|
'recvq'=>'0',
|
|
'state' => 'ESTABLISHED',
|
|
'proto' => 'tcp4',
|
|
},
|
|
{
|
|
'foriegn_host'=>'10.0.0.1',
|
|
'local_host'=>'10.0.0.2',
|
|
'foriegn_port'=>'22',
|
|
'local_port'=>'2222',
|
|
'sendq'=>'0',
|
|
'recvq'=>'0',
|
|
'state' => 'TIME_WAIT',
|
|
'proto' => 'tcp4',
|
|
},
|
|
{
|
|
'foriegn_host'=>'10.0.0.1',
|
|
'local_host'=>'192.168.0.1',
|
|
'foriegn_port'=>'22',
|
|
'local_port'=>'2222',
|
|
'sendq'=>'0',
|
|
'recvq'=>'0',
|
|
'state' => 'ESTABLISHED',
|
|
'proto' => 'tcp4',
|
|
},
|
|
{
|
|
'foriegn_host'=>'10.0.0.1',
|
|
'local_host'=>'10.0.0.2',
|
|
'foriegn_port'=>'22',
|
|
'local_port'=>'2222',
|
|
'sendq'=>'0',
|
|
'recvq'=>'0',
|
|
'state' => 'ESTABLISHED',
|
|
'proto' => 'tcp4',
|
|
},
|
|
{
|
|
'foreign_host' => '*',
|
|
'recvq' => '0',
|
|
'local_port' => '389',
|
|
'local_host' => '127.0.0.1',
|
|
'foreign_port' => '*',
|
|
'state' => 'LISTEN',
|
|
'proto' => 'tcp4',
|
|
'sendq' => '0'
|
|
},
|
|
{
|
|
'foreign_host' => '*',
|
|
'recvq' => '0',
|
|
'local_port' => '22',
|
|
'local_host' => '*',
|
|
'foreign_port' => '*',
|
|
'state' => 'LISTEN',
|
|
'proto' => 'tcp4',
|
|
'sendq' => '0'
|
|
},
|
|
],
|
|
}
|
|
];
|