kenmirrors
/
freeswitch
mirror of https://github.com/signalwire/freeswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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:
Mathieu Parent 2010-03-01 11:06:47 +00:00
parent 7cd8180f4a
commit 3fe4d7a3d8
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/mod/endpoints/mod_skinny/test-skinny.pl
View File

@ -4,6 +4,11 @@ use strict;
use warnings;
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;
my $socket;
@ -11,7 +16,7 @@ my $socket;
sub skinny_connect
{
$socket = IO::Socket::INET->new(
PeerAddr => '127.0.0.1',
PeerAddr => $skinny_server,
PeerPort => 2000,
);
}
@ -70,10 +75,10 @@ skinny_connect();
# =============================================================================
skinny_send(0x0001, # Register
pack("a16VVVVV",
"SEP001120AABBCC",
$device_name,
0, # userId;
1, # instance;
12,# ip;
$device_ip,# ip;
7, # deviceType;
0, # maxStreams;
));