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 # $line - the actual incoming line with its hop count already decremented
50 # @field - the spot exactly as is, split up into fields
51 # $field[0] will be PC11 or PC26
55 # my ($self, $pcno, $line, @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 announce 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 # $line - the input PC12 line
205 # $announcer - the call that announced this
206 # $via - the destination * = everywhere, callsign - just to that node
207 # $text - the text of the chat
208 # $flag - ' ' - normal announce, * - SYSOP, else CHAT group
209 # $origin - originating node
210 # $wx - 0 - normal, 1 - WX
217 # called after the wwv has been stored but before it is broadcast,
218 # you can do funky routing here that is non-standard. 0 carries on
219 # after this, 1 stops dead and no routing is done (this could mean
220 # that YOU have done some routing or other instead
223 # $self - the DXChannel object
224 # The rest the same as for Geomag::update
230 # same for wcy broadcasts
236 # no idea what or when these are called yet