From 28adf81497391e90c2c46201f7f3bc23986251fb Mon Sep 17 00:00:00 2001 From: djk Date: Thu, 25 Feb 1999 22:26:35 +0000 Subject: [PATCH] added NL language and the ability to change to it --- Changes | 3 ++ cmd/Commands_en.hlp | 4 ++ cmd/set/language.pl | 34 +++++++++++++++ data/prefix_data.pl | 1 + data/rsgb.cty | 2 +- perl/DXM.pm | 4 ++ perl/Messages | 102 ++++++++++++++++++++++++++++++++++++++++++++ 7 files changed, 149 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index 50528a69..8895b547 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,6 @@ +25Feb99======================================================================== +1. added NL language stuff. +2. added set/language 21Feb99======================================================================== 1. Allowed multiple 'on ' for show/dx 2. Made sure the 'on 20m/ssb' thing worked (also 'on hf/cw'). diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp index b78e29db..51cdc93b 100644 --- a/cmd/Commands_en.hlp +++ b/cmd/Commands_en.hlp @@ -246,6 +246,10 @@ You can potentially connect several nodes in this way. === 9^UNSET/ISOLATE^Stop Isolation of a node from the rest of the network 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) and nl (dutch). + === 0^SET/LOCATION ^Set your latitude and longitude === 9^SET/SYS_LOCATION ^Set your cluster latitude and longitude In order to get accurate headings and such like you must tell the system diff --git a/cmd/set/language.pl b/cmd/set/language.pl index e69de29b..1c04cbd6 100644 --- a/cmd/set/language.pl +++ b/cmd/set/language.pl @@ -0,0 +1,34 @@ +# +# set the user's language +# +# Copyright (c) 1998 - Dirk Koopman G1TLH +# +# $Id$ +# + +my ($self, $line) = @_; +my $call = $self->call; +my $user; + +# modify this next line if you add a language to Messages +my @lang = qw( en nl ); + +# remove leading and trailing spaces +$line =~ s/^\s+//; +$line =~ s/\s+$//; + +return (1, $self->msg('lange1', join(',', @lang))) if !$line; +$line = lc $line; +return (1, $self->msg('lange1', join(',', @lang))) unless grep $_ eq $line, @lang; + + +$user = DXUser->get_current($call); +if ($user) { + $user->lang($line); + $user->put(); + $self->lang($line); + return (1, $self->msg('lang', $line)); +} else { + return (1, $self->msg('lange2', $call)); +} + diff --git a/data/prefix_data.pl b/data/prefix_data.pl index a5700496..d42750b6 100644 --- a/data/prefix_data.pl +++ b/data/prefix_data.pl @@ -919,6 +919,7 @@ 'FR5ZQ/E' => '114', 'FR5ZQ/G' => '113', 'FR5ZQ/J' => '114', + 'FR5ZQ/T' => '115', 'FR5ZU/E' => '114', 'FR5ZU/G' => '113', 'FR5ZU/J' => '114', diff --git a/data/rsgb.cty b/data/rsgb.cty index 0313c050..a659b997 100644 --- a/data/rsgb.cty +++ b/data/rsgb.cty @@ -120,7 +120,7 @@ St. Pierre & Miquelon: NA: 09: 05: FP: FP=TO5M=TO7I; Reunion: AF: 53: 39: FR: FR=TO3R; Glorioso: AF: 53: 39: FR/g: FR5AI=FR5ZQ/G=FR5ZU/G=FR7GL; Juan de Nova & Europa: AF: 53: 39: FR/j: FR4FA=FR5ZQ/E=FR5ZQ/J=FR5ZU/E=FR5ZU/J; -Tromelin: AF: 53: 39: FR/t: FR5ZU/T=FR7CG; +Tromelin: AF: 53: 39: FR/t: FR5ZQ/T=FR5ZU/T=FR7CG; Crozet: AF: 68: 39: FT8W: FT0W=FT2W=FT4W=FT5W=FT8W; Kerguelen: AF: 68: 39: FT8X: FT0X=FT2X=FT4X=FT5X=FT8X; Amsterdam & St. Paul: AF: 68: 39: FT8Z: FT0Z=FT2Z=FT4Z=FT5Z=FT8Z; diff --git a/perl/DXM.pm b/perl/DXM.pm index 5a3b22e3..30a0cc1e 100644 --- a/perl/DXM.pm +++ b/perl/DXM.pm @@ -28,6 +28,10 @@ sub msg my $m = shift; my $ref = $msgs{$lang}; my $s = $ref->{$m} if $ref; + if (!$s && $lang ne 'en') { + $ref = $msgs{'en'}; + $s = $ref->{$m}; + } return "unknown message '$m' in lang '$lang'" if !defined $s; my $ans = eval qq{ "$s" }; confess $@ if $@; diff --git a/perl/Messages b/perl/Messages index 6f78b8d3..0bd8bd28 100644 --- a/perl/Messages +++ b/perl/Messages @@ -52,12 +52,16 @@ package DXM; homebbs => 'Home BBS set to: $_[0]', homenode => 'Home Node set to: $_[0]', hnodee1 => 'Please enter your Home Node, set/homenode ', + hnodee2 => 'Failed to set homenode on $_[0]', hnode => 'Your Homenode is now \"$_[0]\"', iso => '$_[0] Isolated', isou => '$_[0] UnIsolated', isoc => '$_[0] created and Isolated', l1 => 'Sorry $_[0], you are already logged on on another channel', l2 => 'Hello $_[0], this is $main::mycall in $main::myqth running DXSpider V$main::version', + lang => 'Language is now $_[0]', + lange1 => 'set/language where is one of ($_[0])', + lange2 => 'failed to set language on $_[0]', lh1 => '$main::data/hop_table.pl doesn\'t exist', loce1 => 'Please enter your location,, set/location ', loce2 => 'Don\'t recognise \"$_[0]\" as a Lat/Long (eg 52 20 N 0 16 E)', @@ -108,6 +112,104 @@ package DXM; wxs => 'WX flag set on $_[0]', wxu => 'WX flag unset on $_[0]', }, + nl => { + addr => 'Addres gezet op: $_[0]', + already => '$_[0] reeds geconnect', + anns => 'Announce berichten AAN gezet voor $_[0]', + annu => 'Announce berichten UIT gezet voor $_[0]', + bbse1 => 'Geef je home bbs (mailbox),, set/bbs ', + bbs => 'Je home bbs (mailbox) is nu \"$_[0]\"', + beepoff => 'De beep staat nu UIT', + beepon => 'De beep staat nu AAN', + conother => 'Sorry $_[0] je bent reeds geconnect op een andere poort', + concluster => 'Sorry $_[0] je bent reeds op een ander cluster geconnect', + conscript => 'Geen connectscript aangeroepen \"$_[0]\" gevonden in $main::root/connect', + confail => 'Verbinding met $_[0] mislukt ($_[1])', + constart => 'Verbinding met $_[0] gestart', + disc1 => 'Gedisconnect door $_[0]', + disc2 => '$_[0] gedisconnect', + dx1 => 'Frequentie $_[0] valt niet binnen een band [Opdracht: DX freq call commentaar](Zie sh/band)', + dx2 => 'Ik heb een call nodig! [Opdracht: DX freq call commentaar]', + dxs => 'DX Spots worden WEL doorgegeven aan $_[0]', + dxu => 'DX Spots worden NIET doorgegeven aan $_[0]', + e1 => 'Ongeldige opdracht', + e2 => 'Fout: $_[0]', + e3 => '$_[0]: $_[1] niet gevonden', + e4 => 'Minimaal een prefix of een call nodig', + e5 => 'Niet toegestaan', + e6 => '*** Geen station gespecifiseerd ***', + e7 => 'Callsign $_[0] is niet zichtbaar op het cluster', + e8 => 'Ik heb een call en tekst nodig', + e9 => 'Ik heb wel tekst nodig voor een announce!', + e10 => '$_[0] is niet lokaal verbonden', + e12 => 'Ik heb een node call nodig', + e13 => '$_[0] is geen node', + emaile1 => 'Geef uw E-mail addres, set/email ', + emaila => 'Uw E-Mail addres is nu \"$_[0]\"', + email => 'E-mail addres gezet op: $_[0]', + helpe1 => 'Help systeem niet beschikbaar, meld dit aan de sysop', + helpe2 => 'Geen help beschikbaar over \"$_[0]\"', + heres => 'Aanwezigheid AAN gezet voor $_[0]', + heade1 => 'Gebruik gemaakt van de $main::mycall coordinaten, overweeg een set/location of set/qra', + hereu => 'Aanwezigheid UIT gezet voor $_[0]', + homebbs => 'Uw Home mailbox is nu $_[0]', + homenode => 'Uw (Home) DX-Cluster is : $_[0]', + hnodee1 => 'Geef mij uw lokale (home) DX-cluster, set/homenode ', + hnode => 'Uw (home) DX-cluster is nu \"$_[0]\"', + iso => '$_[0] is geisoleerd (Isolated)', + isou => '$_[0] is niet meer geisoleerd (UnIsolated)', + isoc => '$_[0] gecreerd en geisoleerd (Isolated)', + l1 => 'Sorry $_[0], u bent reeds op een ander kanaal ingelogt', + l2 => 'Hallo $_[0], dit is $main::mycall in $main::myqth met DXSpider V$main::version', + lh1 => '$main::data/hop_table.pl bestaat niet', + loce1 => 'Geef uw coordinaten met, set/location ', + loce2 => 'Herken \"$_[0]\" niet als Lat/Long (vb 52 20 N 0 16 E)', + loc => 'Uw Latitude en Longitude zijn nu \"$_[0]\"', + lockout => '$_[0] heeft geen toegang meer (Locked out)', + lockoutun => '$_[0] heeft wederom toegang (Unlocked)', + m2 => '$_[0] Informatie: $_[1]', + merge1 => 'Merge verzoek voor $_[1] spots en $_[2] WWV verzonden naar $_[0]', + msgnew => 'Er is nieuwe post gearriveerd voor u', + namee1 => 'Geef aub uw naam met, set/name ', + namee2 => 'Gebruiker $_[0] niet te vinden!', + name => 'Uw naam is gezet op \"$_[0]\"', + node => '$_[0] gezet als een AK1A stijl DX-cluster', + nodeu => '$_[0] teruggezet naar gebruiker status', + nodec => '$_[0] gecreeerd als AK1A stijl DX-cluster', + nodee1 => 'U kunt deze opdracht niet uitvoeren zolang ($_[0]) on-line is', + ok => 'Opdracht succesvol uitgevoerd', + page => 'Druk op Enter om door te gaan, A om af te breken (nog $_[0] regels) >', + pagelth => 'Paginalengte gezet op ($_[0]) regels', + passerr => 'Gebruik: SET/PASS ', + password => 'Wachtwoord gezet of gewijzigd voor $_[0]', + pingo => 'Ping gestart naar $_[0]', + pingi => 'Ping ontvangen van $_[0] ($_[2] secs)', + pr => '$_[0] de $main::mycall $main::cldate $main::ztime >', + pr2 => '($_[0]) de $main::mycall $main::cldate $main::ztime >', + priv => 'Privilege level gewijzigd op $_[0]', + prx => '$main::mycall >', + qll => 'Geef uw locator met set/location of set/qra', + qthe1 => 'Geef uw woonplaats met, set/qth ', + qth => 'Uw QTH is nu \"$_[0]\"', + qrae1 => 'Geef uw QRA locator, set/qra (vb set/qra JO33FD)', + qrashe1 => 'Geef uw QRA locator, vbg sh/qra JO33FD of sh/qra JO33FD IO93NS', + qrae2 => 'Ik herken \"$_[0]\" niet als een QRA locator (vb JO33FD)', + qra => 'Uw QRA Locator is nu \"$_[0]\"', + rcmdo => 'RCMD \"$_[0]\" verzonden naar $_[1]', + read1 => 'Sorry, geen berichten voor u', + read2 => 'Bericht $_[0] niet gevonden', + read3 => 'Bericht $_[0] niet beschikbaar', + shutting => '$main::mycall gaat QRT...', + sloc => 'Cluster lat $_[0] long $_[1], DON\'T FORGET TO CHANGE YOUR DXVars.pm', + sqra => 'Cluster QRA Locator$_[0], DON\'T FORGET TO CHANGE YOUR DXVars.pm', + talks => 'Talk berichten AAN gezet voor $_[0]', + talku => 'Talk berichten UIT gezet voor $_[0]', + usernf => '*** Gebruiker info van $_[0] niet gevonden ***', + wwvs => 'WWV berichten AAN gezet voor $_[0]', + wwvu => 'WWV berichten UIT gezet voor $_[0]', + wxs => 'WX berichten AAN gezet voor $_[0]', + wxu => 'WX berichten UIT gezet voor $_[0]', + }, fr => { }, de => { -- 2.43.0