xswitch/scripts/perl/cnam.cgi

#!/usr/bin/perl
#
# OpenCNAM front end because they only take 10 digits and can't filter 11 on their side.
#


use Data::Dumper;
use CGI qw/:standard/;
use LWP::UserAgent;
use SDBM_File;
use Fcntl;

my %params = map { $_ => get_data( $_ ) } param;

$ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0, timeout => 3 });

sub get_data {
    my $name   = shift;
    my @values = param( $name );
    return @values > 1
        ? \@values
        : $values[0];
}

print "Content-Type: text/plain\n\n";

tie (my %cache, 'SDBM_File', 'cnam.dbm', O_RDWR|O_CREAT, 0640) || die $!;

my $number = $params{number};


if($number =~ m/1?\d{10}/) {
    if($number =~ m/^1(\d{10})$/) {
	$number = $1;
    }

    if($cache{"$number"}) {
	print $cache{"$number"};
	untie %cache;
	exit;
    }

    my $url = "https://api.opencnam.com/v1/phone/$number?format=text";
    my $res = $ua->get( $url );
    my $code = $res->code;

    if ($code eq '200') {
	my $content = $res->decoded_content;
	$cache{"$number"} = $content;
	print $content;
    } else {
	print "UNKNOWN";
    }
}

untie %cache;