Commit 892daa60 authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

Change zone serial number generation to be more standard, as indicated

by this page:
parent 3a0ec6b3
#!/usr/bin/perl -wT
# Copyright (c) 2000-2008 University of Utah and the Flux Group.
# Copyright (c) 2000-2009 University of Utah and the Flux Group.
# All rights reserved.
use English;
......@@ -324,7 +324,7 @@ sub assemble_zonefile($) {
open(MAPHEAD, "<$mapfilehead") || fatal("Couldn't open $mapfilehead\n");
while (<MAPHEAD>) {
if ( /;\s*Serial\s+/i ) {
my $serial = `date +%s`;
my $serial = `date +%Y%H%M%S`;
chop $serial;
print MAP "\t\t\t$serial\t; Serial Number -- DO NOT EDIT\n";
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment