--- /dev/null
+#
+# This is a template Local module
+#
+# DON'T CHANGE THIS, copy it to ../local/ and change it
+# there
+#
+# You can add whatever code you like in here, you can also declare
+# new subroutines in addition to the ones here, include other packages
+# or do whatever you like. This is your spring board.
+#
+
+package Local;
+
+use DXVars;
+use DXDebug;
+use DXUtil;
+
+# DON'T REMOVE THIS LINE
+use strict;
+
+
+# declare any global variables you use in here
+use vars qw{ };
+
+# called at initialisation time
+sub init
+{
+
+}
+
+# called once every second
+sub process
+{
+
+}
+
+# called just before the ending of the program
+sub finish
+{
+
+}
+
+# called after an incoming PC line has been split up, return 0 if you want to
+# continue and 1 if you wish the PC Protocol line to be ignored completely
+#
+# Parameters:-
+# $self - the DXChannel object
+# $pcno - the no of the PC field
+# @field - the spot exactly as is, split up into fields
+# $field[0] will be PC11 or PC26
+sub pcprot
+{
+ return 0; # remove this line if you want the switch
+
+ my ($self, $pcno, @field) = @_;
+
+ # take out any switches that aren't interesting to you.
+ SWITCH: {
+ if ($pcno == 10) { # incoming talk
+ last SWITCH;
+ }
+
+ if ($pcno == 11 || $pcno == 26) { # dx spot
+ last SWITCH;
+ }
+
+ if ($pcno == 12) { # announces
+ last SWITCH;
+ }
+
+ if ($pcno == 13) {
+ last SWITCH;
+ }
+ if ($pcno == 14) {
+ last SWITCH;
+ }
+ if ($pcno == 15) {
+ last SWITCH;
+ }
+
+ if ($pcno == 16) { # add a user
+ last SWITCH;
+ }
+
+ if ($pcno == 17) { # remove a user
+ last SWITCH;
+ }
+
+ if ($pcno == 18) { # link request
+ last SWITCH;
+ }
+
+ if ($pcno == 19) { # incoming cluster list
+ last SWITCH;
+ }
+
+ if ($pcno == 20) { # send local configuration
+ last SWITCH;
+ }
+
+ if ($pcno == 21) { # delete a cluster from the list
+ last SWITCH;
+ }
+
+ if ($pcno == 22) {
+ last SWITCH;
+ }
+
+ if ($pcno == 23 || $pcno == 27) { # WWV info
+ last SWITCH;
+ }
+
+ if ($pcno == 24) { # set here status
+ last SWITCH;
+ }
+
+ if ($pcno == 25) { # merge request
+ last SWITCH;
+ }
+
+ if (($pcno >= 28 && $pcno <= 33) || $pcno == 40 || $pcno == 42 || $pcno == 49) { # mail/file handling
+ last SWITCH;
+ }
+
+ if ($pcno == 34 || $pcno == 36) { # remote commands (incoming)
+ last SWITCH;
+ }
+
+ if ($pcno == 35) { # remote command replies
+ last SWITCH;
+ }
+
+ if ($pcno == 37) {
+ last SWITCH;
+ }
+
+ if ($pcno == 38) { # node connected list from neighbour
+ last SWITCH;
+ }
+
+ if ($pcno == 39) { # incoming disconnect
+ last SWITCH;
+ }
+
+ if ($pcno == 41) { # user info
+ last SWITCH;
+ }
+ if ($pcno == 43) {
+ last SWITCH;
+ }
+ if ($pcno == 44) {
+ last SWITCH;
+ }
+ if ($pcno == 45) {
+ last SWITCH;
+ }
+ if ($pcno == 46) {
+ last SWITCH;
+ }
+ if ($pcno == 47) {
+ last SWITCH;
+ }
+ if ($pcno == 48) {
+ last SWITCH;
+ }
+
+ if ($pcno == 50) { # keep alive/user list
+ last SWITCH;
+ }
+
+ if ($pcno == 51) { # incoming ping requests/answers
+ last SWITCH;
+ }
+ }
+ return 0;
+}
+
+# called after the spot 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
+# $freq - frequency
+# $spotted - the spotted callsign
+# $d - the date in unix time format
+# $text - the text of the spot
+# $spotter - who spotted it
+# $orignode - the originating node
+#
+sub spot
+{
+ 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
+# that YOU have done some routing or other instead
+#
+# Parameters:-
+# $self - the DXChannel object
+# The rest the same as for Geomag::update
+sub wwv
+{
+ return 0;
+}
+
+# no idea what or when these are called yet
+sub userstart
+{
+ return 0;
+}
+
+sub userline
+{
+ return 0;
+}
+
+sub userfinish
+{
+ return 0;
+}
+1;
+__END__