#!/usr/bin/perl
$dir = "/var/spool/news/htdocs/tlcplus/";
system("ls *.db");
system("rm *.db");
system("ls *.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.htm";
@loop[3]="/var/spool/news/htdocs/tlcplus/wom_wom.htm";
@db[0]=">>tlc_fwom.db";
@db[1]=">>men_men.db";
@db[2]=">>tlc_fmen.db";
@db[3]=">>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);
			while(<OUT>)
			{
				if(/AGE/)
				{
					@temp = split(/:/,$_);
					@age = split(/</,@temp[1]);
					#$age = eval(@age[0]);
				}
				elsif(/From/)
				{
					@temp = split(/From/,$_);
					@place = split(/</,@temp[1]);
				}	
			}
			close(OUT);
			$newplace=@place[0];
			$newplace=~tr/a-z/A-Z/;
			print SAVE "@o_file[1]:$s1:@age[0]:$newplace\n";
		}
		close(SAVE);
	}	
	close(F);
	$time+=1;
}
