add portuguese and french languages
authorminima <minima>
Tue, 6 May 2003 12:38:16 +0000 (12:38 +0000)
committerminima <minima>
Tue, 6 May 2003 12:38:16 +0000 (12:38 +0000)
Changes
cmd/Commands_en.hlp
cmd/set/language.pl
cmd/show/wwv.pl
perl/DXProt.pm
perl/DXProtout.pm
perl/Messages
perl/Route/Node.pm

diff --git a/Changes b/Changes
index 5987651beb13ac52c797516b611413687b2ca265..116cb42e8b8e8cb66552f99ebf6faf8e5b49b592 100644 (file)
--- 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=======================================================================
index 928bdb7e59ce644aacc35cb3e0cd85f67470e514..a15633d3ac6a28918192156f830ce5bbb86d48cc 100644 (file)
@@ -1569,8 +1569,8 @@ Remove isolation from a node - SET/ISOLATE
 
 === 0^SET/LANGUAGE <lang>^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 <lat & long>^Set your latitude and longitude
 === 9^SET/SYS_LOCATION <lat & long>^Set your cluster latitude and longitude
index ac8a94174ca863e5168c49ecd1bf092b62f8502e..a068e0d9948bb7ba9e80bf216a3dd4da25679fcd 100644 (file)
@@ -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+//;
index 349180ae0270262f7ae4f28655c89c1784997853..988b760a6446fcfa0161efc0a0b13710ca6a729e 100644 (file)
@@ -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($_);
index d2cf9b8a61d7f1487ff971a94571ef7e48a594b1..a3049ee329e502b416de681a37129a595b7d5136 100644 (file)
@@ -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;
index 180ce526ef17357c67d474bc45c34b9994e0b368..b31eacdfe111942ded8607bc9759d85e1179a56c 100644 (file)
@@ -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^~";
 }
 
 #
index 27147c08b5b1ac88a2423253024987a1d83544fa..fefd9dd17f52f3b50e34f34f89293e2a99231dfb 100644 (file)
@@ -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 <votre_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 <votre_adresse_e-mail>',
+                               emaila => 'Votre adresse e-mail est enregistrée comme étant \"$_[0]\"',
+                               email => 'Adresse e-mail définie comme étant $_[0]',
+                               export1 => 'Syntaxe: export <numéro_de_msg> <nom_de_fichier>',
+                               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 <votre_serveur>)',
+                               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 <langue>, où <langue> 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 <latitude longitude>',
+                               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 <indicatif>|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 <Ctrl-Z> 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 <commande> <numéro_de_message> 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 <votre_nom>',
+                               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 => '<Enter> pour continuer ou <A> pour arrêter (il reste $_[0] lignes) >',
+                               pagelth => 'Longueur de page fixée à $_[0]',
+                               passerr => 'Veuillez utiliser: SET/PASS <mot_de_passe> <indicatif>',
+                               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 <votre_qth>',
+                               qth => 'Votre QTH est enregistré comme étant \"$_[0]\"',
+                               qrae1 => 'Veuillez entrer votre QRA locator, set/qra <qra_locator> (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 <nom> [<heures> <intervalle>]',
+                               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 <indicatif> ann|spots|route|wwv|wcy <nombre_de_hops>',
+                               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, /<cmd> = 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 <indicatif> 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 <comando> <num_mess> 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 <a sua bbs local>',
+                               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 <seu email>',
+                               emaila => 'O seu email  agora \"$_[0]\"',
+                               email => 'Email definido para: $_[0]',
+                               export1 => 'uso: export <msgno> <nome de ficheiro>',
+                               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 <o seu DX Cluster>',
+                               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 <ling> aonde <ling>  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 <latitude longitude>',
+                               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 <call>|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 <cmd> <msgno> 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 <o seu nome>',
+                               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 <password> <indicativo>',
+                               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 <o seu qth>',
+                               qth => 'O seu QTH  \"$_[0]\"',
+                               qrae1 => 'Por favor escreva o seu locator, set/qra <locator> (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 <nome> [<horas> <intervalo>]',
+                               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 <indicativo> ann|spots|wwv|wcy <nmero de saltos>',
+                               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, /<cmd> 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 <indicativo> 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]',
+                          },
                
 );
 
index 0c2b2e4a6f69c7d20449fc1005250a66f2869bda..3c4addd01c841ab41d54c45c63e779c0cb734128 100644 (file)
@@ -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;
        }