#!/usr/bin/perl

use DBI;
use POSIX  qw(strftime);
use FileHandle;
require "kanlib.pl";
%formdata=();
kanlib::ReadData(*data);
kanlib::ParseData(*data,*formdata);
$ref = $formdata{'ref'};

$mainurl = "/y28lifestyle/Y28-Ladies/perfume/perfume1.htm";
&Get_Settings;
	
# connect sql
# $dbh=DBI->connect("dbi:mysql:$setting{'database'}:$setting{'host'}","$setting{'user'}","$setting{'password'}") || &Error_Die("$setting{'host'}:Sql_Connect_Failure"); 
$dbh=DBI->connect('dbi:mysql:y28news:203.77.128.78',"newsuser","newspass") ;

$sql = qq {select ref,chi, eng, details from lady_perfume1 where ref="$ref"};
$sth=$dbh->prepare($sql);
$sth->execute();
$c1=$sth->fetchall_arrayref;
$row = $sth->rows;
$sth->finish();

&menu;
$a01{'ref'} = $$c1[0][0];
$a01{'chi'} = $$c1[0][1];
$a01{'eng'} = $$c1[0][2];
$a01{'details'} = $$c1[0][3];
$a01{'image'} = $ref;
kanlib::write_htm($mainurl,*a01);
$dbh->disconnect();
exit;

sub menu{
$sql = qq {select ref, chi from lady_perfume1 order by chi};
$sth=$dbh->prepare($sql);
$sth->execute();
$perfume1=$sth->fetchall_arrayref;
$row = $sth->rows;
$sth->finish();

$templist=kanlib::proctemplate($mainurl,'C1');
for (0..@$perfume1-1)
{
%temp = ("ref",$$perfume1[$_][0],"chi",$$perfume1[$_][1]);
$templist2 = $templist;
while ($templist2 =~ /KANNET\(([^\)]+)/i)
   {
         my $tmp = $temp{$1};
         if (defined($tmp)) {$templist2 =~ s/KANNET\($1\)/$tmp/ig;}         
         else {$templist2 =~ s/KANNET\($1\)//ig;}
   } 
$a01{'RESULT_C1'} .= $templist2;
}

}


sub Get_Settings {
###################################################

	##Get General Setting
	my $filename = "e05_general_setting.txt";
	open (OUTFILE, "$filename") || Error_Die("can't open $filename");;
		@readcontent = <OUTFILE>;
		foreach $error_key (1..500) {
			foreach $key (@readcontent) {
				@read_setting = split/\=\=\=/,$key;
				$name = $read_setting[0];
				$name =~s/\n//;
				$value = $read_setting[1];
				$value =~s/\n//;
				$setting{"$name"}= qq{$value};
				$setting_eng{"$value"}= qq{$name};
			}	
		}
	close OUTFILE;	

	
}