kenmirrors/freeswitch
1
0
Fork 0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-08-13 09:36:46 +00:00
Code Issues Projects Releases Wiki Activity

fix MODAPP-85

Browse Source 
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@8084 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Anthony Minessale
2008-04-10 20:26:15 +00:00
parent f758a24f2e
commit 6a56113a93
3 changed files with 133 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
scripts/socket/FreeSWITCH/Client.pm
View File

@@ -10,6 +10,7 @@ sub init($;$) {
my $proto = shift;
my $args = shift;
my $class = ref($proto) || $proto;
$self->{_host} = $args->{-host} || "localhost";
$self->{_port} = $args->{-port} || 8021;
$self->{_password} = $args->{-password} || undef;
@@ -17,10 +18,14 @@ sub init($;$) {
$self->{events} = [];
my $me = bless $self,$class;
if (!$self->{_password}) {
return $me;
}
if ($me->connect()) {
print Dumper $me;
return $me;
} else {
return undef;