rbac/index.cgi

   1 #!/usr/local/bin/perl
   2 # Show icons for users, profiles and so on
   3
   4 require './rbac-lib.pl';
   5 &ui_print_header(undef, $module_info{'desc'}, "", undef, 1, 1, 0,
   6                  &help_search_link("rbac", "man"));
   7
   8 # Make sure RBAC is installed
   9 $missing = &missing_rbac_config_file();
  10 if ($missing) {
  11         &ui_print_endpage(
  12                 &ui_config_link('index_euser',
  13                         [ "<tt>$missing</tt>", undef ]));
  14         }
  15
  16 # Show icons
  17 @allpages = ( "users", "auths", "profs", "execs", "policy",
  18               "projects", "prctl" );
  19 @pages = grep { $_ eq "users" ? $access{'users'} || $access{'roles'}
  20                               : $access{$_} } @allpages;
  21 @links = map { "list_${_}.cgi" } @pages;
  22 @titles = map { $text{"${_}_title"} } @pages;
  23 @icons = map { "images/${_}.gif" } @pages;
  24 &icons_table(\@links, \@titles, \@icons, 4);
  25
  26 &ui_print_footer("/", $text{"index"});