rbac/list_execs.cgi

   1 #!/usr/local/bin/perl
   2 # Show a table of all execiles
   3
   4 require './rbac-lib.pl';
   5 $access{'execs'} || &error($text{'execs_ecannot'});
   6 &ui_print_header(undef, $text{'execs_title'}, "", "execs");
   7
   8 $execs = &list_exec_attrs();
   9 if (@$execs) {
  10         print "<a href='edit_exec.cgi?new=1'>$text{'execs_add'}</a><br>\n";
  11         print &ui_columns_start(
  12                 [ $text{'execs_name'},
  13                   $text{'execs_policy'},
  14                   $text{'execs_id'} ]);
  15         foreach $e (sort { $a->{'name'} cmp $b->{'name'} } @$execs) {
  16                 print &ui_columns_row(
  17                         [ "<a href='edit_exec.cgi?idx=$e->{'index'}'>$e->{'name'}</a>",
  18                           $text{'execs_p'.$e->{'policy'}},
  19                           $e->{'id'} eq '*' ? $text{'execs_all'} : $e->{'id'},
  20                         ]);
  21                 }
  22         print &ui_columns_end();
  23         }
  24 else {
  25         print "<b>$text{'execs_none'}</b><p>\n";
  26         }
  27 print "<a href='edit_exec.cgi?new=1'>$text{'execs_add'}</a><br>\n";
  28
  29 &ui_print_footer("", $text{"index_return"});
  30