sarg/generate.cgi

   1 #!/usr/local/bin/perl
   2 # Immediately generate the report
   3
   4 require './sarg-lib.pl';
   5 &ReadParse();
   6 &error_setup($text{'gen_err'});
   7 if (!$in{'range_def'}) {
   8         $in{'rfrom'} =~ /^\d+$/ || &error($text{'gen_efrom'});
   9         $in{'rto'} =~ /^\d+$/ || &error($text{'gen_eto'});
  10         }
  11
  12 $theme_no_table++;
  13 $| = 1;
  14 &ui_print_header(undef, $text{'gen_title'}, "");
  15
  16 $conf = &get_config();
  17 $sfile = &find_value("access_log", $conf);
  18 print "<b>",&text('gen_header', "<tt>$sfile</tt>"),"</b><br>\n";
  19 print "<pre>";
  20 $rv = &generate_report(STDOUT, 1, $in{'clear'},
  21                        $in{'range_def'} ? ( ) : ( $in{'rfrom'}, $in{'rto'} ) );
  22 print "</pre>\n";
  23
  24 $odir = &find_value("output_dir", $conf);
  25 $odir ||= &find_value("output_dir", $conf, 1);
  26 if ($rv && -r "$odir/index.html") {
  27         print "<b>$text{'gen_done'}</b><p>\n";
  28         print "<a href='view.cgi/index.html'>$text{'gen_view'}</a><p>\n";
  29         }
  30 elsif ($rv) {
  31         print "<b>$text{'gen_nothing'}</b><p>\n";
  32         }
  33 else {
  34         print "<b>$text{'gen_failed'}</b><p>\n";
  35         }
  36
  37 &webmin_log("generate");
  38 &ui_print_footer("", $text{'index_return'});
  39