openslp/save_netcfg.cgi

   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
  15 require './slp-lib.pl';
  16 &ReadParse();
  17
  18 local @dadisc, @mctime, @inter;
  19 local $val;
  20
  21 # Process List Items
  22 for($i=0; $i<5; $i++) {
  23         if (!$in{'DADiscoveryTimeouts'}) {
  24                 push(@dadisc, $val) if ($val=$in{"DADiscoveryTimeoutsValue_$i"});
  25                 }
  26         if (!$in{'multicastTimeouts'}) {
  27                 push(@mctime, $val) if ($val=$in{"multicastTimeoutsValue_$i"});
  28                 }
  29         if (!$in{'interfaces'}) {
  30                 push(@inter, $val) if ($val=$in{"interfacesValue_$i"});
  31                 }
  32 }
  33 if (!$in{'DADiscoveryTimeouts'}) {
  34         &enable_list_line(@dadisc,'DADiscoveryTimeouts');
  35         }
  36 else {
  37         &disable_line('DADiscoveryTimeouts');
  38         }
  39
  40 if (!$in{'multicastTimeouts'}) {
  41         &enable_list_line(@mctime,'multicastTimeouts');
  42         }
  43 else {
  44         &disable_line('multicastTimeouts');
  45         }
  46
  47 if (!$in{'interfaces'}) {
  48         &enable_list_line(@inter,'interfaces');
  49         }
  50 else {
  51         &disable_line('interfaces');
  52         }
  53
  54 # Process Boolean Items
  55 if ($in{'isBroadcastOnly'}) {
  56         &enable_single_val_line('true','isBroadcastOnly');
  57         }
  58 else {
  59         &disable_line('isBroadcastOnly');
  60 }
  61 if (!$in{'passiveDADetection'}) {
  62         &enable_single_val_line('false','passiveDADetection');
  63         }
  64 else {
  65         &disable_line('passiveDADetection');
  66 }
  67 if (!$in{'activeDADetection'}) {
  68         &enable_single_val_line('false','activeDADetection');
  69         }
  70 else {
  71         &disable_line('activeDADetection');
  72 }
  73
  74 # Process single-value Items
  75 if (!$in{'DAActiveDiscoveryInterval'}) {
  76         &enable_single_val_line($in{'DAActiveDiscoveryIntervalValue'},'DAActiveDiscoveryInterval');
  77         }
  78 else {
  79         &disable_line('DAActiveDiscoveryInterval');
  80 }
  81 if (!$in{'multicastTTL'}) {
  82         &enable_single_val_line($in{'multicastTTLValue'},'multicastTTL');
  83         }
  84 else {
  85         &disable_line('multicastTTL');
  86 }
  87 if (!$in{'DADiscoveryMaximumWait'}) {
  88         &enable_single_val_line($in{'DADiscoveryMaximumWaitValue'},'DADiscoveryMaximumWait');
  89         }
  90 else {
  91         &disable_line('DADiscoveryMaximumWait');
  92 }
  93 if (!$in{'HintsFile'}) {
  94         &enable_single_val_line($in{'HintsFileValue'},'HintsFile');
  95         }
  96 else {
  97         &disable_line('HintsFile');
  98 }
  99 if (!$in{'multicastMaximumWait'}) {
 100         &enable_single_val_line($in{'multicastMaximumWaitValue'},'multicastMaximumWait');
 101         }
 102 else {
 103         &disable_line('multicastMaximumWait');
 104 }
 105 if (!$in{'unicastMaximumWait'}) {
 106         &enable_single_val_line($in{'unicastMaximumWaitValue'},'unicastMaximumWait');
 107         }
 108 else {
 109         &disable_line('unicastMaximumWait');
 110 }
 111 if (!$in{'randomWaitBound'}) {
 112         &enable_single_val_line($in{'randomWaitBoundValue'},'randomWaitBound');
 113         }
 114 else {
 115         &disable_line('randomWaitBound');
 116 }
 117 if (!$in{'MTU'}) {
 118         &enable_single_val_line($in{'MTUValue'},'MTU');
 119         }
 120 else {
 121         &disable_line('MTU');
 122 }
 123
 124 &restart();
 125 &redirect("");
 126