projects
/
claws.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Sync Spanish manual
[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
8c211a9
..
fc0c92f
--- a/
tools/google_search.pl
+++ b/
tools/google_search.pl
@@
-1,10
+1,10
@@
#!/usr/bin/perl
#!/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
# *
# * 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
# * (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.
# *
# * 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";
$_ = <>;
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");
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);
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]&");
}
}
system("$browser[1]&");