#!/usr/bin/perl

################################################################################
# Project : Chinavista YellowPage search engine, Copyright Xindeco BIC         #
# Author  : walker.Chen (ChenChaoRen)                                          #
# E-mail  : walker@chinavista.com                                              #
################################################################################

require "/u/web/chinav/cgi-local/cgi-lib.chen";
#require "/usr/people/walker/cgi-local/cgi-lib.walker";
use Msql;

# Read parameters
ReadParse(*input);
$Lan = &SplitParam($input{'Lan'});

# Classes
$TcNum = 15;
@Tc=([1000,"All","全部","场"],
     [2000,"Banking & Finance","银行、金融业","蝗︽磕穨"],
     [3000,"Computers & Internet","计算机、国际互联网","璸衡诀瓣悔が羛呼"],
     [4000,"Consulting & Legal","咨询、法律","玹高猭"],
     [5000,"Entertainment & Recreation","娱乐、消遣","甌贾缓"],
     [6000,"Government","政府","現┎"],
     [7000,"Health & Fitness","卫生、健康","矫ネ胺眃"],
     [8000,"Industry & Manufacturing","工业、制造业","穨硑穨"],
     [9000,"Media & Publishing","媒体、出版业","碈砰穨"],
     [10000,"Real Estate","房地产业","┬玻穨"],
     [11000,"Science & Technology","科学、技术","厩мズ"],
     [12000,"Shipping & Forwarding","交通、运输业","ユ硄笲块穨"],
     [13000,"Trade","贸易","禩"],
     [14000,"Travel","旅游","村"],
     [15000,"Other","其它","ㄤウ"]
    );

@info=(
     ["Add your company into our yellowpage",
      "加入《中国指南》黄页数据库",
      "い瓣玭独计沮畐"],
     ["ChinaVista","中国指南","い瓣玭"],
     ["CityVistas","城市指南","カ玭"],
     ["Business","商业指南","坝穨玭"],
     ["Tech","科技指南","м玭"],
     ["Discover China","神州纵横","羇绢"],
     ["Search","检索","浪"],
     ["Services","服务","狝叭"],
     ["Xindeco Business Information Co., Ltd.","信达商情有限公司","獺笷坝薄Τそ"],
     ["All rights reserved.","版权所有","舦┮Τ"],
     ["Short name of your company <font color=red>*</font>","贵公司简称 <font color=red>*</font>","禥そ虏嘿 <font color=red>*</font>"],
     ["Full name of your company <font color=red>*</font>","贵公司全名 <font color=red>*</font>","禥そ <font color=red>*</font>"],
     ["URL of logo file","标志图片的 URL","夹в瓜 URL"],
     ["URL of the image of your company","贵公司的照片的 URL","禥そ酚 URL"],
     ["Province/city your company locates <font color=red>*</font>","贵公司所在的省份/城市 <font color=red>*</font>","禥そ┮/カ <font color=red>*</font>"],
     ["Classification of your company","贵公司所属行业","禥そ┮妮︽穨"],
     ["Search keywords(32 characters max.), for example : import textile","检索关键字(最多16个汉字)<br>如：进口 纺织品","浪闽龄秈 麓珇"],
     ["Services your company provides","贵公司提供的服务","禥そ矗ㄑ狝叭"],
     ["Introduction of your company","贵公司的简介","禥そ虏ざ"],
     ["URL of your web site <font color=red>**</font>",
      "贵公司的 WWW 网址 <font color=red>**</font>",
      "禥そ WWW 呼 <font color=red>**</font>"],
     ["Language used in your web site <font color=red>**</font>",
      "贵公司网址使用的语言 <font color=red>**</font>",
      "禥そ呼ㄏノ粂ē <font color=red>**</font>"],
     ["Your E-mail address","贵公司的电子信箱","禥そ筿獺絚"],
     ["Address of your company","贵公司的地址","禥そ"],
     ["Phone number","贵公司的电话","禥そ筿杠"],
     ["Fax number","贵公司的传真号码","禥そ肚痷腹絏"],
     ["URL prefix of maps","贵公司提供的地图的 URL 前缀","禥そ矗ㄑ瓜 URL 玡后"],
     ["Maps number","地图图片的个数","瓜瓜计"],
     ["English","英语","璣粂"],
     ["Chinese GB","简体中文","虏砰いゅ"],
     ["Chinese BIG-5","繁体中文","羉砰いゅ"],
     ["Other languages","其他语言","ㄤ粂ē"],
     ["Submit","提交","矗ユ"],
     ["Clear","清除重填","睲埃恶"],
     ["Search yellowpage","检索黄页","浪独"],
     ["Required","必须填写","ゲ斗恶糶"],
     ["If your website has several different language versions, please add them separately.","如果您的主页有几个不同语言的版本，请分别添加。","狦眤Τぃ粂ēセ叫だ睰"],
     ["<p><font size=\"+0\" color=\"red\">For Chinese Companies Only</font>",
      "<p><font size=\"+0\" color=\"red\">只有中国公司才能添加</font>",
      "<p><font size=\"+0\" color=\"red\">Τい瓣そ睰</font>"],
     ["","",""],
     ["","",""],
     ["","",""],
     ["","",""],
     ["","",""],
     ["","",""]
    );  

