@program fileindex.htmuf 1 10000 d i lvar path lvar param $include $lib/alynna $include $lib/cgiparse INCLUDE_WEBVARS $def dts value @ timestamps pop rot pop pop "%x %R" swap timefmt 20 lj value @ objmem intostr 10 lj : main var path2 var value var item var target var tmp PARSE_HEADERS wpath @ path ! wparam @ param ! path @ tolower dup path ! "/~*" smatch if path @ "" "/~" subst "/" split pop resolve target ! path @ dup strlen 1 midstr "/" smatch not if path @ "/" strcat wpath ! then path @ "" { "/~" target @ name tolower }cat subst "/" "//" subst path2 ! else "www_root" sysparm target ! then { "Default index being loaded for descr " descr }cat logstatus { "Index of " path @ "" }w { "

Index of " path @ "

" }w { "
Type    Name                                      Last modified       Size
" }w target @ "/_/www/" path2 @ strcat array_get_propdirs foreach value ! item ! { "[DIR] " value @ "" "#" subst dup strlen 42 swap - "" swap lj }w repeat target @ "/_/www/" path2 @ strcat array_get_propvals foreach value ! item ! value @ case dbref? when value @ program? if value @ prog dbcmp not if { "[HMUF] " value @ name dup strlen 46 swap - "" swap lj dts }w then then value @ exit? if { "[EXIT] " value @ name 46 lj dts }w then value @ room? if { "[ROOM] " value @ name 46 lj dts }w then value @ thing? if { "[THNG] " value @ name 46 lj dts }w then value @ player? if { "[USER] " value @ name dup strlen 46 swap - "" swap lj dts }w then end int? when { "[INT] " item @ 42 lj value @ }w end float? when { "[FLT] " item @ 42 lj value @ }w end lock? when { "[LCK] " item @ 42 lj value @ prettylock }w end string? when { "[STR] " item @ 42 lj value @ }w end endcase repeat { "
" }w { "
" version "(" split swap pop ")" split pop " server at " "Host" head " Port " "port" data "
"}w { "" }w ; . c q @set #0=_msgmacs/windex:{null:{muf:$index,{null}}}