» Read the blog post at VoIP Tech Chat

My love of phones made me what I am today. I am a Kamailian. 

I didn’t invent this word. I flat out stole it from Daniel-Constantin Mierla (he’s to Kamailians what L. Ron Hubbard is to Scientologists).

What are you talking about? What’s a Kamailian?

Kamailians are those who believe and practice the art of Kamailio — the greatest SIP server that the world has ever seen.

Kamailio (former OpenSER) is an Open Source SIP Server released under GPL, able to handle thousands of call setups per second. Among features: asynchronous TCP, UDP and SCTP, secure communication via TLS for VoIP (voice, video), SIMPLE instant messaging and presence, ENUM, least cost routing, load balancing, routing fail-over, accounting, authentication and authorization against MySQL, Postgres, Oracle, Radius, LDAP, XMLRPC control interface, SNMP monitoring. It can be used to build large VoIP servicing platforms or to scale up SIP-to-PSTN gateways, PBX systems or media servers like Asterisk™, FreeSWITCH™ or SEMS. (www.kamailio.org)

For my non-geek readers (like you’d even still be reading), Kamailio allows phones to communicate with each other. Lots of phones. Think US Budget numbers. Kamailio does this in a way that is very efficient, very fast, and very stable — which is exactly what you need when deploying phone systems.

Of course Kamailio isn’t limited to phones… but we’ll talk about that another day.

Why Kamailio? What does Kamailio mean?

When I first started in VoIP, I used a product named OpenSER (SER stands for SIP Express Router). The product was actually a “fork” of the original SER started years earlier. OpenSER worked extremely well — and we used the product to handle 30k+ concurrent registrations, thousands of simultaneous calls, and blistering call set-up rates. The product worked. It worked well. It worked often. Color Fred impressed.

I tell you that story to tell you this story… sometimes open-source projects are a happy-happy-joy-joy group of people where disagreements are settled using skills learned from My Little Ponies. More often, it’s not. In 2008, the OpenSER project split (“forked”) in a very bad way. This was a very black/white, my side/your side, bloods/crips, Luke/Vader kind of split. You were one or the other… and many of us didn’t know where to go.

I talked to as many OpenSER users as possible. Many of whom I only knew by IRC handles or email; some were unsure, some were choosing one side, and some chose the other. In the end, I joined the side with the majority of people I respected in the industry… and haven’t looked back. The split, to this day, remains one of the ugliest I’ve seen in open-source projects— well at least with projects that I’ve been active.

Kamailio is the former OpenSER project. Kamailio, a Hawaiian word, means talk, to converse. Those that embrace Kamailio are Kamailians.

So, if you’re looking for an amazing SIP server that can handle all the traffic you can bring, can provide stability, and loves to work, look no further than Kamailio. It’s what you’ve been looking for. The consultants are friendly, professional, and reliable. Plus… we have cookies.

Congratulations on 10 years of SER and a huge thank you to all of the contributors to Kamailio — celebrating it’s 3rd year of drama free SIP serving.

Read More

• By MiConDa: 3 years of Kamailio
• Kamailio SIP Server
• Kamailio Business Directory

So, using a simple Perl script, you can check many resources and attempt to get the calling party’s name. There are tons of caller id lookup scripts out there, but most require the Asterisk Perl AGI module, a localized NPA/NXX database, or a local database query.

Since I don’t like installing the module, don’t want to install a local lookup table, and don’t wish to cache CID names in a database, I’ve modified publicly available scripts as follows (also, check up the write up on Team Forrest, with a little more detail):

Update: AnyWho changed their url and format, the new code is live on Team Forrest but the old code is still below.

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
$|=1;
sub trim($);

my %AGI; my $tests = 0; my $fail = 0; my $pass = 0; my $result = ""; my $cidnum = ""; my $cidname = "";
my $npa = ""; my $nxx = ""; my $station = ""; my $name = "";

$cidnum = $ARGV[0];

while(<STDIN>) {
	chomp;
	last unless length($_);
	if (/^agi_(\w+)\:\s+(.*)$/) {
		$AGI{$1} = $2;
	}
}

my $AnyWho = '1' ;
my $Google = '1' ;
my $www411 = '1' ;

if(substr($cidnum,0,1) eq '1'){
$cidnum=substr($cidnum,1);
}

if(substr($cidnum,0,2) eq '+1'){
$cidnum=substr($cidnum,2);
}

if ($cidnum =~ /^(\d{3})(\d{3})(\d{4})$/) {
	$npa = $1;
	$nxx = $2;
	$station = $3;
	}
elsif($cidnum =~/\<(\d{3})(\d{3})(\d{4})\>/){
	$npa = $1;
	$nxx = $2;
	$station = $3;
	}
else {
	print qq(VERBOSE "ERROR: unable to parse caller id" 2\n);
	exit(0);
} 

if ($AnyWho > '0') {
	print qq(VERBOSE "STATUS: checking AnyWho for name lookup" 2\n);
	if ($name = &anywho_lookup ($npa, $nxx, $station)) {
		$cidname = $name;
		print qq(SET VARIABLE CALLERID\(name\) "$cidname"\n);
		print qq(VERBOSE "STATUS: AnyWho said name was $cidname " 2\n);
		exit(0);
		}
	else {
		print qq(VERBOSE "STATUS: unable to find name with AnyWho" 2\n);
		}
	}
else {
	print qq(VERBOSE "STATUS: AnyWho lookup disabled" 2\n);
}

if ($Google > '0') {
	print qq(VERBOSE "STATUS: checking Google for name lookup" 2\n);
	if ($name = &google_lookup ($npa, $nxx, $station)) {
		$cidname = $name;
		print qq(SET VARIABLE CALLERID\(name\) "$cidname"\n);
		print qq(VERBOSE "STATUS: Google said name was $cidname " 2\n);
		exit(0);
		}
	else {
		print qq(VERBOSE "STATUS: unable to find name with Google" 2\n);
		}
	}
else {
	print qq(VERBOSE "STATUS: Google lookup disabled" 2\n);
}

if ($www411 > '0') {
	print qq(VERBOSE "STATUS: checking www411 for name lookup" 2\n);
	if ($name = &www411_lookup ($npa, $nxx, $station)) {
		$cidname = $name;
		print qq(SET VARIABLE CALLERID\(name\) "$cidname"\n);
		print qq(VERBOSE "STATUS: www411 said name was $cidname " 2\n);
		exit(0);
		}
	else {
		print qq(VERBOSE "STATUS: unable to find name with www411" 2\n);
		}
	}
else {
	print qq(VERBOSE "STATUS: www411 lookup disabled" 2\n);
}

print qq(SET VARIABLE CALLERID\(name\) "$cidnum"\n);
print qq(VERBOSE "STATUS: Unknown name for $cidnum " 2\n);
exit(0); 

sub anywho_lookup {
	my ($npa, $nxx, $station) = @_;
	my $ua = LWP::UserAgent->new( timeout => 45);
	my $URL = 'http://www.anywho.com/qry/wp_rl';
	$URL .= '?npa=' . $npa . '&telephone=' . $nxx . $station;
	$ua->agent('AsteriskAGIQuery/1');
	my $req = new HTTP::Request GET => $URL;
	my $res = $ua->request($req);
	if ($res->is_success()) {
		if ($res->content =~ /<!-- listing -->(.*)<!-- \/listing -->/s) {
			my $listing = $1;
			if ($listing =~ /<B>(.*)<\/B>/) {
				my $clidname = $1;
				return $clidname;
			}
		}
	}
	return "";
}

