conf/report_template


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ sprintf("%-19s", "Page $page of $total_pages"); } { 
 my $spacer = (40 - length($title) > 0) ? 40 - length($title) : 0;
 $spacer = int($spacer / 2);
 my $titlelen = 40 - $spacer;
 sprintf("%*s%-*s", $spacer, " ", $titlelen, $title);
 } { use Date::Format; time2str("%x %X", $date); } 


{
  join("\n", map { $_ } report_lines(57));
}