...
|
...
|
@@ -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
|
|