#!/usr/bin/perl

use DBI;
use POSIX  qw(strftime);
use FileHandle;
require "kanlib.pl";
%formdata=();
kanlib::ReadData(*data);
kanlib::ParseData(*data,*formdata);
if (!$formdata{'ref'}){
$mainurl = "/y28lifestyle/Y28-Ladies/love/love_contents1.htm";
}
else {
$mainurl = "/y28lifestyle/Y28-Ladies/love/love_contents.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") ;


$ref =$formdata{'ref'};
$sql = qq {select ref,output_date, output_time, heading,category from news where category="28佳人_浪漫情感"and schtime <= now() and online = "Y" order by output_date desc, output_time desc limit 50 };
$sth=$dbh->prepare($sql);
$sth->execute();
$health=$sth->fetchall_arrayref;
$row = $sth->rows;
$sth->finish();

$templist=kanlib::proctemplate($mainurl,'LIFE');
for (0..@$health-1)
{
%temp = ("ref",$$health[$_][0],"output_date",$$health[$_][1],"output_time",$$health[$_][2],"heading",$$health[$_][3],"category",$$health[$_][4]);
$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;}
   } 
   $news{'RESULT_LIFE'} .= $templist2;
}

$sql = qq {select ref,heading,contents,keywords from news where category="28佳人_浪漫情感" and schtime <= now() and online = "Y" and ref="$ref" };
$sth=$dbh->prepare($sql);
$sth->execute();
$health=$sth->fetchall_arrayref;
$row = $sth->rows;
$sth->finish();
$news{'ref'} = $$health[0][0];
$news{'heading'} = $$health[0][1];
$news{'contents'} = $$health[0][2];

if ($formdata{'ref'}){
$key = $$health[0][3];
}
else {
$key = $formdata{'search'};
}

$sql = qq {select ref,output_date,heading from news where category="28佳人_浪漫情感" and keywords LIKE "%$key%" and ref <> "$formdata{'ref'}" AND keywords <> "" and schtime <= now() and online = "Y" order by output_date desc, output_time desc limit 100 };
$sth=$dbh->prepare($sql);
$sth->execute();
$relate=$sth->fetchall_arrayref;
$row = $sth->rows;
$sth->finish();


$templist=kanlib::proctemplate($mainurl,'RELATE');
for (0..@$relate-1)
{
%temp = ("ref",$$relate[$_][0],"output_date",$$relate[$_][1],"heading",$$relate[$_][2]);
$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;}
   } 
   $news{'RESULT_RELATE'} .= $templist2;
}
$news{'search'}=$formdata{'search'};
kanlib::write_htm($mainurl,*news);
$dbh->disconnect();
exit;


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;	

	
}