From 0163c10b632e408f900e459c27f05fa0cef2f59b Mon Sep 17 00:00:00 2001 From: Vlatko Kosturjak Date: Thu, 18 Jun 2015 13:13:28 +0200 Subject: [PATCH] Add option to ignore SSL certificates - Fixes #4 --- rip-git.pl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/rip-git.pl b/rip-git.pl index d936688..1231d09 100755 --- a/rip-git.pl +++ b/rip-git.pl @@ -2,6 +2,7 @@ use strict; +use IO::Socket::SSL; use LWP; use LWP::UserAgent; use HTTP::Request; @@ -36,7 +37,7 @@ "b|branch=s" => \$config{'branch'}, "u|url=s" => \$config{'url'}, "c|checkout!" => \$config{'checkout'}, - "s|verifyssl!" => \$config{'verifyssl'}, + "s|sslignore!" => \$config{'sslignore'}, "v|verbose+" => \$config{'verbose'}, "h|help" => \&help ); @@ -52,8 +53,13 @@ my @commits; my $ua = LWP::UserAgent->new; + $ua->agent($config{'agent'}); +if ($config{'sslignore'}) { + $ua->ssl_opts(SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE, verify_hostname => 0); +} + my $gd=$config{'gitdir'}."/"; mkdir $gd;