Преглед изворни кода

Deal with new defaults in LWP

Zachary Kotlarek пре 14 година
родитељ
комит
8ec185b103
2 измењених фајлова са 4 додато и 1 уклоњено
  1. 3 0
      Fetch.pm
  2. 1 1
      findTorrent.pl

+ 3 - 0
Fetch.pm

@@ -161,6 +161,9 @@ sub init_ua() {
 		);
 		$self->{'ua'}->cookie_jar($self->{'cookies'});
 	}
+
+	# Disable SSL hostname verification
+	$self->{'ua'}->ssl_opts('verify_hostname' => 0);
 }
 
 #----------------------------------------------------------------------

+ 1 - 1
findTorrent.pl

@@ -60,7 +60,7 @@ my %SOURCES = ();
 if ($ENABLE_SOURCE{'TPB'}) {
 
 	# Available TPB proxies, in order of preference
-	my @TPBs = ('thepiratebay.se/search/', 'tpb.jasohack.com/index.php?loadurl=/search/', 'http://tpb.allestec.com/index.php?loadurl=/search/');
+	my @TPBs = ('thepiratebay.se/search/', 'tpb.jasohack.com/index.php?loadurl=/search/', 'tpb.allestec.com/index.php?loadurl=/search/');
 
 	# Automatically select a TPB proxy that returns a search page
 	my $search_url = '';