projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add per-customer "Invoice reports" link, RT#13802
[freeside.git]
/
FS
/
bin
/
freeside-fetch
diff --git
a/FS/bin/freeside-fetch
b/FS/bin/freeside-fetch
index
89a4f29
..
f689bfd
100755
(executable)
--- a/
FS/bin/freeside-fetch
+++ b/
FS/bin/freeside-fetch
@@
-1,4
+1,4
@@
-#!/usr/bin/perl -
T
w
+#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use strict;
use LWP::UserAgent;
@@
-35,14
+35,18
@@
foreach my $employee (@employees) {
};
my $ua = new 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);
$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,
my %options = ( 'from' => $email_address,
'to' => $email_address,
- 'subject' =>
'subject'
,
+ 'subject' =>
$subject
,
'body' => $res->content,
);
'body' => $res->content,
);