X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=be8be669c8d9e8899210163112c805551cb10d7b;hb=8720504a4ba0e0df8fc3932f3eb55a63decc8e9a;hp=11ffdfa41344254622620ecd9492e0e2941cff8b;hpb=0c22d71289fdc4bdd22cfef0a131fe45faf09070;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 11ffdfa4..be8be669 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -384,7 +384,7 @@ sub genstats($)
 		for ($i = 0; $i < @freq+2; $i++) {
 			$tot[$i] ||= 0;
 		}
-		$out->write(join('^', 'TOTALS', @tot) . "\n");
+		$statp->write($date, join('^', 'TOTALS', @tot));
 
 		for (sort {$list{$b}->[0] <=> $list{$a}->[0]} keys %list) {
 			my $ref = $list{$_};
@@ -392,9 +392,9 @@ sub genstats($)
 			for ($i = 0; $i < @freq+2; ++$i) {
 				$ref->[$i] ||= 0;
 			}
-			$out->write(join('^', $call, @$ref) . "\n");
+			$statp->write($date, join('^', $call, @$ref));
 		}
-		$out->close;
+		$statp->close;
 	}
 }