#!/usr/bin/perl

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

$mainurl = "/y28lifestyle/Y28-Ladies/keepfit/keepfit.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"); 

$ref = $formdata{'ref'};
&tip1;
&shopping;
kanlib::write_htm($mainurl,*a01);
$dbh->disconnect();
exit;

sub tip1{
$sql = qq {select count(*) from lady_tips4};
$sth=$dbh->prepare($sql);
$sth->execute();
$max=$sth->fetchall_arrayref;
$row = $sth->rows;
$sth->finish();

$random = rand($$max[0][0]);
$randomx = int($random);
$sql = qq {select * from lady_tips4 limit $randomx, 10};
$sth=$dbh->prepare($sql);
$sth->execute();
$tipsa=$sth->fetchall_arrayref;
$row = $sth->rows;
$sth->finish();

$a01{'ref1'} = $$tipsa[0][0];
$a01{'type1'} = $$tipsa[0][1];
$a01{'tips1'} = $$tipsa[0][2];
$a01{'ref2'} = $$tipsa[1][0];
$a01{'type2'} = $$tipsa[1][1];
$a01{'tips2'} = $$tipsa[1][2];
}

sub shopping{
$dbh=DBI->connect('dbi:mysql:y28shop:203.77.128.78',"y28shopuser","y28shoppass") ;
$sql = qq {select item_no from index_hot where type="4" order by priority desc};
$sth=$dbh->prepare($sql);
$sth->execute();
$shop=$sth->fetchall_arrayref;
$row = $sth->rows;
$sth->finish();

$sql = qq {select item_no, product_s, format(price,2) from new_product where item_no="qplus_13" or item_no="rb_emu02" or item_no="$$shop[2][0]" or item_no="$$shop[3][0]"};
$sth=$dbh->prepare($sql);
$sth->execute();
$shop1=$sth->fetchall_arrayref;
$row = $sth->rows;
$sth->finish();

$a01{'shop1a'} = $$shop1[0][0];
$a01{'shop1b'} = $$shop1[0][1];
$a01{'shop1c'} = $$shop1[0][2];
$a01{'shop2a'} = $$shop1[1][0];
$a01{'shop2b'} = $$shop1[1][1];
$a01{'shop2c'} = $$shop1[1][2];
$a01{'shop3a'} = $$shop1[2][0];
$a01{'shop3b'} = $$shop1[2][1];
$a01{'shop3c'} = $$shop1[2][2];
$a01{'shop4a'} = $$shop1[3][0];
$a01{'shop4b'} = $$shop1[3][1];
$a01{'shop4c'} = $$shop1[3][2];
}

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;	

	
}