remove obsolete mapsecrets stuff, RT#21563

[freeside.git] / FS / bin / freeside-fetch

diff --git a/FS/bin/freeside-fetch b/FS/bin/freeside-fetch
index 3fe1a00..c1ab783 100755 (executable)
--- 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,6 +35,7 @@ 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;
@@ -78,7 +79,7 @@ freeside-fetch - Send a freeside page to a list of employees.
   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