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

View File

@ -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;
)); ));