conf/report_template

   1 { sprintf("%-19s", "Page $page of $total_pages"); } {
   2  my $spacer = (40 - length($title) > 0) ? 40 - length($title) : 0;
   3  $spacer = int($spacer / 2);
   4  my $titlelen = 40 - $spacer;
   5  sprintf("%*s%-*s", $spacer, " ", $titlelen, $title);
   6  } { use Date::Format; time2str("%x %X", $date); }
   7
   8
   9 {
  10   join("\n", map { $_ } report_lines(57));
  11 }
  12
  13
  14