dhcp-dns/apply.cgi

   1 #!/usr/local/bin/perl
   2 # Apply the current configuration
   3
   4 require './dhcp-dns-lib.pl';
   5 &ReadParse();
   6 &error_setup($text{'apply_err'});
   7 $err = &apply_configuration();
   8 if ($err) {
   9         &error($err);
  10         }
  11 else {
  12         &redirect("");
  13         }
  14