...
|
...
|
@@ -616,8 +616,12 @@ open(OUT, "> $outFile") or die "Can't open $outFile: $!";
|
616
|
616
|
# This is storted from last known recent update to unknown update times
|
617
|
617
|
foreach my $server ( sort { $m{$b}{'updateDate'} <=> $m{$a}{'updateDate'}} keys %m ) {
|
618
|
618
|
|
619
|
|
- my $time = ctime($m{$server}{'updateDate'});
|
620
|
|
- chomp($time);
|
|
619
|
+ my $time;
|
|
620
|
+ if( "$m{$server}{'updateDate'}" ne "Unknown") {
|
|
621
|
+ $time = ctime($m{$server}{'updateDate'});
|
|
622
|
+ chomp($time);
|
|
623
|
+ } else { $time = "Unknown"; }
|
|
624
|
+
|
621
|
625
|
print OUT <<"END";
|
622
|
626
|
\n<tr>\n
|
623
|
627
|
<td>$m{$server}{'isoCC'}</td>\n
|