+ my $paramStr = "";
+ if ( $bpc->{Conf}{ArchiveClientCmd} =~ /\$archiveloc\b/ ) {
+ $paramStr .= eval("qq{$Lang->{BackupPC_Archive2_location}}");
+ }
+ if ( $bpc->{Conf}{ArchiveClientCmd} =~ /\$compression\b/ ) {
+ $paramStr .= eval("qq{$Lang->{BackupPC_Archive2_compression}}");
+ }
+ if ( $bpc->{Conf}{ArchiveClientCmd} =~ /\$parfile\b/
+ && -x $bpc->{Conf}{ParPath} ) {
+ $paramStr .= eval("qq{$Lang->{BackupPC_Archive2_parity}}");
+ }
+ if ( $bpc->{Conf}{ArchiveClientCmd} =~ /\$splitsize\b/
+ && -x $bpc->{Conf}{SplitPath} ) {
+ $paramStr .= eval("qq{$Lang->{BackupPC_Archive2_split}}");
+ }
+ my $content = eval("qq{$Lang->{BackupPC_Archive2}}");
+ Header(eval("qq{$Lang->{BackupPC__Archive}}"), $content, 1);