ezmlm-web.cgi: check if action is permitted (experimental)
This commit is contained in:
parent
7f574cf1df
commit
aa4bc5ec0b
1 changed files with 4 additions and 2 deletions
|
@ -296,7 +296,7 @@ sub select_list {
|
|||
|
||||
sub confirm_delete {
|
||||
# Make sure that the user really does want to delete the list!
|
||||
|
||||
|
||||
# Print a form ...
|
||||
$q->delete('state');
|
||||
print $q->startform;
|
||||
|
@ -431,6 +431,9 @@ sub untaint {
|
|||
}
|
||||
}
|
||||
$q->import_names('Q');
|
||||
|
||||
webauth($Q::list) == 0 || die 'Error: you are not allowed to do this!';
|
||||
|
||||
}
|
||||
|
||||
# ------------------------------------------------------------------------
|
||||
|
@ -908,7 +911,6 @@ sub webauth {
|
|||
return 1;
|
||||
}
|
||||
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
sub webauth_create_allowed {
|
||||
|
|
Loading…
Reference in a new issue