From: Banana <banana@starscream.de>
Date: Mon, 20 Feb 2012 09:42:38 +0000 (+0100)
Subject: code cleanup
X-Git-Tag: 2.1-alpha-2019-0-29~83
X-Git-Url: http://91.132.146.200/gitweb/?a=commitdiff_plain;h=704d15e1cbcfa44ce1ac071baa2d13c40cd63d0a;p=insipid.git

code cleanup
---

diff --git a/tools/linkcheck.pl b/tools/linkcheck.pl
index c6c224c..ab0a3f3 100755
--- a/tools/linkcheck.pl
+++ b/tools/linkcheck.pl
@@ -30,7 +30,6 @@ use warnings;
 use strict;
 use Getopt::Long;
 use DBI;
-use Crypt::SSLeay;
 use LWP::UserAgent;
 
 BEGIN {
@@ -38,7 +37,6 @@ BEGIN {
     binmode STDERR, ':encoding(UTF-8)';
 }
 
-#push(@INC, "../lib");
 use lib "../lib";
 use Insipid::Config;
 use Insipid::Database;
@@ -77,7 +75,7 @@ if($sth->rows ne 0) {
 	$ua->show_progress(1);
 	$ua->agent("Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_3) AppleWebKit/535.11 (KHTML, like Gecko) Chrome/17.0.963.56 Safari/535.11");
 
-	$ua->proxy([ 'http', 'https' ], $opt_proxy) if $opt_proxy;
+	$ua->proxy(['http', 'ftp'], $opt_proxy) if $opt_proxy;
 
 	$ua->ssl_opts('verify_hostname' => 0);
 	$ua->protocols_allowed(undef); #  all are allowed