#!/usr/local/bin/perl

# 通用

# 1999/12/16	updated by david for add confirming country
# updated by david at 2000/2/1 for new version
# country order by ename
# tradecode form format
# 2000/2/10
# 发信给管理员公司在管理界面的链接
# 完成后发信给 ectrade@ectrade.com
# 2000/4/3	禁止重复登录
# 4/11 发信给 ec@ectrade.com
# 4/25 1.0

use Mysql;
use lib '../../lib';
require "sys_config";
require "g_word";
require "etc";
$dbh = Mysql->Connect($ec_db_host,$ec_db_name,$ec_db_user,$ec_db_password) || &err('connect error');

$words = 0;


@errlog = ('/addurl_log','/addurl_log_cn');
@formfile = ('addurl','addurl_cn');
@tempfile = ('../template/ms_template','../template/ms_template_cn');
@where = ('Add A Site','注册我的网站');
@ep = ('e','p');

my $mail_to = "ec\@ectrade.com";
#$mail_to = "yuq\@www.ft.com";

my $mail_subject = "新链接通知";
my $passprogram = "http://$ec_servername/bin/admin/";

my @word4 = ('Congratulations!','恭喜成功！');
my @word5 = ('<br><br>Please check whether your company has been added to ECTrade\'s <a href=/bin/asearch.pl?go=company>Company List</a>.<br><br>
If you wish to check all the latest offers at the best BBSs around the world without even leaving ECTrade, go to our <a href=/bin/psearch.pl/index.pl>Global Search</a>.<br><br>
If you wish to add your website to ECTrade Company Index so as to be found easily by business surfers all around the world, please waste no time to register your website by clicking <a href=/bin/addurl/addurl.pl>Add My Site</a>.<br><br>
If you want to create and update your own showroom, now is the time to set up <a href=/bin/sample/sample.pl>My Showroom</a>.<br><br>
','<br><br>您的网站想登录搜狐网吗!<a href=http://sohu.ectrade.com>现在登录</a>
<br><br>查看您的信息是否已列入<a href=/bin/asearch.pl?go=company&language=gb>最新公司</a><br><br>
您想将贸易信息自动发布在全球顶级贸易公告板上，请用<a href=/bin/cross/cross.pl?language=gb>商情广贴</a><br><br>
您想不离开易创就搜遍全球最好的中文商业公告板上的最新商情，请用<a href=/bin/psearch/index.pl?language=gb>商情博揽</a><br><br>
您想自己动手创建和更新自己的样品陈列室(产品专页), 向客户随时展现您的产品，请<a href=/bin/sample/sample.pl?language=gb>创建样品室</a><br><br>
');
@err1 = ('Major Business','主营行业');
@err2 = ('Email','电子邮件地址');
@err3 = ('URL (http://...)','网址 (http://...)');
@err4 = ('Country','国家');
@err5 = ('Your URL is already in our database .','网址拒绝重复登录');
@err6 = ('Company Name','公司名称');
my $lang;

&parseform;
if ($language eq $ec_gb){	$words = "1";}
&getcookie('id',$errlog[$words]);


$wheretag = "<a href=# class=dd>$where[$words]</a>";


if (not defined($form{'companyname'})){           # print the form
    &gentrade($ep[$words],$ms_trade);
	&gencountry($ep[$words],$ms_country);
	&gentradecode($ep[$words],'2');
	
	open(MAIN,$formfile[$words]);
	@main=<MAIN>;
	$main=join('',@main);
	close(MAIN);
	
	&gentemp;
	
	$main=~s/<!--trade-->/$tradetag/g;
	$main=~s/<!--trade code-->/$tradecodetag/g;
	$main=~s/<!--country-->/$countrytag/g;
	
}else{
	&gentemp;

	if ($form{'confirm'}) {
        &intodb;
	}else{
	    &confirm; 
        $template=~s/<!--body-->/$main/g;
        print "Content-type: text/html\n\n";
        print $template;
        $dbh = 0;
        exit;
	}
	
	
	$adminport = $passprogram . "admin_log.pl";
	$passprogram .= "company_modify.pl?companyid=$companyid&language=$language";
		
	my $mail_from = $form{'email'};
	my $mail_body = "请先登录管理端口 $adminport ，审批我的链接 $form{'website'} ，详细信息 $passprogram 。";
	
	#&echo("$mail_from<br>$mail_to<br>$mail_subject<br>$mail_body<br>");
	&sendmail('',$mail_from,'',$mail_to,$mail_subject,$mail_body);
	
	# write to trace
	@_ = ('','Add a site',$form{'website'},$cookie{'id'});
	do '../ptrace/record.pl';
	
	$main = "<br><br><div align=center class=cc>$word4[$words]</div><div align=left class=dd>$word5[$words]</div>";
}


$template=~s/<!--body-->/$main/g;
print "Content-type: text/html\n\n";
print $template;


$dbh = 0;
exit;



# insert into database
##########################
sub intodb{
   	$form{'minor_trade'} = ",$form{'tradecode'}";
	# 检查重复性
	$sth=$dbh->Query("select id from companies where website = '$form{'website'}'");
	if ($sth->numrows ne 0){	&err($err5[$words]);}

    # auto select gb or en
    if ($haveGB){
    	$lang = $ec_gb;
    }else{
    	$lang = $ec_en;
    }
    
    $sql = "insert into companies 
    	(language,companyname,address,email,major_trade,minor_trade,keyword,website,briefintro,regionalcode,city,tel,fax,dotime)
    	values 
	    ('$lang','$form{'companyname'}','$form{'address'}','$form{'email'}',
	    '$form{'trade'}','$form{'minor_trade'}','$form{'keyword'}' ,'$form{'website'}',
	    '$form{'briefintro'}','$form{'regionalcode'}','$form{'city'}','$form{'tel'}','$form{'fax'}',now())";
	#&echo($sql);    
    $sth=$dbh->Query($sql) || &echo('database error');
	$companyid=$sth->insertid;
    
    # 写入 sql_log 表 ####        
    &add_log($sql);
    
    
}
# end of intodb

################################################3
sub confirm{
    if (not $form{'companyname'}){	&err($err6[$words]);}
	if (not $form{'regionalcode'}){	&err($err4[$words]);}
	$form{'email'}=~s/^ *| *$//g;
	if ($form{'email'} !~ /^[\w.-]+\@([\w-]+\.)+\w+$/){	&err($err2[$words]);}
	$form{'website'}=~s/^ *| *$//g;
	if ($form{'website'} !~ /^http:\/\/([\w-]+\.)+(.*)$/){	&err($err3[$words]);}
	if (not $form{'trade'}){	&err($err1[$words]);}

    @formfile = ('cf_addurl','cf_addurl_cn');
    open(MAIN,$formfile[$words]);
	@main=<MAIN>;
	$main=join('',@main);
	close(MAIN);
	
	$sth=$dbh->Query("select $ep[$words]name from region where regionalcode='$form{'regionalcode'}'");
    @row=$sth->Fetchrow;
	$country=$row[0];
    $sth=$dbh->Query("select $ep[$words]trade from trade where tradecode='$form{'trade'}'");
    @row=$sth->Fetchrow;
    $trade=$row[0];
	@minor_trade=split(/,/,$form{'tradecode'});
	foreach $minor_trade(@minor_trade) {
	   $sth=$dbh->Query("select $ep[$words]trade from trade where tradecode='$minor_trade'");
       @row=$sth->Fetchrow;
	   $minor_trade1.="$row[0],";
	}
	chop($minor_trade1);
	$main=~s/<!--companyname-->/$form{'companyname'}/g;
	$main=~s/<!--country-->/$form{'regionalcode'}/g;
    $main=~s/<!--country1-->/$country/g;
	$main=~s/<!--city-->/$form{'city'}/g;
	$main=~s/<!--tel-->/$form{'tel'}/g;
	$main=~s/<!--fax-->/$form{'fax'}/g;
	$main=~s/<!--address-->/$form{'address'}/g;
    $main=~s/<!--email-->/$form{'email'}/g;
    $main=~s/<!--keyword-->/$form{'keyword'}/g;
	$main=~s/<!--website-->/$form{'website'}/g;
	$main=~s/<!--trade-->/$form{'trade'}/g;
    $main=~s/<!--trade1-->/$trade/g;
    $main=~s/<!--briefintro-->/$form{'briefintro'}/g;
    $main=~s/<!--trade code-->/$form{'tradecode'}/g;
	$main=~s/<!--trade code1-->/$minor_trade1/g;
}