#!/usr/bin/perl
$dir = "/var/spool/news/htdocs/tlcplus/";
@db[0]="/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fwom.db";
@db[1]="/usr/local/etc/httpd/cgi-bin/tlc/engine/men_men.db";
@db[2]="/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fmen.db";
@db[3]="/usr/local/etc/httpd/cgi-bin/tlc/engine/wom_wom.db";
foreach $pair (@db){
	open(F,@db[$time]);
	while(<F>)
	{
		@names = split(/:/);
		$name=@names[$#name-1];
		@kk = split(/,/,$name);
		$name = @kk[$#kk];
	#	print "$name\n";
		if($name =~ /\/usr\/local\/etc/){
			}else{	
			$user{$name} += 1;
		}
	}
	close(F);
}
open(F,">place.db");
print F "ALL\n";
for $name (sort keys %user){
	print F "$name\n";
}
close(F);
print "Success\n";
