fr.pm

老外写的linux下的文件备份软件

#!/bin/perl

#my %Lang;
#use strict;

# --------------------------------

$Lang{Start_Archive} = "D閙arrer l'archivage";
$Lang{Stop_Dequeue_Archive} = "Arr阾/Mise en attente de l'archivage";
$Lang{Start_Full_Backup} = "D閙arrer la sauvegarde compl鑤e";
$Lang{Start_Incr_Backup} = "D閙arrer la sauvegarde incr閙entielle";
$Lang{Stop_Dequeue_Backup} = "Arr阾er/annuler la sauvegarde";
$Lang{Restore} = "Restaurer";

$Lang{Type_full} = "compl鑤e";
$Lang{Type_incr} = "incr閙entielle";

# -----

$Lang{Only_privileged_users_can_view_admin_options} = "Seuls les utilisateurs privil間i閟 peuvent voir les options d'administration.";
$Lang{H_Admin_Options} = "BackupPC: Options d'administration";
$Lang{Admin_Options} = "Options d'administration";
$Lang{Admin_Options_Page} = <<EOF;
\${h1(qq{$Lang{Admin_Options}})}
<br>
\${h2("Contr鬺e du serveur")}
<form name="ReloadForm" action="\$MyURL" method="get">
<input type="hidden" name="action" value="">
<table class="tableStnd">
  <tr><td>Recharger la configuration:<td><input type="button" value="Recharger"
     onClick="document.ReloadForm.action.value='Reload';
              document.ReloadForm.submit();">
</table>
</form>
<!--
\${h2("Server Configuration")}
<ul>
  <li><i>Other options can go here... e.g.,</i>
  <li>Edit server configuration
</ul>
-->
EOF
$Lang{Unable_to_connect_to_BackupPC_server} = "Impossible de se connecter au serveur BackupPC",
            "Ce script CGI (\$MyURL) est incapable de se connecter au serveur BackupPC"
          . " sur \$Conf{ServerHost} au port \$Conf{ServerPort}. L'erreur"
          . " est: \$err."
          . " Il est possible que le serveur BackupPC ne fonctionne pas actuellement ou qu'il"
          . " y ait une erreur de configuration. Veuillez contacter votre administrateur syst鑝e.";
$Lang{Admin_Start_Server} = <<EOF;
\${h1(qq{$Lang{Unable_to_connect_to_BackupPC_server}})}
<form action="\$MyURL" method="get">
Le serveur BackupPC sur <tt>\$Conf{ServerHost}</tt>, port <tt>\$Conf{ServerPort}</tt>
n'est pas en fonction (vous l'avez peut-阾re arr阾