-#!/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,
);
Fetches a web page specified by url as if employee and emails it to
employee. Useful when run out of cron to send freeside web pages.
- user: From the mapsecrets file - a user with access to the freeside database
+ user: Freeside user
employee: the username of an employee to receive the emailed page. May be a comma separated list