@program webmin.muf
1 10000 d
i
$include $lib/cgiparse
$include $lib/alynna
$include $web/login
$def moderator? 5 perm.check
$def operator? 6 perm.check
$def admin? 7 perm.check
$def god? 8 perm.check
$def pclean "" ":" subst dup 1 1 midstr "/" stringcmp not if 1 strcut swap pop then dup dup strlen 1 midstr "/" stringcmp not if dup strlen -- strcut pop then
INCLUDE_WEBVARS

: perm.denyEx
var! level
{ "<H2><font color=#0000CC>Permission Denied</font></H2>" }w 
{ "<right><a href='/'>Go away...</a></right>" }w 
level @ if
 { "WWW(Admin): Permission denied " myref "@" myip ": " myref not if 0 else myref mlevel then "<" level @ }cat logstatus
else
 { "WWW(Admin): Permission denied " myref "@" myip }cat logstatus
then
;

: perm.deny
0 perm.denyEx
;

: perm.check
var! level
myref not if 
 level @ perm.denyEx 0
else
 myref mlevel level @ < if 
  level @  perm.denyEx 0
 else
  1
 then
then
;

: sys.mainmenu
{ "<h4>Options:<br><code><ul>" }w
{ "<li><a href='/webmin?options'>Set site options</a></li>" }w
{ "<li><a href='/webmin?news'>Update news</a></li>" }w
{ "<li><a href='/webmin?list'>Edit lists</a></li>" }w
{ "<li><a href='/webmin?page'>Edit pages</a></li>" }w
{ "<li><a href='/webmin?helpgen'>Edit context sensitive help</a></li>" }w
{ "</code></ul>" }w
;

: list.edit
"Wlistobj" getstat dup if match ok? not if
{ "<center><H4><font color=#FF0000>The object specified was not valid, reverting to $var/www</font></H4>" }w
 "$var/www" "Wlistobj" setstat
then else
{ "<center><H4><font color=#FF0000>The object was not specified, reverting to $var/www</font></H4>" }w
 "$var/www" "Wlistobj" setstat
then
"Wlistpath" getstat dup if pclean "wlistpath" setstat else "" "wlistpath" setstat then
{ "<center><H3>Edit list</H3><code>" }w
{ "<FORM ACTION='/webmin?list.change' METHOD='POST' NAME='MommyAreUnicornsReal?'>" }w
{ "<CODE>Web object: " }w
{ "<input name='webobj' type='input' size=32 maxlength=128 value='" 
  "Wlistobj" getstat dup not if pop "$var/www" then
  "'></code><br>" }w
{ "<CODE>&nbsp;&nbsp;Web path: " }w
{ "<input name='webpath' type='input' size=32 maxlength=128 value='" 
  "Wlistpath" getstat dup not if pop "" then
  "'></code><br>" }w
{ "<TEXTAREA id=page ROWS=16 COLS=64 NAME='PAGE'>" }w
"Wlistobj" getstat match "Wlistpath" getstat dup not if pop "/" then getlist writelistraw
{ "</TEXTAREA>" }w
{ "<br><INPUT TYPE=SUBMIT SIZE=320 VALUE='Read' NAME=SUBMIT> <INPUT TYPE=SUBMIT SIZE=320 VALUE='Write' NAME=SUBMIT> <INPUT TYPE=Button VALUE='Clear' onClick='page.value=\"\"'>" }w
{ "</FORM></code>" }w
;

: list.change 
"webobj" post match ok? if 
"submit" post "write" smatch if
"webobj" post match "webpath" post "page" raw setlist
{ "<center><H4><font color=#00FF00>... list was edited ...</font></H4>" }w
then
"webobj" post "Wlistobj" setstat 
"webpath" post "Wlistpath" setstat 
else
{ "<center><H4><font color=#FF0000>The object specified was not valid.</font></H4>" }w
then
list.edit
;

: page.edit 
"Wwebobj" getstat dup if match ok? not if
{ "<center><H4><font color=#FF0000>The object specified was not valid, reverting to $var/www</font></H4>" }w
 "$var/www" "Wwebobj" setstat
then else
{ "<center><H4><font color=#FF0000>The object was not specified, reverting to $var/www</font></H4>" }w
 "$var/www" "Wwebobj" setstat
