#!/usr/local/bin/perl
# index.cgi
# Display all existing exports
require './sgiexports-lib.pl';
&header($text{'index_title'}, "", undef, 1, 1, 0,
&help_search_link("exports", "man"));
print &ui_hr();
@exports = &get_exports();
if (@exports) {
print "$text{'index_add'}
\n";
print "
$text{'index_dir'} | ", "$text{'index_hosts'} |
", "$e->{'dir'} | \n"; local @h = @{$e->{'hosts'}}; print "",@h ? join(" ", @h) : $text{'index_all'}," | \n"; print "
\n";
}
print "$text{'index_add'} \n";
print &ui_hr();
print "
\n"; print " | $text{'index_applymsg'} | \n"; print "