PAL.C.T MINI SHELL
#!/usr/bin/perl
# index.cgi
# Display icons for NIS functions
require './nis-lib.pl';
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
&help_search_link("NIS", "man", "howto"));
if (!&get_nis_support()) {
print "<p><b>$text{'index_enis'} $text{'index_enis2'}</b><p>\n";
}
@icons = ( "images/client.gif", "images/switch.gif",
"images/server.gif", "images/tables.gif",
"images/security.gif" );
@titles = ( $text{'client_title'}, $text{'switch_title'},
$text{'server_title'}, $text{'tables_title'},
$text{'security_title'} );
@links = ( "edit_client.cgi", "list_switches.cgi",
"edit_server.cgi", "edit_tables.cgi",
"edit_security.cgi" );
&icons_table(\@links, \@titles, \@icons, 5);
&ui_print_footer("/", $text{'index'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`