X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FLocal.pm;fp=perl%2FLocal.pm;h=3d2962700bcb3466396e7fb281fe74de8180930a;hb=5d197c9f7aa2ea796d86aa5473f93956b24cf1b7;hp=0000000000000000000000000000000000000000;hpb=f3adc82a0299652d929b73c718127fa38571eec5;p=spider.git

diff --git a/perl/Local.pm b/perl/Local.pm
new file mode 100644
index 00000000..3d296270
--- /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__