X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=lib%2FBackupPC%2FCGI%2FArchive.pm;fp=lib%2FBackupPC%2FCGI%2FArchive.pm;h=2a774ebe45ba0857e13dc797ef0f6cc08c9475eb;hp=43a9b8ec3c12c1c76aa1939eee1d7c4a7b6c591b;hb=a7690ea45972ea3db587bd94fa573edf20d75c91;hpb=90ec625c3974d4c913f045cb246cfff64716bf52 diff --git a/lib/BackupPC/CGI/Archive.pm b/lib/BackupPC/CGI/Archive.pm index 43a9b8e..2a774eb 100644 --- a/lib/BackupPC/CGI/Archive.pm +++ b/lib/BackupPC/CGI/Archive.pm @@ -70,10 +70,10 @@ sub action $fullSizeTot += $fullSize + $incrSizeTot; $fullSize = sprintf("%.2f", ($fullSize + $incrSizeTot) / 1000); $str = < - ${HostLink($host)} - ${UserLink($Hosts->{$host}{user})} - $fullSize + + ${HostLink($host)} + ${UserLink($Hosts->{$host}{user})} + $fullSize EOF $checkBoxCnt++; if ( @Backups == 0 ) { @@ -90,9 +90,8 @@ EOF $strGood .= < EOF - Header($Lang->{BackupPC__Archive}); - print eval ("qq{$Lang->{BackupPC_Archive}}"); - + my $content = eval("qq{$Lang->{BackupPC_Archive}}"); + Header(eval("qq{$Lang->{BackupPC__Archive}}"),$content); Trailer(); } else { @@ -163,8 +162,8 @@ EOF # Tell the user what options they have # - Header($Lang->{BackupPC__Archive}); - print eval ("qq{$Lang->{BackupPC_Archive2}}"); + my $content = eval("qq{$Lang->{BackupPC_Archive2}}"); + Header(eval("qq{$Lang->{BackupPC__Archive}}"),$content); Trailer(); } elsif ( $In{type} == 2 ) { my $reqFileName; @@ -223,8 +222,9 @@ EOF $reply = $bpc->ServerMesg("archive $User $archivehost $reqFileName"); $str = eval("qq{$Lang->{Archive_requested}}"); - Header($Lang->{BackupPC__Archive}); - print eval ("qq{$Lang->{BackupPC_Archive_Reply_from_server}}"); + + my $content = eval("qq{$Lang->{BackupPC_Archive_Reply_from_server}}"); + Header(eval("qq{$Lang->{BackupPC__Archive}}"),$content); Trailer(); }