# HG changeset patch
# User Igor Chubin <igor@chub.in>
# Date 1321103034 -3600
# Node ID c3adf6452eda6173fad805255218bfd59d594e6d
# Parent  1b8b30ad7c9565482e31b8a383de5cfebc31fdb7
lingvo-en-ru.pl script moved to misc/

diff -r 1b8b30ad7c95 -r c3adf6452eda lingvo-en-ru.pl
--- a/lingvo-en-ru.pl	Sat Nov 12 14:03:20 2011 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,49 +0,0 @@
-#!/usr/bin/perl
-
-# written by Andrii Grytsenko, 2010
-
-use Locale::Recode;
-use LWP::UserAgent;
-use strict;
-
-
-sub parse_html {
-    my $text = shift;
-    my $result ;
-    $text =~ s/></>\n</g;
-    foreach my $line (split(/\n/,$text)){
-	$result .= $line."\n" if ( $line =~ /span class=.translation/ or $line =~ /lol-dict-name/ or 
-				   $line =~ /span class=.Abbrev./ or $line =~ /span class=.comment./);
-    }
-    return $result;
-}
-
-sub print_html {
-    my $text = shift; 
-    my $class = 0;
-    foreach my $line (split(/\n/,$text)){
-	$line =~ s/<[^>]+>//g ; #delete all html tags
-	print "$line\n";
-    }
-}
-
-
-my $cd = Locale::Recode->new (from => 'UTF-8', to => 'koi8-r');
-die $cd->getError if $cd->getError;
-my $ua = LWP::UserAgent->new;
-$ua->agent("Firefox/0.1 ");
-
-my $word = $ARGV[0];
-my $req = HTTP::Request->new(GET => "http://lingvo.abbyyonline.com/en/en-ru/$word");
-
-my $res = $ua->request($req);
-
-if ($res->is_success) {
-    my $text = $res->content;
-    $cd->recode($text); # change code encoding from UTF-8 to koi8-ru
-    print "Translate for word $word\n";
-    $text = parse_html($text);
-    print_html($text);
-} else {
-    print $res->status_line, "\n";
-}
diff -r 1b8b30ad7c95 -r c3adf6452eda misc/lingvo-en-ru.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/misc/lingvo-en-ru.pl	Sat Nov 12 14:03:54 2011 +0100
@@ -0,0 +1,49 @@
+#!/usr/bin/perl
+
+# written by Andrii Grytsenko, 2010
+
+use Locale::Recode;
+use LWP::UserAgent;
+use strict;
+
+
+sub parse_html {
+    my $text = shift;
+    my $result ;
+    $text =~ s/></>\n</g;
+    foreach my $line (split(/\n/,$text)){
+	$result .= $line."\n" if ( $line =~ /span class=.translation/ or $line =~ /lol-dict-name/ or 
+				   $line =~ /span class=.Abbrev./ or $line =~ /span class=.comment./);
+    }
+    return $result;
+}
+
+sub print_html {
+    my $text = shift; 
+    my $class = 0;
+    foreach my $line (split(/\n/,$text)){
+	$line =~ s/<[^>]+>//g ; #delete all html tags
+	print "$line\n";
+    }
+}
+
+
+my $cd = Locale::Recode->new (from => 'UTF-8', to => 'koi8-r');
+die $cd->getError if $cd->getError;
+my $ua = LWP::UserAgent->new;
+$ua->agent("Firefox/0.1 ");
+
+my $word = $ARGV[0];
+my $req = HTTP::Request->new(GET => "http://lingvo.abbyyonline.com/en/en-ru/$word");
+
+my $res = $ua->request($req);
+
+if ($res->is_success) {
+    my $text = $res->content;
+    $cd->recode($text); # change code encoding from UTF-8 to koi8-ru
+    print "Translate for word $word\n";
+    $text = parse_html($text);
+    print_html($text);
+} else {
+    print $res->status_line, "\n";
+}