-#!/usr/bin/perl -Tw
+#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
};
my $ua = new LWP::UserAgent;
+ $ua->timeout(1800); #30m, some reports can take a while
$ua->agent("FreesideFetcher/0.1 " . $ua->agent);
my $req = new HTTP::Request GET => $url;
my $res = $ua->request($req);
+ my $conf = new FS::Conf;
+ my $subject = $conf->config('email_report-subject') || 'Freeside report';
+
my %options = ( 'from' => $email_address,
'to' => $email_address,
- 'subject' => 'subject',
+ 'subject' => $subject,
'body' => $res->content,
);