cgi/ip: New simple service to print client's IP address.

[odin-cgi] / cgi / ip

diff --git a/cgi/ip b/cgi/ip
new file mode 100755 (executable)
index 0000000..026617b
--- /dev/null
+++ b/cgi/ip
@@ -0,0 +1,7 @@
+#! /usr/bin/perl
+print <<EOF;
+Content-type: text/plain; charset=us-ascii
+
+$ENV{REMOTE_ADDR}
+EOF
+exit 0;