Fetch tweaks

CHANGELOG.md

@@ -11,6 +11,9 @@
     - Development improvements:
         - Default make_css to `web/cobrands` rather than `web`.
         - Ability to pass custom arguments (eg: SSL config) to server when running via Docker
+        - Allow bin/fetch start/end times to be fractional.
+    - Open311 improvements:
+        - Increase default timeout.
 
 * v4.0 (3rd December 2021)
     - Front end improvements:

bin/fetch

@@ -26,8 +26,8 @@ my ($opts, $usage) = describe_options(
     '%c %o',
     ['reports', 'fetch reports'],
     ['updates', 'fetch updates'],
-    ['start|s:i', 'start time to use (hours before now), defaults to one (reports) or two (updates)' ],
-    ['end|e:i', 'end time to use (hours before now), defaults to zero' ],
+    ['start|s:f', 'start time to use (hours before now), defaults to one (reports) or two (updates)' ],
+    ['end|e:f', 'end time to use (hours before now), defaults to zero' ],
     ['body|b:s', 'body name to only fetch this body' ],
     ['verbose|v', 'more verbose output'],
     ['help|h', "print usage message and exit" ],

perllib/Open311.pm

@@ -578,7 +578,7 @@ sub _request {
 
 sub _make_request {
     my ($self, $req) = @_;
-    my $ua = LWP::UserAgent->new;
+    my $ua = LWP::UserAgent->new( timeout => 300 );
     my $res = $ua->request( $req );
     return $res;
 }