From: Mathieu Parent <math.parent@gmail.com>
Date: Mon, 1 Mar 2010 11:06:47 +0000 (+0000)
Subject: Skinny: test: put config on top
X-Git-Tag: v1.0.6~290
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=3fe4d7a3d8771b98851830ee6108555d8425271e;p=thirdparty%2Ffreeswitch.git

Skinny: test: put config on top


git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@16850 d0543943-73ff-0310-b7d9-9358b9ac24b2
---

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