@tech_info=(
     ["Bugs reports can be mail to <a href=\"mailto:walker\@chinavista.com\">walker\@chinavista.com</a>, thanks!",
       "如有问题，欢迎您发邮件至<a href=\"mailto:walker\@chinavista.com\">walker\@chinavista.com</a>。",
       "Τ拜肈舧眤祇秎ン<a href=\"mailto:walker\@chinavista.com\">walker\@chinavista.com</a>"],
     ["","",""],
     ["","",""],
    );        

$ItemsNum = 15;
@Items = (
     "Name",
     "FullName",
     "Logo",
     "Glance",
     "Area",
     "Classification",
     "Contact",
     "Services",
     "Introduction",
     "WebSite",
     "Language",
     "Email",
     "Address",
     "Phone",
     "Fax",
     "Map",
     "MapCount"
    );

@ItemsLen = (
     64,
     128,
     128,
     128,
     64,
     4,
     32,
     256,
     512,
     128,
     4,
     64,
     256,
     32,
     32,
     128,
     4
    );

@ItemsVal = (
     "",
     "",
     "http://",
     "http://",
     "China",
     "",
     "",
     "",
     "",
     "http://",
     "",
     "",
     "",
     "",
     "",
     "",
     ""
    );

@Version = (
     ["English Version","英文版","璣ゅ"],
     ["Chinese GB Version","简体中文版","虏砰いゅ"],
     ["Chinese B5 Version","繁体中文版","羉砰いゅ"],
    );

@Navi=(
     ["/home.html","/chhome.html","/b5home.html"],
     ["/cities/home.html","/cities/chhome.html","/cities/b5home.html"],
     ["/business/home.html","/business/chhome.html","/business/b5home.html"],
     ["/tech/home.html","/tech/chhome.html","/tech/b5home.html"],
     ["/discover.html","/chdiscover.html","/b5discover.html"],
     ["/search.html","/chsearch.html","/b5search.html"],
     ["/services.html","/chservices.html","/b5services.html"]
    );

# Output result
print "Content-type: text/html\n\n";

print "<HEAD>\n";
print "<TITLE>\n";
print "$info[0][$Lan-1]";
print "</TITLE>\n";
print "</HEAD>\n";

print "<body bgcolor=\"white\">\n";

