#!/usr/bin/perl
$user="tlcplus";
$passwd="tlcgo";
print "Content-type: text/html\n\n";
print "<BODY BGCOLOR=#000000 TEXT=#FFFFFF>\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
    ($name, $value) = split(/=/, $pair);

    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
}
#cre_db
#soar
$dir = "/var/spool/news/htdocs/tlcplus/";
system("ls *.db>temp_temp");
system("rm *.db>>temp_temp");
system("ls *.db>>temp_temp");
@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";
@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<BR>\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;

$dir = "/var/spool/news/htdocs/tlcplus/";
@db[0]="tlc_fwom.db";
@db[1]="men_men.db";
@db[2]="tlc_fmen.db";
@db[3]="wom_wom.db";
$time=0;
foreach $pair (@db){
	open(F,@db[$time]);
	while(<F>)
	{
		@names = split(/:/);
		$name=@names[$#name];
		$user{$name} += 1;
	}
	close(F);
	$time+=1;
}
open(F,">place.db");
print F "ALL\n";
for $name (sort keys %user){
	print F $name;
}
close(F);
print "Databas has successfully update\n";
}else{
	print "You are not authorize!!!"
}