sub google_lookup {
  my ($npa, $nxx, $station) = @_;
  my $ua = LWP::UserAgent->new( timeout => 45);
  my $URL = 'http://www.google.com/search?rls=en&q=phonebook:' .  $npa . $nxx . $station . '&ie=UTF-8&oe=UTF-8';
  $ua->agent('AsteriskAGIQuery/1');
  my $req = new HTTP::Request GET => $URL;
  my $res = $ua->request($req);
  if ($res->is_success()) {
    if ($res->content =~ /<font size=-2><br><\/font><font size=-1>(.+)<font color=green>/) {
      my $temp = $1;
      my $clidname = "";
      if ( $temp =~ /(.+)<font color=green>/o ) {
        $clidname = substr($1, 0, -3);
      } else {
        $clidname = substr($temp, 0, -3);
      }
      if ($clidname =~ /<a href(.+)\//) {
        $clidname = $1 ;
        if ($clidname =~ />(.+)</) {
          $clidname = $1 ;
        }
      }
      return $clidname;
    }
  }
  return "";
} 

sub www411_lookup {
  my ($npa, $nxx, $station) = @_;
  my $ua = LWP::UserAgent->new( timeout => 45);
  my $URL = 'http://www.411.com/search/Reverse_Phone?phone=' .  $npa . $nxx . $station;
  $ua->agent('AsteriskAGIQuery/1');
  my $req = new HTTP::Request GET => $URL;
  my $res = $ua->request($req);
  if ($res->is_success()) {
    if ($res->content =~ /Location: <strong>(.*)<\/strong>/s) {
      my $temp = $1;
      my $clidname = "";
      $temp =~ s/&amp\;/&/g;
      $temp =~ s/%20/ /g;
						$clidname = $temp;
		    return $clidname;
     }
  }
  return "";
}

Basically, what the script does is lookup the cidname from the CID number. I pass the script an argument (the caller id number) and it checks AnyWho, Google, and 411.com (in order). I chose 411 last and just use it to replace an NPA/NXX table. Basically, if AnyWho and Google fail, I’m assuming it’s a cell phone or unlisted number and will assume 411 will only return a location. If all fails, the script sets the callerid name to be the callerid number.

I’ve integrated it into asterisk by first creating a lookup context:

[cidname-lookup]
exten => s,1,NoOp(looking up callerid name)
exten => s,n,GotoIf($["foo${CALLERID(NAME)}" = "foo" ]?getname)
exten => s,n,GotoIf($["${CALLERID(NAME)}" = "${CALLERID(NUM)}" ]?getname)
exten => s,n,NoOp(caller id name exists as ${CALLERID(NAME)})
exten => s,n,Return
exten => s,n(getname),AGI(calleridname.pl,${CALLERID(NUM)})
exten => s,n,NoOp(Caller ID Name is now ${CALLERID(NAME)})
exten => s,n,Return

Basically, if the callerid name is present (and not the phonenumber), run the script. You can then call the script from anywhere in your Asterisk dialplan using a gosub routine. Such as:

exten => s,n,Gosub(cidname-lookup,s,1)
exten => s,n,dial(${FREDPHONE},30,mt)

Are there other ways to do this? Absolutely. And some even better This way works for me… until I see a better way of doing it.

Yeni Weather Script

I have a new phone on my desk (or as Yeni calls it, the mesk). Why mesk? Combines messy and desk… but I digress (as usual).

As I was saying, I recently purchased a Polycom Soundpoint IP 450 phone. The phone is great — small foot print, clean, great speakerphone, and enables HD Voice. HD Voice is going to change the way we think of how phone calls sound. I admit, I was reluctant at first, but then I got to know Michael Graves; and after listening to him praise the benefits of HD Voice for many, many months, I decided it was time to embrace the technology.

Let me say this — HD Voice is amazing. I won’t say too much more, because I’m planning to write about it big time on VoIP Tech Chat and Team Forrest; but bottom line: HD Voice = amazing.

So the other nice thing about the phone? It has a little micro-mini browser. Which means what you ask? It means that know whenever Yeni asks me the weather… I can answer. A nice little Perl script checks the local Ann Arbor weather and gives me the temp (in F and C), current condition, and quick day’s forecast. The phone reads the website every 5 minutes and constantly displays the results. It’s nice.