gather_events();
+printf("<html><head><title>Flights - %s</title></head><body>\n",
+ $c{DnsDomain} // '?');
printf("<p>Report at ".fmttime(time)." based on plan at ".fmttime($plan->{Start})."</p>\n");
printf("<p><h1>Overview</h1></p>\n");
#print DEBUG "==============================\n",
# Dumper(\@rows, \@newoutcols);
+ printf "<html><head><title>Resource %s - %s</title></head><body>\n",
+ $walker, ($c{DnsDomain} // '?');
+
printf "<table rules=all><tr><td>plan age %s</td><td>report at %s</td>\n",
show_rel_time($now);
foreach my $ch (@colheads) {
printf "</ul>\n";
printf "<p>\n";
}
- printf "Report generated %s.\n",
+ printf "Report generated %s.\n</body></html>",
strftime("%Y-%b-%d %a %H:%M:%S", localtime $now);
die $! if STDOUT->error;
die $! unless STDOUT->flush;