Did something like this.
(with site_html.pl....which I use)
********************************************
<table width="150" border="0" cellpadding="0" cellspacing="0">
<form action="$db_cgi_path/translator.cgi" method=POST>
<tr>
<td align="absmiddle">
<select name="lp" >
<option value="en_fr">French
<option value="en_sp" selected>Spanish
<option value="en_ge">German
<option value="en_it">Italian
<option value="en_pt">Portuguese
</select>
<input type="HIDDEN" name="form" value="http://translator.go.com/">
<input type="HIDDEN" name="input_type" value="url" checked>
</td>
<td align="absmiddle"><input type=image width=19 height=19 border=0 value="Translate" src="/images/gobutton.gif" align=absmiddle name="submit2"></td>
</tr>
</form>
</table>
****************************************
change layout to suite your needs.....
Then........
Create the very simple translator.cgi
******************************************
#!/usr/bin/perl
$refer=$ENV{'HTTP_REFERER'};
$formdata=<STDIN>;
$formdata=~s/\s+$//;
$formdata.="&$ENV{'QUERY_STRING'}";
$formdata=~s/^&//;
$formdata=~s/\s+$//;
foreach(split(/&/,$formdata))
{
($name, $value)=split(/=/, $_);
$name=~s/\+/ /g;
$name=~s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
$value=~s/\+/ /g;
$value=~s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
$data{$name}=$value;
}
$translate ="$data{'form'}?systran&lp=$data{'lp'}&input_type=url&url=$refer";
print "Location: $translate\n\n";
*************************************
upload
chmodd
re-build
you should be done!
hope this helps those that aren't as talented as the some of the other great posters on this board.
