#!/usr/bin/perl
#
# print last ip address (handy cgi script)
require '/var/ipcop/general-functions.pl';
require "${General::swroot}/header.pl";
&Header::showhttpheaders();
print "
Previous External IP";
# get previous ip from the record file..
if (open(FILE, "/var/ipcop/red/last-ipaddress")) {
my $lastip = join("", );
close FILE;
print "Previous IP:
\n";
print $lastip;
} else {
print "no previous ip address record exists
\n";
}
print "";