From f3bff6e7ecc65d41041a1cc1c7907e351b943523 Mon Sep 17 00:00:00 2001
From: Aki Kareha <aki@kareha.org>
Date: Tue, 25 Feb 2025 03:07:59 +0900
Subject: [PATCH] initial commit

---
 .gitignore |  2 ++
 format.sh  |  3 +++
 script.pl  | 12 ++++++++++++
 start.sh   |  2 ++
 stop.sh    |  3 +++
 5 files changed, 22 insertions(+)
 create mode 100644 .gitignore
 create mode 100755 format.sh
 create mode 100755 script.pl
 create mode 100755 start.sh
 create mode 100755 stop.sh

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