X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=2863a449d54adbd4ae33bf6411a8e52cc0286101;hb=6a98ae5890ea507e2687fcb9e783c4a26127e557;hp=8e8f7fd06ea7f29941ea746d2359432540a836e1;hpb=ccd8bcf26e31695caa0c6015e0756eebb2428cb1;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 8e8f7fd0..2863a449 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -22,11 +22,11 @@ use strict;
 
 use vars qw($VERSION $BRANCH);
 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ ) || 0;
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
 $main::build += $VERSION;
 $main::branch += $BRANCH;
 
-use vars qw($fp $statp $maxspots $defaultspots $maxdays $dirprefix $duplth $dupage $filterdef);
+use vars qw($fp $statp $maxspots $defaultspots $maxdays $dirprefix $duplth $dupage $filterdef $totalspots $hfspots $vhfspots);
 
 $fp = undef;
 $statp = undef;
@@ -52,7 +52,7 @@ $filterdef = bless ([
 			  ['by_zone', 'nz', 11],
 			  ['channel', 'c', 12],
 			 ], 'Filter::Cmd');
-
+$totalspots = $hfspots = $vhfspots = 0;
 
 # create a Spot Object
 sub new
@@ -140,6 +140,12 @@ sub add
 {
 	my $buf = join("\^", @_[0..7]);
 	$fp->writeunix($_[2], $buf);
+	$totalspots++;
+	if ($_[0] <= 30000) {
+		$hfspots++;
+	} else {
+		$vhfspots++;
+	}
 }
 
 # search the spot database for records based on the field no and an expression