cgi-bin/newshowstat.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 BEGIN
   6 {
   7     $ENV{BFConfDir} ||= $ENV{HOME};
   8     require "$ENV{BFConfDir}/BuildFarmWeb.conf";
   9 }
  10
  11 use lib $BuildFarmWeb::conf{libdir};
  12
  13 use BuildFarmWeb::Store qw(get_recent_status);
  14
  15 use CGI;
  16 use Template;
  17
  18 my $template = new Template($BuildFarmWeb::conf{template_options});
  19
  20 my $query = new CGI;
  21
  22 my @members = $query->param('member');
  23
  24 my $statrows = get_recent_status(@members);
  25
  26 my $template_vars = {statrows=>$statrows};
  27
  28 print "Content-Type: text/html\n\n";
  29 $template->process("dashboard.tt",$template_vars);
  30
  31
  32
  33