eleksir/myapi
1
Fork 0
Code Activity

Introduce config support, rename fortune.pm to easter_egg.pm

Browse Source
This commit is contained in:
eleksir
2019-08-30 16:34:38 +03:00
parent 5b66e09ed8
commit 3500798f77
5 changed files with 101 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
myapi.psgi
View File

@@ -6,10 +6,13 @@ use threads;
use threads::shared;
# my plugins
use lib "$ENV{'HOME'}/.local/var/www/psgi/lib";
use lib "./lib";
use ping;
use utils;
use fortune;
use easter_egg;
sub loadConf();
sub saveConf($);
sub mythread();
@@ -17,6 +20,8 @@ my $main :shared = 0;
#unless ($main) { threads->create('mythread'); }
my $CONF = loadConf();
if ($CONF->{api}->{prefix} eq '/') { $CONF->{prefix} = ''; }
my $app = sub {
my $env = shift;
@@ -25,15 +30,28 @@ my $app = sub {
my $status = '404';
my $content = 'text/plain';
if ($env->{PATH_INFO} eq '/d') {
if ($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/d") {
$status = '200';
$msg = Dumper($env);
} elsif ($env->{PATH_INFO} eq '/ping') {
} elsif ($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/ping") {
($status, $content, $msg) = ping::pong();
} elsif ($env->{PATH_INFO} eq '/ip') {
} elsif ($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/ip") {
($status, $content, $msg) = utils::ip($env);
} elsif (($env->{PATH_INFO} eq '/fortune') or ($env->{PATH_INFO} eq '/quote')) {
($status, $content, $msg) = fortune::quote();
} elsif (($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/fortune") or
($env->{PATH_INFO} eq "$CONF->{api}->{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")) {
($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")) {
($status, $content, $msg) = easter_egg::nickserv();
} elsif (($env->{PATH_INFO} eq "$CONF->{api}->{prefix}/me")) {
($status, $content, $msg) = easter_egg::me();
}
return [
@@ -43,6 +61,27 @@ my $app = sub {
];
};
sub loadConf() {
my $c = "data/myapi.json";
my $sep = $/;
$/ = '';
open (C, $c) or die "No conf at $c\n";
my $json = <C>;
close C;
return decode_json($json);
}
sub saveConf($) {
my $c = shift;
my $file = "data/myapi.json";
my $j = JSON::PP->new->pretty->canonical->indent_length(4);
my $json = $j->encode($c);
# TODO: make it transactional
open (C, ">", $file) or die "Unable to open $file\n";
print C $json;
close C;
}
sub mythread () {
$main = 1;
threads->detach();
@@ -55,6 +94,8 @@ sub mythread () {
}
}
# vim: set ft=perl noet ai :
__END__