+ if ( $Conf{XferMethod} eq "archive" ) {
+ my @Archives = $bpc->ArchiveInfoRead($host);
+ my ($ArchiveStr,$warnStr);
+
+ for ( my $i = 0 ; $i < @Archives ; $i++ ) {
+ my $startTime = timeStamp2($Archives[$i]{startTime});
+ my $dur = $Archives[$i]{endTime} - $Archives[$i]{startTime};
+ $dur = 1 if ( $dur <= 0 );
+ my $duration = sprintf("%.1f", $dur / 60);
+ my $Archives_Result = $Lang->{failed};
+ if ($Archives[$i]{result} ne "failed") { $Archives_Result = $Lang->{success}; }
+ $ArchiveStr .= <<EOF;
+<tr><td align="center"><a href="$MyURL?action=archiveInfo&num=$Archives[$i]{num}&host=${EscURI($host)}">$Archives[$i]{num}</a> </td>
+ <td align="center"> $Archives_Result </td>
+ <td align="right"> $startTime </td>
+ <td align="right"> $duration </td>
+</tr>
+EOF
+ }
+ if ( $ArchiveStr ne "" ) {
+ $ArchiveStr = eval("qq{$Lang->{Archive_Summary}}");
+ }
+ if ( @Archives == 0 ) {
+ $warnStr = $Lang->{There_have_been_no_archives};
+ }
+ if ( $StatusHost{BgQueueOn} ) {
+ $statusStr .= eval("qq{$Lang->{Host_host_is_queued_on_the_background_queue_will_be_backed_up_soon}}");
+ }
+ if ( $StatusHost{UserQueueOn} ) {
+ $statusStr .= eval("qq{$Lang->{Host_host_is_queued_on_the_user_queue__will_be_backed_up_soon}}");
+ }
+ if ( $StatusHost{CmdQueueOn} ) {
+ $statusStr .= eval("qq{$Lang->{A_command_for_host_is_on_the_command_queue_will_run_soon}}");
+ }
+
+ my $content = eval("qq{$Lang->{Host__host_Archive_Summary2}}");
+ Header(eval("qq{$Lang->{Host__host_Archive_Summary}}"), $content, 1);
+ Trailer();
+ return;
+ }
+
+ #
+ # Normal, non-archive case
+ #