net/mod_aifc.cgi

   1 #!/usr/local/bin/perl
   2 # mod_aifc.cgi
   3 # Show info about some interface that is being used by another module
   4
   5 require './net-lib.pl';
   6 $access{'ifcs'} || &error($text{'ifcs_ecannot'});
   7 &ReadParse();
   8 @act = &active_interfaces();
   9 $a = $act[$in{'idx'}];
  10 $mod = &module_for_interface($a);
  11 $mod || &error($text{'mod_egone'});
  12
  13 &ui_print_header(undef, $text{'mod_title'}, "");
  14
  15 print "<p>\n";
  16 print &text('mod_desc', "<tt>$a->{'fullname'}</tt>", $mod->{'desc'}),"\n";
  17 &read_acl(\%acl);
  18 if ($acl{$base_remote_user,$mod->{'module'}}) {
  19         %minfo = &get_module_info($mod->{'module'});
  20         print &text('mod_link', "../$mod->{'module'}/", $minfo{'desc'});
  21         }
  22 print "<p>\n";
  23
  24 &ui_print_footer("list_ifcs.cgi?mode=active", $text{'ifcs_return'});
  25