@program usermin.htmuf
1 10000 d
i
$include $lib/cgiparse
$include $lib/alynna
$include $web/login
$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

: sys.mainmenu
{ "<h4>Options:<br><code><ul>" }w
{ "<li><a href='/usermin?options'>Edit personal options</a></li>" }w
{ "<li><a href='/usermin?page'>Edit personal pages</a></li>" }w
{ "<li><a href='/usermin?list'>Edit personal lists</a></li>" }w
{ "</code></ul>" }w
;

: list.edit
"listpath" getstat dup if pclean "listpath" setstat else "" "listpath" setstat then
{ "<center><H3>Edit list</H3><code>" }w
{ "<FORM ACTION='/usermin?list.change' METHOD='POST' NAME='MommyAreUnicornsReal?'>" }w
{ "<CODE>&nbsp;&nbsp;Web path: " }w
{ "<input name='webpath' type='input' size=32 maxlength=128 value='" 
  "listpath" getstat dup not if pop "" then
  "'></code><br>" }w
{ "<TEXTAREA id=page ROWS=16 COLS=64 NAME='PAGE'>" }w
myref "listpath" 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 
"submit" raw array? if
"submit" post "write" smatch if
myref "webpath" post "page" raw setlist
{ "<center><H4><font color=#00FF00>... list was edited ...</font></H4>" }w
then
then
"webpath" post "listpath" setstat 
list.edit
;

: page.edit 
"webpath" getstat dup if pclean "webpath" setstat else "" "webpath" setstat then
{ "<center><H3>Edit page</H3><code>" }w
{ "<FORM ACTION='/usermin?page.change' METHOD='POST' NAME='MommyAreUnicornsReal?'>" }w
{ "<CODE>&nbsp;&nbsp;Web path: " }w
{ "<input name='webpath' type='input' size=32 maxlength=128 value='" 
  "webpath" getstat dup not if pop "" then
  "'></code><br>" }w
{ "<TEXTAREA id=page ROWS=16 COLS=64 NAME='PAGE'>" }w
myref "/_/www" "webpath" 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='/~" myname tolower "/" "webpath" getstat dup not if pop "" then "'>View this page</a>" }w
"webpath" getstat not if
 { "<br><center><H4><font color=#FF0000>Be careful, you are editing the front page!</font></H4>" }w
then
;

: page.change 
"submit" raw array? if
"submit" post "write" smatch if
myref "/_/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
then
"webpath" post "webpath" setstat
page.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>Full name:</CODE></td>" }w
{ "<td align=left><input name='fullname' type='input' size=32 maxlength=128 value='" "_info/fullname" getstat astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Gender:</CODE></td>" }w
{ "<td align=left><input name='sex' type='input' size=16 maxlength=64 value='" "sex" getstat astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Species:</CODE></td>" }w
{ "<td align=left><input name='species' type='input' size=32 maxlength=128 value='" "species" getstat astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Home MUCK:</CODE></td>" }w
{ "<td align=left><input name='homemuck' type='input' size=32 maxlength=128 value='" "_info/homemuck" getstat astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Tagline (for userlist):</CODE></td>" }w
{ "<td align=left><input name='tagline' type='input' size=32 maxlength=128 value='" "_info/tagline" getstat astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Specialty:</CODE></td>" }w
{ "<td align=left><input name='specialty' type='input' size=32 maxlength=128 value='" "_info/specialty" getstat astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>URL:</CODE></td>" }w
{ "<td align=left><input name='url' type='input' size=64 maxlength=256 value='" "_info/url" getstat astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Email:</CODE></td>" }w
{ "<td align=left><input name='email' type='input' size=32 maxlength=128 value='" "_email" getstat astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>ICQ:</CODE></td>" }w
{ "<td align=left><input name='icq' type='input' size=16 maxlength=128 value='" "_info/icq" getstat astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>AIM:</CODE></td>" }w
{ "<td align=left><input name='aim' type='input' size=16 maxlength=128 value='" "_info/aim" getstat astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Picture:</CODE></td>" }w
{ "<td align=left><input name='picture' type='input' size=64 maxlength=128 value='" "_info/net/gallery" getstat astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Description:</CODE></td>" }w
{ "<td align=left><input name='desc' type='input' size=64 maxlength=3072 value='" "_/de" getstat astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Custom scheme:</CODE></td>" }w
{ "<td align=left><input name='scheme' type='input' size=64 maxlength=3072 value='" "_prefs/webcolor" getstat astr tagesc "'></td></tr>" }w

{ "<tr><td align=right><CODE>Current scheme:</CODE></td>" }w
{ "<td align=left><CODE>" "_prefs/webcolor" getstat astr dup not if pop "$var/www" match "_bodytag" getprop then tagesc
  "</CODE></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 

"fullname" post "_info/fullname" setstat
"sex" post "sex" setstat
"species" post "species" setstat
"homemuck" post "_info/homemuck" setstat
"specialty" post "_info/specialty" setstat
"tagline" post "_info/tagline" setstat
"url" post "_info/url" setstat
"email" post "_email" setstat
"icq" post "_info/icq" setstat
"aim" post "_info/aim" setstat
"scheme" post "_prefs/webcolor" setstat
"picture" post "_info/net/gallery" setstat
"desc" post "_/de" setstat
{ "<H2><font color=#00CC00>You just done updated your information.</font></H2>" }w 
param.edit 
;

: main
PARSE_HEADERS
{ WWW "_/www/header" mpilist }w
myref if
 wparam @ tolower case
  "options.change" smatch when param.change end 
  "options" smatch when param.edit end 
  "list.change" smatch when list.change end 
  "list" smatch when list.edit end 
  "page.change" smatch when page.change end 
  "page" smatch when page.edit end 
  default pop sys.mainmenu end
endcase 
else
{ "<center><H4><font color=#FFFF00>You must be logged in to edit your webpage.</font></H4>" }w
{ "<right><H4><a href=/>Back..</a></H4></right>" }w
then
{ WWW "_/www/footer" mpilist }w
;
.
c
q
@se