eleksir/myapi
1
Fork 0
Code Activity

Initial commit

Browse Source
This commit is contained in:
eleksir
2019-08-28 23:27:17 +03:00
commit 5b66e09ed8
4 changed files with 111 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/fortune.pm Normal file
View File

@@ -0,0 +1,12 @@
package fortune;
use strict;
use vars qw/$VERSION/;
$VERSION = "1.0";
sub quote {
return ('200', 'text/plain', `fortune`);
}
1;

12
lib/ping.pm Normal file
View File

@@ -0,0 +1,12 @@
package ping;
use strict;
use vars qw/$VERSION/;
$VERSION = "1.0";
sub pong {
return ('200', 'text/plain', "pong\n");
}
1;

24
lib/utils.pm Normal file
View File

@@ -0,0 +1,24 @@
package utils;
use strict;
use vars qw/$VERSION/;
$VERSION = "1.0";
sub ip ($) {
my $env = shift;
my $msg = '';
if (defined($env->{X_REAL_IP})) {
$msg = $env->{X_REAL_IP};
} elsif (defined($env->{X_FORWARDED_FOR})) {
$msg = (split(/\,/, $env->{X_FORWARDED_FOR}, 2))[0];
} else {
$msg = $env->{REMOTE_ADDR};
}
$msg .= "\n";
return ('200', 'text/plain', $msg);
}
1;