print "<CENTER>\n";
print "<p>\n";
print "<font face=\"ARIAL\">" if( $Lan == 1 );
print "<A HREF=\"$Navi[0][$Lan-1]\">$info[1][$Lan-1]</A> | \n";
print "<A HREF=\"$Navi[1][$Lan-1]\">$info[2][$Lan-1]</A> | \n";
print "<A HREF=\"$Navi[2][$Lan-1]\">$info[3][$Lan-1]</A> | \n";
print "<A HREF=\"$Navi[3][$Lan-1]\">$info[4][$Lan-1]</A> | \n";
print "<A HREF=\"$Navi[4][$Lan-1]\">$info[5][$Lan-1]</A> | \n";
print "<A HREF=\"$Navi[5][$Lan-1]\">$info[6][$Lan-1]</A> | \n";
print "<A HREF=\"$Navi[6][$Lan-1]\">$info[7][$Lan-1]</A>\n";
print "</font>\n" if( $Lan == 1 );
print "<br>\n";
print "<p>&nbsp;\n";
$buf = `lynx -source http://www.chinavista.com/adserver/ad_gen.phtml`;
print $buf;
print "\n";

print "<CENTER>\n";
print "<font face=\"ARIAL\">" if( $Lan == 1 );
print "<p><font size=\"+1\"><b>$info[0][$Lan-1]$info[36][$Lan-1]</b></font>";
print "</font>\n" if( $Lan == 1 );
print "</CENTER>\n";

print "<table border=0 cellpadding=18>\n";
print "<tr>\n";
if( $Lan != 1 )
{
 print "<td>";
 print "<font face=\"ARIAL\">" if( $Lan == 1 );
 print "<font size=\"-1\"><b>" if( $Lan == 1 );
 print "<A HREF=\"yellowpage_add.pl?Lan=1\">$Version[0][$Lan-1]</A></font>\n";
 print "</b></font>" if( $Lan == 1 );
 print "</font>" if( $Lan == 1 );
 print "</td>";
}

if( $Lan != 2 )
{
 print "<td>";
 print "<font face=\"ARIAL\">" if( $Lan == 1 );
 print "<font size=\"-1\"><b>" if( $Lan == 1 );
 print "<A HREF=\"yellowpage_add.pl?Lan=2\">$Version[1][$Lan-1]</A></font>\n";
 print "</b></font>" if( $Lan == 1 );
 print "</font>" if( $Lan == 1 );
 print "</td>";
}

if( $Lan != 3 )
{
 print "<td>";
 print "<font face=\"ARIAL\">" if( $Lan == 1 );
 print "<font size=\"-1\"><b>" if( $Lan == 1 );
 print "<A HREF=\"yellowpage_add.pl?Lan=3\">$Version[2][$Lan-1]</A></font>\n";
 print "</b></font>" if( $Lan == 1 );
 print "</font>" if( $Lan == 1 );
 print "</td>";
}

print "<td>";
print "<font face=\"ARIAL\">" if( $Lan == 1 );
print "<font size=\"-1\"><b>" if( $Lan == 1 );
print "<A HREF=\"yellowpage.pl?Lan=$Lan\">$info[33][$Lan-1]</A></font>\n";
print "</b></font>" if( $Lan == 1 );
print "</font>" if( $Lan == 1 );
print "</td>";
print "</tr>\n";
print "</table>\n";

print "</center>\n";
print "\n";

print "<center>\n";

print "<form action=\"/cgi-local/walker/new_yellowpage/yellowpage_add_result.pl\" method=\"post\">\n";
print "<input type=\"hidden\" name=\"Lan\" value=\"$Lan\">\n";

print "<input type=\"hidden\" name=\"Map\" value=\"/business/directory/companies/images/map\">\n";
print "<input type=\"hidden\" name=\"MapCount\" value=\"5\">\n";

print "<table border=1>\n";

