#!/usr/bin/perl ################################### # -=Portmaster Table Mania=- # # Created 5/14/96 # # Chris Johnson # # chris@wingnut.com # ###########KoX####BOFH############# sub build_array { open(PMWHO, "/usr/local/bin/pmwho -a|"); $line = 0; while () { chop; @D = split; if ($line > 1){ push (@E,@D);} $line ++;} } sub print_header { print 'Content-type: text/html Portmaster Table Mania Back to the Admin Page

' } sub print_table { print " "; } sub print_footer { print '
Portmaster AICPM1
Ports 0-9 Ports 10-19 Ports 20-29
Port # Username Time Idle Port # Username Time Idle Port # Username Time Idle
$E[0] $E[1]$E[6] $E[7] $E[80] $E[81]$E[86] $E[87] $E[160] $E[161]$E[166] $E[167]
$E[8] $E[9]$E[14] $E[15] $E[88] $E[89]$E[94] $E[95] $E[168] $E[169]$E[174] $E[175]
$E[16] $E[17]$E[22] $E[23] $E[96] $E[97]$E[102] $E[103] $E[176] $E[177]$E[182] $E[183]
$E[24] $E[25]$E[30] $E[31] $E[104] $E[105]$E[110] $E[111] $E[184] $E[185]$E[190] $E[191]
$E[32] $E[33]$E[38] $E[39] $E[112] $E[113]$E[118] $E[119] $E[192] $E[193]$E[198] $E[199]
$E[40] $E[41]$E[46] $E[47] $E[120] $E[121]$E[126] $E[127] $E[200] $E[201]$E[206] $E[207]
$E[48] $E[49]$E[54] $E[55] $E[128] $E[129]$E[134] $E[135] $E[208] $E[209]$E[214] $E[215]
$E[56] $E[57]$E[62] $E[63] $E[136] $E[137]$E[142] $E[143] $E[216] $E[217]$E[222] $E[223]
$E[64] $E[65]$E[70] $E[71] $E[144] $E[145]$E[150] $E[151] $E[224] $E[225]$E[230] $E[231]
$E[72] $E[73]$E[78] $E[79] $E[152] $E[153]$E[158] $E[159] $E[232] $E[233]$E[238] $E[239]


' } &build_array(); &print_header(); &print_table(); &print_footer();