X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2Fbin%2Ffreeside-fetch;h=f689bfd93e2c08e93d3c7c11f66ffc4b2e848242;hp=89a4f29af76d18724321d56d8c46376c6d6bb54b;hb=aed8ec35ccb9cdeb7ea0cb6ff2946f9d83d582f6;hpb=8591b5a157a2ee24c1467718eb0ce731a388f5c1

diff --git a/FS/bin/freeside-fetch b/FS/bin/freeside-fetch
index 89a4f29af..f689bfd93 100755
--- a/FS/bin/freeside-fetch
+++ b/FS/bin/freeside-fetch
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -Tw
+#!/usr/bin/perl -w
 
 use strict;
 use LWP::UserAgent;
@@ -35,14 +35,18 @@ foreach my $employee (@employees) {
   };
 
   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,
                 );