X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=80d345ed69e19f716f6a258762e616c221e89817;hb=abe7df695ac8666bf0d00c38f43bf68b76a00c31;hp=6262d79e3b16cf8bec846bf5277cb44290eda296;hpb=5b621c40fa6165a9f0eaf592d24a63a174e4b902;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 6262d79e..80d345ed 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;
@@ -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