Changeset 184

Timestamp:

12/06/11 12:27:35 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Patch up some glitches in the VegaDNS import script - Vega doesn't
have separate default records for subgroups as I expected.

File:

• trunk/vega-import.pl (modified) (3 diffs)

trunk/vega-import.pl

@@ -81 +81 @@
 my $recget = $vegadbh->prepare("SELECT record_id,host,type,val,distance,weight,port,ttl,description ".
         "FROM records WHERE domain_id=?");
-my $defrecget = $vegadbh->prepare("SELECT record_id, group_id, host, type, val, distance, weight, port, ttl, ".
+my $defrecget = $vegadbh->prepare("SELECT group_id, host, type, val, distance, weight, port, ttl, ".
         "description FROM default_records WHERE group_id=?");
 
@@ -101 +101 @@
 my $newrec = $newdbh->prepare("INSERT INTO records (domain_id,record_id,host,type,val,distance,weight,port,".
         "ttl,description) VALUES (?,?,?,?,?,?,?,?,?,?)");
-my $newdefrec = $newdbh->prepare("INSERT INTO default_records (record_id,group_id,host,type,val,distance,".
-        "weight,port,ttl,description) VALUES (?,?,?,?,?,?,?,?,?,?)");
+my $newdefrec = $newdbh->prepare("INSERT INTO default_records (group_id,host,type,val,distance,".
+        "weight,port,ttl,description) VALUES (?,?,?,?,?,?,?,?,?)");
 
 my $foo = qq(
@@ -202 +202 @@
  ## Default records
   print " default records: ";
-  $defrecget->execute($grpid);
+  $defrecget->execute(1);       # Vega 1.1.5/1.1.6 do not have default records for all groups;
+                                # there is only support for one set of default records coded.
   while (my @rec = $defrecget->fetchrow_array) {
-    $rec[3] = $reverse_typemap{$vegatypes{$rec[3]}};
+    $rec[0] = $grpid;
+    $rec[2] = $reverse_typemap{$vegatypes{$rec[2]}};
+    $rec[4] = 0 if !$rec[4];
     $rec[5] = 0 if !$rec[5];
     $rec[6] = 0 if !$rec[6];
-    $rec[7] = 0 if !$rec[7];
     $newdefrec->execute(@rec);
   }