#!/usr/local/bin/perl
# run getstats to create reports from httpd log files
#  dirtree reports but no extracts and no home page totals

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

$date=$ARGV[0];
$rpt='/www/data/httpd/reports';
$sta='/www/data/httpd/staff';
$log='/www/data/httpd/log';
$getstats='/usr/local/etc/getstats';

open (CMD, "|$getstats") || die "Can't open $getstats\n";

#print CMD "set xtroot $log/xt\n";
print CMD "set date $date\n";

# how many levels to keep in memory
print CMD "set dtrlevels 5\n";
print CMD "set domlevels 2\n";
print CMD "set countbytes yes\n";
print CMD "read std $log/fu/jonapot/httpd.access.$date.gz\n";
print CMD "read std $log/fu/kwaziwai/httpd.access.$date.gz\n";

# set output parameters, and create dir tree reports
print CMD "set htmloutput yes\n";
print CMD "set sortkey nreq\n";
print CMD "set ignorepublic yes\n";
print CMD "write dirtree 5 $rpt/$date.dtrreq5.html\n";
print CMD "write dirtree 4 $rpt/$date.dtrreq4.html\n";
print CMD "write dirtree 3 $rpt/$date.dtrreq3.html\n";
print CMD "write dirtree 2 $rpt/$date.dtrreq2.html\n";
print CMD "write dirtree 1 $rpt/$date.dtrreq1.html\n";
print CMD "write domain  2 $rpt/$date.domreq2.html\n";
print CMD "write domain  1 $rpt/$date.domreq1.html\n";
print CMD "set ignorepublic no\n";
print CMD "write dirtree 3 $sta/$date.dtrreq3.html\n";
print CMD "write dirtree 2 $sta/$date.dtrreq2.html\n";
print CMD "write dirtree 1 $sta/$date.dtrreq1.html\n";
close (CMD);

system("chgrp www $rpt/$date*");
system("chmod a+r $rpt/$date*");

exit;
