adsl-client/rbootup.cgi

   1 #!/usr/local/bin/perl
   2 # rbootup.cgi
   3 # Edit a redhat networking config file to determine if ADSL is started at
   4 # boot time or not
   5
   6 require './adsl-client-lib.pl';
   7 &ReadParse();
   8
   9 &lock_file($config{'pppoe_conf'});
  10 $conf = &get_config();
  11 &save_directive($conf, "ONBOOT", $in{'onboot'} ? 'yes' : 'no');
  12 &flush_file_lines();
  13 &unlock_file($config{'pppoe_conf'});
  14 &webmin_log($in{'onboot'} eq 'yes' ? 'bootup' : 'bootdown');
  15 &redirect("");
  16