From 77dfd54cff988d3b3ff20a4ae629ed2c19bba55b Mon Sep 17 00:00:00 2001
From: Nicholas Del Rio <Nicholas.Del_Rio@us.af.mil>
Date: Mon, 13 Dec 2021 10:35:45 -0500
Subject: [PATCH] adding support to inherit proxy from env

---
 bin/util/filename-v3.pl | 1 +
 bin/util/filename.pl    | 1 +
 2 files changed, 2 insertions(+)

diff --git a/bin/util/filename-v3.pl b/bin/util/filename-v3.pl
index 382b7b9c..ef22d357 100755
--- a/bin/util/filename-v3.pl
+++ b/bin/util/filename-v3.pl
@@ -18,6 +18,7 @@
 
 my $url	= shift;
 my $ua	= LWP::UserAgent->new( max_redirect => 0 );
+$ua->env_proxy; # use the proxy specified by $http_proxy
 
 my %seen;
 while (1) {
diff --git a/bin/util/filename.pl b/bin/util/filename.pl
index 568773e5..8dcd72f7 100755
--- a/bin/util/filename.pl
+++ b/bin/util/filename.pl
@@ -7,6 +7,7 @@
 
 my $url	= shift;
 my $ua	= LWP::UserAgent->new( max_redirect => 0 );
+$ua->env_proxy; # use the proxy specified by $http_proxy
 
 while (1) {
 	my $resp = $ua->head($url);