1#!/usr/local/bin/perl 2# 3# An OpenSLP webmin module 4# by Monty Charlton <monty@caldera.com>, 5# 6# Copyright (c) 2000 Caldera Systems 7# 8# Permission to use, copy, modify, and distribute this software and its 9# documentation under the terms of the GNU General Public License is hereby 10# granted. No representations are made about the suitability of this software 11# for any purpose. It is provided "as is" without express or implied warranty. 12# See the GNU General Public License for more details. 13# 14 15require './slp-lib.pl'; 16&ReadParse(); 17 18local @scopes, @daaddr; 19local $val = ""; 20 21# Process List Items 22for($i=0; $i<3; $i++) { 23 if (!$in{'useScopes'}) { 24 push(@scopes, $val) if ($val=$in{"useScopesValue_$i"}); 25 } 26 if (!$in{'DAAddresses'}) { 27 push(@daaddr, $val) if ($val=$in{"DAAddressesValue_$i"}); 28 } 29} 30if (!$in{'useScopes'}) { 31 &enable_list_line(@scopes,'useScopes'); 32 } 33else { 34 &disable_line('useScopes'); 35 } 36 37if (!$in{'DAAddresses'}) { 38 &enable_list_line(@daaddr,'DAAddresses'); 39 } 40else { 41 &disable_line('DAAddresses'); 42 } 43 44&restart(); 45&redirect(""); 46 47