2007-02-01 [paul] 2.7.2cvs13
authorPaul Mangan <paul@claws-mail.org>
Thu, 1 Feb 2007 17:58:28 +0000 (17:58 +0000)
committerPaul Mangan <paul@claws-mail.org>
Thu, 1 Feb 2007 17:58:28 +0000 (17:58 +0000)
* AUTHORS
* src/gtk/authors.h
* tools/freshmeat_search.pl
* tools/google_search.pl
* tools/multiwebsearch.pl
add support for non ISO-8859-1 compatible locales
Patch by Alex Gorbachenko <agent_007@immo.ru>

AUTHORS
ChangeLog
PATCHSETS
configure.ac
src/gtk/authors.h
tools/freshmeat_search.pl
tools/google_search.pl
tools/multiwebsearch.pl

diff --git a/AUTHORS b/AUTHORS
index 3ee644e..2cdaa01 100644 (file)
--- a/AUTHORS
+++ b/AUTHORS
@@ -238,3 +238,4 @@ contributors (in addition to the above; based on Changelog)
        Michael Hughes
        Jindrich Makovicka
        Pascal Terjan
+       Alex Gorbachenko
index 16ed6d3..601c53b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2007-02-01 [paul]      2.7.2cvs13
+
+       * AUTHORS
+       * src/gtk/authors.h
+       * tools/freshmeat_search.pl
+       * tools/google_search.pl
+       * tools/multiwebsearch.pl
+               add support for non ISO-8859-1 compatible locales
+               Patch by Alex Gorbachenko <agent_007@immo.ru>
+
 2007-02-01 [colin]     2.7.2cvs12
 
        * src/prefs_other.c
index 99c2229..e7cce20 100644 (file)
--- a/PATCHSETS
+++ b/PATCHSETS
 ( cvs diff -u -r 1.9.2.11 -r 1.9.2.12 src/addressadd.c;  cvs diff -u -r 1.65.2.55 -r 1.65.2.56 src/codeconv.c;  cvs diff -u -r 1.96.2.166 -r 1.96.2.167 src/textview.c;  ) > 2.7.2cvs10.patchset
 ( cvs diff -u -r 1.14.2.50 -r 1.14.2.51 src/plugins/trayicon/trayicon.c;  ) > 2.7.2cvs11.patchset
 ( cvs diff -u -r 1.1.2.17 -r 1.1.2.18 src/prefs_other.c;  cvs diff -u -r 1.1.2.35 -r 1.1.2.36 src/prefs_summaries.c;  ) > 2.7.2cvs12.patchset
+( cvs diff -u -r 1.100.2.47 -r 1.100.2.48 AUTHORS;  cvs diff -u -r 1.1.2.32 -r 1.1.2.33 src/gtk/authors.h;  cvs diff -u -r 1.3.2.5 -r 1.3.2.6 tools/freshmeat_search.pl;  cvs diff -u -r 1.3.2.5 -r 1.3.2.6 tools/google_search.pl;  cvs diff -u -r 1.3.2.5 -r 1.3.2.6 tools/multiwebsearch.pl;  ) > 2.7.2cvs13.patchset
index 18e89b6..ae4b145 100644 (file)
@@ -11,7 +11,7 @@ MINOR_VERSION=7
 MICRO_VERSION=2
 INTERFACE_AGE=0
 BINARY_AGE=0
-EXTRA_VERSION=12
+EXTRA_VERSION=13
 EXTRA_RELEASE=
 EXTRA_GTK2_VERSION=
 
index 93ad661..28e706b 100644 (file)
@@ -111,6 +111,7 @@ static char *CONTRIBS_LIST[] = {
 "Stoyan Genov",
 "Thomas Gilgin",
 "Thierry Godefroy",
+"Alex Gorbachenko",
 "Yang Guilong",
 "Daniel Gustafson",
 "HIROSHIMA",
index 1c9bed0..2177abe 100644 (file)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-#  * Copyright 2003 Paul Mangan <paul@claws-mail.org>
+#  * 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
 #  * 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 $freshmeat = "http://freshmeat.net/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/$freshmeat=$_/;
+               $browser[1] =~ s/%s/$freshmeat=$safe/;
        }
 }
 
index eae3d22..f75d4ce 100644 (file)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-#  * Copyright 2003 Paul Mangan <paul@claws-mail.org>
+#  * 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
 #  * 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]&");
index 158054d..8265ea2 100644 (file)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-#  * Copyright 2003 Paul Mangan <paul@claws-mail.org>
+#  * 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
 #  * 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 Getopt::Long;
+use URI::Escape;
+use POSIX qw(locale_h);
+use Text::Iconv;
 
 my $where = '';
 my $what  = '';
@@ -25,7 +33,12 @@ my $what  = '';
 GetOptions("where=s"   => \$where,
           "what=s"     => \$what);
 
-$what =~ s/\s/%20/g;
+$locale = setlocale(LC_CTYPE);
+$locale =~ s/\S+\.//;
+
+$converter = Text::Iconv->new("$locale", "UTF-8");
+$safe=uri_escape($converter->convert("$what"));
+$what=$safe;
 
 chdir($ENV{HOME} . "/.claws-mail") 
        || die("Can't find your ~/.claws-mail directory\n");