blob: 9a5d10a65c5253426020b02fa48c8f8d7a812fa7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
$FreeBSD$
--- ZoneFile.pm.orig Tue Jun 11 20:34:27 2002
+++ ZoneFile.pm Tue Jun 11 20:35:23 2002
@@ -129,23 +129,23 @@
elsif ($text =~ # SOA
s/
\A(|\*|\s*@|\.|([-\w\d]+(\.[-\w\d]+)*\.?))
- \s+ ((IN|HESIOD|CHAOS) \s+)?
+ \s+ (?:([\d]+)\s+)? ((IN|HESIOD|CHAOS) \s+)?
(SOA) \s+ ([-\w\d]+(\.[-\w\d]+)*\.)
\s+ ([-\w\d]+(\.[-\w\d]+)*\.) \s* \(
\s* (\d+) \s+ (\d+) \s+ (\d+) \s+ (\d+) \s+ (\d+) \s+ \) \s*$
//mxi)
{
my $name = $1;
- my $class = $5 || 'IN';
- my $type = $6;
- my $host = $7;
- my $admin = $9;
- my $d1 = $11;
- my $d2 = $12;
- my $d3 = $13;
- my $d4 = $14;
- my $d5 = $15;
- my $ttl = $d5;
+ my $class = $6 || 'IN';
+ my $type = $7;
+ my $host = $8;
+ my $admin = $10;
+ my $d1 = $12;
+ my $d2 = $13;
+ my $d3 = $14;
+ my $d4 = $15;
+ my $d5 = $16;
+ my $ttl = $4 || $d5;
$SoaTTL = $ttl;
|
