#!/usr/local/bin/perl
# index.cgi
# Display icons for NIS functions

require './nis-lib.pl';
&header($text{'index_title'}, "", undef, 1, 1, 0,
	&help_search_link("NIS", "man", "howto"));
print "<hr>\n";

if (!&get_nis_support()) {
	print "<p>$text{'index_enis'}<p>\n";
	}
else {
	@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", "edit_switch.cgi",
		    "edit_server.cgi", "edit_tables.cgi",
		    "edit_security.cgi" );
	&icons_table(\@links, \@titles, \@icons, 5);
	}

print "<hr>\n";
&footer("/", $text{'index'});

