diff options
Diffstat (limited to 'gmi.pl')
| -rwxr-xr-x | gmi.pl | 15 |
1 files changed, 10 insertions, 5 deletions
@@ -10,7 +10,7 @@ use utf8; use feature qw(refaliasing); no warnings qw(experimental::refaliasing); -our $VERSION = 'v0.0.25'; +our $VERSION = 'v0.0.26'; # TODO: # back() only works once; should fix this @@ -101,8 +101,8 @@ my %commands = ( 'd' => [sub { display() }, 'Alias of `display\'.' ], 'usepager' => [sub { toggle($use_pager) }, 'This toggles pager use. 1 = use pager, 0 = stdout.' ], - 'pretty_links' => [sub { toggle($pretty_links) }, "0 = do nothing, 1 = pretty. Currently $pretty_links."], - 'pretty_headers' => [sub { toggle($pretty_headers) }, "0 = do nothing, 1 = pretty. Currently $pretty_headers."], + 'pretty_links' => [sub { toggle($pretty_links) }, "0 = do nothing, 1 = pretty."], + 'pretty_headers' => [sub { toggle($pretty_headers) }, "0 = do nothing, 1 = pretty."], 'textwrap' => [sub { textwrap($_[0]) }, "Set textwrap length.\nGiving 'auto' will " . "automatically determine the appropriate length."], 'pager' => [sub { pager($_[0]) }, "Set which pager to use. (currently $ENV{PAGER})"], @@ -111,7 +111,8 @@ my %commands = ( 'ver' => [sub {print $OUT "$VERSION\n"}, "Returns the version ($VERSION)"], 'exit' => [sub {exit 0;}, "This exits the program with a status code of 0."], - 'autoredirection' => [sub { value_number($auto_redirect,$_[0],'autoredirect') }, "The amount of times this program is allowed to auto redirect. 0 = none."], + 'autoredirection' => [sub { value_number($auto_redirect,$_[0],'autoredirect') }, + "The amount of times this program is allowed to auto redirect. 0 = none."], 'timeout' => [sub { value_number($timeout,$_[0],'timeout') }, "The client will time out when the server takes too long." ], @@ -199,7 +200,9 @@ sub url { PeerPort => "$url->{port}", SSL_verify_mode => SSL_VERIFY_NONE, + SSL_verifycn_name => "$url->{host}", SSL_version => '!SSLv2:!SSLv3:!TLSv1:!TLSv1_1', + SSL_fast_shutdown => 1, Timeout => 2, ); @@ -220,7 +223,8 @@ sub url { print $cl "$current_url\r\n"; @doc = <$cl>; - # ["absolute_url", "description"] + + close($cl); # if this isnt here, the kernel will have to clean up unused ports alarm 0; }; @@ -233,6 +237,7 @@ sub url { follow_status_code(); } } + else { print $OUT "error=$!, ssl_error=$SSL_ERROR\n"; } |