#!/usr/bin/perl
# Buy Board client management, Copyright Xindeco BIC
# Author : walker.Chen (ChenChaoRen)
require "/u/web/chinav/cgi-local/cgi-lib.chen";
use Msql;
# Defination of tables and databases
$database = "chinav";
$table = "buy_client";
$authen_file= "/u/web/chinav/walker/authen/client.endata";
# Languages
$ErrorTitle[0] = "Error of input string\n";
$ErrorTitle[1] = "输入错误\n";
$Err1[0] = "Error message shows as follow:";
$Err1[1] = "错误代码如下:";
$Err2[0] = "Login failed!";
$Err2[1] = "登录失败!";
$Err3[0] = "Please check your username and password.";
$Err3[1] = "请检查您的用户名及密码是否符合.";
@Info1 = ("Login result\n", "登录结果\n");
$Info2[0] = "Welcome to visit chinavista!";
$Info2[1] = "欢迎访问中国指南!";
$Info3[0] = "Login successful, thanks for your support!";
$Info3[1] = "登录成功，谢谢您的合作!";
$Info4[0] = "You can type in commodity name to start search.";
$Info4[1] = "请输入您要查询产品的中文或者英文名称：";
$Info5[0] = "You search for ";
$Info5[1] = "您要查询信息的种类：";
$Info6[0] = "buying";
$Info6[1] = "进口";
$Info7[0] = "selling";
$Info7[1] = "出口";
$Info8[0] = "both buying and selling.";
$Info8[1] = "进出口均可。";
$Info9[0] = "please visit our sponsor";
$Info9[1] = "请访问";
@Info10 = ("Go get it!", "开始搜索！");
$Company[0] = "Xindeco Business Information Company";
$Company[1] = "信达商情有限公司";
$Allrights[0] = "......all rights reserved.....";
$Allrights[1] = "版权所有，违者必究";
# Get parameters from users input string
ReadParse(*input);
$clLan = &SplitParam($input{'clLan'});
$clName = &SplitParam($input{'clName'});
$clPass = &SplitParam($input{'clPass'});
# Convert input data
$clName =~ s/'/\\'/g;
$clPass =~ s/'/\\'/g;
# Judge validity of input
# Null Name ?
$VerString = $clName;
$VerString =~ s/\s//g;
if($VerString eq "")
{
$ErrorString[0] = "Input name must not be empty!";
$ErrorString[1] = "注册名不能为空!";
}
# Out put cgi header
print "content-type:text/html\n\n";
# If error
if($ErrorString[0])
{
print "\n";
print "\n";
print "\n";
print $ErrorTitle[$clLan];
print "\n";
print "\n";
print "\n";
print "\n";
print "$ErroeTitle[$clLan]\n";
print "
\n";
print "$Err1[$clLan]
\n";
print "$ErrorString[$clLan]\n";
print "\n";
print "\n";
exit(1);
}
# Connect to the database
$dbh = Connect Msql;
SelectDB $dbh $database;
# Query and get result
$query = "SELECT * FROM $table WHERE name=\'$clName\' AND callsign=\'$clPass\'";
$sth = Query $dbh $query;
@rows = FetchRow $sth;
if(!$sth->numrows)
{
$ErrorString[0] = "Authentication falied!";
$ErrorString[1] = "登录失败!";
}
# If input accepted
print "\n";
print "\n";
print "\n";
print $Info1[$clLan];
print "\n";
print "\n";
print "\n";
$FileHandle = "";
open($FileHandle, "<$authen_file");
$num = sysread $FileHandle, $an_data, 15;
if(!$ErrorString && !$an_data)
{
$ErrorString[0] = "Authentication required!";
$ErrorString[1] = "登录验证失败!";
}
# If falied
if($ErrorString[0])
{
print "";
print "$Err2[$clLan]
";
print "$Err3[$clLan]\n";
print "$ErrorString[$clLan]
\n";
print "
";
print "";
print "";
exit(2);
}
print "\n";
print "![\"$Info2[$clLan]\"](\"/buy_client/images/adchinav1.gif\")
";
print "$Info3[$clLan]
\n";
print "
\n";
print "\n";
print "$Info4[$clLan]
";
print "
\n";
print "\n";
print "";
print "\n";
print "![\"Orientation](\"/orientation.gif\")
\n";
print "$Info9[$clLan]
\n";
print "[ Hyper-C | Virtual Tours | The China Experience ]\n";
print "\n";
print "
\n";
print "\n";
print "ChinaVista | CityVistas | Business | Tech | Discover China | Search | Services\n";
print "
\n";
print "
\n";
print "
";
print "";
print " \n";
print "