... |
... |
@@ -18,12 +18,13 @@ use Date::Format;
|
18 |
18 |
#CHANGELOG
|
19 |
19 |
#20091003 Code changes to elimiate the need for a trailing slash in addresses for script runtime
|
20 |
20 |
#20091004 Code changes to increase out of date tolerance to 48 hours
|
|
21 |
+#20091028 Code changes to increase timout to 30 seconds (attempting to resolve "unknown" status'
|
21 |
22 |
#
|
22 |
23 |
|
23 |
24 |
print "Creating LWP agent ($LWP::VERSION)...\n";
|
24 |
25 |
my $lua = LWP::UserAgent->new(
|
25 |
26 |
keep_alive => 1,
|
26 |
|
- timeout => 15,
|
|
27 |
+ timeout => 30,
|
27 |
28 |
agent => "Tor MirrorCheck Agent"
|
28 |
29 |
);
|
29 |
30 |
|