;
close (VU);
($curin,$curout) = split(':',$vu);
## print "$curin $curout
";
print "$VU2_TAG ";
$t=$curin;
&dgif;
print "Inbound 
";
$t = $curout;
&dgif;
print "Outbound ";
print "
\n";
}
####### Now login and get the data from the Portmasters
$pms = @PORTMASTERS;
FPM: for ($i=0;$i<$pms;$i++) {
@list=`$PMWHO $PORTMASTERS[$i]`;
foreach (@list) {
&o1;
$port =~ s/S/$PORTT[$i]/;
$port =~ s/C/$PORTT[$i]C/;
&o2;
}
next FPM;
}
####### Now display the data
print "";
if ($TITLE == 1){
print "";
&headof;
if ($WIDTH == 3){ &headof;}
if ($WIDTH == 4){
&headof;
&headof;
}
if ($WIDTH == 5){
&headof;
&headof;
&headof;
}
if ($WIDTH == 6){
&headof;
&headof;
&headof;
&headof;
}
&headof;
print "
";
}
foreach (@PORTS){
if ($WIDTH == 2){
($L1,$L2) = split(/,/,$_);
█
}
if ($WIDTH == 3){
($L1,$L2,$L3) = split(/,/,$_);
█
}
if ($WIDTH == 4){
($L1,$L2,$L3,$L4) = split(/,/,$_);
█
}
if ($WIDTH == 5){
($L1,$L2,$L3,$L4,$L5) = split(/,/,$_);
█
}
if ($WIDTH == 6){
($L1,$L2,$L3,$L4,$L5,$L6) = split(/,/,$_);
█
}
}
print "
";
print "| ";
$T = int(($use*100)/$NUMPORTS);
print "Use $T % | ";
print " |
";
####### Finish the HTML page
print "";
exit;
###############################
# Print one line of the table
sub block {
print "";
$TL1 = $L1;
&plint;
$TL1 = $L2;
&plint;
if ($WIDTH==3){
$TL1 = $L3;
&plint;
}
if ($WIDTH==4){
$TL1 = $L3;
&plint;
$TL1 = $L4;
&plint;
}
if ($WIDTH==5){
$TL1 = $L3;
&plint;
$TL1 = $L4;
&plint;
$TL1 = $L5;
&plint;
}
if ($WIDTH==6){
$TL1 = $L3;
&plint;
$TL1 = $L4;
&plint;
$TL1 = $L5;
&plint;
$TL1 = $L6;
&plint;
}
print "
\n";
}
#######################################
### Extract portmaster data
### There is probably a better way to do this :)
sub o1 {
$t = "$_";
$t =~ s/\s//;
$t =~ s/\n//;
$t =~ s/\r//;
$t =~ s/^(.)(.*)/$1/;
next if ($t eq "-" );
next if ($t eq "P" );
$_ =~ s/\s\s\s\s/\040/g;
$_ =~ s/\s\s\s/\040/g;
$_ =~ s/\s\s/\040/g;
$_ =~ s/\s\s/\040/g;
($port, $user, $host, $x, $x1 ,$x2, $start ,$on) = split(/ /, $_);
if ($X{$user}) {
# Chezzy patch to show mulilink users
if ($Y{$user} eq $host){
print "Multilink User : $user\n"
}
else {
print "Dup User : $user \n"
}
}
}
sub o2 {
$t = "$user";
$t =~ s/\s//;
$t =~ s/\n//;
$t =~ s/\r//;
$t =~ s/^(.)(.*)/$1/;
next if ($t eq "-" );
$PUSER{$port} = $user;
$PHOST{$port} = $host;
$PSTART{$port} = $start;
$PON{$port} = $on;
$X{$user}=1;
$Y{$user}=$host;
}
##########
# Print one segment of the title row
sub headof {
print "Sx | User | ";
if ($SHIP == 1) { print "Host | ";}
print "On | I | | ";
}
###########
# Print one port
sub plint {
### Print Port ###############
print "";
if ($PUSER{$TL1} eq "") {
print "";
}
else {
print "";
$use=$use+1;
}
### Print Username ############
print "$TL1 | $PUSER{$TL1} | ";
if ($SHIP == 1) {
print "$PHOST{$TL1} | ";
}
### Print online Time
$FT="";
$FF="";
$PT=$PSTART{$TL1};
if ($PT =~ ":"){
$PT =~ y/:/\./;
if ($PT >= $OYELLOW){
$FT="";
$FF="";
}
if ($PT >= $OORANGE){
$FT="";
$FF="";
}
if ($PT >= $OPINK){
$FT="";
$FF="";
}
if ($PT >= $ORED){
$FT="";
$FF="";
}
}
if ($PT =~ "days"){
if ($BLINKONDAY ==1){
$FT="";
}
else{
$FT="";
$FF="";
}
}
print "$FT$PSTART{$TL1}$FF | ";
### Print Idle Time
if ($PON{$TL1} <= ($WYELLOW-1)) {
print "";
}
if ($PON{$TL1} >= $WYELLOW) {
if ($PON{$TL1} >= $WRED) {
print "";
}
else {
print "";
}
}
print "$PON{$TL1} | | \n";
}
#############################
#
sub dgif {
if ($t >= ($SCALE*22)) {$gif="22m.gif";}
elsif ($t >= ($SCALE*21)) {$gif="21m.gif";}
elsif ($t >= ($SCALE*20)) {$gif="20m.gif";}
elsif ($t >= ($SCALE*19)) {$gif="19m.gif";}
elsif ($t >= ($SCALE*18)) {$gif="18m.gif";}
elsif ($t >= ($SCALE*17)) {$gif="17m.gif";}
elsif ($t >= ($SCALE*16)) {$gif="16m.gif";}
elsif ($t >= ($SCALE*15)) {$gif="15m.gif";}
elsif ($t >= ($SCALE*14)) {$gif="14m.gif";}
elsif ($t >= ($SCALE*13)) {$gif="13m.gif";}
elsif ($t >= ($SCALE*12)) {$gif="12m.gif";}
elsif ($t >= ($SCALE*11)) {$gif="11m.gif";}
elsif ($t >= ($SCALE*10)) {$gif="10m.gif";}
elsif ($t >= ($SCALE*9)) {$gif="9m.gif";}
elsif ($t >= ($SCALE*8)) {$gif="8m.gif";}
elsif ($t >= ($SCALE*7)) {$gif="7m.gif";}
elsif ($t >= ($SCALE*6)) {$gif="6m.gif";}
elsif ($t >= ($SCALE*5)) {$gif="5m.gif";}
elsif ($t >= ($SCALE*4)) {$gif="4m.gif";}
elsif ($t >= ($SCALE*3)) {$gif="3m.gif";}
elsif ($t >= ($SCALE*2)) {$gif="2m.gif";}
elsif ($t >= $SCALE) {$gif="1m.gif";}
else {$gif="0m.gif";}
}
#####################################################################
## receive & Decode the html data
sub cgi_receive {
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $incoming, $ENV{'CONTENT_LENGTH'});
}
else {
$incoming = $ENV{'QUERY_STRING'}; # this should never happen
}
@pairs = split(/&/, $incoming);
foreach (@pairs) {
($name, $value) = split(/=/, $_);
$name =~ tr/+/ /;
$value =~ tr/+/ /;
$name =~ s/%([A-F0-9][A-F0-9])/pack("C", hex($1))/gie;
$value =~ s/%([A-F0-9][A-F0-9])/pack("C", hex($1))/gie;
$value =~ s/;/$$/g; # Strip out semicolons
$value =~ s/&(\S{1,6})$$/&\1;/g;
$value =~ s/$$/ /g;
$value =~ s/\|/ /g;
$value =~ s/^!/ /g;
#$value =~ s/[\/ ;\[\]<\>&\t]/_/g; #Sanitize!
next if ($value eq "");
if ($name =~ /^assign-dynamic/) {
$name = $value;
$value = "on";
}
$FINPUT{$name} .= ", " if ($FINPUT{$name});
$FINPUT{$name} .= $value;
}
}