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

#通用
# updated by david at 2000/2/1
# 2000/2/11

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 = ('/psearch_log','/psearch_log_cn');
@formfile = ('index','index_cn');
@tempfile = ('../template/ms_template','../template/ms_template_cn');	# 模板文件名
@ep = ('e','p');	# 中英文字段标志
@where = ('<a href=# class=dd>Global Search</a>','<a href=# class=dd>全球搜索</a>');


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


&gentemp;
&genform;



# gen the form
##############################################
sub genform{

	open(MAIN,$formfile[$words]);
	@main=<MAIN>;
	$main=join('',@main);
	close(MAIN);
	
	$main=~s/<!--language-->/$language/sg;
       
$template=~s/<!--body-->/$main/sg;
print "Content-type: text/html\n\n";
print $template;
$dbh = 0;
exit;

}
########################################