nis/index.cgi

   1 #!/usr/local/bin/perl
   2 # index.cgi
   3 # Display icons for NIS functions
   4
   5 require './nis-lib.pl';
   6 &ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
   7         &help_search_link("NIS", "man", "howto"));
   8
   9 if (!&get_nis_support()) {
  10         print "<p><b>$text{'index_enis'} $text{'index_enis2'}</b><p>\n";
  11         }
  12
  13 @icons =  ( "images/client.gif", "images/switch.gif",
  14             "images/server.gif", "images/tables.gif",
  15             "images/security.gif" );
  16 @titles = ( $text{'client_title'}, $text{'switch_title'},
  17             $text{'server_title'}, $text{'tables_title'},
  18             $text{'security_title'} );
  19 @links =  ( "edit_client.cgi", "list_switches.cgi",
  20             "edit_server.cgi", "edit_tables.cgi",
  21             "edit_security.cgi" );
  22 &icons_table(\@links, \@titles, \@icons, 5);
  23
  24 &ui_print_footer("/", $text{'index'});
  25