DIR = "/ROM/BO/"

include(DIR * "WBInclusions")
include(DIR * "w/DICT")

if length(ARGS) > 0
    global lim = tryparse(Int32,ARGS[1])
else
    global lim = 20
end

global OUTPUTFILE = DIR * "V2"

global FILE = open(OUTPUTFILE, "w")
function myPrintln(x)
    println(x)
    write(FILE, x * "\n")
end 

global k = keys(D)
global arry = []
global prv = "xxxxxxxxxxxxxx"

for ky in k
    if findfirst(" ", ky) != nothing || findfirst(r"\.(jpg|gif|png)$", ky) == nothing 
        println("\nDICT ERROR! \"" * ky * "\"")
        exit(16)
    end
    x = D[ky]
    y = DIR * "w/images/" * x[1] * "/" * x[2] * "/" * ky
    z = string(Dates.unix2datetime(mtime(y)))
    push!(arry, "  " * z[1:10] * " " * z[12:16] * "     w/images/" * x[1] * "/" * x[2] * "   " * ky)
end
myPrintln("\n" * string(length(D)) * "  WBY: ." * OUTPUTFILE * "      " * APtS_ET * "\n")
arry2 = sort(arry, rev=true)
for i = 1 : min(length(arry2),lim)
    ii = arry2[i]
    gkw = DIR * ii[24:36] * "/" * ii[40:length(arry2[i])]
    lenk = string(stat(gkw).size)
    if ii[1:7] == prv[1:7]
        if ii[1:10] == prv[1:10]
            if ii[1:13] == prv[1:13]
                myPrintln( "             " * ii[14:length(arry2[i])] * " " * lenk)
                continue
            end
            myPrintln( "          " * ii[11:length(arry2[i])] * " " * lenk)
            global prv = ii[1:13]
            continue
        end
        global prv = ii[1:13]
        myPrintln( "       " * ii[8:length(arry2[i])] * " " * lenk)
        continue
    end
    global prv = ii[1:13]
    myPrintln(arry2[i] * " " * lenk)   
end
close(FILE)