mirror of
https://github.com/signalwire/freeswitch.git
synced 2025-07-23 04:14:47 +00:00
Skinny: test: put config on top
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@16850 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
parent
7cd8180f4a
commit
3fe4d7a3d8
@ -4,6 +4,11 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use IO::Socket;
|
use IO::Socket;
|
||||||
|
|
||||||
|
#Config
|
||||||
|
my $skinny_server = '127.0.0.1';
|
||||||
|
my $device_name = "SEP001120AABBCC";
|
||||||
|
my $device_ip = 10+256*(11+256*(12+256*13)); # 10.11.12.13
|
||||||
|
#======
|
||||||
$| = 1;
|
$| = 1;
|
||||||
|
|
||||||
my $socket;
|
my $socket;
|
||||||
@ -11,7 +16,7 @@ my $socket;
|
|||||||
sub skinny_connect
|
sub skinny_connect
|
||||||
{
|
{
|
||||||
$socket = IO::Socket::INET->new(
|
$socket = IO::Socket::INET->new(
|
||||||
PeerAddr => '127.0.0.1',
|
PeerAddr => $skinny_server,
|
||||||
PeerPort => 2000,
|
PeerPort => 2000,
|
||||||
);
|
);
|
||||||
}
|
}
|
||||||
@ -70,10 +75,10 @@ skinny_connect();
|
|||||||
# =============================================================================
|
# =============================================================================
|
||||||
skinny_send(0x0001, # Register
|
skinny_send(0x0001, # Register
|
||||||
pack("a16VVVVV",
|
pack("a16VVVVV",
|
||||||
"SEP001120AABBCC",
|
$device_name,
|
||||||
0, # userId;
|
0, # userId;
|
||||||
1, # instance;
|
1, # instance;
|
||||||
12,# ip;
|
$device_ip,# ip;
|
||||||
7, # deviceType;
|
7, # deviceType;
|
||||||
0, # maxStreams;
|
0, # maxStreams;
|
||||||
));
|
));
|
||||||
|
Loading…
x
Reference in New Issue
Block a user