X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FLocal.pm;h=3645b4deff187b53ccc62977ea994d7088c03d9a;hb=e72ce56ce6973656acb064366459d54cda85f8cc;hp=9421f784f3a83f182611702e7a8ec61b79eda022;hpb=0a67d4205afe425cd3e06516835956cbb94dff49;p=spider.git

diff --git a/perl/Local.pm b/perl/Local.pm
index 9421f784..3645b4de 100644
--- a/perl/Local.pm
+++ b/perl/Local.pm
@@ -23,157 +23,157 @@ use strict;
 use vars qw{ };
 
 # called at initialisation time
-sub init
-{
-
-}
+#sub init
+#{
+#
+#}
 
 # called once every second
-sub process
-{
-
-}
+#sub process
+#{
+#
+#}
 
 # called just before the ending of the program
-sub finish
-{
-
-}
+#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 
+# $self      - the DXChannel object
 # $pcno      - the no of the PC field
+# $line      - the actual incoming line with its hop count already decremented
 # @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
+#              $field[0] will be PC11 or PC26
+#sub pcprot
+#{
+
+#	my ($self, $pcno, $line, @field) = @_;
 
-	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;
-}
+# 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
@@ -181,18 +181,18 @@ sub pcprot
 # that YOU have done some routing or other instead
 #
 # Parameters:-
-# $self      - the DXChannel object 
+# $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;
-}
+#
+#sub spot
+#{
+#	return 0;
+#}
 
 # called after the announce has been stored but before it is broadcast,
 # you can do funky routing here that is non-standard. 0 carries on
@@ -208,10 +208,10 @@ sub spot
 # $flag      - ' ' - normal announce, * - SYSOP, else CHAT group
 # $origin    - originating node
 # $wx        - 0 - normal, 1 - WX
-sub ann
-{
-	return 0;
-}
+#sub ann
+#{
+#	return 0;
+#}
 
 
 # called after the wwv has been stored but before it is broadcast,
@@ -220,33 +220,33 @@ sub ann
 # 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;
-}
+# $self      - the DXChannel object
+# The rest the same as for Geomag::update
+#sub wwv
+#{
+#	return 0;
+#}
 
 # same for wcy broadcasts
-sub wcy
-{
-	return 0;
-}
+#sub wcy
+#{
+#	return 0;
+#}
 
 # no idea what or when these are called yet
-sub userstart
-{
-	return 0;
-}
-
-sub userline
-{
-	return 0;
-}
-
-sub userfinish
-{
-	return 0;
-}
+#sub userstart
+#{
+#	return 0;
+#}
+
+#sub userline
+#{
+#	return 0;
+#}
+
+#sub userfinish
+#{
+#	return 0;
+#}
 1;
 __END__