| Server IP : 127.0.0.1 / Your IP : 216.73.216.109 Web Server : Apache/2.4.54 (Win64) OpenSSL/1.1.1q PHP/8.1.10 System : Windows NT DESKTOP-E5T4RUN 10.0 build 19045 (Windows 10) AMD64 User : SERVERWEB ( 0) PHP Version : 8.1.10 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/cygwin64/home/SERVERWEB/webmin-2.105/rbac/ |
Upload File : |
#!/usr/bin/perl
# Show icons for users, profiles and so on
require './rbac-lib.pl';
&ui_print_header(undef, $module_info{'desc'}, "", undef, 1, 1, 0,
&help_search_link("rbac", "man"));
# Make sure RBAC is installed
$missing = &missing_rbac_config_file();
if ($missing) {
&ui_print_endpage(
&ui_config_link('index_euser',
[ "<tt>$missing</tt>", undef ]));
}
# Show icons
@allpages = ( "users", "auths", "profs", "execs", "policy",
"projects", "prctl" );
@pages = grep { $_ eq "users" ? $access{'users'} || $access{'roles'}
: $access{$_} } @allpages;
@links = map { "list_${_}.cgi" } @pages;
@titles = map { $text{"${_}_title"} } @pages;
@icons = map { "images/${_}.gif" } @pages;
&icons_table(\@links, \@titles, \@icons, 4);
&ui_print_footer("/", $text{"index"});