#!/usr/bin/perl
$dir = "/var/spool/news/htdocs/tlcplus/";
system("rm /usr/local/etc/httpd/cgi-bin/tlc/engine/*.db");
@loop[0]="/var/spool/news/htdocs/tlcplus/tlc_fwom.html";
@loop[1]="/var/spool/news/htdocs/tlcplus/men_men.htm";
@loop[2]="/var/spool/news/htdocs/tlcplus/tlc_fmen.html";
@loop[3]="/var/spool/news/htdocs/tlcplus/wom_wom.htm";
@loop[4]="/var/spool/news/htdocs/tlcplus/tlc_fwo1.html";
@loop[5]="/var/spool/news/htdocs/tlcplus/men_me1.htm";
@loop[6]="/var/spool/news/htdocs/tlcplus/tlc_fme1.html";
@loop[7]="/var/spool/news/htdocs/tlcplus/wom_wo1.htm";
@loop[8]="/var/spool/news/htdocs/tlcplus/tlc_fwo2.html";
@loop[9]="/var/spool/news/htdocs/tlcplus/tlc_fme2.html";
@loop[10]="/var/spool/news/htdocs/tlcplus/tlc_fwo3.html";
@loop[11]="/var/spool/news/htdocs/tlcplus/wom_wo2.htm";
@loop[12]="/var/spool/news/htdocs/tlcplus/men_me2.htm";
@loop[13]="/var/spool/news/htdocs/tlcplus/tlc_fmen4.html";
@loop[14]="/var/spool/news/htdocs/tlcplus/tlc_fme5.html";
@loop[15]="/var/spool/news/htdocs/tlcplus/tlc_fme6.html";
@loop[16]="/var/spool/news/htdocs/tlcplus/tlc_fme7.html";
@loop[17]="/var/spool/news/htdocs/tlcplus/tlc_fwo4.html";
@loop[18]="/var/spool/news/htdocs/tlcplus/tlc_fwo5.html";
@loop[19]="/var/spool/news/htdocs/tlcplus/tlc_fwo6.html";
@loop[20]="/var/spool/news/htdocs/tlcplus/tlc_fme8.html";
@loop[21]="/var/spool/news/htdocs/tlcplus/tlc_fme9.html";

@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";
@db[4]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fwom.db";
@db[5]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/men_men.db";
@db[6]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fmen.db";
@db[7]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/wom_wom.db";
@db[8]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fwom.db";
@db[9]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fmen.db";
@db[10]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fwom.db";
@db[11]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fwom.db";
@db[12]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fmen.db";
@db[13]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fmen.db";
@db[14]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fmen.db";
@db[15]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fmen.db";
@db[16]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fmen.db";
@db[17]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fwom.db";
@db[18]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fwom.db";
@db[19]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fwom.db";
@db[20]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fmen.db";
@db[21]=">>/usr/local/etc/httpd/cgi-bin/tlc/engine/tlc_fmen.db";

$time = 0;
foreach $pair (@loop){
	print "$pair\n";
	open(F,$pair);
	while(<F>)
	{
		open(SAVE,@db[$time]);
		if(/^<TD><A/)
		{
			$file = $_;
			$file =~ s/<TD>//g;
			$file =~ s/\r\n//g;
			@o_file = split(/\"/,$file);
			($s1,$s2)=split(/>/,@o_file[2]);
			($s1,$s2)=split(/</,$s2);
			$tf = join('',$dir,@o_file[1]);
			open(OUT,$tf);
			$flag=0;
			while(<OUT>)
			{
				if((/AGE/)&&($flag==0))
				{
					@temp = split(/:/,$_);
					@age = split(/</,@temp[1]);
					#$age = eval(@age[0]);
					$flag=1;
				}
				elsif(/From/)
				{
					@temp = split(/From/,$_);
					@place = split(/</,@temp[1]);
				}	
				elsif(/HOBBIES/)
				{
					@temp = split(/:/,$_);
					@hob = split(/</,@temp[1]);
				}
			}
			close(OUT);
			$newplace=@place[0];
			$newplace=~tr/a-z/A-Z/;
			$hobs=@hob[0];
#			$hobs=~tr/a-z/A-Z/;
			print SAVE "@o_file[1]:$s1:@age[0]:$newplace:$hobs\n";
#			print SAVE "@o_file[1]:$s1:@age[0]:$newplace\n";
		}
		close(SAVE);
	}	
	close(F);
	$time+=1;
}
