adsl-client/setup.cgi

   1 #!/usr/local/bin/perl
   2 # setup.sh
   3 # Copy the default config file into place
   4
   5 require './adsl-client-lib.pl';
   6 &lock_file($config{'pppoe_conf'});
   7 &system_logged("cp $module_root_directory/ifcfg-ppp $config{'pppoe_conf'}");
   8 if ($config{'pppoe_conf'} =~ /ifcfg-(ppp\d+)$/) {
   9         $conf = &get_config();
  10         &save_directive($conf, "DEVICE", "$1");
  11         &flush_file_lines();
  12         }
  13 &unlock_file($config{'pppoe_conf'});
  14 &webmin_log("setup");
  15 &redirect("");
  16