Add new example to manipulate javascript with ajax

.travis.yml

@@ -0,0 +1,20 @@
+language: perl
+perl:
+     - "5.18"
+     - "5.16"
+     - "5.14"
+     - "5.12"
+     - "5.10"
+     - "5.8"
+
+install:
+     - export RELEASE_TESTING=1 AUTOMATED_TESTING=1 AUTHOR_TESTING=1 HARNESS_OPTIONS=c HARNESS_TIMER=1
+     - cpanm --quiet --notest Devel::Cover::Report::Coveralls
+     - cpanm --quiet --notest --installdeps .
+
+script:
+     - PERL5OPT=-MDevel::Cover=-coverage,statement,branch,condition,path,subroutine prove -lrsv t
+     - cover -ignore_re '[.]t$|prove'
+
+after_success:
+    - cover -report coveralls

examples/README

@@ -17,9 +17,10 @@ manipulate-javascript.pl        Make changes to Javascript values in a webpage
 javascript.pl                   Execute Javascript in the webpage context
 js-console.pl                   Send messages to the Error Console
 tail-console.pl                 Display messages from the Error Console to STDOUT
+g_and_p_trans.pl                Use Ajax in javascript to translate sentence
 
 Advanced / Firefox application
 ========
 urlbar.pl                       Listen to changes in the location bar
 fullscreen.pl                   Switch the browser to full screen
-proxy-settings.pl               Change the proxy settings and other settings in Firefox
+proxy-settings.pl               Change the proxy settings and other settings in Firefox

examples/g_and_p_trans.pl

