added language dependant motd files

diff --git a/Changes b/Changes
index d7083992c21bf0bee1aaebeb4be4978a7c76aad0..6cd63ad1b74bb833a962183757e6ac001009427a 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 19Jan05=======================================================================
 1. More Spanish changes by Angel, EA7WA.
+2. add language dependant motd files. You can now have motd_{lang} and 
+motd_nor_{lang} (eg for Spanish: motd_es and motd_nor_es) for normal and
+non-registered (if you use registration) users respectively. Based on an idea
+from Angel, EA7WA.
 18Jan05=======================================================================
 1. Added missing Spanish translation courtesy of Angel EA7WA.
 2. Really incorporate latest cty.dat (11Dec04) as opposed to merely thinking 

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 80a31ed517a6829d91c4cf5ae034478403cf711f..debc23d2af1dddc01fc1b5f4ed1aafd4c05896fe 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -129,7 +129,12 @@ sub start
 
 
        # decide which motd to send
-       my $motd = "${main::motd}_nor" unless $self->{registered};
+       my $motd;
+       unless ($self->{registered}) {
+               $motd = "${main::motd}_nor_$self->{lang}";
+               $motd = "${main::motd}_nor" unless -e $motd;
+       }
+       $motd = "${main::motd}_$self->{lang}" unless $motd && -e $motd;
        $motd = $main::motd unless $motd && -e $motd;
        $self->send_file($motd) if -e $motd;