...
|
...
|
@@ -16,7 +16,7 @@ use Date::Format;
|
16
|
16
|
print "Creating LWP agent ($LWP::VERSION)...\n";
|
17
|
17
|
my $lua = LWP::UserAgent->new(
|
18
|
18
|
keep_alive => 1,
|
19
|
|
- timeout => 1,
|
|
19
|
+ timeout => 15,
|
20
|
20
|
agent => "Tor MirrorCheck Agent"
|
21
|
21
|
);
|
22
|
22
|
|
...
|
...
|
@@ -667,8 +667,8 @@ open(OUT, "> $outFile") or die "Can't open $outFile: $!";
|
667
|
667
|
foreach my $server ( sort { $m{$b}{'updateDate'} <=> $m{$a}{'updateDate'}} keys %m ) {
|
668
|
668
|
|
669
|
669
|
my $time;
|
670
|
|
- if( "$m{$server}{'updateDate'}" ne "Unknown") {
|
671
|
|
- if( "$m{$server}{'updateDate'}" eq "$tortime" ) {
|
|
670
|
+ if ( "$m{$server}{'updateDate'}" ne "Unknown") {
|
|
671
|
+ if ( "$m{$server}{'updateDate'}" eq "$tortime" ) {
|
672
|
672
|
$time = "Up to date";
|
673
|
673
|
} else { $time = "Out of date"; }
|
674
|
674
|
} else { $time = "Unknown"; }
|