Some of you have unusual SIP configurations, and this SIP perl script may be useful to get remote devices registering with your Asterisk or other SIP server. Most Cisco routers, as an example, are too stupid to REGISTER, so this script would be required to dynamically register them with a remote server. This may not be 100% applicable to Asterisk, since static registrations are possible, but who knows? Maybe someone will find this useful. There is no password support on this version. I haven't fooled around extensively with the script - feel free to modify and re-submit a better working copy.
If anyone wants to build the password-capable version of this, some tools can be found in the SER package (http://www.iptel.org/ser/) in the "utils/gen_ha1" directory - there is a password generator in there, along with C routines for WWW-Authorize responses.
Notes:
Replace "123.123.123.123" with the IP address of the remote SIP server that you're trying to REGISTER with.
Replace "sipdomain.company.com" with the domain you're using. This may not matter much for some SIP servers, but others are fussy about it.
Change the "Expires: " value to whatever you think is useful. It's measured in seconds.
Change "John Doe <sip:[EMAIL PROTECTED]>" to your contact info (probably something like "<sip:[EMAIL PROTECTED]>")
JT
Original script by Marian Durkovic
---------------------------- 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:[EMAIL PROTECTED]>");
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:[EMAIL PROTECTED]> To: <sip:[EMAIL PROTECTED]> Contact: $contact Call-ID: [EMAIL PROTECTED] CSeq: $seq REGISTER Expires: 3700 Content-Length: 0
";
$proto = getprotobyname('udp'); socket(SOCKET, PF_INET, SOCK_DGRAM, $proto) ; $iaddr = inet_aton("$local_ip"); $paddr = sockaddr_in(5060, $iaddr); bind(SOCKET, $paddr) ; $port=5060;
$hisiaddr = inet_aton($proxy_ip) ; $hispaddr = sockaddr_in($port, $hisiaddr);
send(SOCKET, $MESG, 0,$hispaddr ) || warn "send $host $!\n";
}
---------------------------- cut here ------------------------------- _______________________________________________ Asterisk-Users mailing list [EMAIL PROTECTED] http://lists.digium.com/mailman/listinfo/asterisk-users
