Althttpd

      <tr><td colspan=4><i>None</i>
    }
  }
  wapp-trim {
    </table>
  }
}

proc robot-analysis {} {
  set ctotal 0
  set cbot 0
  db eval {SELECT count(*) AS ctotal, sum(lineno=2) AS cbot FROM log} break
  if {$cbot<0.01*$ctotal} return
  set cpct [format %.1f%% [expr {$cbot*100.0/$ctotal}]]
  wapp-trim {
    <h2>Robot Stats</h2>
    <p>
    <ul>
    <li> %html($cbot) out of %html($ctotal) requests (%html($cpct))
         returned a captcha
  }
  db eval {SELECT sum(robot is true) as nbot FROM log} break
  set npct [format %.1f%% [expr {$nbot*100.0/$ctotal}]]
  wapp-trim {
    <li> %html($nbot) out of %html($ctotal) requests (%html($npct))
         where from robots.
  }
  set nip [db one {SELECT count(DISTINCT ip) FROM log}]
  set nrobotip [db one {SELECT count(DISTINCT ip) FROM log WHERE robot}]
  wapp-trim {
    <li> %html($nrobotip) out of %html($nip) distinct IP addresses are robots.
  }
  db eval {SELECT round(sum(nIn+nOut)/1000000.0,1) AS ios,
                  round(sum(t1+t2+t3+t4)/1000000.0,1) AS tm FROM log} break
  db eval {SELECT round(sum(nIn+nOut)/1000000.0,1) AS rios,
                  round(sum(t1+t2+t3+t4)/1000000.0,1) AS rtm FROM log
            WHERE robot} break
  set iospct [format %.1f%% [expr {$rios*100.0/$ios}]]
  set tmpct [format %.1f%% [expr {$rtm*100.0/$tm}]]
  wapp-trim {
    <li> %html($rios)MB out of %html($ios)MB bandwidth (%html($iospct))
         is due to robots
    <li> %html($rtm) out of %html($tm) seconds of CPU (%html($tmpct))
         is deal with robots
  }

  wapp-trim {</ul>}
}

proc wapp-default {} {
  check-perms
  open-database
  wapp-trim {
    <div class='fossil-doc' data-title='Recent Server Activity'>
  }

    <ul>
    <li> Start time: %html%($first)%
    <li> End time: %html%($last)%
    <li> Duration: %html%([format %.1f [expr {$seconds/60.0}]])% minutes
    </ul>
  }
  traffic-by-domain
  robot-analysis
  human-traffic-by-domain
  cpu-users
  high-bandwidth
  most-hits
  db close
}