#!/usr/local/bin/perl
#!d:/perl/bin/perl.exe

#通用

# updated by David at 2000/2/1
# 2000/2/12 使用统一模板
# add into ptrace
# bbs content get form db
# 修改：2001-9-3 bbs没有email时，不显示反馈表单，戴哲航

use Mysql;
#use strict;
use lib '../lib/';
require "sys_config";
require "g_word";
require "etc";

my $tag1;
my $tag4;
my $list;
my $msg_id;
my $roomnum;
my $ismember;
my $email;
my $owner;
my $tel;
my $fax;
my $regionalcode;
my $city;
my $gender;
my $address;
my $pc;
my $job;


# connect db
$dbh = Mysql->Connect($ec_db_host,$ec_db_name,$ec_db_user,$ec_db_password) || &err('connect error');
my $sth;
my $que;

my $numrows;
my @row;

my $trade;
my $otrade;	#信息传递的行业
my $sellorbuy;
@tempfile = ('template/template','template/template_cn');	# 模板文件名
@ep = ('e','p');

$sb{'Buy'} = "买";
$sb{'Sell'} = "卖";
$sb{'Opportunities'} = "合作";

$words = 0;
my @word0 = ('index.htm','china/index.htm');
my @word1 = ('Trade:','行业：');
my @word2 = ('City:','城市：');
my @word3 = ('Email:','电子邮件：');
my @word4 = ('Details','详细信息');
my @word5 = ('Phone:','电话：');
my @word6 = ('Fax:','传真：');
my @word7 = ('Home','主页');
my @word8 = ('You Are Here:','你的位置：');
my @word9 = ('Posting Time:','发布时间：');
my @word10 = ('Opportunities','合作机会');
my @word11 = ('Send Email to:','收信人：');
my @word12 = ('Your Name:','你的姓名：');
my @word13 = ('Your Email:','你的电子邮件：');
my @word14 = ('Subject:','邮件标题：');
my @word15 = ('Message:','内容：');
my @word16 = ('Send Your Inquiry','发送');
my @word17 = ('Reset','重写');
my @word18 = ('Why not send him an email to get more information?','马上与他联系获取更多的信息');
my @word19 = ('Your City:','城市：');
#my @word20 = ('<h2><a href=/bin/reg.pl>Register For Free !</a></h2>','<h2><a href=/bin/reg.pl?language=gb>免费注册会员！</a></h2>');
my @word21 = ('Trade Leads','商机');
my @word22 = ('Sell','卖');
my @word23 = ('Buy','买');
my @word24 = ('Send this offer to my friend','让我的朋友也知道');
my @word25 = ('Relevant information :','相关信息');
my @word26 = ('more ......','更多......');
my @word27 = ('Owner:','样品室主人：');
my @word28 = ('Gender:','性别：');
my @word29 = ('Address:','通讯地址：');
my @word30 = ('Postal Code:','邮编：');
my @word31 = ('Job:','从事职业：');
my @word32 = ('Owner Details:','样品室主人信息');
my @word33 = ('Sample Room:','样品室');
my @word34 = ('Sample Room Description:','样品室描述：');


my $disp;
my $yourname="";
my $youremail="";
my $yourcountry="";
my $yourphone="";
my $yourfax="";
my $ep;
my $description;


# parse the form
&parseform;

if (defined($form{'msg_id'})){	$msg_id=$form{'msg_id'};    }
if (defined($form{'roomnum'})){	$roomnum=$form{'roomnum'};    }

if ($language eq $ec_gb){
	$words = 1;
}else{
	$words = 0;
}

if ($ismember){	@tempfile = ('template/ms_template','template/ms_template_cn');}

if ($msg_id){
	# 生成BBS 反馈页面 
	&getinfo;		#界面使用张贴者的信息
}

# get cookie;
&getcookie('id');
$yourname=$ms_truename;
$youremail=$ms_email;
$yourcountry=$ms_country;
$yourphone=$ms_tel;
$yourfax=$ms_fax;
$trade = $ms_trade;

if ($roomnum){
	&getroom;
}


if ($msg_id){
	# get bbs content
	&getbbs;
}

