Fixed ServerMesg strings in BackupPC_Admin via en.pm and fr.pm

[BackupPC.git] / lib / BackupPC / Lang / en.pm

diff --git a/lib/BackupPC/Lang/en.pm b/lib/BackupPC/Lang/en.pm
index 065a888..a289cc6 100644 (file)
--- a/lib/BackupPC/Lang/en.pm
+++ b/lib/BackupPC/Lang/en.pm
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/bin/perl -T
 
 #my %lang;
 
@@ -348,7 +348,8 @@ EOF
 $Lang{Option_2__Download_Zip_archive2} = <<EOF;
 \${h2("Option 2: Download Zip archive")}
 <p>
-You could download a zip archive, but Archive::Zip is not installed.
+Archive::Zip is not installed so you will not be able to download a
+zip archive.
 Please ask your system adminstrator to install Archive::Zip from
 <a href="http://www.cpan.org">www.cpan.org</a>.
 <p>
@@ -717,18 +718,6 @@ Until I see \$host at a particular DHCP address, you can only
 start this request from the client machine itself.
 EOF
 
-# ------------------------------------
-# !! Server Mesg !!
-# ------------------------------------
-
-# do not translate the firsts, used by server
-$Lang{backup__In_hostIP___host} = "backup \$In{hostIP} \$host"
-                                . " \$User \$doFull";
-$Lang{backup__host__host__User__doFull} = "backup \$host \$host \$User \$doFull";
-$Lang{restore__ipAddr} = "restore \$ipAddr"
-                       . " \$hostDest \$User \$reqFileName";
-$Lang{stop__host__User__In_backoff} = "stop \$host \$User \$In{backoff}";
-
 ########################
 # ok you can do it then
 ########################
@@ -832,8 +821,6 @@ $Lang{Backups_are_deferred_for_hours_hours_change_this_number} = <<EOF;
 (<a href=\"\$MyURL?action=Stop/Dequeue%20Backup&host=\$host\">change this number</a>).
 EOF
 
-$Lang{info_jobs_hosts_queueLen} = "info jobs hosts queueLen";
-
 $Lang{tryIP} = " and \$StatusHost{dhcpHostIP}";
 
 $Lang{Host_Inhost} = "Host \$In{host}";