open (HTTPDFIG, ">> /path/to/httpd.fig");
open (COUNTHTTPD, "ps -C httpd h | wc -l |");
($sec,$min,$hour,$mday,$mon,$year,$wday,
$yday,$isdst)=localtime(time);
while (){
print HTTPDFIG " 2 1 0 5 1 7 50 -1 -1 0.000 0 0 -1 0 0 2\n";
print HTTPDFIG ($min+$hour*60)*45;
print HTTPDFIG " ";
print HTTPDFIG 22500-$_*450;
print HTTPDFIG " ";
print HTTPDFIG ($min+$hour*60)*45;
print HTTPDFIG " ";
print HTTPDFIG " 22500\n";
}
close COUNTHTTPD;
close HTTPDFIG;
system "/usr/bin/fig2dev -L png -m .2 /path/to/httpd.fig /path/to/httpd.png";
system "/usr/bin/fig2dev -L png -m .1 /path/to/httpd.fig /path/to/httpdsm.png";
|