eleksir/myapi
1
Fork 0
Code Activity

Make api more rich

Browse Source 
* Implement help
* Add simple dns resolve commands
* Add punycode <-> unicode conversions
* Add time info
This commit is contained in:
eleksir
2019-09-01 10:33:10 +03:00
parent 3500798f77
commit 5b17cfaa74
2 changed files with 97 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
lib/utils.pm
View File

@@ -1,6 +1,8 @@
package utils;
use strict;
use Socket; # for name resolves
use Net::LibIDN ':all';
use vars qw/$VERSION/;
$VERSION = "1.0";
@@ -21,4 +23,59 @@ sub ip ($) {
return ('200', 'text/plain', $msg);
}
sub getaddrbyname ($) {
my $name = shift;
return ('400', 'text/plain', "Supply hostname\n") unless (defined($name));
my @addresses = gethostbyname($name);
if (@addresses > 0) {
@addresses = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
if (@addresses > 1) {
return ('200', 'text/plain', join("\n", @addresses) . "\n");
} else {
return ('200', 'text/plin', "$addresses[0]\n");
}
} else {
return ('404', 'text/plain', "Not found\n");
}
}
sub getnamebyaddr ($) {
my $addr = shift;
chomp($addr);
return ('400', 'text/plain', "Supply address\n") unless (defined($addr));
my $name = gethostbyaddr(inet_aton($addr), AF_INET);
if (defined($name)) {
return ('200', 'text/plain', "$name\n");
} else {
return ('404', 'text/plain', "Not found\n");
}
}
sub punycoder ($) {
my $str = shift;
$str = Net::LibIDN::idn_to_ascii($str, 'utf-8');
if (defined($str)) {
return ('200', 'text/plain', "$str\n");
} else {
return ('400', 'text/plain', "Bad string\n")
}
}
sub punydecoder ($) {
my $str = shift;
$str = Net::LibIDN::idn_to_unicode($str, 'utf-8');
if (defined($str)) {
return ('200', 'text/plain', "$str\n");
} else {
return ('400', 'text/plain', "Bad string\n")
}
}
sub mytime () {
return ('200', 'text/plain', time() . "\n");
}
1;

56
myapi.psgi
View File

@@ -21,7 +21,8 @@ my $main :shared = 0;
#unless ($main) { threads->create('mythread'); }
my $CONF = loadConf();
if ($CONF->{api}->{prefix} eq '/') { $CONF->{prefix} = ''; }
if ($CONF->{api}->{prefix} eq '/') { $CONF->{api}->{prefix} = ''; }
my $prefix = $CONF->{api}->{prefix};
my $app = sub {
my $env = shift;
@@ -30,27 +31,50 @@ my $app = sub {
my $status = '404';
my $content = 'text/plain';
if ($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/d") {
if ($env->{PATH_INFO} eq "$prefix/help") {
$status = '200';
$msg = << 'EOL';
/ping - pong
/ip - your ip
/getaddrbyname - header hostname must be set
/getnameaaddr - header adderess must be set
/punycoder - header hostname must be set
/punydecoder - header hostname must be set
/time - current time
/quote - famous or not famous quotes
/fortune - synonym for quote
EOL
} elsif ($env->{PATH_INFO} eq "$prefix/d") {
$status = '200';
$msg = Dumper($env);
} elsif ($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/ping") {
} elsif ($env->{PATH_INFO} eq "$prefix/ping") {
($status, $content, $msg) = ping::pong();
} elsif ($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/ip") {
} elsif ($env->{PATH_INFO} eq "$prefix/ip") {
($status, $content, $msg) = utils::ip($env);
} elsif (($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/fortune") or
($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/quote")) {
} elsif (($env->{PATH_INFO} eq "$prefix/getaddrbyname")) {
($status, $content, $msg) = utils::getaddrbyname($env->{HTTP_HOSTNAME});
} elsif (($env->{PATH_INFO} eq "$prefix/getnamebyaddr")) {
($status, $content, $msg) = utils::getnamebyaddr($env->{HTTP_ADDRESS});
} elsif (($env->{PATH_INFO} eq "$prefix/punycoder")) {
($status, $content, $msg) = utils::punycoder($env->{HTTP_HOSTNAME});
} elsif (($env->{PATH_INFO} eq "$prefix/punydecoder")) {
($status, $content, $msg) = utils::punydecoder($env->{HTTP_HOSTNAME});
} elsif (($env->{PATH_INFO} eq "$prefix/time")) {
($status, $content, $msg) = utils::mytime();
} elsif (($env->{PATH_INFO} eq "$prefix/fortune") or
($env->{PATH_INFO} eq "$prefix/quote")) {
($status, $content, $msg) = easter_egg::quote();
} elsif (($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/chanserv") or
($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/chanServ") or
($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/ChanServ") or
($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/CHANSERV")) {
} elsif (($env->{PATH_INFO} eq "$prefix/chanserv") or
($env->{PATH_INFO} eq "$prefix/chanServ") or
($env->{PATH_INFO} eq "$prefix/ChanServ") or
($env->{PATH_INFO} eq "$prefix/CHANSERV")) {
($status, $content, $msg) = easter_egg::chanserv();
} elsif (($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/nickserv") or
($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/nickServ") or
($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/NickServ") or
($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/NICKSERV")) {
} elsif (($env->{PATH_INFO} eq "$prefix/nickserv") or
($env->{PATH_INFO} eq "$prefix/nickServ") or
($env->{PATH_INFO} eq "$prefix/NickServ") or
($env->{PATH_INFO} eq "$prefix/NICKSERV")) {
($status, $content, $msg) = easter_egg::nickserv();
} elsif (($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/me")) {
} elsif ($env->{PATH_INFO} eq "$prefix/me") {
($status, $content, $msg) = easter_egg::me();
}
@@ -96,7 +120,7 @@ sub mythread () {
# vim: set ft=perl noet ai :
# vim: ft=perl noet ai ts=4 sw=4 sts=4:
__END__
https://toster.ru/q/75226