#update the read times
if ($msg_id) {
#  $que="update bbs set read_count=read_count+1 where msg_id='$msg_id'";
#  $dbh->Query($que) || &err("database error");
#  $que="insert into statis values ('$msg_id',now(),'1')";
#  $dbh->Query($que) || &err("database error");
}#

# write changes into temp and display
$wheretag=$tag1;
&gentemp;
$template=~s/<!--body-->/$main/g;
print "Content-type: text/html\n\n";
print $template;



# added by david 1999/10/17 for write to owner trace
if ($owner){
	my $aaname;
	$aaname = $yourname . "<" . $youremail . ">";
		
	if ($msg_id){
		@_ = ($aaname,'Access my bbs',$msg_id,$owner);
	}
	if ($roomnum){
		@_ = ($aaname,'Access my sampleroom','',$owner);
	}
	do 'ptrace/record.pl';
}

$dbh = 0;
exit;
    



#get bbs details
 #############################################
sub getbbs{

    $altscript = "/bin/search.pl?go=bbs&";
	
	my $msg = $row[12];
    $msg =~ s/</&lt;/sgi; 
    $msg =~ s/>/&gt;/sgi;
    $msg =~ s/\n/<br>/sgi;	# format message body
    
    my @formfile = ('template/b_detail','template/b_detail_cn');
	open(MAIN,$formfile[$words]);
	@main=<MAIN>;
	$main=join('',@main);
	close(MAIN);
	
	my $sb;
	if ($language eq $ec_gb){
		$sb = $sb{$row[2]};
	}else{
		$sb = $row[2];
	}

	$main=~s/\$row\[0\]/$row[0]/sgi;
	$main=~s/\$row\[2\]/$sb/sgi;
	$main=~s/\$row\[3\]/$row[3]/sgi;
	$main=~s/\$row\[5\]/$row[5]/sgi;
	$main=~s/\$row\[6\]/$row[6]/sgi;
	$main=~s/\$row\[8\]/$row[8]/sgi;
	$main=~s/\$row\[9\]/$row[9]/sgi;
	$main=~s/\$row\[13\]/$row[13]/sgi;
	$main=~s/\$msg1/$msg/sgi;
	$main=~s/\$msg_id/$msg_id/sgi;
	$main=~s/\$yourname/$yourname/sgi;
	$main=~s/\$youremail/$youremail/sgi;
	$main=~s/\$yourphone/$yourphone/sgi;
	$main=~s/\$yourfax/$yourfax/sgi;
	$main=~s/\$yourcountry/$yourcountry/sgi;
	if($row[14] eq "go\@ecparadise.com")
	{
	$main=~s/<!--begin-->/<!--/;
	$main=~s/<!--end-->/-->/;
	}
	
    $tag4 .=$main;
    
        # translate tag1 for where you are
    $tag1 = " <a href=\"/bin/search.pl?language=$language&go=bbs\" class=dd>$word21[$words]</a>
    		&gt; <a href=# class=dd>$word4[$words]</a> ";
    
}
 #############################################
 # over getbbs
 



# get information from db
###############################################
sub getinfo{

    #update the read times
    #$que="update bbs set read_count=read_count+1 
    #         where msg_id='$msg_id'";
    #$sth=$dbh->Query($que); 	
    #
	
	my $tem="b\.$ep[$words]trade";  #define field name
#2001-10-10修改	
	$que="select a.msg_title,a.regionalcode,a.sellorbuy,a.posttime,a.nickname,a.truename,
    		a.city,a.trade,a.tel,a.fax,a.language,a.keyword,a.content,$tem,a.email
             from ";
		if($msg_id<=211385)
		{
$que.="oldbbs";		
		}else{
$que.="bbs";
		}

$que.="	 a,trade b
  where a.msg_id='$msg_id' and a.trade=b.tradecode";

    $sth=$dbh->Query($que); 

    # create result list
    @row=$sth->FetchRow;
    
    $owner = $row[4];
    if ($row[4]) { $ismember="Member";}	#wheather membership
    
        	
    
    
}
###############################################
# over getinfo



