tools/runreport.pl

   1 #!/usr/bin/perl
   2
   3 # fix this line
   4 use C4::Reports;
   5
   6 use Mail::Sendmail;
   7
   8
   9 my ($report,$format,$email) = @ARGV;
  10
  11 my ($sql,$type) = get_saved_report($report);
  12 my $results = execute_query($sql,$type,$format,$report);
  13 my $message;
  14 if ($format eq 'text'){
  15         $message="<table>$results</table>";
  16 }
  17 if ($format eq 'url'){
  18         $message="$results";
  19 }
  20
  21 if ($email){
  22         my $to      = $email;
  23         # should be koha admin email
  24     my $from    = 'crc@liblime.com';
  25     my $subject = 'Automated job run';
  26     my %mail    = (
  27                         To      => $to,
  28                         From    => $from,
  29                         Subject => $subject,
  30                         Message => $message
  31                     );
  32
  33
  34        if (not(sendmail %mail)) {
  35                    warn "mail not sent";
  36                    }
  37         }