From: minima <minima> Date: Sun, 6 Jan 2002 20:19:40 +0000 (+0000) Subject: added italian translation of Messages from IT9ROT X-Git-Tag: R_1_50~110 X-Git-Url: http://dxspider.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=e18c9b8b9a003bfb56416ab1d2aee0f232146d25;p=spider.git added italian translation of Messages from IT9ROT added / and // to send added // to talk --- diff --git a/Changes b/Changes index 1b8b9351..3954030b 100644 --- a/Changes +++ b/Changes @@ -9,7 +9,12 @@ list of commands in "<cmd>") to a file. 7. Add a new command "echo" which echos its argument to the screen (useful for titling in the save command above. 8. Increase interval between logins causing for/opernam to 60 days (from 30) -+ a random factor between 0 and 9 ++ a random factor between 0 and 9. +9. Added Italian Messages from Luca IT9ROT (thank you very much). +10. Added the /<cmd> feature (as in talk) to execute a cmd whilst typing a +message, then enhanced it so that if you do //sh/dx (for instance) it will +put the result into the message (as well as show it to you). +11. Added the // feature to talk as well. 02Jan02======================================================================= 1. updated the copyright dates 2. modernised and extended the Windows instructions a bit. diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp index b0b21c66..ff8b54f1 100644 --- a/cmd/Commands_en.hlp +++ b/cmd/Commands_en.hlp @@ -1153,7 +1153,9 @@ an individual callsign or to one of the 'bulletin' addresses. SEND <call> on its own acts as though you had typed SEND PRIVATE, that is it will mark the message as personal and send it to the cluster node that -that callsign is connected to. +that callsign is connected to. If the <call> you have specified is in fact +a known bulletin category on your node (eg: ALL) then the message should +automatically become a bulletin. You can have more than one callsign in all of the SEND commands. @@ -1167,6 +1169,51 @@ receive a read receipt when they have read the message. SB is an alias for SEND NOPRIVATE (or send a bulletin in BBS speak) SP is an alias for SEND PRIVATE +The system will ask you for a subject. Conventionally this should be +no longer than 29 characters for compatibility. Most modern cluster +software should accept more. + +You will now be prompted to start entering your text. + +You finish the message by entering '/EX' on a new line. For instance: + + ... + bye then Jim + 73 Dirk + /ex + +If you have started a message and you don't want to keep it then you +can abandon the message with '/ABORT' on a new line, like:- + + line 1 + line 2 + oh I just can't be bothered with this + /abort + +If you abort the message it will NOT be sent. + +When you are entering the text of your message, most normal output (such +as DX announcements and so on are suppressed and stored for latter display +(upto 20 such lines are stored, as new ones come along, so the oldest +lines are dropped). + +Also, you can enter normal commands commands (and get the output +immediately) whilst in the middle of a message. You do this by typing +the command preceeded by a '/' character on a new line, so:- + + /dx g1tlh 144010 strong signal + +Will issue a dx annoucement to the rest of the cluster. + +Also, you can add the output of a command to your message by preceeding +the command with '//', thus :- + + //sh/vhftable + +This will show YOU the output from SH/VHFTABLE and also store it in the +message. + +You can carry on with the message until you are ready to send it. === 0^SET/ADDRESS <your address>^Record your postal address === 0^SET/ANNOUNCE^Allow announce messages to come out on your terminal @@ -2045,6 +2092,15 @@ To leave talk mode type: /EX +If you are in 'Talk' mode, there is an extention to the '/' command which +allows you to send the output to all the people you are talking to. You do +with the '//' command. For example:- + + //sh/hftable + +will send the hftable as you have it to all the people you are currently +talking to. + === 0^TYPE <filearea>/<name>^Look at the contents of a file in one of the fileareas Type out the contents of a file in a filearea. So, for example, in filearea 'bulletins' you want to look at file 'arld051' you would diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index d562437a..cda76904 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -265,9 +265,24 @@ sub normal } $self->state('prompt'); delete $self->{talklist}; - } elsif ($cmdline =~ m(^/\w+)) { - $cmdline =~ s(^/)(); - $self->send_ans(run_cmd($self, $cmdline)); + } elsif ($cmdline =~ m|^/+\w+|) { + $cmdline =~ s|^/||; + my $sendit = $cmdline =~ s|^/+||; + my @in = $self->run_cmd($cmdline); + $self->send_ans(@in); + if ($sendit && $self->{talklist} && @{$self->{talklist}}) { + foreach my $l (@in) { + my @bad; + if (@bad = BadWords::check($l)) { + $self->badcount(($self->badcount||0) + @bad); + Log('DXCommand', "$self->{call} swore: $l"); + } else { + for (@{$self->{talklist}}) { + $self->send_talks($_, $l); + } + } + } + } $self->send($self->talk_prompt); } elsif ($self->{talklist} && @{$self->{talklist}}) { # send what has been said to whoever is in this person's talk list diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index ff9d45aa..8db35b9d 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -1086,6 +1086,24 @@ sub do_send_stuff delete $self->{loc}; $self->func(undef); $self->state('prompt'); + } elsif ($line =~ m|^/+\w+|) { + # this is a command that you want display for your own reference + # or if it has TWO slashes is a command + $line =~ s|^/||; + my $store = $line =~ s|^/+||; + my @in = $self->run_cmd($line); + push @out, @in; + if ($store) { + foreach my $l (@in) { + if (my @ans = BadWords::check($l)) { + $self->{badcount} += @ans; + Log('msg', $self->call . " used badwords: @ans to @{$loc->{to}} subject: '$loc->{subject}' in msg") unless $loc->{reject}; + Log('msg', "line: $l"); + $loc->{reject}++; + } + push @{$loc->{lines}}, length($l) > 0 ? $l : " "; + } + } } else { if (my @ans = BadWords::check($line)) { $self->{badcount} += @ans; diff --git a/perl/Messages b/perl/Messages index c0f1c06a..128415cb 100644 --- a/perl/Messages +++ b/perl/Messages @@ -906,4 +906,278 @@ package DXM; wxs => 'WX flag gesetzt auf $_[0]', wxu => 'WX flag zurueckgesetzt auf $_[0]', }, - ); + it => { + addr => 'Indirizzo impostato a: $_[0]', + already => '$_[0] e\' connesso', + anns => 'Annunci attivati alle_[0]', + annu => 'Annunci disattivati alle $_[0]', + annts => 'Talk attivato alle $_[0]', + anntu => 'Talk disattivato alle $_[0]', + badnode1 => '$_[0] e\' un nodo disabilitato', + badnode2 => '$_[0] e\' un nodo attivo', + badnode3 => 'Lista dei nodi disabilitati:-', + bbse1 => 'Per favore inserisci l\'indirizzo del tuo BBS con set/bbs <tuo bbs>', + bbs => 'Il tuo BBS e\' ora \"$_[0]\"', + beepoff => 'I beep sono disattivati', + beepon => 'I beep sono attivati', + call1 => 'Ricerca del nominativo via $_[0]:', + conother => 'Spiacente $_[0] sei connesso già su un\'altra porta', + concluster => 'Spiacente $_[0] sei connesso già alla rete cluster (su $_[1])', + conscript => 'nessuno script di connessione chiamato \"$_[0]\" trovato in $main::root/connect', + confail => 'connessione a $_[0] fallita ($_[1])', + constart => 'connessione a $_[0] iniziata', + deluser => 'L\'utente $_[0] e\' stato eliminato', + db1 => 'Questo database e\' presso $_[0]', + db2 => 'Spiacente, ma la chiave: $_[0] non e\' stata trovata in $_[1]', + db3 => 'Spiacente, il database $_[0] non esiste qui', + db4 => 'Spiacente, il database $_[0] presso $_[1] non e\' disponibile al momento', + db5 => 'Sto accedendo al database remoto presso $_[0]...attendere...', + db6 => 'Il database $_[0] esiste già, cancellalo prima', + db7 => 'Il database $_[0] e\' stato creato per il nodo remoto $_[1]', + db8 => 'Il database $_[0] e\' stato creato localmente', + db9 => 'Il database $_[0] e\' stato eliminato', + db10 => '$_[0] record importati in $_[1]', + db11 => 'Sto inviando le tue richieste a $_[0], attendi...', + dfreq1 => 'Frequenza non valida $_[0], deve essere del tipo 0/30000 o hf o hf/cw', + dir1 => 'Nessun messaggio trovato', + disc1 => 'Disconnesso da $_[0]', + disc2 => 'Canalew $_[0] disconnesso', + disc3 => 'Nessun canale, ma la connessione $_[0] disconnessa', + disc4 => 'Nessun canale o connessione ma $_[0] disconnesso', + done => 'Fatto', + dup => 'Spiacente, questo e\' un doppione', + dx1 => 'Frequenza $_[0] non nella banda (controlla show/band); sintassi: DX [BY nominativo] freq nominativo commento', + dx2 => 'Serve un nominatico; sintassi: DX [BY nominativo] freq nominativo commento', + dx3 => 'Il nominativo o la frequenza sono errati', + dxs => 'DX Spots attivati alle $_[0]', + dxu => 'DX Spots disattivati alle $_[0]', + e1 => 'Comando errato', + e2 => 'Errore: $_[0]', + e3 => '$_[0]: $_[1] non trovato', + e4 => 'Inserire un prefisso o un nominativo', + e5 => 'Non permesso', + e6 => '*** Nessuna stazione specificata ***', + e7 => 'il nominativo $_[0] non e\' visibile sul cluster', + e8 => 'Inserire un nominativo o del testo', + e9 => 'Inserire del testo', + e10 => '$_[0] non connesso localmente', + e11 => 'Impossibile usare $main:mycall come destinazione', + e12 => 'Inserire il nominativo di un nodo', + e13 => '$_[0] non e\' un nodo', + e14 => 'Il primo argomento deve essere numerico e > 0', + e15 => 'qualificatore non valido \"$_[0]\"', + e16 => 'Il file \"$_[0]\" esiste', + e17 => 'Non usare le parole: @_ qui', + e18 => 'Impossibile connettere $_[0] ($!)', + e19 => 'Carattere non valido nella linea', + e20 => 'separatore $_[0] non riconosciuto', + e21 => '$_[0] non e\' numerico', + e22 => '$_[0] non e\' un nominativo', + e23 => '$_[0] non e\' un intervallo (es 0/30000)', + e24 => 'Spiacente, l\'accesso ad internet non e\' abilitato', + e25 => 'Spiacente il valore deve essere tra $_[0] e $_[1]', + e26 => 'Troppi errori, stai per essere disconnesso', + e27 => '$_[0] non e\' un prefisso numeroco o di nominativo', + e28 => 'Spiacente, devi essere registrato (SP $main::myalias per registrarti)', + e29 => 'E\' necessaria una password', + + echoon => 'Echo abilitato', + echooff => 'Echo disabilitato', + echow => '*Echo e\' al momento disabilitato, usa set/echo per abilitarlo', + emaile1 => 'Per favore inserisci il tuo indirizzo email con: set/email <indirizzo>', + emaila => 'Il tuo indirizzo email e\' ora \"$_[0]\"', + email => 'Indirizzo email impostato a: $_[0]', + export1 => 'sintassi: export <num_mess> <nome_file>', + export2 => '$_[3] ha problemi esportando i messaggi da $_[0] a $_[1] ($_[2])', + export3 => '$_[2 ] messaggi esportati da $_[0] a $_[1]', + filter1 => 'Filtro $_[0] aggiornato per $_[1]', + filter2 => 'Chiave sconosciuta per il filtro $_[0]', + filter3 => 'Nessun filtro definito per $_[0]', + filter4 => '$_[0]$_[1] Filtro $_[2] cancellato per $_[3]', + filter5 => 'necessito qualche comando per i filtri...', + filter6 => '$_[0]$_[1] Filtro per $[2] non trovato', + grids => 'DX Grid attivato alle $_[0]', + gridu => 'DX Grid disattivato alle $_[0]', + illcall => 'Spiacente, $_[0] non e\' un nominativo valido', + hasha => '$_[0] già esiste $_[1]', + hashb => '$_[0] aggiunto a $_[1]', + hashc => '$_[0] rimosso da $_[1]', + hashd => '$_[0] non in $_[1]', + hashe => '$_[0] impostato a $_[1]', + helpe1 => 'Aiuto non disponibile, contatta il sysop', + helpe2 => 'Nessun aiuto per $_[0]', + heres => 'Here abilitato per $_[0]', + heade1 => 'Sto usando le coordinate $main::mycall, e\' preferibile impostarle con set/location o set/qra', + hereu => 'Here disattivato per $_[0]', + homebbs => 'Home BBS impostata a: $_[0]', + homenode => 'Home Node impostato a: $_[0]', + hnodee1 => 'Per piacere imposta il tuo Home Node con set/homenode <nominativo_cluster>', + hnodee2 => 'Impostazione dell\'homenode fallita per $_[0]', + hnode => 'Il tuo Homenode e\' adesso \"$_[0]\"', + init1 => 'inizializzaione inviata a $_[0]', + iso => '$_[0] Isolato', + isou => '$_[0] non Isolato', + isoc => '$_[0] creato ed isolato', + isoari => 'c\'e\' una filtro sulla rotta in ingresso per $_[0]; eliminala con clear/route input $_[0] prima', + isoaro => 'c\'e\' una filtro sulla rotta in uscita per $_[0]; eliminala con clear/route $_[0] prima', + isow => '$_[0] e\' isolato; unset/isolate $_[0] prima', + l1 => 'Spiacente $_[0], sei già collegato sun un altro canale', + l2 => 'Benvenuto $_[0] sul Cluster $main::mycall a $main::myqth\nsoftware in uso DXSpider V$main::version build $main::build', + lang => 'La lingua selezionata e\' adesso $_[0]', + lange1 => 'set/language <lingua> dove <lingua> e\' una tra ($_[0])', + lange2 => 'impostazione lingua fallita per $_[0]', + lh1 => '$main::data/hop_table.pl non esiste', + loce1 => 'Per piacere inserisci la tua posizione, set/location <latitudine longitudine>', + loce2 => 'Non riconosco \"$_[0]\" come Lat/Long (es 52 20 N 0 16 E)', + loce3 => '$_[0] e\' una locatore QRA, usa: set/qra $_[0]', + loc => 'I tuoi dati Lat/Long sono ora \"$_[0]\"', + lockout => '$_[0] Bloccato', + lockoutc => '$_[0] Creato e bloccato', + lockoutun => '$_[0] Sbloccato', + lockoutuse => 'sintassi: sh/lockout <nominativo>|ALL', + loginu => 'L\'utente $_[0] e\' entrato nel cluster', + logoutu => 'L\'utente $_[0] e\' uscito dal cluster', + loginn => 'Il nodo $_[0] si e\' connesso', + logoutn => 'Il nodo $_[0] si e\' disconnesso', + m1 => 'Inserisci il Soggetto (30 caratteri):', + m2 => 'Copia del messaggio $_[0] spedita a $_[1]', + m3 => 'Spiacente, $_[0] non e\' un destinatario accettabile', + m4 => 'Spiacente, non posso accedere al messaggio $_[0]', + m5 => 'Spiacente, ho bisogno del numero di un messaggio', + m6 => 'Rispondi a: $_[0]', + m7 => 'Soggetto : $_[0]', + m8 => 'Scrivi il messaggio e batti /EX per spedirlo o /ABORT per uscire', + m9 => 'Nuovi messaggi sono arrivati per te', + m10 => 'Messaggio abortito', + m11 => 'Il messaggio $_[0] e\' stato salvato e inviato a $_[1]', + m12 => 'Il messaggio $_[0] e\' stato cancellato', + m13 => 'Il messaggio $_[0] non esiste', + m14 => 'Il messaggio $_[0] e\' stato marcato come spedito a $_[1]', + 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', + 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]', + moon => 'Localita gg/mm/aaaa Alba Tramonto', + moon_with_azel => 'Località + gg/mm/aaaa Alba Tramonto Azim Elev', + mond => 'Monitor disabilitato', + mone => 'Monitor abilitato', + namee1 => 'Per favore inserisci con set/name <nome>', + namee2 => 'Impossibile trovare l\'utente $_[0]!', + name => 'Il tuo nome ora e\' \"$_[0]\"', + nodea => '$_[0] impostato come nodo stile AK1A', + nodeac => '$_[0] creato come nodo stile AK1A', + nodeb => '$_[0] impostato come BBS', + nodebc => '$_[0] creato come BBS', + nodec => '$_[0] impostato come nodo stile CLX', + nodecc => '$_[0] creato come nodo stile CLX', + noder => '$_[0] impostato come nodo stile AR-Cluster', + noderc => '$_[0] creato come nodo stile AR-Cluster', + nodes => '$_[0] impostato come nodo stile DXSpider', + nodesc => '$_[0] creato come nodo stile DXSpider', + nodex => '$_[0] impostato come nodo stile DXNET', + nodexc => '$_[0] creato come nodo stile DXNET', + nodeu => '$_[0] impostato come utente', + nodee1 => 'Non puoi utilizzare questo comando mentre il destinatario ($_[0]) e\' connesso', + notdone => 'Non eseguito', + nothere => 'Spiacente, ma $_[0] non e\' presente al momento, prova più tardi', + obscount => 'Contatore di obsolescenza del ping per $_[0] impostato a $_[1]', + ok => 'Operazione eseguita con successo', + outconn => 'Connessione in corso per $_[0]', + page => 'Premi Invio per continuare, A per annullare ($_[0] linee) >', + pagelth => 'La lunghezza della pagina e\' adesso $_[0]', + passerr => 'sintassi: SET/PASS <password> <nominativo>', + password => 'Password impostata o cambiata per $_[0]', + passwordu => 'Password rimossa per $_[0]', + pingo => 'Ping mandato a $_[0]', + pingi => 'Ping ritornato da $_[0] $_[1] (media $_[2]) secondi', + pinge1 => 'Non puoi far un ping su te stesso!', + pingint => 'Intervallo di ping per $_[0] impostato a $_[1] secondi', + 'pos' => 'Dal nominativo: $_[0] Lat: $_[1] Long: $_[2]', + pr => '$_[0] de $main::mycall $_[1] $_[2] >', + pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >', + priv => 'Privilegi cambiati per $_[0]', + prs => 'Prompt impostato a \"$_[0]\"', + pru => 'Prompt reimpostato al predefinito', + prx => '$main::mycall >', + pw0 => 'Inserisci la vecchia password: ', + pw1 => 'Inserisci la nuova password: ', + pw2 => 'Reinserisci la nuova password: ', + pw3 => 'Password modificata', + pw4 => 'Le password sono differenti, password NON cambiata', + qll => 'Per favore inserisci la tua località con set/location o set/qra', + qthe1 => 'Per favore inserisci il tuo QTH con set/qth <qth>', + qth => 'Il tuo QTH e\' adesso \"$_[0]\"', + qrae1 => 'Per favore inserisci il tuo locatore QRA con set/qra <locatore> (es set/qra JM77GF)', + qrashe1 => 'Please enter a QRA locator, eg sh/qra JO02LQ or sh/qra JO02LQ IO93NS', + qrae2 => 'Non riconosco \"$_[0]\" come locatore QRA (es JM77GF)', + qra => 'Il tuo locatore QRA e\' adesso \"$_[0]\"', + rcmdo => 'RCMD \"$_[0]\" spedito a $_[1]', + rec => '$_[0] records', + read1 => 'Spiacente, non ci sono nuovi messaggi per te', + read2 => 'Messaggio $_[0] non trovato', + read3 => 'Messaggio $_[0] non disponibile', + rec => '$_[0] records', + reg => '$_[0] registrato', + regc => '$_[0] creato e registrato', + reginac => 'La registrazione non e\' attiva (set/var \$main::reqreg = 1 per attivarla)', + regun => '$_[0] deregistrato', + route => '$_[0] su $_[1] via $_[2]', + sat1 => 'Tracking Table for $_[0] for the next $_[1] hours every $_[2] mins', + sat2 => 'dd/mm UTC Lat Lon Alt Km Az El Dist Km', + sat3 => 'Sintassi: SH/SAT <nome> [<ore> <intervallo>]', + sat4 => 'Satelliti disponibili/Età dei Kepleriani (giorni):-', + sat5 => 'serve nnnnn.AMSAT nel soggetto per caricare i kepleriani dal messaggio', + satnf => 'Satellite $_[0] sconosciuto', + satdisc => '-----', + sethop1 => 'sintassi: set/hops <nominativo> ann|spots|wwv|wcy <num di salti>', + sethop2 => '$_[0] salti impostai per $_[1]$_[2] per $_[3]', + sethop3 => 'Nessun salto impostato per $_[0]', + shutting => '$main::mycall si sta arrestando...', + sloc => 'Cluster lat $_[0] long $_[1], Non scordare di camberli nel file DXVars.pm', + snode1 => 'Nodo Nominativo Ordine Versione', + snode2 => '$_[0] $_[1] $_[2]', + snode3 => '$_[0] Nominativo sconosciuto', + sqra => 'Locatore QRA del Cluster$_[0], NON DIMENTICARE DI CAMBIARLO NEL TUO FILE DXVars.pm', + sorry => 'Spiacente', + spf1 => 'spoof: sto creando il nuovo utente $_[0]', + stathf => 'Statistiche HF DX Spot, ultimi 31 giorni', + stathft => 'Statistiche HF DX Spot, ultimi 31 giorni per DXCC $_[0]', + statvhf => 'Statistiche VHF+ DX Spot, ultimi 31 giorni', + statvhft => 'Statistiche VHF+ DX Spot, ultimi 31 days per DXCC $_[0]', + statdx => 'Totale DX Spots degli ultimi 31 giorni', + sun => 'Località gg/mm/aaaa Alba Tramonto', + sun_with_azel => 'Località + gg/mm/aaaa Alba Tramonto Azim Elev', + + suser1 => 'sintassi: nominatio campo_utente valore', + suser2 => 'Utente $_[0] non trovato', + suser3 => 'Il campo utente \'$_[0]\' era \'$_[1]\' ora e\' impostao a \'$_[2]\'', + suser4 => 'Il campo utente \'$_[0]\' non esiste', + time1 => 'Ora locale: $_[0] $_[1], UTC $_[2]', + time2 => '$_[0] Ora (standard) locale: $_[1] ($_[2] ore)', + time3 => '$_[0] $_[1]', + talks => 'Talk abilitato per $_[0]', + talku => 'Talk disabilitato per $_[0]', + talkend => 'Chiude il la conversazione con te', + talkinst => 'Stai entrando nel modo conversazione, /EX per uscire, /<cmd> per eseguire un comando', + talknh => 'Spiaente $_[0] non e\' collegato al momento', + talkprompt => 'Talk ($_[0])>', + talkstart => 'Inizia una conversazione con te', + unsethop1 => 'sintassi: unset/hops <nominativo> ann|spots|wwv|wcy', + unsethop2 => 'salti eliminati su $_[1] per $_[0]', + usernf => '*** Record utente per $_[0] non trovato ***', + wcy1 => '$_[0] manca o e\' fuori limite', + wcy2 => 'WCY duplicato', + wwv1 => '$_[0] manca o e\' fuori limite', + wwv2 => 'WWV duplicato', + wwvs => 'WWV abilitati per $_[0]', + wwvu => 'WWV disabilitati per $_[0]', + wxs => 'WX abilitati per $_[0]', + wxu => 'WX disabilitati per $_[0]', + } +);