X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FSpot.pm;h=2863a449d54adbd4ae33bf6411a8e52cc0286101;hb=f8bcb6f0239cfcec6d31a37b08c7f7e28cbf7628;hp=6262d79e3b16cf8bec846bf5277cb44290eda296;hpb=dbf7523a9b228dbdf1d03109afde351b8b194fab;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 6262d79e..2863a449 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -26,7 +26,7 @@ $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