cgi/ip: Be a FastCGI program.

[odin-cgi] / cgi / ip

#! /usr/bin/cgi-fcgi-interp /usr/bin/perl
### -*-perl-*-
###
### IP-address reporting webservice for Odin
###
### (c) 2017 Mark Wooding
###

###----- Licensing notice ---------------------------------------------------
###
### This file is part of the `odin.gg' service, `odin-cgi'.
###
### `odin-cgi' is free software; you can redistribute it and/or modify
### it under the terms of the GNU Affero General Public License as
### published by the Free Software Foundation; either version 3 of the
### License, or (at your option) any later version.
###
### `odin-cgi' is distributed in the hope that it will be useful,
### but WITHOUT ANY WARRANTY; without even the implied warranty of
### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
### GNU Affero General Public License for more details.
###
### You should have received a copy of the GNU Affero General Public
### License along with `odin-cgi'; if not, see
### <http://www.gnu.org/licenses/>.

use lib 'lib';
use Odin;
use CGI::Fast;

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

$addr
EOF
}