talons

commit 13a351ca32a986357c4c192374e5a117bc379a1c
parent f29424825ba830f16574a16d5a679dcfa6c0664f
Author: Paul <paul@claws-mail.org>
Date:   Sun, 20 Dec 2015 12:15:29 +0000

freshmeat.net does not exist anymore, so this script is useless

Diffstat:
D
tools/freshmeat_search.pl
 | 
54
------------------------------------------------------

1 file changed, 0 insertions(+), 54 deletions(-)
diff --git a/tools/freshmeat_search.pl b/tools/freshmeat_search.pl
@@ -1,54 +0,0 @@
-#!/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 $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");
-	@rclines = <SYLRC>;
-close SYLRC;
-
-foreach $rcline (@rclines) {
-	if ($rcline =~ m/^uri_open_command/) {
-		chomp $rcline;
-		@browser = split(/=/, $rcline);
-		$browser[1] =~ s/%s/$freshmeat=$safe/;
-	}
-}
-
-system("$browser[1]&");
-
-exit;