rbac/auth_chooser.cgi

   1 #!/usr/local/bin/perl
   2 # Show a list of all authorizations
   3
   4 require './rbac-lib.pl';
   5 &ReadParse();
   6
   7 &header("Select Authorization");
   8 print <<EOF;
   9 <script>
  10 function sel(m)
  11 {
  12 if (window.opener.ifield.value != "") {
  13         window.opener.ifield.value += "\\n";
  14         }
  15 window.opener.ifield.value += m;
  16 window.close();
  17 return false;
  18 }
  19 </script>
  20 EOF
  21
  22 # Show Solaris authorizations
  23 $auths = &list_auth_attrs();
  24 print "<table width=100% cellpadding=1 cellspacing=1>\n";
  25 print "<tr> <td><b>$text{'authc_name'}</b></td> ",
  26       "<td><b>$text{'authc_desc'}</b></td> </tr>\n";
  27 foreach $a (sort { $a->{'name'} cmp $b->{'name'} } @$auths) {
  28         print "<tr>\n";
  29         if ($a->{'name'} =~ /\.$/) {
  30                 print "<td><a href='' onClick='sel(\"$a->{'name'}*\")'>",
  31                       "$a->{'name'}*</td>\n";
  32                 }
  33         else {
  34                 print "<td><a href='' onClick='sel(\"$a->{'name'}\")'>",
  35                       "$a->{'name'}</td>\n";
  36                 }
  37         print "<td>",$a->{'short'} || $a->{'desc'},"</td>\n";
  38         print "</tr>\n";
  39         }
  40
  41 # Add Webmin authorizations
  42 print "<tr> <td colspan=2><hr></td> </tr>\n";
  43 foreach $m (sort { $a->{'dir'} cmp $b->{'dir'} } &get_all_module_infos()) {
  44         next if (!&check_os_support($m));
  45         print "<tr>\n";
  46         print "<td><a href='' onClick='sel(\"webmin.$m->{'dir'}.admin\")'>",
  47               "webmin.$m->{'dir'}.admin</td>\n";
  48         print "<td>$m->{'desc'}</td>\n";
  49         print "</tr>\n";
  50         }
  51
  52 print "</table>\n";
  53