From 6ca24487551f66211b94d8a719e482ee3af81a29 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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