#!/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";
@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";
$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;
}
