acl/edit_rbac.cgi

   1 #!/usr/local/bin/perl
   2 # Show RBAC status
   3
   4 require './acl-lib.pl';
   5 $access{'rbacenable'} || &error($text{'rbac_ecannot'});
   6 &ui_print_header(undef, $text{'rbac_title'}, "");
   7
   8 print "$text{'rbac_desc'}<p>\n";
   9 if ($gconfig{'os_type'} ne 'solaris') {
  10         print &text('rbac_esolaris', $gconfig{'real_os_type'}),"<p>\n";
  11         }
  12 elsif (!&supports_rbac()) {
  13         if (&foreign_available("cpan")) {
  14                 print &text('rbac_eperl', "<tt>Authen::SolarisRBAC</tt>",
  15                             "../cpan/download.cgi?source=0&local=$module_root_directory/Authen-SolarisRBAC-0.1.tar.gz&mode=2&return=/$module_name/&returndesc=".&urlize($text{'index_return'})),"<p>\n";
  16                 }
  17         else {
  18                 print &text('rbac_ecpan', "<tt>Authen::SolarisRBAC</tt>"),
  19                       "<p>\n";
  20                 }
  21         }
  22 else {
  23         print "$text{'rbac_ok'}<p>\n";
  24         }
  25
  26 &ui_print_footer("", $text{'index_return'});
  27