From 3fe4d7a3d8771b98851830ee6108555d8425271e Mon Sep 17 00:00:00 2001 From: Mathieu Parent Date: Mon, 1 Mar 2010 11:06:47 +0000 Subject: [PATCH] Skinny: test: put config on top git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@16850 d0543943-73ff-0310-b7d9-9358b9ac24b2 --- src/mod/endpoints/mod_skinny/test-skinny.pl | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/src/mod/endpoints/mod_skinny/test-skinny.pl b/src/mod/endpoints/mod_skinny/test-skinny.pl index ac8e2bc29b..deb60f410c 100644 --- a/src/mod/endpoints/mod_skinny/test-skinny.pl +++ b/src/mod/endpoints/mod_skinny/test-skinny.pl @@ -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; ));