# get information from db
###############################################
sub otherinfo{

# 买卖匹配信息
my $_sellorbuy;
my @kword;
my $kword;
my $kword1;

####
# get keywords
$kword1 = $row[11];
$kword1 = tr/\;|\s+|\,|，|；|\/|、//;
@kword = split(/\;|\s+|\,|，|；|\/|、/,$row[11]);

####

    $que="select msg_id,sellorbuy,msg_title,posttime,nickname
                from bbs
                where trade = '$row[7]'
                and language = '$row[10]'
                and msg_id <> '$msg_id' ";
                
    if ($row[2] eq "Sell"){
    	$_sellorbuy ="Buy";
    	$que .= " and sellorbuy = '$_sellorbuy' ";
    }else{
    	if ($row[2] eq "Buy"){
    		$_sellorbuy ="Sell";
    		$que .= " and sellorbuy = '$_sellorbuy' ";
    	}else{
    		$_sellorbuy = "N/A";
    	}
    }
    
    if ($kword1 ne ""){
    	$que .= " and (0<>0 ";
    	
    	foreach $kword(@kword){
    	          if ($kword !~/^\s+$/){	$que .=" or keyword like '%$kword%'";}
    	}
    	
    	$que .=")";
    }
    
    $que .= " order by posttime desc";

    $sth=$dbh->Query($que); 
    $numrows=$sth->numrows;
    
    # $form{'pure'} <>0  means it's from bbs list, and not from detail
    
    if ($form{'pure'} ne "0"){
        
        if ($numrows > 0){ $list .="<font size=+1 color=green>$word25[$words]</font><br><br>"}
        
        if ($numrows > 5){
             for (my $i=0; $i<5; $i++){
                    my @others=$sth->fetchrow;
                    $list .= "&nbsp;&nbsp;&nbsp;<a href=/bin/bbs_detail.pl?msg_id=$others[0]&pure=0>$others[2]</a><br>";
             }
             $list .="<br><font color=red size=+1><a href=/bin/search.pl?language=$language&sellorbuy=$_sellorbuy&trade=$row[7]&keyword=$row[11]>$word26[$words]</a></font><br>";
         
        }else{
             for (my $i=0; $i<$numrows; $i++){
                    my @others=$sth->fetchrow;
                    $list .= "&nbsp;&nbsp;&nbsp;<a href=/bin/bbs_detail.pl?msg_id=$others[0]&pure=0>$others[2]</a><br>";
             }
        }
        
    }	
    
    #$list .="<br>$que";
    
}
##############################################
# end of otherinfo    




# get information from room
###############################################
sub getroom{
	
	$altscript = "/bin/search.pl?go=product&";
	
    my $tem="b\.$ep[$words]trade";
    $que="select a.truename,a.email,a.tel,a.fax,a.regionalcode,a.city,a.address,a.language,
    		$tem,a.description
             from membership a,trade b
             where a.roomnum='$roomnum'
             and a.trade=b.tradecode";
	
	$sth=$dbh->Query($que); 

    # create result list
    @row=$sth->FetchRow;
    
    $owner = $row[0];
    $email = $row[1];
    
    
    my @formfile = ('template/r_detail','template/r_detail_cn');
	open(MAIN,$formfile[$words]);
	@main=<MAIN>;
	$main=join('',@main);
	close(MAIN);
	
	$main=~s/\$row\[0\]/$row[0]/sgi;
	$main=~s/\$row\[2\]/$row[2]/sgi;
	$main=~s/\$row\[3\]/$row[3]/sgi;
	$main=~s/\$row\[5\]/$row[5]/sgi;
	$main=~s/\$row\[6\]/$row[6]/sgi;
	$main=~s/\$row\[9\]/$row[9]/sgi;
	$main=~s/\$row\[8\]/$row[8]/sgi;
	
	$main=~s/\$yourname/$yourname/sgi;
	$main=~s/\$youremail/$youremail/sgi;
	$main=~s/\$yourphone/$yourphone/sgi;
	$main=~s/\$yourfax/$yourfax/sgi;
	$main=~s/\$yourcountry/$yourcountry/sgi;
	$main=~s/\$roomnum/$roomnum/sgi;
	    
		
	$tag4 .=$main;
	
	        # translate tag1 for where you are
    $tag1 = " <a href=\"/bin/sample/files/$roomnum/\" class=dd>$word33[$words]</a> 
    		&gt; <a href=#>$word32[$words]</a>";    
	
}
###############################################
# over getroom