Add license and copyright to 9b3fd2b5

[claws.git] / tools / google_search.pl

diff --git a/tools/google_search.pl b/tools/google_search.pl
old mode 100644 (file)
new mode 100755 (executable)
index 22213d0..fc0c92f
--- a/tools/google_search.pl
+++ b/tools/google_search.pl
@@ -1,11 +1,43 @@
 #!/usr/bin/perl
 
+#  * 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 3 of the License, or
+#  * (at your option) any later version.
+#  *
+#  * This program is distributed in the hope that it will be useful, but
+#  * WITHOUT ANY WARRANTY; without even the implied warranty of
+#  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#  * General Public License for more details.
+#  *
+#  * You should have received a copy of the GNU General Public License
+#  * along with this program; if not, write to the Free Software
+#  * 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";
 $_ = <>;
 
-chdir($ENV{HOME} . "/.sylpheed") or die("Can't find your .sylpheed directory\n");
+$locale = setlocale(LC_CTYPE);
+$locale =~ s/\S+\.//;
+
+$converter = Text::Iconv->new("$locale", "UTF-8");
+$safe=uri_escape($converter->convert("$_"));
 
-open (SYLRC, "<sylpheedrc") || die("Can't open the sylpheedrc file\n");
+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");
        @rclines = <SYLRC>;
 close SYLRC;
 
@@ -13,11 +45,10 @@ foreach $rcline (@rclines) {
        if ($rcline =~ m/^uri_open_command/) {
                chomp $rcline;
                @browser = split(/=/, $rcline);
-               $browser[1] =~ s/ '%s'$//;
+               $browser[1] =~ s/%s/$google=$safe/;
        }
 }
-
-system("$browser[1] '$google=$_' &");
+system("$browser[1]&");
 
 exit;