Changeset 780 for trunk/DNSDB.pm

Timestamp:

08/09/19 17:32:58 (5 years ago)

Author:

Kris Deugau

Message:

/trunk

Remove some minor syntax and comment typos that snuck in

File:

• trunk/DNSDB.pm (modified) (3 diffs)

trunk/DNSDB.pm

@@ -5676 +5676 @@
     my $soaq = $res->query($zone, "SOA");
     die "Error retrieving SOA for $zone: ".$res->errorstring."\n" if !$soaq;
-    my $ser = ($soaq->answer)[0]->{serial}
+    my $ser = ($soaq->answer)[0]->{serial};
     if ($args{rwsoa}) {
       if (!$args{keepserial}) {
@@ -6528 +6528 @@
     my ($email, $primary) = (split /:/, $host)[0,1];
     my ($refresh, $retry, $expire, $min_ttl) = (split /:/, $val)[0,1,2,3];
-    my $serial = 0;
+    my $serial = 0;  # fail less horribly than leaving it empty?
     if ($revrec eq 'y') {
 ##fixme:  have to publish SOA records for each v4 /24 in sub-/16, and each /16 in sub-/8
@@ -6552 +6552 @@
       ($serial) = $self->{dbh}->selectrow_array("SELECT zserial FROM domains WHERE domain=?", undef, $zone);
     } # revrec <> 'y'
-    $serial = '' if !$serial; # suppress a "uninitialized value" warning.  empty serial isn't an error, just falls back to tinydns' autoser$
+    $serial = '' if !$serial; # suppress a "uninitialized value" warning.  empty serial isn't an error, just falls back to tinydns' autoserial
     print $datafile "Z$zone:$primary:$email:$serial:$refresh:$retry:$expire:$min_ttl:$ttl:$stamp:$loc\n"
       or die $!;