#!/opt/perl/bin/perl
use GOA::Util;
use GOA::PostfitLog;
my %stats;
my $file = shift || 'postfit.log';
my $date = shift || 'today';
my $verb = shift || '';
my $pf = GOA::PostfitLog->new($file);
my $stats = $pf->stats('by_sat');
my %seen=();
my $sats = join("\n",( grep { $seen{$_}++ } map { $_->{sat} } @$stats));
print $sats,"\n";
