#!/usr/bin/perl
#########################
## getIP.pl - Save the IP address of the requester
#########################
use strict 'refs';
$remoteAddress = $ENV{REMOTE_ADDR};
#
# This saves a file on the server that contains just the IP address,
# just for shits and giggles.
#
open ( OUTFILE, ">homeIP.txt" );
print OUTFILE $remoteAddress;
close OUTFILE;
#
# This file contains an HTML anchor that points to the application
# on my home server.
#
open ( OUTFILE, ">appname.html" );
print OUTFILE "My Application";
close OUTFILE;
#
# This file has an HTML anchor that points to the same application
# on my home server. But this time over SSL (port 443)
#
open ( OUTFILE, ">secure_app.html" );
print OUTFILE "My App(secure)";
close OUTFILE;
#
# This file has an HTML anchor that points to a second application that I use.
#
open ( OUTFILE, ">secondApp.html" );
print OUTFILE "Second App";
close OUTFILE;
#
# A static web page on the home server
#
open ( OUTFILE, ">page.html" );
print OUTFILE "Static Page";
close OUTFILE;