From 088ac46d50408ab1ce7e584d438828c2603f910a Mon Sep 17 00:00:00 2001
From: jake <jake@jakes-mail.top>
Date: Tue, 1 Feb 2022 17:18:07 -0500
Subject: peer cert expired done correctly now

---
 gmi.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gmi.pl b/gmi.pl
index 03cdf55..b295a08 100755
--- a/gmi.pl
+++ b/gmi.pl
@@ -25,15 +25,15 @@ use Term::ANSIColor; # Core
 use Path::Naive qw(normalize_path); # CPAN
 use Text::ParseWords; # Core
 use Term::ReadLine; # CPAN
-use Smart::Comments; # CPAN
+#use Smart::Comments; # CPAN
 use URI::Encode qw(uri_encode); # CPAN
 use IO::Socket::SSL::Utils; # CPAN
 use File::Slurper qw(read_dir read_text); # CPAN
-use Data::Dumper;
+#use Data::Dumper; # Core
 use File::BaseDir qw(xdg_config_home xdg_data_home xdg_cache_home); # CPAN
 use TOML qw(from_toml to_toml); # CPAN
 
-# sudo cpanm IO::Socket::SSL URL::XS IO::Pager Text::Wraper Term::ReadKey Path::Naive  Text::ParseWords Term::ReadLine Smart::Comments URI::Encode IO::Socket::SSL::Utils File::Slurper File::BaseDir
+# sudo cpanm IO::Socket::SSL URL::XS IO::Pager Text::Wraper Term::ReadKey Path::Naive  Text::ParseWords Term::ReadLine Smart::Comments URI::Encode IO::Socket::SSL::Utils File::Slurper File::BaseDir TOML
 
 my %config = (
 	'use_pager' => 1,
@@ -380,7 +380,7 @@ sub peer_cert {
 	}
 
 	# check expiratory
-	if ($peer_not_before < $peer_not_after) {
+	if ($peer_not_before < time() and time() < $peer_not_after) {
 		### not expired
 		;
 	}
-- 
cgit v1.2.3