#!/tools/cs/perl5/bin/perl

require "translation.pl";

#$xlation =  &translation::translate_lang( "fr_en", "Oui");
#print "French 2 English : Oui -> $xlation\n";
$data = <<EODATA ;
Home page for Michelle Gregory . XXX . The home page for . XXX . Michelle L. Gregory . XXX . has moved. . XXX . The new address is: . XXX . http://sobek.colorado.edu/~gregorml . XXX . Please update this address!
EODATA

$xlation =  &translation::translate_lang( "en_fr", $data);
print "English 2 French : $data -> $xlation\n";
$xlation =  &translation::translate_lang( "fr_en", $data);
print "French 2 English : $data -> $xlation\n";
#$xlation =  &translation::translate_lang( "es_en", "Hola");
#print "Spanish 2 English: Hola -> $xlation\n";
#$xlation =  &translation::translate_lang( "en_es", "Yes");
#print "English 2 Spanish: Yes -> $xlation\n";
 
#$xlation =  &translation::translate( "Oui");
#print "$xlation\n";