Changeset 3125 in genesis for dns


Ignore:
Timestamp:
Nov 6, 2004, 3:09:09 PM (20 years ago)
Author:
dirkx
Message:

SOA numbers

File:
1 edited

Legend:

Unmodified
Added
Removed

  • dns/rev2revzone.pl

    r3124 r3125  
    11#!/usr/bin/perl
     2
     3# Contruct Serial - max of roughly 99 per day;i.e. one
     4# every 3 minutes.
     5#
     6my ($y,$m,$d,$H,$M) = (gmtime(time))[5,4,3,2,1];
     7my $SOA = sprintf("%04d%02d%02d%02d", 1900+$y, $m, $d, int(100*($H*60+$M)/(24*60)));
    28
    39open STDIN,shift @ARGV
    … …  
    1723
    1824        print <<"ZONE";
     25; Autmatically generated zone file
     26;
    1927\$ORIGIN $z.in-addr.arpa.
    2028\$TTL 86400
    2129@       1D IN   SOA       ns1.wLeiden.NET. hostmaster.wLeiden.NET. (
    22                 $SOA; serial (d. adams)
     30                $SOA; serial
    2331                3H              ; refresh
    2432                15M             ; retry
Note: See TracChangeset for help on using the changeset viewer.