include("WBInclusions")
global VERSION = "004"
global BASE = "/ROM/BO/c9/"
global OKs = Dict()
AGOs = []
USERS = []
EMP("global C9IMAGDICT = " * RRead("C9IMAGDICT", "asis"))
global ix = 1
function RD(dir)
# println(" dir: \"",dir, "\"")
files = readdir(dir)
for f in files
if isdir(dir * f)
RD(dir * f * "/")
continue
end
if !(endswith(f, ".jpg") || endswith(f, ".gif") || endswith(f, ".png"))
continue
end
global ok = false
global notok = 0
global q = ""
global force = false
while !ok
try
if isfile("\\Oldimages\\" * f * q)
xx = get(OKs, lowercase(f), "SSSSS")
mismatch = ""
if (xx != "SSSSS") && (RRead(dir * f, "raw") != RRead(xx, "raw"))
mismatch = " " * HI_RED * "MISMATCH!" * HI_END
end
println("\\Oldimages\\" * f * q * " ?? " * dir * f * " ?? " * get(OKs, lowercase(f), HI_AQUA * xx * HI_END) * mismatch)
ok = true
continue
end
cp(dir * f, "\\Oldimages\\" * f * q)
mt = stat(dir * f)
#println(" " * dir * f * " " , string(stat(dir * f).mtime))
#println("OK ", dir * f , " ", "\\Oldimages\\" * f * q)
OKs[f] = lowercase(dir * f)
push!(AGOs,[stat(dir * f).mtime, dir*f])
ok = true
catch ex
local s = string(ex)
if length(s) > 200
s = s[1:200] * "..."
end
println("Failure: ", dir * f * " " * typeof(ex), ".\n", s);
ok = true
end
end
global ix += 1
end
end
foreach(rm, filter(contains("."), readdir("/OLDIMAGES",join=true))) # What a shit!
RD(BASE)
LIST1 = []
LIST2 = []
global USED = 0
AGOss = sort(AGOs,by = x -> x[1], rev = true)
for item in AGOss
xxx = item[2][12:length(item[2])]
xxxx = ""
xxxxx = ""
if (a = get(C9IMAGDICT[2], xxx, "NUTHIN")) != "NUTHIN"
xxxx = " " * replace(replace(replace(string(a), r"Dict{String, (Int32|Any)}" => ""), r"[()]" => ""), r"\" => (\d+)," => s"\" => \1,") * ""
xxxxx = " USED"
global USED += 1
for u in keys(a)
if !(u in USERS)
push!(USERS, u)
end
end
end
push!(LIST2, replace(string(Dates.unix2datetime(item[1])), r"T(\d{2}):(\d{2}).*" => s" \1:\2") *
"
![\"Previous\"](\"w/images/1/12/Prev2a.gif\")
Welcome![\"This](\"w/images/c/ca/HTML5V.png\")