for( $j=0; $j<$ItemsNum; $j++)
{
 print "<tr>\n";
  print "<td>\n";
  print "<font face=\"ARIAL\" size=\"-1\"><b>" if( $Lan == 1 );
  print "$info[10+$j][$Lan-1]\n";
  print "</b></font>\n" if( $Lan == 1 );
  print "</td>\n";

  print "<td>\n";
 
  if( $j == 5 )
  {
   print "<select name=\"$Items[$j]\">\n";
   for( $i = 2; $i <= $TcNum; $i++ )
   {
     print "<option value=$i>";
     print "$Tc[$i-1][$Lan]\n";
   }
   print "</select>\n";
  }
  else
  {
    if( $j == 10 )
    {
     print "<select name=\"$Items[$j]\">\n";
     print "<option value=1>$info[27][$Lan-1]\n";
     print "<option value=2>$info[28][$Lan-1]\n";
     print "<option value=3>$info[29][$Lan-1]\n";
     print "<option value=4>$info[30][$Lan-1]\n";
     print "</select>\n";
    }
    else
    {
     if( $j == 17 )
     {
      print "<select name=\"$Items[$j]\">\n";
      print "<option value=0>0\n";
      print "<option value=1>1\n";
      print "<option value=2>2\n";
      print "<option value=3>3\n";
      print "<option value=4>4\n";
      print "<option value=5>5\n";
      print "<option value=6>6\n";
      print "<option value=7>7\n";
      print "<option value=8>8\n";
      print "<option value=9>9\n";
      print "<option value=10>10\n";
      print "<option value=11>11\n";
      print "<option value=12>12\n";
      print "<option value=13>13\n";
      print "<option value=14>14\n";
      print "<option value=15>15\n";
      print "<option value=16>16\n";
      print "<option value=17>17\n";
      print "<option value=18>18\n";
      print "<option value=19>19\n";
      print "<option value=20>20\n";
      print "</select>\n";
     }
     else
     {
      print "<input type=\"text\" name=\"$Items[$j]\" size=\"38\" MAXLENGTH=$ItemsLen[$j] value=\"$ItemsVal[$j]\">\n";
     }
    }
  }
  print "</td>\n";
 print "</tr>\n";
}

print "<tr>\n";
print "<td colspan=2 bgcolor=\"#efef70\">\n";
print "<font face=\"arial\" size=\"-1\"><b>" if( $Lan == 1 );
print "<br><font color=red>* </font> : $info[34][$Lan-1]<br>\n";
print "<font color=red>**</font> : $info[35][$Lan-1]<br>&nbsp;\n";
print "</b></font>\n" if( $Lan == 1 );

print "</td>\n";
print "</tr>\n";

print "</table>\n";
print "</center>";

print "<center>";
print "<p>\n";
print "<input type=\"submit\" value=\"$info[31][$Lan-1]\"> ";
print "<input type=\"reset\" value=\"$info[32][$Lan-1]\">\n";
print "</form>\n";

print "<font face=\"ARIAL\">" if( $Lan == 1 );
print "<font size=\"-1\">";
print "<p>$tech_info[0][$Lan-1]<p>\n";
print "</font>\n";
print "</font>\n" if( $Lan == 1 );
print "</center>";

print "<CENTER>\n";
print "<p>\n";
print "<font face=\"ARIAL\">" if( $Lan == 1 );
print "<A HREF=\"$Navi[0][$Lan-1]\">$info[1][$Lan-1]</A> | \n";
print "<A HREF=\"$Navi[1][$Lan-1]\">$info[2][$Lan-1]</A> | \n";
print "<A HREF=\"$Navi[2][$Lan-1]\">$info[3][$Lan-1]</A> | \n";
print "<A HREF=\"$Navi[3][$Lan-1]\">$info[4][$Lan-1]</A> | \n";
print "<A HREF=\"$Navi[4][$Lan-1]\">$info[5][$Lan-1]</A> | \n";
print "<A HREF=\"$Navi[5][$Lan-1]\">$info[6][$Lan-1]</A> | \n";
print "<A HREF=\"$Navi[6][$Lan-1]\">$info[7][$Lan-1]</A>\n";
print "</font>\n" if( $Lan == 1 );
print "<p>\n";
print "\n";
print "<table border=1><tr><td><FONT SIZE=\"-1\"><I><A HREF=\"http://www.xindeco.com/chxindeco.html\">$info[8][$Lan-1]</A></I>......$info[9][$Lan-1].....<B>&copy;1997</B></FONT></td></tr></table>\n";
print "</center>\n";
print "\n";
print "</body>";
exit(0);