http/hsts: Add :remove() method

Author: daurnimator

doc/modules/http.hsts.md

@@ -17,6 +17,11 @@ Creates and returns a copy of a store.
 Add new directives to the store about the given `host`. `directives` should be a table of directives, which *must* include the key `"max-age"`.
 
 
+### `hsts_store:remove(host)` <!-- --> {#http.hsts:remove}
+
+Removes the entry for `host` from the store (if it exists).
+
+
 ### `hsts_store:check(host)` <!-- --> {#http.hsts:check}
 
 Returns a boolean indicating if the given `host` is a known HSTS host.

http/hsts.lua

@@ -49,17 +49,13 @@ function store_methods:store(host, directives)
 	else
 		max_age = tonumber(max_age, 10)
 	end
-	if http_util.is_ip(host) then
-		return false
-	end
+
 	if max_age == 0 then
-		-- delete from store
-		local item = self.domains[host]
-		if item then
-			self.expiry_heap:remove(item)
-			self.domains[host] = nil
-		end
+		return self:remove(host)
 	else
+		if http_util.is_ip(host) then
+			return false
+		end
 		-- add to store
 		local old_item = self.domains[host]
 		if old_item then
@@ -77,6 +73,15 @@ function store_methods:store(host, directives)
 	return true
 end
 
+function store_methods:remove(host)
+	local item = self.domains[host]
+	if item then
+		self.expiry_heap:remove(item)
+		self.domains[host] = nil
+	end
+	return true
+end
+
 function store_methods:check(host)
 	if http_util.is_ip(host) then
 		return false