code cleanup

diff --git a/tools/linkcheck.pl b/tools/linkcheck.pl
index c6c224c6cb1665011770a9ee7cb546b4a8edd04e..ab0a3f333bcfa840a413d71cf966977486382a10 100755 (executable)
--- 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