Initial commit

2019-08-28 23:27:17 +03:00
commit 5b66e09ed8
4 changed files with 111 additions and 0 deletions
--- a/lib/utils.pm
+++ b/lib/utils.pm
@@ -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;