Displaying 1 result from an estimated 1 matches for "ext_numb".
Did you mean:
ext_num
2003 Jun 24
0
SIP REGISTER script
...-- cut here -------------------------------
#!/usr/bin/perl
use Socket;
# USAGE register { local IP address, Extension number, SIP contact address }
register("1.2.3.4", "99999", "John Doe <sip:jdoe\@foo.bar.net>");
sub register {
$local_ip = shift;
$ext_number = shift;
$contact = shift;
$proxy_ip = "123.123.123.123";
$tm = time();
$seq = $tm % 65536;
$MESG="REGISTER sip:sipdomain.company.com SIP/2.0
Via: SIP/2.0/UDP $local_ip:5060
From: <sip:$ext_number\@sipdomain.company.com>
To: <sip:$ext_number\@sipdomain...