commit f3bff6e7ecc65d41041a1cc1c7907e351b943523
Author: Aki Kareha <aki@kareha.org>
Date:   Tue Feb 25 03:07:59 2025 +0900

    initial commit

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..24697cf
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,2 @@
+*.swp
+*.bak
diff --git a/format.sh b/format.sh
new file mode 100755
index 0000000..8ec9ada
--- /dev/null
+++ b/format.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+perltidy -b script.pl
+rm *.bak
diff --git a/script.pl b/script.pl
new file mode 100755
index 0000000..f347406
--- /dev/null
+++ b/script.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use CGI::Fast;
+
+while ( my $q = CGI::Fast->new ) {
+    my $client_ip = $q->http('X-Forwarded-For') || $q->remote_addr || 'unknown';
+
+    print $q->header("text/plain; charset=utf-8");
+    print "$client_ip\n";
+}
diff --git a/start.sh b/start.sh
new file mode 100755
index 0000000..5184694
--- /dev/null
+++ b/start.sh
@@ -0,0 +1,2 @@
+#!/bin/sh
+spawn-fcgi -s /var/run/app-ip.sock -P /var/run/app-ip.pid -U www-data -G www-data ./script.pl
diff --git a/stop.sh b/stop.sh
new file mode 100755
index 0000000..bd665fc
--- /dev/null
+++ b/stop.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+kill "$(cat /var/run/app-ip.pid)"
+rm /var/run/app-ip.pid