#!/usr/bin/perl # # An OpenSLP webmin module # by Monty Charlton , # # Copyright (c) 2000 Caldera Systems # # Permission to use, copy, modify, and distribute this software and its # documentation under the terms of the GNU General Public License is hereby # granted. No representations are made about the suitability of this software # for any purpose. It is provided "as is" without express or implied warranty. # See the GNU General Public License for more details. # require './slp-lib.pl'; &ui_print_header(undef, $text{'snda_title'}, ""); local $snda = &get_snda_config(); print "
\n"; print "\n"; print "\n"; print "
$text{'snda_title'}
\n"; if ($snda->{'useScopesDisabled'}) { $true = " checked"; } else { $false = " checked"; } print "\n"; print ""; local $true=""; local $false=""; if ($snda->{'DAAddressesDisabled'}) { $true = " checked"; } else { $false = " checked"; } print "\n"; print "
$text{'snda_useScopes'}\n"; print "
\n"; print "\n"; print " Default  "; print "\n"; for($i=0; $i<3; $i++) { printf "
\n", $snda->{'useScopes'}->[$i]; } print "

$text{'snda_DAAddresses'}\n"; print "
\n"; print "\n"; print " Default  "; print "\n"; for($i=0; $i<3; $i++) { printf "
\n", $snda->{'DAAddresses'}->[$i]; } print "
\n"; print "
\n"; &ui_print_footer("", $text{'index_return'});