#!/usr/bin/perl
use strict;

my $tagfile = "./tagfile";
my $X = ();

foreach my $file (glob("*.tgz")) {
	my ($pkgnam) = $file =~ /^(.+)-[^-]+-(power|noarch)/;
	die "No pkgname matched for $file\n" unless $pkgnam;
	$X->{$pkgnam}->{file} = 1;
}

open(TF, $tagfile) or die;
while(<TF>) {
	chomp;
	next if $_ =~ /^#/;
	my ($pkgx) = $_ =~ /^(.+):/;
	die "No package found : $_\n" unless $pkgx;
	$X->{$pkgx}->{tag} = 1;
}



print "PACKAGE NAME            FILE   TAG\n";
foreach my $pkg (keys(%$X)) {
	printf("%-25s %d     %d", $pkg, $X->{$pkg}->{file}, $X->{$pkg}->{tag});
	print "***" if($X->{$pkg}->{file}+$X->{$pkg}->{tag} != 2);
	print "\n";
}