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