@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
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?news-edit'>Update news</a></li>" }w
{ "<li><a href='/webmin?param-edit'>Set standard properties</a></li>" }w
{ "<li><a href='/webmin?prop-edit'>Set other properties</a></li>" }w
{ "<li><a href='/webmin?list-edit'>Edit lists</a></li>" }w
{ "</code></ul>" }w
;

: list.change ;
: list.edit ;
: prop.change ;
: prop.edit ;
: param.change ;
: 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
  "list-change" smatch when admin? if list.change then end
  "list-edit" smatch when admin? if list.edit then end
  "prop-change" smatch when admin? if prop.change then end
  "prop-edit" smatch when admin? if prop.edit then end
  "param-change" smatch when admin? if param.change then end
  "param-edit" smatch when admin? if param.edit then end
  "news-change" smatch when operator? if news.change then end
  "news-edit" smatch when operator? if news.edit then end 
  default pop sys.mainmenu end
endcase 
then
{ WWW "_/www/footer" mpilist }w
;
.
c
q