2 # This is a template Local module
4 # DON'T CHANGE THIS, copy it to ../local/ and change it
7 # You can add whatever code you like in here, you can also declare
8 # new subroutines in addition to the ones here, include other packages
9 # or do whatever you like. This is your spring board.
18 # DON'T REMOVE THIS LINE
22 # declare any global variables you use in here
25 # called at initialisation time
31 # called once every second
37 # called just before the ending of the program
43 # called after an incoming PC line has been split up, return 0 if you want to
44 # continue and 1 if you wish the PC Protocol line to be ignored completely
47 # $self - the DXChannel object
48 # $pcno - the no of the PC field
49 # @field - the spot exactly as is, split up into fields
50 # $field[0] will be PC11 or PC26
53 return 0; # remove this line if you want the switch
55 my ($self, $pcno, @field) = @_;
57 # take out any switches that aren't interesting to you.
59 if ($pcno == 10) { # incoming talk
63 if ($pcno == 11 || $pcno == 26) { # dx spot
67 if ($pcno == 12) { # announces
81 if ($pcno == 16) { # add a user
85 if ($pcno == 17) { # remove a user
89 if ($pcno == 18) { # link request
93 if ($pcno == 19) { # incoming cluster list
97 if ($pcno == 20) { # send local configuration
101 if ($pcno == 21) { # delete a cluster from the list
109 if ($pcno == 23 || $pcno == 27) { # WWV info
113 if ($pcno == 24) { # set here status
117 if ($pcno == 25) { # merge request
121 if (($pcno >= 28 && $pcno <= 33) || $pcno == 40 || $pcno == 42 || $pcno == 49) { # mail/file handling
125 if ($pcno == 34 || $pcno == 36) { # remote commands (incoming)
129 if ($pcno == 35) { # remote command replies
137 if ($pcno == 38) { # node connected list from neighbour
141 if ($pcno == 39) { # incoming disconnect
145 if ($pcno == 41) { # user info
167 if ($pcno == 50) { # keep alive/user list
171 if ($pcno == 51) { # incoming ping requests/answers
178 # called after the spot has been stored but before it is broadcast,
179 # you can do funky routing here that is non-standard. 0 carries on
180 # after this, 1 stops dead and no routing is done (this could mean
181 # that YOU have done some routing or other instead
184 # $self - the DXChannel object
186 # $spotted - the spotted callsign
187 # $d - the date in unix time format
188 # $text - the text of the spot
189 # $spotter - who spotted it
190 # $orignode - the originating node
197 # called after the wwv has been stored but before it is broadcast,
198 # you can do funky routing here that is non-standard. 0 carries on
199 # after this, 1 stops dead and no routing is done (this could mean
200 # that YOU have done some routing or other instead
203 # $self - the DXChannel object
204 # The rest the same as for Geomag::update
210 # same for wcy broadcasts
216 # no idea what or when these are called yet