The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

OpenInteract::Auth::AdminCheck - See whether user is admin

SYNOPSIS

 # Set admin users/groups in server config
 [default_objects]
 superuser        = 1
 supergroup       = 1
 site_admin_group = 3

DESCRIPTION

is_admin( $user, $is_logged_in, \@groups )

Returns true if $user is superuser or if an admin group is passed in \@groups.

COPYRIGHT

Copyright (c) 2002-2003 Chris Winters. All rights reserved.

AUTHORS

Chris Winters <chris@cwinters.com>