From: Dirk Koopman <djk@tobit.co.uk>
Date: Sun, 18 Nov 2007 10:52:40 +0000 (+0000)
Subject: fix Local::ann eval error.
X-Git-Tag: 1.55~32
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=6a14d3e73d12b525dfe387753feae82a99a24eac;p=spider.git

fix Local::ann eval error.

For some reason if (defined *Local::ann) does not do what I expect.
More research required.
---

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;