/
login
33 lines (31 loc) · 895 Bytes
/
login
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
__NAME__ MMLogin
mv_todo=return
[if type=explicit compare="[userdb function=login profile=ui]"]
mv_nextpage=[either][cgi mv_nextpage][or]__UI_BASE__/index[/either]
[else]
mv_username=[perl]$Session->{ui_username} = $Session->{username} = '';[/perl]
mv_nextpage=[either][cgi mv_failpage][or]__UI_BASE__/login[/either]
[/else]
[/if]
__END__
__NAME__ MMChange
[if type=explicit compare="[userdb function=change_pass profile=ui]"]
mv_nextpage=[either][cgi mv_successpage][or][cgi mv_nextpage][/either]
[else]
mv_username=
mv_nextpage=[either][cgi mv_failpage][or][cgi mv_nextpage][/either]
[/else]
[/if]
__END__
__NAME__ MMsu
[if type=explicit
compare=|
[su username='[cgi user]' admin='[cgi admin]' ]
|
]
mv_nextpage=[calc]$CGI->{dest} || $Config->{SpecialPage}{catalog}[/calc]
[else]
[calc]$Session->{ui_error} = "Failed to su to user $CGI->{user}"; return;[/calc]
[/else]
[/if]
__END__