#!/usr/local/bin/perl5 # $dbase = "/www/htdocs/nspixp/nspixp.db"; $lockfile = "/tmp/nspixp.lock"; print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "NSPIXP-2 Netmask Change\n"; print "\n"; print "\n"; use DB_File; use Fcntl ':flock'; open(LOCK, ">> $lockfile") || die "Can not open lockfile"; flock(LOCK, LOCK_EX); tie %db, 'DB_File', $dbase, O_RDONLY; $t = localtime; print "

Current Status of NSPIXP2 Netmask Change

\n"; print "

As of $t

\n"; print "\n"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "\n"; $notyet = 0; $notoperational = 0; $done = 0; $notyetack = 0; $disconnected = 0; $n = 0; for ($i = 1; $i < 128; $i++) { next unless (defined($db{$i})); print "\n"; @f = split(/\t/, $db{$i}); if ($n++ % 2 == 0) { print ""; print ""; print ""; } else { print ""; print ""; print ""; } if ($f[2] eq "N") { print ""; $notyet++; } elsif ($f[2] eq "Y") { print ""; $disconnected++; } elsif ($f[2] eq "X") { print ""; $notoperational++; } elsif ($f[2] eq "D") { print ""; $done++; } else { } if (defined($f[3])) { print ""; } else { $notyetack++; print ""; } if (defined($f[4])) { print ""; } else { print ""; } print "\n"; } print "
AddressAS NumberAS NameStatusOperatorTime of Last Change
202.249.2.$iAS$f[0]$f[1]202.249.2.$iAS$f[0]$f[1]Not YetAlready DisconnectedNot yet In Operationdone$f[3]unknown$f[4]unknown
\n"; untie %db; close(LOCK); flock(LOCK, LOCK_UN); unlink($lockfile); $notyet -= $notyetack; print "

Current Summary

\n"; print "\n"; print ""; print ""; print ""; print ""; print ""; print "
Not Yet (operator unregistered): $notyetackNot Yet (operator registered): $notyetNot Yet in Operational: $notoperationalAlready Disconnected: $disconnectedDone: $done
\n"; print "

Update Form

\n"; print "
\n"; print "\n"; print ""; print ""; print ""; print ""; print ""; print "\n"; print ""; print "\n"; print "\n"; print "\n"; print "\n"; print "
IP AddressAS NumberPasswordNew Status
202.249.2.AS

"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
Operator's Email Address

"; print "
"; print ""; print "
\n"; print "\n"; print "\n";