include("WBInclusions")
using HTTP

APFS = "009" # WBheads:APFS
global versionNr = APFS

global failures = []
global attns = []

txt = RRead("XXXXTree.html", "asis")
urls = findall(r"href=\"[^\"]+", txt)
global ctr = 0;
for urlx in urls
    global item = txt[urlx]
    if !contains(item, "http")
        continue
    end
    global ctr += 1
    global item = item[7 : length(item)]
    try
        print("    ", ctr, ". ", item)
        heads = HTTP.head(item, readtimeout=15)
        sx = string(heads.status)
        sxx = ""
        if sx != "200"
            sxx = "ATTN: "
            push!(attns, item)
        end
        println(" ", sxx, sx)
    catch ex
        s = string(ex)
        println(" **Failed**")  
        if length(s) > 200
            s = s[1:200] * "..."
        end
        push!(failures, (item * " =>\n" * s))
    end
end
println("\nWBheads v", versionNr, ". Count: " , ctr , ".")
println("\n", attns)
println("--------")
global ctr = 0
for f in failures
    global ctr += 1
    println("\n", ctr, " (" ,round((failures/ctr) * 100, digits = 2) "%)", f)
end