#!/usr/local/bin/perl $thesisometer_url = "http://lava.sp.cs.cmu.edu/prog/thesisometer.pl"; $thesiswc = "/afs/cs/user/jab/p/thesis/thesis.wc"; $TZ = -5; # time zone relative to London $totwords = 40000; # estimate of how many words in the completed thesis!! $barcolor = '9999FF'; $hours = 168.0; # default time interval on plot &gethours; # or override default from cgi environment $| = 1; # make output piping hot &set_html_wrapper; $donetime = 894560000; # the time when I finished! set this to 0 if you're not done yet. &getdata; &buildpage; exit(0); sub set_html_wrapper { $num_experiments = `cat /afs/cs/project/learn/group/boss/scratch/ID`; $html_top = "
Working Title: | Learning Evaluation Functions for Global Optimization |
---|---|
Date of proposal: | June 17, 1996 (online proposal) |
Date of defense: | May 13, 1998 |
# experiments run: | $num_experiments |
Date | Pages | Word count "; # always start at 11:59:59pm on day before first date entry $row = int($dates[0]/(24*3600)) * (24*3600) -1 - $TZ*3600; $show_predict=1; for ($i=-1; $i < $#dates || $show_predict; $row += $interval) { if ($i < $#dates) { # find most recent wordcount at time = $row $advanced=0; while (($i < 0) || ($i < $#dates && $dates[$i+1] <= $row)) { $i++; $advanced=1; } # now: $dates[$i] <= $row; $dates[$i+1] > $row. $date = $advanced ? $dates[$i] : $row; $words = $words{$dates[$i]}; $pages = $pages{$dates[$i]}; $message = ' '; } elsif ($donetime && time > $donetime) { $date = $donetime; $words = $totwords; $pages = $pages{$dates[$#dates]}; $advanced = 1; $show_predict = 0; $troptions = 'bgcolor=99FF99'; $message = " Rough draft completed!"; } else { # show predicted finishing date bar $date = $tdone; $words = $totwords; $pages = int($tpages); $advanced=1; $show_predict = 0; $troptions = 'bgcolor=FFFF00'; $message = " Predicted rough draft completion"; } ($sec,$min,$hour,$mday,$mon,$year) = localtime($date); $mon++; $am = ($hour >= 12) ? "pm" : "am"; $hr = ($hour == 0) ? 12 : ($hour > 12) ? $hour-12 : $hour; print " | |||
---|---|---|---|---|---|
$mon/%02d, ", $mday); print " | "; printf("$hr:%02d$am:\n", $min) if $advanced; print " | $pages\n"; print " | $words\n"; print " | ";
$pctg = 100 * $words / $totwords;
print "
|