#!/usr/local/bin/perl

$tex = "$ARGV[0].tex";
$log = "$ARGV[0].log";

chop($wc = `TEXINPUTS=. ; detex $tex | wc`);

if (!open(LOG, $log)) {
    $pages = -1;
}
else {
    # read pagecounts from log file.
    $/ = "setting this thuswise means we'll slurp whole file into one line";
    while(<LOG>) {
	while (/\[\s*(\d+)\s*\]/g) {
	    $pages = $1;
	}
    }
}

print time, " $wc  $pages\n";




###	echo `perl -e 'print time'` `TEXINPUTS=. ; detex ${MAINFILE} | wc` >> ${WCLOGFILE}