From: cbarratt Date: Thu, 29 Aug 2002 07:25:24 +0000 (+0000) Subject: - Updated fr.pm based on changes from Guillaume Filion. X-Git-Tag: v2_0_0beta0~25 X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=commitdiff_plain;h=e2d505bd2dd22969e017c95a4feb7b03e6670739 - Updated fr.pm based on changes from Guillaume Filion. - Fixed makeDist to create lib/BackupPC/Lang. - Fixed lib/BackupPC/Lib.pm to handle 1.5.0 upgrade (where Lang/*.pm doesn't exist). - Removed incorrect translation from server message in CGI script --- diff --git a/cgi-bin/BackupPC_Admin b/cgi-bin/BackupPC_Admin index ccdb618..419ccb9 100755 --- a/cgi-bin/BackupPC_Admin +++ b/cgi-bin/BackupPC_Admin @@ -1460,10 +1460,10 @@ EOF sub Action_GeneralInfo { - GetStatusInfo($Lang->{info_jobs_hosts_queueLen}); + GetStatusInfo("info jobs hosts queueLen"); my $Privileged = CheckPermission(); - my($jobStr, $statusStr, $tarPidHdr, $ rivLinks); + my($jobStr, $statusStr, $tarPidHdr); foreach my $host ( sort(keys(%Jobs)) ) { my $startTime = timeStamp2($Jobs{$host}{startTime}); next if ( $host eq $bpc->trashJob diff --git a/lib/BackupPC/Lang/en.pm b/lib/BackupPC/Lang/en.pm index 065a888..d0c809f 100644 --- a/lib/BackupPC/Lang/en.pm +++ b/lib/BackupPC/Lang/en.pm @@ -348,7 +348,8 @@ EOF $Lang{Option_2__Download_Zip_archive2} = < -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 www.cpan.org.

@@ -832,8 +833,6 @@ $Lang{Backups_are_deferred_for_hours_hours_change_this_number} = <change this number). EOF -$Lang{info_jobs_hosts_queueLen} = "info jobs hosts queueLen"; - $Lang{tryIP} = " and \$StatusHost{dhcpHostIP}"; $Lang{Host_Inhost} = "Host \$In{host}"; diff --git a/lib/BackupPC/Lang/fr.pm b/lib/BackupPC/Lang/fr.pm index e0afdda..e898cec 100644 --- a/lib/BackupPC/Lang/fr.pm +++ b/lib/BackupPC/Lang/fr.pm @@ -5,10 +5,10 @@ # -------------------------------- -$Lang{Start_Full_Backup} = "Démarrer sauvegarde complète"; +$Lang{Start_Full_Backup} = "Démarrer la sauvegarde complète"; $Lang{Start_Incr_Backup} = "Départ de la sauvegarde incrémentale"; -$Lang{Stop_Dequeue_Backup} = "Arrêter/annuler sauvegarde"; -$Lang{Restore} = "Restore"; +$Lang{Stop_Dequeue_Backup} = "Arrêter/annuler la sauvegarde"; +$Lang{Restore} = "Restaurer"; # ----- @@ -45,7 +45,7 @@ $Lang{BackupPC_Server_Status}= < Date de départ Commande PID - Xfer PID + PID du transfert \$tarPidHdr \$jobStr @@ -76,12 +76,12 @@ Ce statut a \${h2("Hôtes avec de bonnes sauvegardes")}

-Il y a \$hostCntGood hôtes ayant été sauvegardés, avec un total de : +Il y a \$hostCntGood hôtes ayant été sauvegardés, pour un total de :

@@ -92,7 +92,7 @@ Il y a \$hostCntGood h - + \$strGood
Hôte Vitesse Mo/sec nb incrémentales Incr Age/Jours État actuel État actuel Dernière tentative
@@ -121,7 +121,7 @@ EOF $Lang{Pool_Stat} = <Le disque dispose de \${poolSize} Go avec \$info->{"\${name}FileCnt"} fichiers et \$info->{"\${name}DirCnt"} repertoires (depuis le \$poolTime), -
  • Le hachage des fichiers donne \$info->{"\${name}FileCntRep"} fichiers répétés +
  • Le hachage de mise en commun des fichiers donne \$info->{"\${name}FileCntRep"} fichiers répétés avec comme plus longue chaîne \$info->{"\${name}FileRepMax"},
  • Le nettoyage nocturne a effacé \$info->{"\${name}FileCntRm"} fichiers, soit \${poolRmSize} Go (vers \$poolTime), @@ -141,7 +141,7 @@ EOF $Lang{BackupPC__Start_Backup_Confirm_on__host} = "BackupPC: Confirmation du départ de la sauvegarde de \$host"; # -------------------------------- $Lang{Are_you_sure_start} = < Vous allez bientôt démarrer une sauvegarde \$type depuis \$host. @@ -159,7 +159,7 @@ $Lang{BackupPC__Stop_Backup_Confirm_on__host} = "BackupPC: Confirmer l\'arr # -------------------------------- $Lang{Are_you_sure_stop} = < Vous êtes sur le point d\'arrêter/supprimer de la file les sauvegardes de \$host; @@ -167,7 +167,7 @@ Vous
    -En outre, prière de ne pas démarrer d\'autres sauvegarde avant +En outre, prière de ne pas démarrer d\'autres sauvegarde pour heures.

    Voulez vous vraiment le faire ? @@ -218,25 +218,25 @@ Les demandes de commande suivantes sont actuellement en attente : EOF # -------------------------------- -$Lang{Backup_PC__Log_File__file} = "BackupPC: Fichier de log \$file"; +$Lang{Backup_PC__Log_File__file} = "BackupPC: Fichier journal \$file"; $Lang{Log_File__file__comment} = < EOF # -------------------------------- $Lang{Contents_of_log_file} = <\$file, modifié le \$mtimeStr \$comment +Contenu du fichier journal \$file, modifié le \$mtimeStr \$comment EOF # -------------------------------- $Lang{skipped__skipped_lines} = "[ \$skipped lignes sautées ]\n"; # -------------------------------- -$Lang{_pre___Can_t_open_log_file__file} = "

    \nNe peut pas ouvrir le fichier de log \$file\n";
+$Lang{_pre___Can_t_open_log_file__file} = "
    \nNe peut pas ouvrir le fichier journal \$file\n";
 
 # --------------------------------
-$Lang{BackupPC__Log_File_History} = "BackupPC: Historique du fichier de log";
+$Lang{BackupPC__Log_File_History} = "BackupPC: Historique du fichier journal";
 $Lang{Log_File_History__hdr} = <
 
@@ -248,10 +248,10 @@ EOF
 
 # -------------------------------
 $Lang{Recent_Email_Summary} = <
 
    
 
     Fichier 
    
-
+
@@ -267,8 +267,7 @@ $Lang{Browse_backup__num_for__host} = "BackupPC: Navigation dans la sauvegarde \
 $Lang{Restore_Options_for__host} = "BackupPC: Options de restauration sur \$host";
 $Lang{Restore_Options_for__host2} = <
-Vous avez sélectionné les fichiers/repertoires suivants depuis le partage 
-\$share, sauvegarde numéro \$num:
+Vous avez sélectionné les fichiers/repertoires suivants depuis le partage \$share, sauvegarde numéro \$num:
 
      
 \$fileListStr
 
    
@@ -282,7 +281,7 @@ Vous pouvez d
 directement sur \$host.
 
    
 Attention:
-tout les fichiers correspondant à ceux que vous avez sélectionnés vont être effacés !
+tous les fichiers correspondant à ceux que vous avez sélectionnés vont être effacés !
 
 
 
@@ -313,11 +312,10 @@ EOF
 # ------------------------------
 $Lang{Option_2__Download_Zip_archive} = <
-Vous pouvez télécharger une archive zippée contenant tous les fichiers/répertoires que vous 
-avez sélectionnés. Vous pouvez utiliser une application locale, comme Winzip, pour 
-voir ou extraire n\'importe quel fichier.
+Vous pouvez télécharger une archive compressée (.zip) contenant tous les fichiers/répertoires que vous 
+avez sélectionnés. Vous pouvez utiliser une application locale, comme Winzip, pour voir ou extraire n\'importe quel fichier.
 
    
 Attention: en fonction de quels fichiers/répertoires vous avez sélectionné,
 cette archive peut devenir très très large.  Cela peut prendre plusieurs minutes pour créer
@@ -336,7 +334,7 @@ et transf
 Compression (0=désactivée, 1=rapide,...,9=meilleure)
 
 
    
-
+
 
 EOF
 
@@ -344,7 +342,7 @@ EOF
 # ------------------------------
 
 $Lang{Option_2__Download_Zip_archive2} = <
 Vous pouvez télécharger une archive zippée, mais Archive::Zip n\'est pas
 installé. Vous pouvez demander à votre administrateur système d\'installer 
@@ -360,11 +358,11 @@ $Lang{Option_3__Download_Zip_archive} = <tar ou winzip pour voir ou extraire n\'importe quel fichier.
+comme tar ou winzip pour voir ou extraire n\'importe quel fichier.
 
    
 Attention: en fonction des fichiers/répertoires que vous avez sélectionnés,
 cette archive peut devenir très très large.  Cela peut prendre beaucoup de temps 
-(plusieurs minutes) pour créer et transfèrer l\'archive, et vous aurez besoin de beaucoup
+(plusieurs minutes) pour créer et transférer l\'archive, et vous aurez besoin d'assez
 d\'espace disque local pour le stocker.
 
    
 
    
@@ -389,10 +387,7 @@ $Lang{Restore_Confirm_on__host} = "BackupPC: Confirmation de restauration sur \$
 $Lang{Are_you_sure} = <
-Vous êtes sur le point de démarrer une restauration directement sur la machine 
-\$In{hostDest}.
-Les fichiers suivants vont être restaurés dans le partage \$In{shareDest}, depuis
-la sauvegarde numéro \$num:
+Vous êtes sur le point de démarrer une restauration directement sur la machine \$In{hostDest}. Les fichiers suivants vont être restaurés dans le partage \$In{shareDest}, depuis la sauvegarde numéro \$num:
 
    
 
     Recipient  
     Destinataire 
      Hôte 
      Date 
      Sujet 
    
@@ -420,7 +415,7 @@ $Lang{Reply_from_server_was___reply} = <
 La réponse du serveur est: \$reply
 
    
-Retourner à la page d\'acceuil de \$hostDest .
+Retourner à la page d\'accueil de \$hostDest .
 EOF
 
 
@@ -467,7 +462,7 @@ Cliquer sur le num
 
    
 
    Fichier/Répertoire originalVa être restauré à
    
-    
+    
@@ -477,12 +472,11 @@ Cliquer sur le num
 
    
 
     Nb sauvegarde 
      Type  View   Voir 
      Nb erreurs transfert 
      Nb mauvais fichiers 
      Nb mauvais partages 
    
 
    
 
-\${h2("Résumé de Taille fichier/Nombre de réutilisations")}
+\${h2("Récapitulatif de la taille des fichier et du nombre de réutilisations")}
 
    
     Les fichiers existants sont ceux qui sont déjà sur le serveur; 
 Les nouveaux fichiers sont ceux qui ont été ajoutés au serveur.
-Les fichiers vides et les erreurs de SMB ne sont pas comptabilisés parmis
-les nouveaux et les réutilisés.
+Les fichiers vides et les erreurs de SMB ne sont pas comptabilisés parmis les nouveaux et les réutilisés.
 
 
@@ -508,7 +502,7 @@ les nouveaux et les r
 \${h2("Résumé de la compression")}
 
    
 
-Performance de compression pour les fichiers déjà sur le serveur et
+Performance de la compression pour les fichiers déjà sur le serveur et
 récemment compressés.
 
 
    
 
    
@@ -577,8 +571,8 @@ $Lang{Backup_browse_for__host} = < Vous naviguez dans la sauvegarde n°\$num, qui a commencé vers \$backupTime
         (il y a \$backupAge jours),
 \$filledBackup
-
  •  Cliquer dans un répertoire ci-dessous pour naviguer dedans,
-
  •  Cliquer dans un fichier ci-dessous pour le restaurer..
+
  •  Cliquer dans un répertoire ci-dessous pour y naviguer,
+
  •  Cliquer dans un fichier ci-dessous pour le restaurer.
 
 
 \${h2("Contenu de \${EscapeHTML(\$dirDisplay)}")}
@@ -618,39 +612,36 @@ EOF
 
 # ------------------------------
 
-# FIXME
-$Lang{Restore___num_details_for__host} = "BackupPC: Restore #\$num details for \$host"; 
+$Lang{Restore___num_details_for__host} = "BackupPC: Détails de la restauration n° \$num pour \$host"; 
 
 $Lang{Restore___num_details_for__host2 } = <
 
    • 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
     Number  \$Restores[\$i]{num} 
     Requested by  \$RestoreReq{user} 
     Request time  \$reqTime 
     Result  \$Restores[\$i]{result} 
     Error Message  \$Restores[\$i]{errorMsg} 
     Source host  \$RestoreReq{hostSrc} 
     Source backup num  \$RestoreReq{num} 
     Source share  \$RestoreReq{shareSrc} 
     Destination host  \$RestoreReq{hostDest} 
     Destination share  \$RestoreReq{shareDest} 
     Start time  \$startTime 
     Duration  \$duration min 
     Number of files  \$Restores[\$i]{nFiles} 
     Total size  \${MB} Mo 
     Transfer rate  \$MBperSec Mo/sec 
     TarCreate errors  \$Restores[\$i]{tarCreateErrs} 
     Xfer errors  \$Restores[\$i]{xferErrs} 
     Xfer log file 
-View, 
+
     Numéro  \$Restores[\$i]{num} 
     Demandée par  \$RestoreReq{user} 
     Demandée à  \$reqTime 
     Résultat  \$Restores[\$i]{result} 
     Message d'erreur  \$Restores[\$i]{errorMsg} 
     Hôte source  \$RestoreReq{hostSrc} 
     N° de sauvegarde  \$RestoreReq{num} 
     Partition source  \$RestoreReq{shareSrc} 
     Hôte de destination  \$RestoreReq{hostDest} 
     Partition de destination  \$RestoreReq{shareDest} 
     Début  \$startTime 
     Durée  \$duration min 
     Nombre de fichier  \$Restores[\$i]{nFiles} 
     Grosseur totale  \${MB} Mo 
     Taux de transfert  \$MBperSec Mo/sec 
     Erreurs de TarCreate  \$Restores[\$i]{tarCreateErrs} 
     Erreurs de transfert  \$Restores[\$i]{xferErrs} 
     Journal de transfert 
+Visionner,
 Erreurs
 
    
 
    
 
    
-\${h1("Liste Fichiers/Répertoires")}
+\${h1("Liste des Fichiers/Répertoires")}
 
    
 
@@ -660,7 +651,7 @@ EOF
 
 
 # -----------------------------------
-$Lang{Email_Summary} = "BackupPC: Résumé du courrier électronique";
+$Lang{Email_Summary} = "BackupPC: Résumé du courriel";
 
 # -----------------------------------
 #  !! ERROR messages !!
@@ -669,22 +660,16 @@ $Lang{Email_Summary} = "BackupPC: R
 $Lang{BackupPC__Lib__new_failed__check_apache_error_log} = "BackupPC::Lib->new a échoué: regardez le "
     ."fichier error_log d\'apache\n";
 $Lang{Wrong_user__my_userid_is___} =  
-              "Mauvais utilisateur: mon userid est \$>, à la place de \$uid"
-            . "(\$Conf{BackupPCUser})\n";
-$Lang{Only_privileged_users_can_view_PC_summaries} = "Seuls les utilisateurs privilégiés peuvent "
-    . "voir les résumés des PC.";
+              "Mauvais utilisateur: mon userid est \$>, à la place de \$uid (\$Conf{BackupPCUser})\n";
+$Lang{Only_privileged_users_can_view_PC_summaries} = "Seuls les utilisateurs privilégiés peuvent voir les résumés des PC.";
 $Lang{Only_privileged_users_can_stop_or_start_backups} = 
-                  "Seuls les utilisateurs privilégiés peuvent arrêter ou démarrer des sauvegardes sur"
-		. " \${EscapeHTML(\$host)}.";
+                  "Seuls les utilisateurs privilégiés peuvent arrêter ou démarrer des sauvegardes sur \${EscapeHTML(\$host)}.";
 $Lang{Invalid_number__num} = "Numéro invalide \$num";
-$Lang{Unable_to_open__file__configuration_problem} = "Impossible d\'ouvrir \$file: un problème de configuration ?";
-$Lang{Only_privileged_users_can_view_log_or_config_files} = "Seuls les utilisateurs privilégiés peuvent voir "
-    ."les log ou les fichiers de configuration.";
-$Lang{Only_privileged_users_can_view_log_files} = "Seuls les utilisateurs privilégiés peuvent voir les fichiers de log.";
-$Lang{Only_privileged_users_can_view_email_summaries} = "Seuls les utilisateurs privilégiés peuvent "
-    ."voir les compte-rendu des courriers électroniques.";
-$Lang{Only_privileged_users_can_browse_backup_files} = "Seuls les utilisateurs privilégiés peuvent parcourir "
-                . "les fichiers de sauvegarde pour l'hôte \${EscapeHTML(\$In{host})}.";
+$Lang{Unable_to_open__file__configuration_problem} = "Impossible d\'ouvrir \$file: problème de configuration ?";
+$Lang{Only_privileged_users_can_view_log_or_config_files} = "Seuls les utilisateurs privilégiés peuvent voir les fichier de jounal ou les fichiers de configuration.";
+$Lang{Only_privileged_users_can_view_log_files} = "Seuls les utilisateurs privilégiés peuvent voir les fichiers de journal.";
+$Lang{Only_privileged_users_can_view_email_summaries} = "Seuls les utilisateurs privilégiés peuvent voir les compte-rendu des courriels.";
+$Lang{Only_privileged_users_can_browse_backup_files} = "Seuls les utilisateurs privilégiés peuvent parcourir les fichiers de sauvegarde pour l'hôte \${EscapeHTML(\$In{host})}.";
 $Lang{Empty_host_name} = "Nom d\'hôte vide.";
 $Lang{Can_t_browse_bad_directory_name} = "Ne peut pas parcourir " 
 	            . " \${EscapeHTML(\"\$TopDir/pc/\$host/\$num\")}:"
@@ -707,8 +692,7 @@ $Lang{Can_t_fork_for_zip_restore} = "Ne peut pas se dupliquer (fork) pour la res
 $Lang{Host__doesn_t_exist} = "L'hôte \${EscapeHTML(\$In{hostDest})} n\'existe pas.";
 $Lang{You_don_t_have_permission_to_restore_onto_host} = "Vous n\'avez pas la permission de restaurer sur l\'hôte"
 		    . " \${EscapeHTML(\$In{hostDest})}";
-$Lang{Can_t_open_create} = "Ne peut pas ouvrir/créer "
-                    . "\${EscapeHTML(\"\$TopDir/pc/\$hostDest/\$reqFileName\")}";
+$Lang{Can_t_open_create} = "Ne peut pas ouvrir/créer ". "\${EscapeHTML(\"\$TopDir/pc/\$hostDest/\$reqFileName\")}";
 $Lang{Only_privileged_users_can_restore_backup_files2} = "Seuls les utilisateurs privilégiés peuvent restaurer"
                 . " des fichiers de sauvegarde"
                 . " pour l\'hôte \${EscapeHTML(\$host)}.";
@@ -719,15 +703,14 @@ $Lang{Only_privileged_users_can_view_information_about} = "Seuls les utilisateur
                 . " informations sur l\'hôte \${EscapeHTML(\$host)}." ;
 $Lang{Only_privileged_users_can_view_restore_information} = "Seuls les utilisateurs privilégiés peuvent restaurer "
     ."des informations.";
-$Lang{Restore_number__num_for_host__does_not_exist} = "Restauration numéro \$num de l\'hôte \${EscapeHTML(\$host)} n\'"
-    . "existe pas";
+$Lang{Restore_number__num_for_host__does_not_exist} = "Restauration numéro \$num de l\'hôte \${EscapeHTML(\$host)} n\'existe pas";
 
 $Lang{Unable_to_connect_to_BackupPC_server} = "Impossible de se connecter au server BackupPC."
           . "Ce script CGI (\$MyURL) ne peut pas se connecter au serveur  BackupPC"
           . " sur \$Conf{ServerHost} via le port \$Conf{ServerPort}.  L\'erreur est la"
           . " suivante: \$err.",
-            "Peut être BackupPC n\'a pas été lancé ou il y a une erreur "
-          . " de configuration. Vous pouvez faire suivre ce message à votre administrateur système.";
+            "Peut-être que BackupPC n\'a pas été lancé ou il y a une erreur "
+          . " de configuration. Veuillez faire suivre ce message à votre administrateur système.";
 
 $Lang{Can_t_find_IP_address_for} = "Ne peut pas trouver d\'adresse IP pour \${EscapeHTML(\$host)}";
 
@@ -786,9 +769,9 @@ $Lang{Restore_requested_to_host__hostDest__backup___num} = "Restauration demand
 
 $Lang{Status} = "Status";
 $Lang{PC_Summary} = "Bilan du PC";
-$Lang{LOG_file} = "Fichier de LOG";
-$Lang{Old_LOGs} = "Vieux LOGs";
-$Lang{Email_summary} = "Résumé des emails";
+$Lang{LOG_file} = "Fichier journal";
+$Lang{Old_LOGs} = "Vieux journaux";
+$Lang{Email_summary} = "Résumé des courriels";
 $Lang{Config_file} = "Fichier de configuration";
 $Lang{Hosts_file} = "Fichiers des hôtes";
 $Lang{Current_queues} = "Files actuelles";
@@ -827,8 +810,7 @@ EOF
 
 # --------
 $Lang{Last_status_is_state_StatusHost_state_reason_as_of_startTime} = <L\'état courant est \"\$StatusHost{state}\"\$reason 
-    à compter du \$startTime.
+
  • L\'état courant est \"\$StatusHost{state}\"\$reason depuis \$startTime.
 EOF
 
 # --------
@@ -859,8 +841,6 @@ $Lang{Backups_are_deferred_for_hours_hours_change_this_number} = <changer ce nombre).
 EOF
 
-$Lang{info_jobs_hosts_queueLen} = "info tâches hôtes queueLen";  # FIXME
-
 $Lang{tryIP} = " et \$StatusHost{dhcpHostIP}";
 
 $Lang{Host_Inhost} = "Hôte \$In{host}";
@@ -869,7 +849,7 @@ $Lang{checkAll} = <
    • 
 EOF
 
@@ -883,11 +863,11 @@ $Lang{fileHeader} = < Cet affichage est regroupé avec la sauvegarde n°\$numF, la plus récente copie intégrale.
+
  •  Cet affichage est fusionné avec la sauvegarde n°\$numF, la plus récente copie intégrale.
 EOF
 
 $Lang{Restore_Summary} = <{Conf}} = ( %{$self->{Conf} || {}}, %Conf );
     }
+    return if ( !defined($self->{Conf}{Language}) );
     my $langFile = "$self->{LibDir}/BackupPC/Lang/$self->{Conf}{Language}.pm";
     if ( !defined($ret = do $langFile) && ($! || $@) ) {
 	$mesg = "Couldn't open language file $langFile: $!" if ( $! );
diff --git a/makeDist b/makeDist
index d4d5c81..29e7460 100755
--- a/makeDist
+++ b/makeDist
@@ -9,7 +9,7 @@ use File::Copy;
 
 umask(0022);
 
-my $Version     = "1.5.0";
+my $Version     = "1.5.0_CVS";
 my $ReleaseDate = "2 Aug 2002";
 my $DistDir     = "dist/BackupPC-$Version";
 
@@ -62,8 +62,8 @@ exit(1) if ( $errCnt );
 rmtree($DistDir, 0, 0);
 mkpath($DistDir, 0, 0777);
 
-foreach my $dir ( qw(bin lib/BackupPC/Xfer lib/BackupPC/Zip doc conf
-		     images init.d/src cgi-bin) ) {
+foreach my $dir ( qw(bin lib/BackupPC/Xfer lib/BackupPC/Zip lib/BackupPC/Lang
+		     doc conf images init.d/src cgi-bin) ) {
     mkpath("$DistDir/$dir", 0, 0777);
 }
 

    • 
 
    Fichier/répertoire originalRestauré vers
    
  Tout sélectionner
 
-
+