From 46a8f0d98e4cf0a1c057fb2aa375bda06ed49cd5 Mon Sep 17 00:00:00 2001
From: dvs1
Date: Fri, 15 Nov 2024 14:08:55 +1000
Subject: Sometimes even I screw up, check for one I did that might happen
 again.

---
 apt-panopticon.lua | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/apt-panopticon.lua b/apt-panopticon.lua
index 092bad5..8e758c6 100755
--- a/apt-panopticon.lua
+++ b/apt-panopticon.lua
@@ -629,6 +629,10 @@ end
 
 
 local validateURL = function(m)
+    if "http://" == m.BaseURL:sub(1, 7) then
+	W("HTTP at beginning of BaseURL in mirror_list.txt!  " .. m.BaseURL, "", "", m.FQDN)
+	m.BaseURL = m.BaseURL:sub(1, -2)
+    end
     if " " == m.BaseURL:sub(-1, -1) then
 	W("space at end of BaseURL in mirror_list.txt!  " .. m.BaseURL, "", "", m.FQDN)
 	m.BaseURL = m.BaseURL:sub(1, -2)
-- 
cgit v1.1