@@ -0,0 +1,299 @@
+#!/usr/bin/env perl
+######################################
+# $URL: http://mishin.narod.ru $
+# $Date: Wed Oct 9 18:52:21 2011 $
+# $Author: Nikolay Mishin $
+# $Revision: 0.02 $
+# $Source: g_and_p_trans.pl $
+# $Description: Use translate.google.com and translate.ru to translate between languages. $
+##############################################################################
+
+use strict;
+use warnings;
+
+BEGIN {
+    use Devel::CheckOS qw(os_is);
+    require 'open.pm';
+    if ( os_is('Unix') ) {
+        open::import( 'open', 'locale' );
+    }
+}
+
+use Modern::Perl;
+use LWP::UserAgent;
+
+use Getopt::Long;
+use Pod::Usage;
+
+use WWW::Mechanize::Firefox;
+use HTML::Entities;
+use Carp;
+use English qw(-no_match_vars);
+use Try::Tiny;
+
+use Encode qw(decode encode);
+use Term::Encoding qw(term_encoding);
+
+use Readonly;
+use Time::HiRes qw(usleep);
+
+our $VERSION = '0.02';
+our $EMPTY   = q{};
+
+my $man         = 0;
+my $help        = 0;
+my $from        = 'fr';
+my $to          = 'ru';
+my $text        = 'yapc';
+my $url_mashine = 'http://translate.google.com/translate_t?langpair=';
+
+GetOptions(
+    'help|?' => \$help,
+    'man'    => \$man,
+    'from=s' => \$from,
+    'to=s'   => \$to,
+    'text=s' => \$text,
+) or pod2usage( -verbose => 2 );
+
+if ($help) { pod2usage(1) }
+if ($man) { pod2usage( -verbose => 2 ) }
+
+my @translate_param = ( $from, $to, $text, $url_mashine );
+main( \@translate_param );
+exit;
+
+sub main {
+    my ($in_param)        = @_;
+    my $translate_ru_text = translate_ru_text($in_param);
+    my $google_text       = translate_text($in_param);
+    my $out_text =
+      decode_entities("{g}:${google_text}{t}:${translate_ru_text}");
+
+    if ( os_is('MSWin32') ) {
+        $out_text = encode( term_encoding, $out_text );
+    }
+    say $out_text;
+    return 1;
+}
+
+sub translate_text {
+    my ($translate_param) = @_;
+    my ( $src, $trg, $words, $url_translate ) = @{$translate_param};
+    my $url = "${url_translate}${src}|${trg}&text=+${words}";
+    my $ua  = LWP::UserAgent->new;
+    $ua->agent($EMPTY);
+    my $res = $ua->get($url);
+    if ( $res->is_error ) { croak $res->status_line }
+    my $html      = $res->decoded_content;
+    my $start_rgx = q{onmouseout="this.style.backgroundColor='#fff'">};
+    my $end_rgx   = q{</span>};
+    my @matches   = $html =~ m{\Q$start_rgx\E(.*?)\Q$end_rgx\E}xgms;      #sxm;
+
+    my $out = join $EMPTY, @matches;
+    return $out;
+}
+
+sub translate_ru_text {
+    my ($translate_param) = @_;
+    my ( $src, $trg, $words, $url_translate ) = @{$translate_param};
+    my $url = 'http://www.translate.ru/';
+    my $firemech;
+    try {
+        $firemech = WWW::Mechanize::Firefox->new( tab => qr/PROMT/sm, );
+    }
+    catch {
+        given ($_) {
+            my ( $err_connection, $err_conn_refused ) =
+              ( 'Failed to connect to', 'Connection refused' );
+            when (/\Q$err_connection\E|\Q$err_conn_refused\E/xsm) {
+                my $path_to_firefox =
+                  os_is('MSWin32')
+                  ? 'C:/Program Files (x86)/Mozilla Firefox/firefox.exe'
+                  : '/usr/bin/firefox';
+                $firemech = WWW::Mechanize::Firefox->new(
+                    tab    => 'current',
+                    launch => $path_to_firefox
+                );
+                $firemech = invoke_firefox( $url, $firemech );
+            }
+
+            #Couldn't find a tab matching /(?^ums:PROMT)/ at trans.pl line 100.
+            when (/\QCouldn't find a tab matching\E/xsm) {
+                say 'we match error' . $_;
+                $firemech = invoke_firefox( $url, $firemech );
+            }
+        }
+    };
+    if ( !$firemech ) {
+        $firemech = invoke_firefox( $url, $firemech );
+    }
+    return fill_translate_ru_page( $firemech, $words );
+}
+
+sub invoke_firefox {
+    my ( $url, $firemech ) = shift;
+    if ( !$firemech ) {
+        $firemech = WWW::Mechanize::Firefox->new( tab => 'current', );
+    }
+    $firemech->get($url);
+    if ( !$firemech->success() ) {
+        die "Cannot connect to $url\n";
+    }
+    return $firemech;
+}
+
+sub fill_translate_ru_page {
+    my $mech          = shift;
+    my $words         = shift;
+    my $submit_button = 'id="bTranslate"';
+    wait_for( $mech, $submit_button );
+    $mech->field( 'ctl00$SiteContent$sourceText' => $words );
+
+    $mech->eval_in_page(<<'JS');
+key="";
+var globalJsonVar;
+ uTrType = "";
+    visitLink = false;
+    closeTranslationLinks();
+    var dir = GetDir();
+    var text = rtrim($("#ctl00_SiteContent_sourceText").val());
+    text = encodeURIComponent(text).split("'").join("\\'");
+    var templ = $("#template").val();
+  $.ajax({
+        type: "POST",
+        contentType: "application/json; charset=utf-8",
+        url: "/services/TranslationService.asmx/GetTranslateNew",
+        data: "{ dirCode:'" + dir + "', template:'" + templ + "', text:'" + text + "', lang:'ru', limit:" + maxlen + ",useAutoDetect:true, key:'" + key + "', ts:'" + TS + "',tid:'',IsMobile:false}",
+        dataType: "json",
+        success: function (res) {
+ $("#editResult_test")[0].innerHTML=res.result;
+console.warn('line1 '+res.result);
+        },
+        error: function (XMLHttpRequest, textStatus, errorThrown) {
+            GetErrMsg("К сожалению, сервис временно недоступен. Попробуйте повторить запрос позже.");
+            trDirCode = "";
+        }
+    });
+
+
+JS
+
+    Readonly my $MICROSECONDS => 100_000;
+
+    usleep($MICROSECONDS);
+
+    my ( $value, $type ) = $mech->eval(<<'JS');
+console.warn('line2 '+$("#editResult_test")[0].innerHTML);	
+$("#editResult_test")[0].innerHTML;
+JS
+
+    return $value;
+}
+
+sub wait_for {
+    my $mech   = shift;
+    my $choice = shift;
+    Readonly my $NUMBER_OF_RETRIES => 10;
+    my $retries = $NUMBER_OF_RETRIES;
+    while ( $retries--
+        && !$mech->is_visible( xpath => '//*[@' . ${choice} . ']' ) )
+    {
+        sleep 1;
+    }
+    croak 'Timeout' if 0 > $retries;
+    return 1;
+}
+
+__END__
+
+=head1 NAME
+
+g_and_p_trans.pl - command line translator with google, translate.ru 
+
+=head1 SYNOPSIS
+
+g_and_p_trans.pl [options] [text to translate ...]
+
+Options:
+-help brief help message
+-man full documentation
+-from from language
+-to to language
+-text text to translate
+
+=head1 USAGE
+
+g_and_p_trans.pl --from en --to ru --text "This is a test"
+
+=head1 REQUIRED ARGUMENTS
+
+--text is requied argument, so you can invoke 
+
+perl g_and_p_trans.pl --text "This is a test"
+
+=head1 CONFIGURATION
+
+no special configuration
+
+=head1 DEPENDENCIES
+
+Modern::Perl
+LWP::UserAgent
+Getopt::Long
+Pod::Usage
+use WWW::Mechanize::Firefox;
+use HTML::Entities;
+use Carp;
+
+
+=head1 OPTIONS
+
+=over 2
+
+=item B<-help>
+
+Print a brief help message and exits.
+
+=item B<-man>
+
+Prints the manual page and exits.
+
+=back
+
+=head1 DESCRIPTION
+
+B<This program> will read the given input "text" and translate it to 
+ selected language using translate.google.com.
+
+=head1 DIAGNOSTICS
+
+
+=head1 EXIT STATUS
+
+unnown
+
+=head1 INCOMPATIBILITIES
+
+with winXP not work
+
+=head1 BUGS AND LIMITATIONS
+
+1. Windows - not ok
+Cannot figure out an encoding to use at g_and_p_trans.pl line 20 
+2. Ubuntu - ok
+
+=head1 AUTHOR
+
+Nikolay Mishin(mi@ya.ru), Jeremiah LaRocco(only for google)
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2013 by Nikolay Mishin M<lt>ishin@cpan.org<gt>.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+See F<http://www.perl.com/perl/misc/Artistic.html>
+
+=cut
+=cut