initial commit

.gitignore

@@ -0,0 +1,2 @@
+*.swp
+*.bak

format.sh

@@ -0,0 +1,3 @@
+#!/bin/sh
+perltidy -b script.pl
+rm *.bak

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";
+}

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

stop.sh

@@ -0,0 +1,3 @@
+#!/bin/sh
+kill "$(cat /var/run/app-ip.pid)"
+rm /var/run/app-ip.pid