chiark - git - mdw - odin-cgi/blob - cgi/ip

   1 #! /usr/bin/perl
   2 ###
   3 ### IP-address reporting webservice for Odin
   4 ###
   5 ### (c) 2017 Mark Wooding
   6 ###
   7
   8 ###----- Licensing notice ---------------------------------------------------
   9 ###
  10 ### This file is part of the `odin.gg' service, `odin-cgi'.
  11 ###
  12 ### `odin-cgi' is free software; you can redistribute it and/or modify
  13 ### it under the terms of the GNU Affero General Public License as
  14 ### published by the Free Software Foundation; either version 3 of the
  15 ### License, or (at your option) any later version.
  16 ###
  17 ### `odin-cgi' is distributed in the hope that it will be useful,
  18 ### but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ### GNU Affero General Public License for more details.
  21 ###
  22 ### You should have received a copy of the GNU Affero General Public
  23 ### License along with `odin-cgi'; if not, see
  24 ### <http://www.gnu.org/licenses/>.
  25
  26 use lib 'lib';
  27 use Odin;
  28
  29 print <<EOF;
  30 Content-type: text/plain; charset=us-ascii
  31 X-AGPL-Source: $Odin::SRCURL
  32
  33 $ENV{REMOTE_ADDR}
  34 EOF
  35 exit 0;