openslp/save_log.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 if ($in{'traceDATraffic'}) {
  19         &enable_single_val_line('true','traceDATraffic');
  20         }
  21 else {
  22         &disable_line('traceDATraffic');
  23 }
  24 if ($in{'traceMsg'}) {
  25         &enable_single_val_line('true','traceMsg');
  26         }
  27 else {
  28         &disable_line('traceMsg');
  29 }
  30 if ($in{'traceDrop'}) {
  31         &enable_single_val_line('true','traceDrop');
  32         }
  33 else {
  34         &disable_line('traceDrop');
  35 }
  36
  37 if ($in{'traceReg'}) {
  38         &enable_single_val_line('true','traceReg');
  39         }
  40 else {
  41         &disable_line('traceReg');
  42 }
  43
  44
  45 &restart();
  46 &redirect("");
  47