#!/usr/local/bin/perl
# run getstats to create reports for a single user

if ($#ARGV != 0) {
  print "usage: run-gs <date>\n";
  print "\n";
  print "for example: run-gs 950318\n";
  exit;
};

$date=$ARGV[0];
$prg='/k/cnet/httpd/reports';
$rpt='/k/cnet/httpd/reports/total';
$log='/k/cnet/httpd/log/total';
$getstats=$prg . "/getstats";

open (CMD, "|$getstats") || die "Can't open $getstats\n";
# how many levels to keep in memory
print CMD "set dtrlevels 4\n";
print CMD "set domlevels 3\n";
print CMD "set countbytes yes\n";
print CMD "set reqmask /~emj5/\n";
print CMD "read std $log/httpd.comb.$date\n";
# set output parameters
print CMD "set htmloutput yes\n";
# create dir tree reports
print CMD "set sortkey nbytes\n";
print CMD "write dirtree 3 $rpt/$date.dtrbyt3.emj5.html\n";
print CMD "write dirtree 2 $rpt/$date.dtrbyt2.emj5.html\n";
print CMD "write dirtree 1 $rpt/$date.dtrbyt1.emj5.html\n";
print CMD "set sortkey nreq\n";
print CMD "write dirtree 3 $rpt/$date.dtrreq3.emj5.html\n";
print CMD "write dirtree 2 $rpt/$date.dtrreq2.emj5.html\n";
print CMD "write dirtree 1 $rpt/$date.dtrreq1.emj5.html\n";
# create domain reports
print CMD "set sortkey nbytes\n";
print CMD "write domain 3 $rpt/$date.dombyt3.emj5.html\n";
print CMD "write domain 2 $rpt/$date.dombyt2.emj5.html\n";
print CMD "write domain 1 $rpt/$date.dombyt1.emj5.html\n";
print CMD "set sortkey nreq\n";
print CMD "write domain 3 $rpt/$date.domreq3.emj5.html\n";
print CMD "write domain 2 $rpt/$date.domreq2.emj5.html\n";
print CMD "write domain 1 $rpt/$date.domreq1.emj5.html\n";
close (CMD);
exit;
