dnsadmin/save_zonedef.cgi

   1 #!/usr/local/bin/perl
   2 # save_zonedef.cgi
   3 # Save zone defaults
   4
   5 require './dns-lib.pl';
   6 &ReadParse();
   7 $whatfailed = "Failed to save zone defaults";
   8 %access = &get_module_acl();
   9 $access{'defaults'} || &error("You cannot edit zone defaults");
  10
  11 &lock_file("$module_config_directory/zonedef");
  12 $in{'refresh'} =~ /^\S+$/ || &error("Invalid refresh time");
  13 $in{'retry'} =~ /^\S+$/ || &error("Invalid transfer retry time");
  14 $in{'expiry'} =~ /^\S+$/ || &error("Invalid expiry time");
  15 $in{'minimum'} =~ /^\S+$/ || &error("Invalid default time-to-live");
  16 %zonedef = ( 'refresh', $in{'refresh'},
  17              'retry', $in{'retry'},
  18              'expiry', $in{'expiry'},
  19              'minimum', $in{'minimum'} );
  20 &save_zone_defaults(\%zonedef);
  21 &unlock_file("$module_config_directory/zonedef");
  22 &webmin_log("zonedef", undef, undef, \%in);
  23 &redirect("");
  24