diff --git a/ezmlm-web-ng/ezmlm-web-2.1-ng/ezmlm-web.cgi b/ezmlm-web-ng/ezmlm-web-2.1-ng/ezmlm-web.cgi index f88a8aa..9c6dfbb 100755 --- a/ezmlm-web-ng/ezmlm-web-2.1-ng/ezmlm-web.cgi +++ b/ezmlm-web-ng/ezmlm-web-2.1-ng/ezmlm-web.cgi @@ -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 {