bind8/save_soa.cgi

   1 #!/usr/local/bin/perl
   2 # save_soa.cgi
   3 # Save changes to an SOA record
   4
   5 require './bind8-lib.pl';
   6 &ReadParse();
   7 &error_setup($text{'master_err2'});
   8 $zone = &get_zone_name($in{'index'}, $in{'view'});
   9 $dom = $zone->{'name'};
  10 &can_edit_zone($zone) ||
  11         &error($text{'master_ecannot'});
  12 $access{'ro'} && &error($text{'master_ero'});
  13 $access{'params'} || &error($text{'master_esoacannot'});
  14
  15 # Get the SOA and file
  16 @recs = &read_zone_file($zone->{'file'}, $dom);
  17 foreach $r (@recs) {
  18         $soa = $r if ($r->{'type'} eq "SOA");
  19         }
  20 $soa || &error($text{'master_esoagone'});
  21 $file = $soa->{'file'};
  22
  23 # check inputs
  24 &valdnsname($in{'master'}, 0, $in{'origin'}) ||
  25         &error(&text('master_emaster', $in{'master'}));
  26 &valemail($in{'email'}) ||
  27         &error(&text('master_eemail', $in{'email'}));
  28 $in{'refresh'} =~ /^\d+$/ ||
  29         &error(&text('master_erefresh', $in{'refresh'}));
  30 $in{'retry'} =~ /^\d+$/ ||
  31         &error(&text('master_eretry', $in{'retry'}));
  32 $in{'expiry'} =~ /^\d+$/ ||
  33         &error(&text('master_eexpiry', $in{'expiry'}));
  34 $in{'minimum'} =~ /^\d+$/ ||
  35         &error(&text('master_eminimum', $in{'minimum'}));
  36 if ($in{'email'} =~ /\@/) {
  37         $in{'email'} = &email_to_dotted($in{'email'});
  38         }
  39 $in{'defttl_def'} || $in{'defttl'} =~ /^\d+$/ ||
  40         &error(&text('master_edefttl', $in{'defttl'}));
  41
  42 &lock_file(&make_chroot($file));
  43 @recs = &read_zone_file($file, $in{'origin'});
  44 $old = $recs[$in{'num'}];
  45 # already set serial if no acl allow it to update or update is disabled
  46 $serial = $old->{'values'}->[2];
  47 if ($config{'updserial_on'}) {
  48         # automatically handle serial numbers ?
  49         $serial = &compute_serial($old->{'values'}->[2]);
  50         }
  51 else {
  52         $in{'serial'} =~ /^\d+$/ || &error($text{'master_eserial'});
  53         $serial = $in{'serial'};
  54         }
  55 $vals = "$in{'master'} $in{'email'} (\n".
  56         "\t\t\t$serial\n".
  57         "\t\t\t$in{'refresh'}$in{'refunit'}\n".
  58         "\t\t\t$in{'retry'}$in{'retunit'}\n".
  59         "\t\t\t$in{'expiry'}$in{'expunit'}\n".
  60         "\t\t\t$in{'minimum'}$in{'minunit'} )";
  61 &modify_record($file, $old, $old->{'name'}, $old->{'ttl'},
  62                $old->{'class'}, "SOA", $vals);
  63
  64 ($defttl) = grep { $_->{'defttl'} } @recs;
  65 if (!$defttl && !$in{'defttl_def'}) {
  66         &create_defttl($file, $in{'defttl'}.$in{'defttlunit'});
  67         }
  68 elsif ($defttl && !$in{'defttl_def'}) {
  69         &modify_defttl($file, $defttl, $in{'defttl'}.$in{'defttlunit'});
  70         }
  71 elsif ($defttl && $in{'defttl_def'}) {
  72         &delete_defttl($file, $defttl);
  73         }
  74
  75 &unlock_file(&make_chroot($file));
  76 &webmin_log("soa", undef, $in{'origin'}, \%in);
  77 &redirect("edit_master.cgi?index=$in{'index'}&view=$in{'view'}");
  78