added NL language and the ability to change to it

diff --git a/Changes b/Changes
index 50528a697e605bd4d2d0cda9ce8610c7736f9ce9..8895b547abdc034b265d0524c18836bb6842f617 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+25Feb99========================================================================
+1. added NL language stuff.
+2. added set/language
 21Feb99========================================================================
 1. Allowed multiple 'on <freq>' 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 b78e29db376dd5f651a12395e90b08dc30e0505f..51cdc93b721bb7889765995a76ec8ccc14f7d014 100644 (file)
--- 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 <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) 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
 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 e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..1c04cbd61520cb5e135f14a18637e2d155760bb4 100644 (file)
--- 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 a57004965f53b8f4dad69f9e247f8d97cdf88e59..d42750b67cb940919c7271e21e77fb52e5abdfed 100644 (file)
--- 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 0313c0503e43fdebc3447480bb54992038a2d354..a659b99797064d2ecfd00b0f0b93cfec226b11c5 100644 (file)
--- 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 5a3b22e3b086415804cde6ab1c317e9fae16bed8..30a0cc1e221dfa7c858b165d3ef7cdf879270b78 100644 (file)
--- 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 6f78b8d38f36af8b834accf5b01dc8b9e76dc048..0bd8bd2853340ca0108aee4c77bba719eee2cdac 100644 (file)
--- 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 <your home DX Cluster>',
+                               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 <lang> where <lang> 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 <latitude longitude>',
                                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 <home mailbox>',
+                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 <uw e-mail addres>',
+                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 <DX-cluster>',
+                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 <latitude longitude>',
+                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 <uw naam>',
+                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 <wachtwoord> <call>',
+                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 <woonplaats>',
+                qth => 'Uw QTH is nu \"$_[0]\"',
+                qrae1 => 'Geef uw QRA locator, set/qra <qra locator> (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 => {