then
"Wwebpath" getstat dup if pclean "wwebpath" setstat else "" "wwebpath" setstat then
{ "<center><H3>Edit page</H3><code>" }w
{ "<FORM ACTION='/webmin?page.change' METHOD='POST' NAME='MommyAreUnicornsReal?'>" }w
{ "<CODE>Web object: " }w
{ "<input name='webobj' type='input' size=32 maxlength=128 value='" 
  "Wwebobj" getstat dup not if pop "$var/www" then
  "'></code><br>" }w
{ "<CODE>&nbsp;&nbsp;Web path: " }w
{ "<input name='webpath' type='input' size=32 maxlength=128 value='" 
  "Wwebpath" getstat dup not if pop "" then
  "'></code><br>" }w
{ "<TEXTAREA id=page ROWS=16 COLS=64 NAME='PAGE'>" }w
"Wwebobj" getstat match "/_/www" "Wwebpath" getstat dup if "/" swap strcat else pop "" then strcat getlist writelistraw
{ "</TEXTAREA>" }w
{ "<br><INPUT TYPE=SUBMIT SIZE=320 VALUE='Read' NAME=SUBMIT> <INPUT TYPE=SUBMIT SIZE=320 VALUE='Write' NAME=SUBMIT> <INPUT TYPE=Button VALUE='Clear' onClick='page.value=\"\"'>" }w
{ "</FORM></code>" }w
{ "<br><a href='/" "Wwebpath" getstat dup not if pop "" then "'>View this page</a>" }w
"Wlistobj" getstat "$var/www" smatch if
 "Wlistpath" getstat not if
 { "<br><center><H4><font color=#FF0000>Be careful, you are editing the front page!</font></H4>" }w
 then
then
;

: page.change 
"webobj" post match ok? if 
"submit" post "write" smatch if
"webobj" post match "/_/www" "webpath" post dup if "/" swap strcat else pop "" then strcat "page" raw setlist
{ "<center><H4><font color=#00FF00>... page was edited ...</font></H4>" }w
then
"webobj" post "Wwebobj" setstat
"webpath" post "Wwebpath" setstat
else
{ "<center><H4><font color=#FF0000>The object specified was not valid.</font></H4>" }w
then
page.edit
;

: helpgen.edit 
"Hwebobj" getstat dup if match ok? not if
{ "<center><H4><font color=#FF0000>The object specified was not valid, reverting to $var/www</font></H4>" }w
 "$var/www" "Hwebobj" setstat
then else
{ "<center><H4><font color=#FF0000>The object was not specified, reverting to $var/www</font></H4>" }w
 "$var/www" "Hwebobj" setstat
then
"Hwebpath" getstat dup if pclean "Hwebpath" setstat else "" "Hwebpath" setstat then
{ "<center><H3>Edit help</H3><code>" }w
{ "<FORM ACTION='/webmin?helpgen.change' METHOD='POST' NAME='MommyAreUnicornsReal?'>" }w
{ "<CODE>Web object: " }w
{ "<input name='webobj' type='input' size=32 maxlength=128 value='" 
  "Hwebobj" getstat dup not if pop "$var/www" then
  "'></code><br>" }w
{ "<CODE>&nbsp;&nbsp;Web path: " }w
{ "<input name='webpath' type='input' size=32 maxlength=128 value='" 
  "Hwebpath" getstat dup not if pop "" then
  "'></code><br>" }w
{ "<TEXTAREA id=page ROWS=16 COLS=64 NAME='PAGE'>" }w
{ "Hwebobj" getstat match "/_/www" "Hwebpath" getstat dup if "/" swap strcat else pop "" then strcat "/_help" strcat getprop astr }w
{ "</TEXTAREA>" }w
{ "<br><INPUT TYPE=SUBMIT SIZE=320 VALUE='Read' NAME=SUBMIT> <INPUT TYPE=SUBMIT SIZE=320 VALUE='Write' NAME=SUBMIT> <INPUT TYPE=Button VALUE='Clear' onClick='page.value=\"\"'>" }w
{ "</FORM></code>" }w
{ "<br><a href='/" "Hwebpath" getstat dup not if pop "" then "'>View this page</a>" }w
"Hlistobj" getstat "$var/www" smatch if
 "Hlistpath" getstat not if
 { "<br><center><H4><font color=#FF0000>Be careful, you are editing the front page!</font></H4>" }w
 then
then
;

: helpgen.change 
"webobj" post match ok? if 
"submit" post "write" smatch if
"webobj" post match "/_/www" "webpath" post dup if "/" swap strcat else pop "" then strcat 
 "/_help" strcat "page" raw "<br>" array_join astr setprop
{ "<center><H4><font color=#00FF00>... page was edited ...</font></H4>" }w
then
"webobj" post "Hwebobj" setstat
"webpath" post "Hwebpath" setstat
else
{ "<center><H4><font color=#FF0000>The object specified was not valid.</font></H4>" }w
then
helpgen.edit
;

: param.edit 
{ "<FORM ACTION='" wpath @ "?options.change' METHOD='POST' NAME='YERF'>" }w
{ "<center><table cols=2 border=0>" }w

