#!/usr/bin/perl
# Test that each installable theme has an AUTHOR file.

foreach my $dir ( sort( glob( "../templates/*/" ) ) )
{
    next if ( $dir =~ /CVS/ );

    if ( not -e $dir . "/" . "AUTHOR" )
    {
	my $name = $dir;
	if ( $name =~ /(.*)\/(.*)/ )
	{
	    my $name = $2;
	}
#	print "\nTheme $name is missing an AUTHOR file.\n";
	exit 1;
    }
}

exit 0;
