X-Git-Url: http://git.claws-mail.org/?p=claws.git;a=blobdiff_plain;f=tools%2Fgoogle_search.pl;h=fc0c92f16f92892e3b59d9f758e35566093f183d;hp=8c211a9fee1663ad840d2be90a563d0567fc9323;hb=16129f3b037b95c6b6708d0c8d1efc1d7effced7;hpb=adcfada595e3b3e6c07defc0b9f30d7ca517c86d

diff --git a/tools/google_search.pl b/tools/google_search.pl
old mode 100644
new mode 100755
index 8c211a9fe..fc0c92f16
--- a/tools/google_search.pl
+++ b/tools/google_search.pl
@@ -1,10 +1,10 @@
 #!/usr/bin/perl
 
-#  * Copyright © 2003 Paul Mangan <claws@thewildbeast.co.uk>
+#  * Copyright 2003-2007 Paul Mangan <paul@claws-mail.org>
 #  *
 #  * This file is free software; you can redistribute it and/or modify it
 #  * under the terms of the GNU General Public License as published by
-#  * the Free Software Foundation; either version 2 of the License, or
+#  * the Free Software Foundation; either version 3 of the License, or
 #  * (at your option) any later version.
 #  *
 #  * This program is distributed in the hope that it will be useful, but
@@ -17,9 +17,24 @@
 #  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 #  *
 
+# Changes:
+#	Feb 2007: add support for non ISO-8859-1 compatible locales
+#		  by Alex Gorbachenko <agent_007@immo.ru>
+#
+
+use URI::Escape;
+use POSIX qw(locale_h);
+use Text::Iconv;
+
 my $google = "http://www.google.com/search?q";
 $_ = <>;
 
+$locale = setlocale(LC_CTYPE);
+$locale =~ s/\S+\.//;
+
+$converter = Text::Iconv->new("$locale", "UTF-8");
+$safe=uri_escape($converter->convert("$_"));
+
 chdir($ENV{HOME} . "/.claws-mail") || die("Can't find your .claws-mail directory\n");
 
 open (SYLRC, "<clawsrc") || die("Can't open the clawsrc file\n");
@@ -30,7 +45,7 @@ foreach $rcline (@rclines) {
 	if ($rcline =~ m/^uri_open_command/) {
 		chomp $rcline;
 		@browser = split(/=/, $rcline);
-		$browser[1] =~ s/%s/$google=$_/;
+		$browser[1] =~ s/%s/$google=$safe/;
 	}
 }
 system("$browser[1]&");