subroutine w3Concurrent.html
*************************************************************************
* w3Concurrent.html: Report the number of concurrent FlashCONNECT users in
* a given time period. All connections during that time
* period are assumed to be concurrent. Each port is only
* counted once during the time period. Minimum time period
* is 5 minutes. Display is formatted as a HTML table
*************************************************************************
* [01] 29Sep97 jr Remove w3HtmlComplete
Include wbp w3Include
EQU START to '<TR><TD VALIGN="BOTTOM"><DIV ALIGN="CENTER"><FONT FACE="Arial, Helvetica, sans-serif" size="2">'
EQU MIDDLE to '</FONT></div></TD><TD><DIV ALIGN="CENTER"><FONT FACE="Arial, Helvetica, sans-serif" size="2">'
EQU LAST to "</FONT></DIV></TD></TR>"
EQU NL to char(10)
increment = 0
date = ""
time = ""
count = ""
call w3Concurrent.calc(increment, date, time, count)
text = START:"Date":MIDDLE:"Time":MIDDLE:"# Users":LAST:NL
subs1 = "##TITLE##":@vm:"FlashCONNECT Concurrent Use Report"
subs1<-1> = "#HEADLINE#":@VM:"Concurrent FlashCONNECT Use"
lines = dcount(date, @AM)
for i = 1 to lines
datex = oconv(date<i>, "d2/")
timex = oconv(time<i>, "mts")
text := START:datex:MIDDLE:timex:MIDDLE:count<i>:LAST:NL
next i
subs2 = "##PERIOD##":@VM:"Reporting period ":increment:" seconds"
subs2<-1> = "##DATA##":@vm:text
Call w3HtmlInit("w3Admin","")
Call w3HtmlHeader("",subs1)
call w3HtmlInsert("w3Reports.body", subs2)
* Get the path which got us here so we can set it in the template
Action = ""
call w3Action(Action, "")
subs = "#ACTION#":@vm:Action
call w3HtmlFooter("",subs)
return