57 lines
1.1 KiB
Perl
Executable File
57 lines
1.1 KiB
Perl
Executable File
#!/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;
|