#!/usr/bin/perl

    use strict;
    use lib './';
    use Links qw/$IN $DB $CFG $USER/;
    use CGI::Carp qw(fatalsToBrowser);
	use JSON;
	use Unicode::String qw(latin1 utf8);
	use LWP::UserAgent;

    print "Content-Type: text/html \n\n";
	
	my $key = 'xxxx';
	
	my $string = Do_Translate("en","fr",'are you');

	$DB->table('Links')->update( { Title => "êtes-vous" } , { ID => 32902 } ) || die $GT::SQL::error; #  works
	$DB->table('Links')->update( { Title => $string } , { ID => 32902 } ) || die $GT::SQL::error; # doesnt work

sub Do_Translate {

	my ($from,$to,$string) = @_;
	
	my $url = "https://www.googleapis.com/language/translate/v2?key=$key&q=$string&source=$from&target=$to";

	my $ua = LWP::UserAgent->new();
	my $body = $ua->get($url);
	my $json = from_json($body->decoded_content);
	
	use Data::Dumper;
	print Dumper($json);
	
	print "GOT: $json->{data}->{translations}[0]->{translatedText} \n";
		
	return utf8($json->{data}->{translations}[0]->{translatedText})->latin1; 
	
}