From 6ca24487551f66211b94d8a719e482ee3af81a29 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Sat, 6 Oct 2007 09:05:52 +0100
Subject: [PATCH] added radio specific "motd_ax25"

---
 Changes               | 3 +++
 perl/DXCommandmode.pm | 7 +++++++
 perl/Version.pm       | 2 +-
 3 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 2eba7883..2a1f37d3 100644
--- 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 691e29b2..a00e0be8 100644
--- 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 c9276554..a0cbffae 100644
--- 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;
-- 
2.43.0