Thanks, George! 

----- Original Message -----
From: "George Niculae" <[email protected]> 
To: "Discussion list for users of sipXecs software" 
<[email protected]> 
Sent: Thursday, June 14, 2012 11:38:56 AM 
Subject: Re: [sipx-users] new patch for XX-10177 

On Thu, Jun 14, 2012 at 6:43 PM, andrewpitman <[email protected]> wrote: 
> 
> 
> Joegen, I tried downloading that Perl script and all I get 
> is an empty file. 
> -- 

Hm, I see the content, check this: 

#!/usr/bin/perl 
#udpclient.pl 

use IO::Socket::INET; 

# flush after every write 
$| = 1; 

my ($socket,$data); 

# We call IO::Socket::INET->new() to create the UDP Socket 
# and bind with the PeerAddr. 
$socket = new IO::Socket::INET ( 
PeerAddr => '127.0.0.1:5060', 
Proto => 'udp' 
) or die "ERROR in Socket Creation : $!\nā€; 
#send operation 
$data = ā€œ\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\nā€; 
$socket->send($data); 

sleep(2); 
$socket->close(); 
_______________________________________________ 
sipx-users mailing list 
[email protected] 
List Archive: http://list.sipfoundry.org/archive/sipx-users/ 
_______________________________________________
sipx-users mailing list
[email protected]
List Archive: http://list.sipfoundry.org/archive/sipx-users/

Reply via email to