From 6a14d3e73d12b525dfe387753feae82a99a24eac Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Sun, 18 Nov 2007 10:52:40 +0000 Subject: [PATCH] fix Local::ann eval error. For some reason if (defined *Local::ann) does not do what I expect. More research required. --- perl/Local.pm | 20 ++++++++++++++++++++ perl/Version.pm | 2 +- 2 files changed, 21 insertions(+), 1 deletion(-) diff --git a/perl/Local.pm b/perl/Local.pm index 2771bbe4..9421f784 100644 --- a/perl/Local.pm +++ b/perl/Local.pm @@ -194,6 +194,26 @@ sub spot return 0; } +# called after the announce has been stored but before it is broadcast, +# you can do funky routing here that is non-standard. 0 carries on +# after this, 1 stops dead and no routing is done (this could mean +# that YOU have done some routing or other instead +# +# Parameters:- +# $self - the DXChannel object +# $line - the input PC12 line +# $announcer - the call that announced this +# $via - the destination * = everywhere, callsign - just to that node +# $text - the text of the chat +# $flag - ' ' - normal announce, * - SYSOP, else CHAT group +# $origin - originating node +# $wx - 0 - normal, 1 - WX +sub ann +{ + return 0; +} + + # called after the wwv has been stored but before it is broadcast, # you can do funky routing here that is non-standard. 0 carries on # after this, 1 stops dead and no routing is done (this could mean diff --git a/perl/Version.pm b/perl/Version.pm index ee36fd9a..886f453d 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 = '187'; +$build = '188'; 1; -- 2.43.0