{ "<tr><td align=right><CODE>Site body tag:</CODE></td>" }w
{ "<td align=left><input name='bodytag' type='input' size=64 maxlength=512 value='" WWW "_bodytag" getprop astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Proto coders list:</CODE></td>" }w
{ "<td align=left><input name='protomuckers' type='input' size=64 maxlength=256 value='" WWW "_protomuckers" getprop astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Stable src tag:</CODE></td>" }w
{ "<td align=left><input name='ssrc' type='input' size=64 maxlength=512 value='" WWW "_release/stable/source" getprop astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Beta src tag:</CODE></td>" }w
{ "<td align=left><input name='bsrc' type='input' size=64 maxlength=512 value='" WWW "_release/beta/source" getprop astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Stable winbin tag:</CODE></td>" }w
{ "<td align=left><input name='swin' type='input' size=64 maxlength=512 value='" WWW "_release/stable/winproto" getprop astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Beta winbin tag:</CODE></td>" }w
{ "<td align=left><input name='bwin' type='input' size=64 maxlength=512 value='" WWW "_release/beta/winproto" getprop astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Stable winbinssl tag:</CODE></td>" }w
{ "<td align=left><input name='swinssl' type='input' size=64 maxlength=512 value='" WWW "_release/stable/winproto-ssl" getprop astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Beta winbinssl tag:</CODE></td>" }w
{ "<td align=left><input name='bwinssl' type='input' size=64 maxlength=512 value='" WWW "_release/beta/winproto-ssl" getprop astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>MUF websrv tag:</CODE></td>" }w
{ "<td align=left><input name='mufwsrv' type='input' size=64 maxlength=512 value='" WWW "_release/muf-webserver" getprop astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Basedb tag:</CODE></td>" }w
{ "<td align=left><input name='basedb' type='input' size=64 maxlength=512 value='" WWW "_release/basedb" getprop astr tagesc "'></td></tr>" }w


{ "<tr><td align=right></td><td align=left><INPUT TYPE='SUBMIT' VALUE='Apply' NAME='Action'></td></tr></table>" }w
;

: param.change
myref not if
{ "<H2><font color=#00CCCC>You can unlock, any door, if you only have the key.</font></H2>" }w 
{ "<H5><font color=#00CCCC>Anotherwords, you need to log in.</font></H5>" }w 
{ "<right><a href='" wpath @ "'>Return to selection page...</a></right>" }w 
exit then 

WWW "_bodytag" "bodytag" post setprop
WWW "_protomuckers" "protomuckers" post setprop
WWW "_release/stable/source" "ssrc" post setprop
WWW "_release/beta/source" "bsrc" post setprop
WWW "_release/stable/winproto" "swin" post setprop
WWW "_release/beta/winproto" "bwin" post setprop
WWW "_release/stable/winproto-ssl" "swinssl" post setprop
WWW "_release/beta/winproto-ssl" "bwinssl" post setprop
WWW "_release/stable/muf-webserver" "mufwsrv" post setprop
WWW "_release/stable/basedb" "basedb" post setprop
{ "<H2><font color=#00CC00>You just done updated the site information.</font></H2>" }w 
param.edit 
;


: news.edit
{ "<center><H3>Edit news</H3><code>" }w
{ "<FORM ACTION='/webmin?news-change' METHOD='POST' NAME='MommyAreUnicornsReal?'>" }w
{ "<TEXTAREA ROWS=16 COLS=64 NAME='NEWS'>" }w
WWW "NEWS" array_get_proplist foreach swap pop { swap }w repeat
{ "</TEXTAREA>" }w
{ "<br><INPUT TYPE=SUBMIT SIZE=320 VALUE='Update' NAME=SUBMIT>" }w
{ "</FORM></code></center>" }w
;
: news.change 
WWW "NEWS" { "News" raw foreach swap pop dup not if pop "{null}" then repeat }array array_put_proplist
{ "<center><H4><font color=#00FF00>... news was edited ...</font></H4>" }w
news.edit
;


: main
PARSE_HEADERS
{ WWW "_/www/header" mpilist }w
moderator? if
 wparam @ tolower case
  "page.change" smatch when admin? if page.change then end
  "page" smatch when admin? if page.edit then end
  "helpgen.change" smatch when moderator? if helpgen.change then end
  "helpgen" smatch when moderator? if helpgen.edit then end
  "list.change" smatch when admin? if list.change then end
  "list" smatch when admin? if list.edit then end
  "options.change" smatch when admin? if param.change then end
  "options" smatch when admin? if param.edit then end
  "news.change" smatch when operator? if news.change then end
  "news" smatch when operator? if news.edit then end 
  default pop sys.mainmenu end
endcase 
then
{ WWW "_/www/footer" mpilist }w
;
.
c
q