Re: [sipx-users] new patch for XX-10177

[George Niculae]

On Thu, Jun 14, 2012 at 6:43 PM, andrewpitman <andrewpit...@comcast.net> 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
sipx-users@list.sipfoundry.org
List Archive: http://list.sipfoundry.org/archive/sipx-users/