1. Crossed fingers, got rid of the instabilities caused by execing programs

[spider.git] / perl / Local.pm

diff --git a/perl/Local.pm b/perl/Local.pm
new file mode 100644 (file)
index 0000000..3d29627
--- /dev/null
+++ b/perl/Local.pm
@@ -0,0 +1,226 @@
+#
+# 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__