#!/usr/bin/perl require "/u/web/chinav/cgi-local/cgi-lib.chen"; $news_file = "/u/web/chinav/newswire/news.html"; &ReadParse(*input); $head = $input{'head'}; open (INFO, $news_file); @lines = ; close (INFO); foreach $line (@lines) { if ($line =~ /head=$head/) { $headline = $line; $headline =~ s/.*">//; $headline =~ s/<\/a>//i; } } print "Content-type: text/html\n\n"; print < China Business Database Inquiry Form

ChinaVista Newswire
Article Translation Request Form


Please provide your name and contact information:
Your Name:
E-mail Address:
Fax:
Phone:
Translation Details:
Article ID $head
Article Headline $headline
Time Requirements 48 hours  4 days  10 days
Note: For express, 48 hour service, there is a surcharge of an additional 65%. For 10 day service, there is a discount of 15%.
Payment

Please choose from the following payment methods We will e-mail you with specific instructions for payment along with our confirmation of your query.

Check  Bank Transfer

  

END_OF_TEXT