aboutsummaryrefslogtreecommitdiff
path: root/etc/check-links.lua
diff options
context:
space:
mode:
Diffstat (limited to 'etc/check-links.lua')
-rw-r--r--etc/check-links.lua8
1 files changed, 6 insertions, 2 deletions
diff --git a/etc/check-links.lua b/etc/check-links.lua
index 0dca27c..705c0ce 100644
--- a/etc/check-links.lua
+++ b/etc/check-links.lua
@@ -1,3 +1,7 @@
1-----------------------------------------------------------------------------
2-- Little program that checks links in HTML files
3-- LuaSocket 1.5 sample files.
4-----------------------------------------------------------------------------
1socket.http.TIMEOUT = 10 5socket.http.TIMEOUT = 10
2 6
3cache = {} 7cache = {}
@@ -14,7 +18,7 @@ end
14 18
15function getstatus(url) 19function getstatus(url)
16 local parsed = socket.url.parse(url, { scheme = "file" }) 20 local parsed = socket.url.parse(url, { scheme = "file" })
17 if cache[url] then return cache[url].res end 21 if cache[url] then return cache[url] end
18 local res 22 local res
19 if parsed.scheme == "http" then 23 if parsed.scheme == "http" then
20 local request = { url = url } 24 local request = { url = url }
@@ -34,7 +38,7 @@ function getstatus(url)
34 res = nil 38 res = nil
35 else res = error end 39 else res = error end
36 else res = string.format("unhandled scheme '%s'", parsed.scheme) end 40 else res = string.format("unhandled scheme '%s'", parsed.scheme) end
37 cache[url] = { res = res } 41 cache[url] = res
38 return res 42 return res
39end 43end
40 44