ezmlm-web.cgi: check if action is permitted (experimental)

This commit is contained in:
io 2005-01-21 02:23:16 +00:00
parent 7f574cf1df
commit aa4bc5ec0b

View file

@ -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 {