Re: [SR-Users] SIP Ping utility with kamailio

[Fred Posner]

Hey JR...

I use this:

#! /usr/bin/perl -w
use IO::Socket;
use POSIX 'strftime';

my ($msg,$remotehost,$callid,$socket,$date,$branch,$localip,$dest);

$remotehost = $ARGV[0]
        or die "FAIL \(no host defined\)\n";

if ($ARGV[1]) {
                $remoteport = $ARGV[1];
        } else {
                $remoteport = "5060";
}

if ($ARGV[2]) {
                $localip = $ARGV[2];
        } else {
                $localip = "127.0.0.1";
}

if ($ARGV[2]) {
                $dest = $ARGV[3];
        } else {
                $dest = "ping";
}

$socket = IO::Socket::INET->new ( 
                PeerAddr => $remotehost, 
                PeerPort => $remoteport, 
                Proto => 'udp', 
        ) or die "FAIL Could not create socket: $!n";
        
$callid .= ('0'..'9', "a".."f")[int(rand(16))] for 1 .. 32;
$date = strftime('%a, %e %B %Y %I:%M:%S %Z',localtime());
$branch="z9hG4bk" . time();

my $packet = qq(OPTIONS sip:$remotehost SIP/2.0
Via: SIP/2.0/UDP $localip:$remoteport;branch=$branch
From: <sip:$de...@$localip>
To: <sip:$remotehost>
Contact: <sip:$de...@$localip
Call-ID: $call...@$localip
CSeq: 102 Options
User-Agent: sipcheck.pl
Date: $date
Allow: ACK, CANCEL
Content-Length: 0
);


print $socket $packet;

eval {
        local $SIG{ALRM} = sub { die };
        alarm 5;
        my $sock_addr = recv($socket,$msg,190,0);
        alarm 0;
        1;
} or die("FAIL\n");

if ($msg) {
                print "UP\n";
                print "response is $msg\n";
        } else {
                print "FAIL no msg received\n";
}
close($socket);


---fred
http://qxork.com





On Oct 15, 2010, at 11:14 AM, JR Richardson wrote:

> Hi All,
> 
> Can someone point me in the right direction of a command line SIP Ping
> utility or how to invoke from Kamailio?  I see there is a sip_ping.pl
> script in voip-hacks, does anyone have copy-paste text version of
> that, all I can find is the PDF?
> 
> Thanks.
> 
> JR
> -- 
> JR Richardson
> Engineering for the Masses
> 
> _______________________________________________
> SIP Express Router (SER) and Kamailio (OpenSER) - sr-users mailing list
> sr-users@lists.sip-router.org
> http://lists.sip-router.org/cgi-bin/mailman/listinfo/sr-users


_______________________________________________
SIP Express Router (SER) and Kamailio (OpenSER) - sr-users mailing list
sr-users@lists.sip-router.org
http://lists.sip-router.org/cgi-bin/mailman/listinfo/sr-users