r8315: fixed the generation of the serial number in the dns zone file (bind9

doesn't like it being too long)
(This used to be commit fc93ade9cd)

source4/setup/provision.pl

@@ -85,6 +85,13 @@ sub timestring()
 	$year+1900, $mon+1, $mday, $hour, $min, $sec;
 }
 
+sub datestring()
+{
+	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) =  gmtime(time);
+	return sprintf "%04u%02u%02u%02u",
+	$year+1900, $mon+1, $mday, $hour;
+}
+
 #######################
 # substitute a single variable
 sub substitute($)
@@ -135,6 +142,10 @@ sub substitute($)
 		return timestring();
 	}
 
+	if ($var eq "DATESTRING") {
+		return datestring();
+	}
+
 	if ($var eq "NEWGUID") {
 		return randguid();
 	}

source4/setup/provision.zone

@@ -2,7 +2,7 @@
 $ORIGIN ${DNSDOMAIN}.
 $TTL 1W
 @               IN SOA  @   hostmaster (
-                                ${TIMESTRING}   ; serial
+                                ${DATESTRING}   ; serial
                                 2D              ; refresh
                                 4H              ; retry
                                 6W              ; expiry