Changeset 3126 in genesis

Timestamp:

Nov 6, 2004, 6:31:34 PM (20 years ago)

Author:

dirkx

Message:

mooirere error msg

File:

• dns/zone2rev.pl (modified) (1 diff)

dns/zone2rev.pl

@@ -21 +21 @@
                 unless $host =~ m/\.$/;
 
-        warn "A-Resourcce Duplicated\n\tfor $ip/$host at line $.\n"
+        warn "A-Resourcce defined in two places\n\tfor $ip/$host at line $. and $line{$ip}\n"
                 if defined $host{$ip} and $host{$ip} eq $host;
 
-        warn "A-Resourcce Conflict\n\t$ip used for $host and $host{$ip} at line $.\n"
+        warn "A-Resourcce Conflict - there should be just one.\n\t$ip used for $host and $host{$ip} at line $. and $line{$ip}\n"
                 if defined $host{$ip};
 
-        warn "Resource reuse\n\t$host at $ip{$host}/$ip at line $.\n"
+        warn "Resource defined in two places\n\t$host at $ip{$host} at line $. and $line{$host}.\n"
                 if defined $ip{$host} and $ip eq $ip{$host};
 
-        warn "Resourcce mismatch\n\t$host at $ip{$host} and $ip at line $.\n"
+        warn "Resource confict - there should be just one.\n\t$host at $ip{$host} and $ip at line $. and $line{$host}\n"
                 if defined $ip{$host};
 
         $host{$ip} = $host;
         $ip{$host} = $ip;
+        $line{$ip} = $line{$host} = $.;
 
         print "$ip\t$host\n";