View ¡m../sdba/impages/BOTSTATS.first¡n
<% #HEAD: BotStats $NEXTPAGE = "BOTSTATS.first"; if ($INCOMINGMSG eq "X"||$INCOMINGMSG eq "x"){ $NEXTPAGE = "0"; imecho "Hit any key to continue."; }else{ $tims = 0; $sims = 0; $v = 0; $av = 0; $au = ""; $temptime = time(); while (($key, $value) = each %visitors){ $tims +=${$value}{totalims}; $sims +=${$value}{sessionims}; $v++; if ($temptime < ${$value}{sessionend}){ $av++; } $au .= $key."\n"; } imecho "\nBotStats:\n"; imecho "Total IMs: $tims\n"; imecho "Total IMs from active sessions: $sims\n"; imecho "Total visitors: $v\n"; imecho "Total visitors in-session: $av\n"; if ($INCOMINGMSG eq "S"||$INCOMINGMSG eq "s"){ imecho "\nActive users:\n$au"; } imecho "[R]efresh, [S]how current users, e[X]it\n"; } %>