sarg/generate.pl

   1 #!/usr/local/bin/perl
   2 # Generate the report from a cron job
   3
   4 $no_acl_check++;
   5 require './sarg-lib.pl';
   6
   7 $temp = &tempname();
   8 ($from, $to) = split(/\s+/, $config{'range'});
   9 open(TEMP, ">$temp");
  10 $rv = &generate_report(TEMP, 0, $config{'clear'}, $from, $to);
  11 close(TEMP);
  12 $out = `cat $temp`;
  13 unlink($temp);
  14
  15 if (!$rv) {
  16         print STDERR "Failed to generate Sarg report:\n";
  17         print STDERR $out;
  18         exit(1);
  19         }
  20 else {
  21         exit(0);
  22         }
  23