Changeset 1011 for branches

Timestamp:

01/30/26 13:15:47 (2 days ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

Exclude another domain from the "is this a test DB?" checklist
Revise record check to exclude a pattern of domain names

File:

• branches/cname-collision/t/DNSTest.pm (modified) (3 diffs)

branches/cname-collision/t/DNSTest.pm

@@ -5 +5 @@
 ##
 # $Id$
-# Copyright 2025 Kris Deugau <kdeugau@deepnet.cx>
+# Copyright 2025,2026 Kris Deugau <kdeugau@deepnet.cx>
 # 
 #    This program is free software: you can redistribute it and/or modify
@@ -64 +64 @@
 
   my ($dcount) = $dbh->selectrow_array("SELECT count(*) FROM domains WHERE NOT domain IN ".
-        "('example.com','example.net','example.org','expiry1.test','expiry2.test')");
+        "('example.com','example.net','example.org','expiry1.test','expiry2.test','expiry3.test')");
   BAIL_OUT("# DB looks like it may not be a test DB, found $dcount > 0 non-test domains!\n")
         if $dcount > 0;
@@ -71 +71 @@
   my ($rcount) = $dbh->selectrow_array(qq{SELECT count(*) FROM records WHERE NOT (
         host like '%example.com' or host like '%example.net' or host like '%example.org' or
-        host like '%expiry1.test' or host like '%expiry2.test' or inetlazy(val) << '192.168.2.0/27'
+        host like '%expiry_.test' or inetlazy(val) << '192.168.2.0/27'
         )});
   my $maxrecs = 0;