From 2342da6641128448ea3d79b3da589bde9327ade1 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 8 Jul 2017 01:38:50 +0100
Subject: [PATCH] cgi/ip: Be a FastCGI program.

Use Ian Jackson's `cgi-fcgi-interp' wrapper to make it happen.
---
 cgi/ip | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/cgi/ip b/cgi/ip
index 997bcbc..c2c8cc0 100755
--- a/cgi/ip
+++ b/cgi/ip
@@ -1,4 +1,5 @@
-#! /usr/bin/perl
+#! /usr/bin/cgi-fcgi-interp /usr/bin/perl
+### -*-perl-*-
 ###
 ### IP-address reporting webservice for Odin
 ###
@@ -25,11 +26,14 @@
 
 use lib 'lib';
 use Odin;
+use CGI::Fast;
 
-print <<EOF;
+while (my $cgi = CGI::Fast->new) {
+  my $addr = $cgi->remote_addr;
+  print <<EOF;
 Content-type: text/plain; charset=us-ascii
 X-AGPL-Source: $Odin::SRCURL
 
-$ENV{REMOTE_ADDR}
+$addr
 EOF
-exit 0;
+}
-- 
2.11.0