From f47bc72134852f42fe03ab6afe91a9ba1b0ff705 Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 6 May 2003 12:38:16 +0000 Subject: [PATCH] add portuguese and french languages --- Changes | 3 + cmd/Commands_en.hlp | 4 +- cmd/set/language.pl | 2 +- cmd/show/wwv.pl | 2 +- perl/DXProt.pm | 16 +- perl/DXProtout.pm | 13 +- perl/Messages | 621 +++++++++++++++++++++++++++++++++++++++++++- perl/Route/Node.pm | 2 +- 8 files changed, 634 insertions(+), 29 deletions(-) diff --git a/Changes b/Changes index 5987651b..116cb42e 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,6 @@ +06May03======================================================================= +1. Add Portuguese language courtesy of David CT1DRB (set/lang pt) +2. Add French language courtesy of Robert HB9BZA (set/lang fr) 02Apr03======================================================================= 1. Fix some minor problems with the manuals (g0vgs) 01Apr03======================================================================= diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp index 928bdb7e..a15633d3 100644 --- a/cmd/Commands_en.hlp +++ b/cmd/Commands_en.hlp @@ -1569,8 +1569,8 @@ Remove isolation from a node - SET/ISOLATE === 0^SET/LANGUAGE ^Set the language you want to use You can select the language that you want the cluster to use. Currently -the languages available are en (English), de (German), es (Spanish) -and nl (Dutch). +the languages available are en (English), de (German), es (Spanish), +Czech (cz), Portuguese (pt), Italian (it) and nl (Dutch). === 0^SET/LOCATION ^Set your latitude and longitude === 9^SET/SYS_LOCATION ^Set your cluster latitude and longitude diff --git a/cmd/set/language.pl b/cmd/set/language.pl index ac8a9417..a068e0d9 100644 --- a/cmd/set/language.pl +++ b/cmd/set/language.pl @@ -11,7 +11,7 @@ my $call = $self->call; my $user; # modify this next line if you add a language to Messages -my @lang = qw( en nl es de it cz ); +my @lang = qw( en nl es de it cz pt fr ); # remove leading and trailing spaces $line =~ s/^\s+//; diff --git a/cmd/show/wwv.pl b/cmd/show/wwv.pl index 349180ae..988b760a 100644 --- a/cmd/show/wwv.pl +++ b/cmd/show/wwv.pl @@ -29,7 +29,7 @@ while ($f = shift @f) { # next field $from = 1 unless $from; $to = 5 unless $to; -push @out, "Date Hour SFI A K Forecast Logger"; +push @out, $self->msg('wwv3'); my @in = Geomag::search($from, $to, $main::systime); for (@in) { push @out, Geomag::print_item($_); diff --git a/perl/DXProt.pm b/perl/DXProt.pm index d2cf9b8a..a3049ee3 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -1062,7 +1062,7 @@ sub handle_23 my $pcno = shift; my $line = shift; - # route 'foreign' pc27s + # route foreign' pc27s if ($pcno == 27) { if ($_[8] ne $main::mycall) { $self->route($_[8], $line); @@ -1392,7 +1392,7 @@ sub handle_51 $dxchan->send($dxchan->msg('pingi', $from, $s, $ave)) } elsif ($dxchan->is_node) { if ($tochan) { - my $nopings = $tochan->user->nopings || 2; + my $nopings = $tochan->user->nopings || $obscount; push @{$tochan->{pingtime}}, $t; shift @{$tochan->{pingtime}} if @{$tochan->{pingtime}} > 6; @@ -1485,7 +1485,7 @@ sub handle_85 my $line = shift; $self->process_rcmd_reply($_[1], $_[2], $_[3], $_[4]); } - + # if get here then rebroadcast the thing with its Hop count decremented (if # there is one). If it has a hop count and it decrements to zero then don't # rebroadcast it. @@ -1504,7 +1504,7 @@ sub handle_default dbg("PCPROT: Ephemeral dup, dropped") if isdbg('chanerr'); } else { unless ($self->{isolate}) { - DXChannel::broadcast_nodes($line, $self); # send it to everyone but me + DXChannel::broadcast_nodes($line, $self) if $line =~ /\^H\d+\^?~?$/; # send it to everyone but me } } } @@ -1531,7 +1531,7 @@ sub process next unless $dxchan->is_node(); next if $dxchan == $main::me; - # send the pc50 or PC90 + # send the pc50 $dxchan->send($pc50s) if $pc50s; # send a ping out on this channel @@ -2313,12 +2313,6 @@ sub route_pc50 broadcast_route($self, \&pc50, 1, @_); } -sub route_pc90 -{ - my $self = shift; - broadcast_route($self, \&pc90, 1, @_); -} - sub in_filter_route { my $self = shift; diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm index 180ce526..b31eacdf 100644 --- a/perl/DXProtout.pm +++ b/perl/DXProtout.pm @@ -66,14 +66,15 @@ sub pc11 # create an announce message sub pc12 { - my ($call, $text, $tonode, $sysop, $wx) = @_; + my ($call, $text, $tonode, $sysop, $wx, $origin) = @_; my $hops = get_hops(12); - $sysop = ' ' if !$sysop; - $text = ' ' if !$text; - $wx = '0' if !$wx; - $tonode = '*' if !$tonode; + $origin ||= $main::mycall; + $sysop ||= ' '; + $text ||= ' '; + $wx ||= '0'; + $tonode ||= '*'; $text =~ s/\^/%5E/g; - return "PC12^$call^$tonode^$text^$sysop^$main::mycall^$wx^$hops^~"; + return "PC12^$call^$tonode^$text^$sysop^$origin^$wx^$hops^~"; } # diff --git a/perl/Messages b/perl/Messages index 27147c08..fefd9dd1 100644 --- a/perl/Messages +++ b/perl/Messages @@ -11,7 +11,7 @@ package DXM; %msgs = ( en => { addr => 'Address set to: $_[0]', - already => '$_[0] already connnected', + already => '$_[0] already connected', anns => 'Announces enabled for $_[0]', annu => 'Announces disabled for $_[0]', annts => 'AnnTalk enabled for $_[0]', @@ -300,7 +300,7 @@ package DXM; usstateu => 'US State display disabled for $_[0]', wcy1 => '$_[0] is missing or out of range', wcy2 => 'Duplicate WCY', - wcys => 'WCY enabled for $_[0]', + wcys => 'WCY enabled for $_[0]', wcyu => 'WCY disabled for $_[0]', wpc16s => 'Allow PC16 from $_[0] enabled', wpc16u => 'Allow PC16 from $_[0] disabled', @@ -308,6 +308,7 @@ package DXM; wpc19u => 'Route PC19 for $_[0] disabled', wwv1 => '$_[0] is missing or out of range', wwv2 => 'Duplicate WWV', + wwv3 => 'Date Hour SFI A K Forecast Logger', wwvs => 'WWV enabled for $_[0]', wwvu => 'WWV disabled $_[0]', wxs => 'WX enabled for $_[0]', @@ -413,6 +414,308 @@ package DXM; wxu => 'WX berichten UIT gezet voor $_[0]', }, fr => { + addr => 'Adresse fixée à : $_[0]', + already => '$_[0] déjà connecté', + anns => 'Annonces activées pour $_[0]', + annu => 'Annonces désactivées pour $_[0]', + annts => 'AnnTalk activé pour $_[0]', + anntu => 'AnnTalk désactivé pour $_[0]', + badnode1 => 'Le serveur $_[0] est maintenant en rejet', + badnode2 => 'Le serveur $_[0] n\'est maintenant plus en rejet', + badnode3 => 'Liste des serveurs en rejet :-', + bbse1 => 'Veuillez entrer l\'adresse de votre BBS avec : set/bbs ', + bbs => 'Votre BBS est définie comme étant \"$_[0]\"', + beepoff => 'Bips désactivés', + beepon => 'Bips activés', + call1 => 'Recherche de l\'indicatif via $_[0]:', + conother => 'Désolé $_[0], vous êtes déjà connecté sur un autre port', + concluster => 'Désolé $_[0], vous êtes déjà connecté ailleurs au cluster (sur $_[1])', + conscript => 'Pas de script de connexion nommé \"$_[0]\" trouvé dans $main::root/connect', + confail => 'Echec de la connexion avec $_[0] ($_[1])', + constart => 'Début de la connexion avec $_[0]', + deluser => 'L\'utilisateur $_[0] a été supprimé', + db1 => 'Cette base de données est hébergée sur $_[0]', + db2 => 'Désolé, mais la clé: $_[0] est introuvable dans $_[1]', + db3 => 'Désolé, la base de données $_[0] n\'existe pas ici', + db4 => 'Désolé, la base de données $_[0] sur $_[1] n\'est pas en ligne actuellement', + db5 => 'Accès à la base de données distante sur $_[0] en cours...veuillez patienter !', + db6 => 'La base de données $_[0] existe déjà; vous devez d\'abord la supprimer', + db7 => 'Base de données $_[0] créée pour le serveur distant $_[1]', + db8 => 'Base de données $_[0] créée en local', + db9 => 'Base de données $_[0] supprimée', + db10 => '$_[0] enregistrements importés dans $_[1]', + db11 => 'Envoi de votre requête à $_[0], veuillez patienter...', + dfreq1 => 'Fréquence $_[0] non valable. Il faut par exemple: 0/30000 ou hf ou hf/cw', + dir1 => 'Aucun message trouvé !', + disc1 => 'Déconnecté par $_[0]', + disc2 => 'Canal $_[0] déconnecté', + disc3 => 'Pas de canal, mais connexion $_[0] terminée', + disc4 => 'Pas de canal ni de connexion mais "orphelin" $_[0] déconnecté', + done => 'Terminé.', + dup => 'Désolé, ceci est un doublon.', + dx1 => 'La fréquence $_[0] est hors bande (voir show/band); syntaxe: DX [BY indicatif] fréquence indicatif remarques', + dx2 => 'L\'indicatif manque; syntaxe : DX [BY indicatif] fréquence indicatif remarques', + dx3 => 'Indicatif ou fréquence non valable.', + dxcqs => 'Zones DX CQ activées pour $_[0]', + dxcqu => 'Zones DX CQ désactivées pour $_[0]', + dxitus => 'Zones DX UIT activées pour $_[0]', + dxituu => 'Zones DX UIT désactivées pour $_[0]', + dxs => 'Infos DX activées pour $_[0]', + dxu => 'Infos DX désactivées pour $_[0]', + e1 => 'Commande inconnue', + e2 => 'Erreur: $_[0]', + e3 => '$_[0]: $_[1] non trouvé', + e4 => 'Il faut au moins un préfixe ou un indicatif', + e5 => 'Non autorisé.', + e6 => '*** Aucune station spécifiée ***', + e7 => '$_[0] n\'est pas atteignable sur le cluster', + e8 => 'Il faut un indicatif et du texte.', + e9 => 'Il faut un texte.', + e10 => '$_[0] n\'est pas connecté localement', + e11 => 'Le destinataire ne peut pas être $main:mycall', + e12 => 'Il faut spécifier un indicatif de serveur !', + e13 => '$_[0] n\'est pas un serveur', + e14 => 'Le premier argument doit être une valeur numérique > 0', + e15 => 'Paramètre incorrect : \"$_[0]\"', + e16 => 'Le fichier \"$_[0]\" existe déjà', + e17 => 'Prière de ne pas utiliser les mots : @_ ici !', + e18 => 'Connexion impossible avec $_[0] ($!)', + e19 => 'Caractère non valide dans la ligne', + e20 => 'Symbole $_[0] non reconnu', + e21 => '$_[0] n\'est pas une valeur numérique', + e22 => '$_[0] n\'est pas un indicatif', + e23 => '$_[0] n\'est pas un intervalle (exemple: 0/30000)', + e24 => 'Désolé, l\'accès à Internet n\'est pas actif', + e25 => 'Désolé, la valeur doit être entre $_[0] et $_[1]', + e26 => 'Trop d\'erreurs simultanées; vous allez être déconnecté !', + e27 => '$_[0] n\'est un préfixe ni sa valeur numérique.', + e28 => 'Désolé, vous devez d\'abord vous enregistrer (SP $main::myalias pour ce faire)', + e29 => 'Il faut un mot de passe !', + e30 => 'Impossible d\'ouvrir $_[0] $!', + e31 => '$_[0] n\'est pas un utilisateur', + e32 => 'Il faut une phrase secrète !', + e33 => '$_[0] n\'est pas un nombre de jours ou une date valable', + e34 => 'Il faut un GROUPE puis du texte', + e35 => 'Vous n\'êtes pas un membre de $_[0], rejoignez $_[0]', + + echoon => 'Echo activé', + echooff => 'Echo désactivé', + echow => 'L\'écho est actuellement désactivé (set/echo pour l\'activer)', + emaile1 => 'Veuillez entrer votre adresse e-mail avec : set/email ', + emaila => 'Votre adresse e-mail est enregistrée comme étant \"$_[0]\"', + email => 'Adresse e-mail définie comme étant $_[0]', + export1 => 'Syntaxe: export ', + export2 => '$_[3] rencontre une erreur à l\'exportation du message $_[0] vers $_[1] ($_[2])', + export3 => '$_[2 ] a exporté le message $_[0] vers $_[1]', + filter1 => 'Filtre $_[0] mis à jour dans $_[1]', + filter2 => 'Mot clé de filtrage inconnu : $_[0]', + filter3 => 'Pas de filtres définis pour $_[0]', + filter4 => '$_[0]$_[1] Filtre $_[2] supprimé pour $_[3]', + filter5 => 'Il faut une commande de filtrage...', + filter6 => '$_[0]$_[1] Filtre pour $[2] introuvable', + grids => 'Fonction DX Grid activée pour $_[0]', + gridu => 'Fonction DX Grid désactivée pour $_[0]', + illcall => 'Désolé, $_[0] n\'est pas un indicatif valable', + hasha => '$_[0] existe déjà dans $_[1]', + hashb => '$_[0] ajouté à $_[1]', + hashc => '$_[0] retiré de $_[1]', + hashd => '$_[0] n\'est pas dans $_[1]', + hashe => '$_[0] ajouté le $_[1]', + helpe1 => 'Système d\'aide non disponible, prière de prévenir le sysop', + helpe2 => 'Pas d\'aide disponible sur $_[0]', + heres => '$_[0] indiqué comme présent', + heade1 => 'Les coordonnées de $main::mycall sont utilisées; pensez à faire un set/location ou set/qra !', + hereu => '$_[0] indiqué comme absent', + homebbs => 'BBS usuelle définie comme étant $_[0]', + homenode => 'Serveur cluster usuel défini comme étant $_[0]', + hnodee1 => 'Veuillez entrer votre serveur cluster usuel (set/homenode )', + hnodee2 => 'Impossible de définir votre serveur usuel comme étant $_[0]', + hnode => 'Votre serveur cluster usuel est défini comme étant \"$_[0]\"', + init1 => 'Message d\'initialisation envoyé à $_[0]', + iso => '$_[0] isolé', + isou => '$_[0] n\'est plus isolé', + isoc => '$_[0] créé et isolé', + isoari => 'Il existe un filtre de route entrante pour $_[0]; utilisez d\'abord clear/route $_[0]', + isoaro => 'Il existe un filtre de route sortante pour $_[0]; utilisez d\'abord clear/route $_[0]', + isow => '$_[0] est isolé; utilisez d\'abord unset/isolate $_[0]', + join => 'Affiliation au groupe $_[0]', + l1 => 'Désolé $_[0], vous êtes déjà connecté sur un autre canal', + l2 => 'Bonjour $_[0], bienvenue sur $main::mycall à $main::myqth\nServeur DXSpider V$main::version ($main::build)', + lang => 'Je parle maintenant français', + lange1 => 'Syntaxe : set/language , où est à choisir parmi ($_[0])', + lange2 => 'Impossible de fixer la langue à $_[0]', + leave => 'Départ du groupe $_[0]', + lh1 => '$main::data/hop_table.pl n\'existe pas', + loce1 => 'Veuillez entrer vos coordonnées avec : set/location ', + loce2 => '\"$_[0]\" n\'est visiblement pas une latitude/longitude (ex: 46 20 N 6 12 E)', + loce3 => '$_[0] est un QTH locator, veuillez utiliser : set/qra $_[0]', + loc => 'Votre latitude/longitude est enregistrée comme étant \"$_[0]\"', + lockout => '$_[0] exclus', + lockoutc => '$_[0] créé et exclus', + lockoutun => '$_[0] n\'est plus exclus', + lockoutuse => 'Syntaxe : sh/lockout |ALL', + loginu => 'L\'utilisateur $_[0] s\'est connecté', + logoutu => 'L\'utilisateur $_[0] s\'est déconnecté', + loginn => 'Le serveur $_[0] s\'est connecté', + logoutn => 'Le serveur $_[0] s\'est déconnecté', + m1 => 'Veuillez entrer le sujet (max. 30 caractères):', + m2 => 'Copie du message $_[0] envoyée à $_[1]', + m3 => 'Désolé, $_[0] n\'est pas une adresse de destination acceptable', + m4 => 'Désolé, impossible d\'accéder au message $_[0]', + m5 => 'Il faut spécifier un numéro de message !', + m6 => 'Réponse à : $_[0]', + m7 => 'Sujet : $_[0]', + m8 => 'Entrez maintenant le texte (fin avec ou /EX, abandon avec /ABORT)', + m9 => 'Vous avez du nouveau courrier (tapez R pour le lire)', + m10 => 'Entrée du message abandonnée', + m11 => 'Message numéro $_[0] enregistré et transmis à $_[1]', + m12 => 'Message numéro $_[0] supprimé', + m13 => 'Message numéro $_[0] introuvable', + m14 => 'Message numéro $_[0] marqué comme envoyé à $_[1]', + m15 => 'Message numéro $_[0] marqué comme non envoyé à $_[1]', + m16 => 'Il faut un numéro de message !', + m17 => 'Désolé, impossible d\'envoyer des messages en mode $_[0]', + m18 => 'Désolé, le message $_[0] possède actuellement le statut KEEP', + msg1 => 'Bulletins mis en file d\'attente', + msg2 => 'Messages personnels mis en file d\'attente', + msg3 => 'Message $_[0]: $_[1] changé de $_[2] en $_[3]', + msgu => 'Syntaxe: msg données...', + merge1 => 'Demande de fusionnement de $_[1] infos DX et $_[2] WWV envoyée à $_[0]', + moon => 'Emplacement jj/mm/aaaa Lever Coucher', + moon_with_azel => 'Emplacement jj/mm/aaaa Lever Coucher Azim Elev', + mond => 'Monitoring désactivé', + mone => 'Monitoring activé', + namee1 => 'Veuillez entrer votre nom avec : set/name ', + namee2 => 'Utilisateur $_[0] introuvable.', + name => 'Votre nom est enregistré comme étant \"$_[0]\"', + nodea => '$_[0] défini comme serveur de type AK1A', + nodeac => '$_[0] créé comme serveur de type AK1A', + nodeb => '$_[0] défini comme BBS', + nodebc => '$_[0] créé comme BBS', + nodec => '$_[0] défini comme serveur de type CLX', + nodecc => '$_[0] créé comme serveur de type CLX', + noder => '$_[0] défini comme serveur de type AR-Cluster', + noderc => '$_[0] créé comme serveur de type AR-Cluster', + nodes => '$_[0] défini comme serveur de type DXSpider', + nodesc => '$_[0] créé comme serveur de type DXSpider', + nodex => '$_[0] défini comme serveur de type DXNET', + nodexc => '$_[0] créé comme serveur de type DXNET', + nodeu => '$_[0] défini comme utilisateur', + nodee1 => 'Vous ne pouvez pas utiliser cette commande pendant que sa cible ($_[0]) est en ligne', + notdone => 'PAS fait', + nothere => 'désolé, $_[0] n\'est pas là en ce moment...', + obscount => 'Compteur d\'obsolescence des pings vers $_[0] mis à $_[1]', + ok => 'Opération réussie', + outconn => 'Connexion en cours avec $_[0]', + page => ' pour continuer ou pour arrêter (il reste $_[0] lignes) >', + pagelth => 'Longueur de page fixée à $_[0]', + passerr => 'Veuillez utiliser: SET/PASS ', + passphrase => 'Phrase secrète définie ou modifiée pour $_[0]', + passphraseu => 'Phrase secrète supprimée pour $_[0]', + password => 'Mot de passe défini ou modifié pour $_[0]', + passwordu => 'Mot de passe supprimé pour $_[0]', + pc90s => 'PC90 activé pour $_[0]', + pc90u => 'PC90 désactivé pour $_[0]', + pingo => 'Ping envoyé vers $_[0]', + pingi => 'Ping retourné par $_[0] en $_[1] (moyenne $_[2]) secondes', + pinge1 => 'Vous ne pouvez pas vous pinger vous-même !', + pingint => 'Intervalle de ping vers $_[0] fixé à $_[1] secondes', + 'pos' => 'Indicatif source : latitude $_[0] : longitude $_[1] : $_[2]', + pr => '$_[0] de $main::mycall $_[1] $_[2] >', + pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >', + prs => 'Prompt défini comme étant \"$_[0]\"', + pru => 'Prompt remis à sa valeur par défaut', + priv => 'Niveau de privilège changé en $_[0]', + prx => '$main::mycall >', + pw0 => 'Entrez l\'ancien mot de passe : ', + pw1 => 'Entrez le nouveau mot de passe : ', + pw2 => 'Confirmez le nouveau mot de passe : ', + pw3 => 'Mot de passe modifié', + pw4 => 'Les mots de passe sont différents, changement PAS effectué', + qll => 'Veuillez entrer votre emplacement avec set/location ou set/qra', + qthe1 => 'Veuillez entrer votre QTH, set/qth ', + qth => 'Votre QTH est enregistré comme étant \"$_[0]\"', + qrae1 => 'Veuillez entrer votre QRA locator, set/qra (exemple : set/qra JN36BE)', + qrashe1 => 'Veuillez entrer un QRA locator, par exemple: sh/qra JN36BE or sh/qra JN36BE JO31NS', + qrae2 => '\"$_[0]\" n\'est pas un QRA locator (exemple: JN36BE)', + qra => 'Votre QRA Locator est enregistré comme étant \"$_[0]\"', + qsl1 => 'Indicatif Manager Fois Dernière fois De', + rcmdo => 'RCMD \"$_[0]\" envoyé à $_[1]', + read1 => 'Désolé, pas de nouveaux messages pour vous.', + read2 => 'Message $_[0] introuvable', + read3 => 'Message $_[0] non disponible', + rec => '$_[0] enregistrements', + reg => '$_[0] enregistré', + regc => '$_[0] créé et enregistré', + reginac => 'Le mode Enregistré n\'est pas actif (set/var \$main::reqreg = 1 pour l\'activer)', + regun => 'Enregistrement de $_[0] supprimé', + route => '$_[0] sur $_[1] via $_[2]', + sat1 => 'Table de poursuite pour $_[0] pour les prochaines $_[1] heures toutes les $_[2] minutes', + sat2 => 'jj/mm UTC Lat Lon Alt Km Az El Dist Km', + sat3 => 'Syntaxe: SH/SAT [ ]', + sat4 => 'Satellites disponibles/Age des éléments orbitaux (jours):-', + sat5 => 'nnnnn.AMSAT doit figurer dans le sujet pour que des éléments orbitaux puissent être chargés à partir de ce message', + satnf => 'Satellite $_[0] inconnu', + satdisc => '-----', + set => '$_[0] activé pour $_[1]', + sethop1 => 'Syntaxe: set/hops ann|spots|route|wwv|wcy ', + sethop2 => '$_[0] hops définis pour $_[1]$_[2] vers $_[3]', + sethop3 => 'Pas de nombre de hops défini vers $_[0]', + shu => '\"SHU\" ne suffit pas. Vous devez taper au moins \"SHUT\" pour arrêter le serveur !', + shutting => '$main::mycall en cours d\'arrêt...', + sloc => 'Latitude du serveur $_[0], longitude $_[1]. N\'OUBLIEZ PAS D\'ADAPTER VOTRE DXVars.pm', + snode1 => 'Serveur Type Version', + snode2 => '$_[0] $_[1] $_[2]', + snode3 => '$_[0] Indicatif inconnu', + sqra => 'QRA Locator du serveur: $_[0]. N\'OUBLIEZ PAS D\'ADAPTER VOTRE DXVars.pm', + sorry => 'Désolé !', + spf1 => 'spoof: création du nouvel utilisateur $_[0]', + stathf => 'Statistiques des infos DX en ondes courtes, 31 derniers jours :', + stathft => 'Statistiques des infos DX en ondes courtes, 31 derniers jours pour le DXCC $_[0] :', + statvhf => 'Statistiques des infos DX en VHF et au-delà, 31 derniers jours :', + statvhft => 'Statistiques des infos DX en VHF et au-delà, 31 jours derniers pour le DXCC $_[0] :', + statdx => 'Total des infos DX des 31 derniers jours', + sun => 'Emplacement jj/mm/aaaa Lever Coucher', + sun_with_azel => 'Emplacement jj/mm/aaaa Lever Coucher Azim Elev', + susdb1 => 'Syntaxe : indicatif état ville', + susdb2 => 'USDB $_[0] était $_[1], $_[2]', + susdb3 => 'USDB $_[0] est maintenant $_[1], $_[2]', + susdb4 => 'USDB $_[0] supprimé', + suser1 => 'Syntaxe : indicatif nom_de_champ_utilisateur valeur', + suser2 => 'Utilisateur $_[0] non trouvé', + suser3 => 'Champ utilisateur \'$_[0]\' modifié de \'$_[1]\' à \'$_[2]\'', + suser4 => 'Le nom de champ utilisateur \'$_[0]\' n\'existe pas', + time1 => 'Heure locale: $_[0] $_[1] ($_[2])', + time2 => '$_[0] Heure locale (normale): $_[1] (UTC $_[2])', + time3 => '$_[0] $_[1]', + talks => 'Talk activé pour $_[0]', + talku => 'Talk désactivé pour $_[0]', + talkend => 'conversation terminée avec vous', + talkinst => 'Passage en mode conversation (/EX = terminer, / = exécuter une commande)', + talknh => 'désolé, $_[0] n\'est pas connecté en ce moment', + talkprompt => 'Talk ($_[0])>', + talkstart => 'début de conversation avec vous', + unset => '$_[0] désactivé pour $_[1]', + unsethop1 => 'Syntaxe: unset/hops ann|spots|route|wwv|wcy', + unsethop2 => 'Nombre de hops supprimé vers $_[1] pour $_[0]', + usernf => '*** Pas d\'enregistrement utilisateur trouvé pour $_[0] ***', + usstates => 'Affichage des états US activé pour $_[0]', + usstateu => 'Affichage des états US désactivé pour $_[0]', + wcy1 => '$_[0] manque ou est une valeur hors limites', + wcy2 => 'Annonce WCY double', + wcys => 'WCY activé pour $_[0]', + wcyu => 'WCY désactivé pour $_[0]', + wpc16s => 'PC16 provenant de $_[0] autorisés', + wpc16u => 'PC16 provenant de $_[0] refusés', + wpc19s => 'Routage des PC19 pour $_[0] activé', + wpc19u => 'Routage des PC19 pour $_[0] désactivé', + wwv1 => '$_[0] manque ou est une valeur hors limites', + wwv2 => 'Annonce WWV double', + wwv3 => 'Date Heure SFI A K Prévision Expéditeur', + wwvs => 'WWV activé pour $_[0]', + wwvu => 'WWV désactivé pour $_[0]', + wxs => 'WX activé pour $_[0]', + wxu => 'WX désactivé pour $_[0]', }, es => { addr => 'La dirección es ahora: $_[0]', @@ -692,8 +995,8 @@ package DXM; usernf => '*** Registro de usuario $_[0] no encontrado ***', wcy1 => '$_[0] falta o esta fuera de rango', wcy2 => 'WCY Duplicado', - wcys => 'Activada recepción de anuncios WCY para $_[0]', - wcyu => 'Desactivada recepción de anuncios WWV para $_[0]', + wcys => 'Activada recepción de anuncios WCY para $_[0]', + wcyu => 'Desactivada recepción de anuncios WWV para $_[0]', wwv1 => '$_[0] falta o esta fuera de rango', wwv2 => 'WWV Duplicado', wwvs => 'Activada recepción de anuncios WWV para $_[0]', @@ -1112,8 +1415,8 @@ package DXM; m15 => 'Il messaggio $_[0] risolta ora non spedito a $_[1]', m16 => 'Specificare il numero del messaggio', m17 => 'Spiacente, impossibile spedire messaggi in modo $_[0]', - msg1 => 'Bollettino messo in coda', - msg2 => 'Messaggio messo in coda', + msg1 => 'Bollettino messo in coda', + msg2 => 'Messaggio messo in coda', msg3 => 'Msg $_[0]: $_[1] cambiato da $_[2] a $_[3]', msgu => 'sintassi: msg dati...', merge1 => 'Richiesta di merge per gli spot $_[1] e i WWV $_[2] spedita a $_[0]', @@ -1524,7 +1827,311 @@ package DXM; wwvu => 'WWV je zakazano pro $_[0]', wxs => 'WX je povoleno pro $_[0]', wxu => 'WX je zakazano pro $_[0]', - } + }, + + pt => { + addr => 'Endereo definido para: $_[0]', + already => '$_[0] J ligado', + anns => 'Anncios activado para $_[0]', + annu => 'Anncios desactivado para $_[0]', + annts => 'AnnTalk activado para $_[0]', + anntu => 'AnnTalk desactivado para $_[0]', + badnode1 => '$_[0] agora um node mau', + badnode2 => '$_[0] agora um bom node', + badnode3 => 'Lista dos maus nodes:-', + bbse1 => 'Por favor escreva qual a sua BBS local,, set/bbs ', + bbs => 'A sua bbs local agora \"$_[0]\"', + beepoff => 'A campainha est desligada agora', + beepon => 'A campainha est ligada agora', + call1 => 'Indicativo fechado via $_[0]:', + conother => 'Desculpe $_[0] voc est ligado a mim noutra porta', + concluster => 'Desculpe $_[0] voc j est ligado em algum sitio no cluster (on $_[1])', + conscript => 'nenhum script de ligao chamado \"$_[0]\" encontrado em $main::root/connect', + confail => 'ligao para $_[0] falhada ($_[1])', + constart => 'ligao para $_[0] comeada', + deluser => 'User $_[0] foi apagado', + db1 => 'Esta base de dados est localizada em $_[0]', + db2 => 'Desculpe, mas a tecla: $_[0] no foi encontrada em $_[1]', + db3 => 'Desculpe, base de dados $_[0] no\ existe aqui', + db4 => 'Desculp, base de dados $_[0] localizada em $_[1] no\ est actualmente acessivel', + db5 => 'Acedendo a base da dados remota em $_[0]...espere...', + db6 => 'Base de dados $_[0] j existe, apague-a primeiro', + db7 => 'Base de dados $_[0] criada para um node remoto $_[1]', + db8 => 'Base de dados $_[0] criada localmente', + db9 => 'Base de dados $_[0] removida', + db10 => '$_[0] registos importados para $_[1]', + db11 => 'Enviando o(s) seu(s) pedido(s) para $_[0], por favor espere...', + dfreq1 => 'Freq invlida $_[0] precisa: ex 0/30000 ou hf ou hf/cw', + dir1 => 'Nenhumas mensagens encontradas', + disc1 => 'Desligado por $_[0]', + disc2 => 'Canal $_[0] desligado', + disc3 => 'Nenhum canal, mas ligao $_[0] desfeita', + disc4 => 'Nenhum canal ou ligao mas orfo $_[0] desligado', + done => 'Feito', + dup => 'Desculpe, isto um duplicado', + dx1 => 'Frequencia $_[0] no em banda (veja show/band); uso: DX [de indicativo] freq call comentrios', + dx2 => 'Preciso de um indicativo; uso: DX [de indicativo] freq call comentrios', + dx3 => 'O indicativo ou frequncia est invlido', + dxcqs => 'DX CQ Zonas activado para $_[0]', + dxcqu => 'DX CQ Zonas desactivada para $_[0]', + dxitus => 'DX ITU Zonas activado para $_[0]', + dxituu => 'DX ITU Zonas desactivada para $_[0]', + dxs => 'DX Spots activado para $_[0]', + dxu => 'DX Spots desactivado $_[0]', + e1 => 'Comando invlido', + e2 => 'Erro: $_[0]', + e3 => '$_[0]: $_[1] no encontrado', + e4 => 'Preciso de pelo menos dum prefixo ou indicativo', + e5 => 'No permitido', + e6 => '*** Nenhuma estao especificada ***', + e7 => 'indicativo $_[0] no visivel no cluster', + e8 => 'Preciso de um indicativo e algum texto', + e9 => 'Preciso de pelo menos dalgum texto', + e10 => '$_[0] no est ligado localmente', + e11 => 'No pode usar $main:mycall como alvo', + e12 => 'Preciso de um indicativo de node', + e13 => '$_[0] no um node', + e14 => 'O primeiro argumento deve ser numrico e > 0', + e15 => 'qualificador invlido \"$_[0]\"', + e16 => 'O ficheiro \"$_[0]\" existe', + e17 => 'Por favor no use as palavras: @_ aqui', + e18 => 'No posso ligar a $_[0] ($!)', + e19 => 'Caracter invlido na linha', + e20 => 'sinal $_[0] no reconhecido', + e21 => '$_[0] no numrico', + e22 => '$_[0] no um indicativo', + e23 => '$_[0] no um intervalo (ex 0/30000)', + e24 => 'Desculpe, acesso internet no est activado', + e25 => 'Desculpe o valor deve estar entre $_[0] e $_[1]', + e26 => 'Muitos erros concurrenciais, voc vai ser desligado', + e27 => '$_[0] no um nmero ou um prefixo de um indicativo', + e28 => 'Desculpe, voc precisa ser registado (SP $main::myalias para registrar)', + e29 => 'Preciso de uma password', + e30 => 'No posso abrir $_[0] $!', + e31 => '$_[0] no um usurio', + e32 => 'Preciso de uma passphrase', + e33 => '$_[0] no um nmero de dias ou uma data vlida', + e34 => 'Preciso de um GRUPO e algum texto', + e35 => 'Voc no um membro de $_[0], junte $_[0]', + + echoon => 'Eco activado', + echooff => 'Eco desactivado', + echow => '*O eco est actualmente desactivado, escreva set/echo para activar', + emaile1 => 'Por favor escreva o seu email, faa set/email ', + emaila => 'O seu email agora \"$_[0]\"', + email => 'Email definido para: $_[0]', + export1 => 'uso: export ', + export2 => '$_[3] houve um erro ao exportar a msg $_[0] para $_[1] ($_[2])', + export3 => '$_[2 ] msg $_[0] exportada para $_[1]', + filter1 => 'Filtro $_[0] actualizado para $_[1]', + filter2 => 'Filtro de palavra chave $_[0] desconhecido', + filter3 => 'Nenhuns filtros definidos para $_[0]', + filter4 => '$_[0]$_[1] Filtro $_[2] apagado para $_[3]', + filter5 => 'preciso de alguns comandos de filtro...', + filter6 => '$_[0]$_[1] Filtro para $[2] no encontrado', + grids => 'Grelha de DX activado para $_[0]', + gridu => 'Grelha de DX desactivado para $_[0]', + illcall => 'Desculpe, $_[0] um indicativo invlido', + hasha => '$_[0] j existe em $_[1]', + hashb => '$_[0] adicionado para $_[1]', + hashc => '$_[0] removido de $_[1]', + hashd => '$_[0] no em $_[1]', + hashe => '$_[0] definido em $_[1]', + helpe1 => 'Sistema de ajuda no disponivel, diga ao sysop', + helpe2 => 'Nenhuma ajuda disponivel em $_[0]', + heres => 'Aqui definido em $_[0]', + heade1 => 'Usando $main::mycall coords, considere fazer um set/location ou set/qra', + hereu => 'Aqui no definido em $_[0]', + homebbs => 'BBS local definida como: $_[0]', + homenode => 'Node local definido como: $_[0]', + hnodee1 => 'Por favor escreva o seu node local, set/homenode ', + hnodee2 => 'Falha ao definir o node local em $_[0]', + hnode => 'O seu node local agora \"$_[0]\"', + init1 => 'enviar mensagem de inicializao para $_[0]', + iso => '$_[0] Isolado', + isou => '$_[0] No isolado', + isoc => '$_[0] criado e isolado', + isoari => 'h um filtro de rota entrado para $_[0]; clear/route input $_[0] primeiro', + isoaro => 'h um filtro de rota saido para $_[0]; clear/route $_[0] primeiro', + isow => '$_[0] est isolado; unset/isolate $_[0] primeiro', + join => 'a juntar ao grupo $_[0]', + l1 => 'Desculpe $_[0], voc est ligado noutro canal', + l2 => 'Ol $_[0], isto $main::mycall em $main::myqth\nrunning DXSpider V$main::version build $main::build', + lang => 'Linguagem agora o Portugus', + lange1 => 'set/language aonde uma de ($_[0])', + lange2 => 'falha ao definir uma lngua em $_[0]', + leave => 'a deixar o grupo $_[0]', + lh1 => '$main::data/hop_table.pl no existe', + loce1 => 'Por favor diga as suas coordenadas,, set/location ', + loce2 => 'No reconhece \"$_[0]\" como uma Lat/Long (ex 52 20 N 0 16 E)', + loce3 => '$_[0] um locator, por favor use: set/qra $_[0]', + loc => 'A sua lat/long agora \"$_[0]\"', + lockout => '$_[0] Fechado', + lockoutc => '$_[0] Criado e fechado', + lockoutun => '$_[0] Aberto', + lockoutuse => 'uso: sh/lockout |ALL', + loginu => 'Usurio $_[0] ligou', + logoutu => 'Usurio $_[0] desligou-se', + loginn => 'Node $_[0] ligou', + logoutn => 'Node $_[0] desligou', + m1 => 'Escrever o ttulo (30 caracteres):', + m2 => 'Cpia da msg $_[0] enviada para $_[1]', + m3 => 'Desculpe, $_[0] o endereo inaceitvel', + m4 => 'Desculpe, no pode aceder mensagem $_[0]', + m5 => 'Desculpe, eu preciso do nmero da mensagem', + m6 => 'Responder a: $_[0]', + m7 => 'Ttulo : $_[0]', + m8 => 'Escrever a mensagem /EX para enviar ou /ABORT para sair', + m9 => 'Uma nova mensagem chegou para si', + m10 => 'Mensagem abortada', + m11 => 'Mensagem nmero $_[0] guardada e enviada para $_[1]', + m12 => 'Mensagem nmero $_[0] apagada', + m13 => 'Mensagem nmero $_[0] desaparecida', + m14 => 'Mensagem nmero $_[0] marcada como enviada para $_[1]', + m15 => 'Mensagem nmero $_[0] desmarcada como enviada para $_[1]', + m16 => 'Preciso do nmero da mensagem', + m17 => 'Desculpe, no posso enviar mensagens no modo $_[0]', + m18 => 'Desculpe, a mensagem $_[0] est actualmente definida como KEEP', + msg1 => 'Filas das mensagens de boletins', + msg2 => 'Filas das mensagens privadas', + msg3 => 'Mensagem $_[0]: $_[1] alterada de $_[2] para $_[3]', + msgu => 'uso: msg data...', + merge1 => 'Submeter pedido para $_[1] spots e $_[2] WWV enviado para $_[0]', + moon => 'Localizao dd/mm/yyyy Subir Definido', + moon_with_azel => 'Localizao dd/mm/yyyy Subir Definido Azim Elev', + mond => 'Monitorizao desactivada', + mone => 'Monitorizao activada', + namee1 => 'Por favor escreva o seu nome, set/name ', + namee2 => 'No encontro o usurio $_[0]!', + name => 'O seu nome \"$_[0]\"', + nodea => '$_[0] definido como um node tipo AK1A', + nodeac => '$_[0] criado como um node tipo AK1A', + nodeb => '$_[0] definido como BBS', + nodebc => '$_[0] criado como BBS', + nodec => '$_[0] definido como um node tipo CLX', + nodecc => '$_[0] criado como um node tipo CLX', + noder => '$_[0] definido como um node tipo AR-Cluster', + noderc => '$_[0] criado como um node tipo AR-Cluster', + nodes => '$_[0] definido como um node tipo DXSpider', + nodesc => '$_[0] criado como um node tipo DXSpider', + nodex => '$_[0] definido como um node tipo DXNET', + nodexc => '$_[0] criado como um node tipo DXNET', + nodeu => '$_[0] definido como um usurio', + nodee1 => 'Voc no pode usar este comando enquanto o seu alvo ($_[0]) est ligado', + notdone => 'No foi feito', + nothere => 'Desculpe, mas $_[0] no est aqui de momento, por favor tente mais tarde', + obscount => 'Ping obsolescence conta como $_[0] definido para $_[1]', + ok => 'Operao bem sucedida', + outconn => 'Ligao exterior para $_[0]', + page => 'Prima no Enter para continuar, A para abortar ($_[0] linhas) >', + pagelth => 'O tamanho da pgina agora de $_[0]', + passerr => 'Por favor use: SET/PASS ', + passphrase => 'Passphrase definida ou alterada por $_[0]', + passphraseu => 'Passphrase removida por $_[0]', + password => 'Password definida ou alterada por $_[0]', + passwordu => 'Password removida por $_[0]', + pc90s => 'PC90 activado por $_[0]', + pc90u => 'PC90 desactivado $_[0]', + pingo => 'Ping comeou para $_[0]', + pingi => 'Ping retornado de $_[0] $_[1] (Ave $_[2]) segundos', + pinge1 => 'No pode fazer ping para si prprio!', + pingint => 'Intervalo de Ping em $_[0] definido para $_[1] segundos', + 'pos' => 'Do indicativo: $_[0] Lat: $_[1] Long: $_[2]', + pr => '$_[0] de $main::mycall $_[1] $_[2] >', + pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >', + prs => 'Prompt agora definida para \"$_[0]\"', + pru => 'Prompt agora regressou para a default', + priv => 'Nivel de privilgio alterado em $_[0]', + prx => '$main::mycall >', + pw0 => 'Escreva a password antiga: ', + pw1 => 'Escreva a password nova: ', + pw2 => 'Escreva novamente a nova password: ', + pw3 => 'Password alterada', + pw4 => 'As Passwordes diferem, a password NO foi alterada', + qll => 'Por favor escreva a sua localizao com set/location ou set/qra', + qthe1 => 'Por favor escreva o seu QTH, set/qth ', + qth => 'O seu QTH \"$_[0]\"', + qrae1 => 'Por favor escreva o seu locator, set/qra (ex set/qra IM58LP)', + qrashe1 => 'Por favor escreva o seu locator, ex sh/qra IM58LP ou sh/qra IM58LP IO93NS', + qrae2 => 'No reconhece \"$_[0]\" como um locator (ex IM58LP)', + qra => 'O seu locator \"$_[0]\"', + qsl1 => 'Call Manager Times Last Time Seen De', + rcmdo => 'RCMD \"$_[0]\" enviado para $_[1]', + read1 => 'Desculpe, nenhuma mensagem nova para voc', + read2 => 'Msg $_[0] no foi encontrada', + read3 => 'Msg $_[0] no est disponivel', + rec => '$_[0] registos', + reg => '$_[0] registados', + regc => '$_[0] criado e registado', + reginac => 'O registo no est activo (set/var \$main::reqreg = 1 para activar)', + regun => '$_[0] no registado', + route => '$_[0] em $_[1] via $_[2]', + sat1 => 'Tabela de rbitras para $_[0] para a prxima $_[1] horas em todos os $_[2] mins', + sat2 => 'dd/mm UTC Lat Lon Alt Km Az El Dist Km', + sat3 => 'Sintaxe: SH/SAT [ ]', + sat4 => 'Satlites disponiveis/Idade das rbitras (dias):-', + sat5 => 'preciso nnnnn.AMSAT no ttulo para carregar as rbitras desde esta mensagem', + satnf => 'Satlite $_[0] desconhecido', + satdisc => '-----', + set => '$_[0] activado por $_[1]', + sethop1 => 'uso: set/hops ann|spots|wwv|wcy ', + sethop2 => '$_[0] saltos definidos em $_[1]$_[2] por $_[3]', + sethop3 => 'Nenhuns saltos definidos por $_[0]', + shu => '\"SHU\" no suficiente! voc precisa pelo menos de \"SHUT\" para desligar o node', + shutting => '$main::mycall a desligar...', + sloc => 'Cluster lat $_[0] long $_[1], NO ESQUECER DE ALTERAR O SEU DXVars.pm', + snode1 => 'Node Call Sort Verso', + snode2 => '$_[0] $_[1] $_[2]', + snode3 => '$_[0] indicativo desconhecido', + sqra => 'Cluster locator$_[0], NO ESQUECER DE ALTERAR O SEU DXVars.pm', + sorry => 'Desculpe', + spf1 => 'spoof: criando um novo usurio $_[0]', + stathf => 'HF DX Spot Stats, ltimo $_[1] dias de $_[0]', + stathft => 'HF DX Spot Stats, ltimo $_[2] dias de $_[1] por DXCC $_[0]', + statvhf => 'VHF+ DX Spot Stats, ltimo $_[1] dias de $_[0]', + statvhft => 'VHF+ DX Spot Stats, ltimo $_[2] dias de $_[1] por DXCC $_[0]', + statdx => 'Total DX Spots por $_[1] dias de $_[0]', + sun => 'Localizao dd/mm/yyyy Subir Definido', + sun_with_azel => 'Localizao dd/mm/yyyy Subir Definido Azim Elev', + susdb1 => 'uso: indicativo da cidade do estado', + susdb2 => 'USDB $_[0] foi $_[1], $_[2]', + susdb3 => 'USDB $_[0] agora $_[1], $_[2]', + susdb4 => 'USDB $_[0] apagado', + suser1 => 'uso: indicativo valor user_field_name', + suser2 => 'Usurio $_[0] no foi encontrado', + suser3 => 'Campo do usurio \'$_[0]\' fooi \'$_[1]\' agora definido para \'$_[2]\'', + suser4 => 'O campo de nome do usurio \'$_[0]\' no existe', + time1 => 'Tempo local: $_[0] $_[1], UTC $_[2]', + time2 => '$_[0] Tempo local (standard): $_[1] ($_[2] Horas)', + time3 => '$_[0] $_[1]', + talks => 'QSO activado por $_[0]', + talku => 'QSO desactivado por $_[0]', + talkend => 'Conversao acabada para si', + talkinst => 'A entrar no mode de conversao, /EX para terminar, / para correr como um comando', + talknh => 'Desculpe $_[0] no est ligado de momento', + talkprompt => 'Conversar ($_[0])>', + talkstart => 'A comear a conversao para si', + unset => '$_[0] desactivado por $_[1]', + unsethop1 => 'uso: unset/hops ann|spots|wwv|wcy', + unsethop2 => 'saltos no definidos em $_[1] por $_[0]', + usernf => '*** Registo de usurio por $_[0] no foi encontrado ***', + usstates => 'Mostrar estados dos EUA activado por $_[0]', + usstateu => 'Desactivar os estados dos EUA por $_[0]', + wcy1 => '$_[0] est desaparecido ou fora de alcance', + wcy2 => 'WCY duplicado', + wcys => 'WCY enabled for $_[0]', + wcyu => 'WCY desactivado por $_[0]', + wpc16s => 'Permite o PC16 de $_[0] activado', + wpc16u => 'Permite o PC16 de $_[0] desactivado', + wpc19s => 'Rota PC19 por $_[0] activado', + wpc19u => 'Rota PC19 por $_[0] desactivado', + wwv1 => '$_[0] est desaparecido ou fora de alcance', + wwv2 => 'WWV duplicado', + wwvs => 'WWV activado por $_[0]', + wwvu => 'WWV desactivado $_[0]', + wxs => 'WX activado por $_[0]', + wxu => 'WX desactivado por $_[0]', + }, ); diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm index 0c2b2e4a..3c4addd0 100644 --- a/perl/Route/Node.pm +++ b/perl/Route/Node.pm @@ -254,7 +254,7 @@ sub newid if ($id > $self->{lid}) { $self->{lid} = $id; return 1; - } elsif ($self->{lid} - $id > 60000) { + } elsif ($self->{lid} - $id > 500) { $self->{id} = $id; return 1; } -- 2.34.1