added radio specific "motd_ax25"

diff --git a/Changes b/Changes
index 2eba7883b459850f512973d06e42f9fc0cdda830..2a1f37d32641cf456ad03b7a44d481dd59dc46b1 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+06Oct07=======================================================================
+1. added the possibility of having a motd_ax25 especially for sending to
+radio connections after a suggestion by Paolo YV1DIG.
 05Oct07=======================================================================
 1. Handle PC61 from VE1CC clusters as PC11.
 01Oct07=======================================================================

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 691e29b2d6b3fa928933a878ec07221b579957da..a00e0be808a9d19afb85db07f9f2b3da7c1b54a0 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -143,6 +143,13 @@ sub start
        }
        $motd = "${main::motd}_$self->{lang}" unless $motd && -e $motd;
        $motd = $main::motd unless $motd && -e $motd;
+       if ($self->conn->{csort} eq 'ax25') {
+               if ($motd) {
+                       $motd = "${motd}_ax25" if -e "${motd}_ax25";
+               } else {
+                       $motd = "${main::motd}_ax25" if -e "${main::motd}_ax25";
+               }
+       }
        $self->send_file($motd) if -e $motd;
 
        # sort out privilege reduction

diff --git a/perl/Version.pm b/perl/Version.pm
index c9276554ea0ac87e009c0e7c61d81c22b6d2af0f..a0cbffaefa9e81577dfc76a978c18ebc414d20fd 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
-$build = '163';
+$build = '164';
 
 1;