@program mucklist.htmuf 1 1000 d i $include $lib/cgiparse $include $lib/alynna $include $web/login $def getmuck target @ { "/mucks/" muck @ "/" }cat rot strcat getprop dup not if pop "" then $def setmuck target @ { "/mucks/" muck @ "/" }cat rot strcat rot setprop INCLUDE_WEBVARS : sys.disp var target var muck var color { "" }w { "" }w { "" }w { "" }w { "" }w { "" }w { "" }w #-1 "*" "P" find_array foreach target ! pop target @ "/mucks/" array_get_propdirs foreach muck ! pop "color" getmuck dup if { "bgcolor=" rot }cat else pop "" then color ! { "" }w { "" }w { "" }w { "" }w { "" }w { "" }w repeat repeat { "
NameAddressSubmitterGenreInfoEdit
" "url" getmuck dup if "" "name" getmuck "" else "name" getmuck then "" "" "host" getmuck ":" "port" getmuck "" "" "" target @ name "" "" "genre" getmuck "" "" "Info" myref target @ dbcmp if "Edit" then "
" }w myref if { "
Submit a new MUCK
" }w then ; : sys.info var target var muck wparam @ ":" split swap pop ":" split muck ! atoi dbref target ! target @ ok? not if { "

Drugs are bad, and so is hacking, mkay?

" }w { "Return to selection page..." }w { "WWW(MUCKConnector): hack attempt by '" myip "': " wparam @ }cat logstatus else { "" "name" getmuck "" }w target @ { "/mucks/" muck @ "/info" }cat getlist writelist { "
Server version:" "version" getmuck }w { "" }w then ; : sys.edit var target var muck myref target ! myref not if { "

You can unlock, any door, if you only have the key.

" }w { "
Anotherwords, you need to log in.
" }w { "Return to selection page..." }w exit then wparam @ ":" split swap pop ":" split muck ! atoi dbref target ! target @ ok? not target @ #0 dbcmp or if "" muck ! myref target ! then { "
" }w { "
" }w { "MUCK Name:" }w { "
" }w { "Address:" }w { "
" }w { "Port:" }w { "
" }w { "Genre:" }w { "
" }w { "URL:" }w { "
" }w { "Color:" }w { "
" }w { "Server version:" }w { "
" }w { "Information:
" }w { "   " }w { "" }w { "
" }w ; : sys.change var target var muck myref target ! myref not if { "

You can unlock, any door, if you only have the key.

" }w { "
Anotherwords, you need to log in.
" }w { "Return to selection page..." }w exit then wparam @ ":" split swap pop ":" split muck ! atoi dbref target ! target @ ok? not target @ #0 dbcmp or if "" muck ! myref target ! then muck @ not if "muckname" post "" " " subst "" ":" subst "" "/" subst muck ! then "Action" post case "Edit" smatch when "muckname" post "name" setmuck "address" post "host" setmuck "port" post "port" setmuck "genre" post "genre" setmuck "url" post "url" setmuck "color" post "color" setmuck "version" post "version" setmuck "info" raw myref { "/mucks/" muck @ "/info" }join rot setlist { "

MUCK " "name" getmuck " was edited.

" }w end "Delete" smatch when myref { "/mucks/" muck @ "/" }join remove_prop { "

MUCK " muck @ " was deleted.

" }w end endcase sys.disp ; : sys.connect var target var muck wparam @ ":" split swap pop ":" split muck ! atoi dbref target ! target @ ok? not if { "

Drugs are bad, and so is hacking, mkay?

" }w { "Return to selection page..." }w { "WWW(MUCKConnector): hack attempt by '" myip "': " wparam @ }cat logstatus else { "
" }w { "" }w { "" }w { "" }w { "" }w { "" }w { "" }w { "" }w { "" }w { "" }w { "" }w { "" }w { "" }w { "" }w { "" }w { "" }w { "" }w { "" }w { "" }w { "
" }w then ; : main PARSE_HEADERS wparam @ "info*" smatch not if { WWW "_/www/header" mpilist }w then wparam @ case "change*" smatch when sys.change end "edit*" smatch when sys.edit end "info*" smatch when sys.info end "connect*" smatch when sys.connect end default pop sys.disp end endcase wparam @ "info*" smatch not if { WWW "_/www/footer" mpilist }w then ; . c q