#!/usr/bin/perl ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time()); open(CAL,"/usr/bin/cal|"); $month=; print "Content-type: text/html\n\n"; print ''; print ''; print "

$month

\n"; print "
"; print "\n"; $row=1; while() { $col=1; print ""; @columns=&grab_columns($_); foreach $column (@columns) { $columntext=$column; if($column == $mday) { $columntext="$column"; } $tag='TD'; $attr=''; if($row==1) {$tag='TH'}; if($col==1 || $col==7) {$attr='BGCOLOR="#ffd0d0"'} print "<$tag $attr>",$columntext,""; $col++; } print "\n"; $row++; } print "
\n"; close(CAL); sub grab_columns { local($input)=@_; undef @col; for($i=0;$i<7;$i++) { $col[$i]=substr($input,$i*3,2); } @col; }