Changeset 172

Timestamp:

11/29/11 16:52:25 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

VegaDNS import tool should be complete.

• User import tweaked to set permissions correctly
• Domains and domain records imported
• Default records imported. Note Vega 1.1.5/6 does not seem to keep multiple sets of default records; subgroups will not inherit these records

File:

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

trunk/vega-import.pl

@@ -33 +33 @@
 $newdbh->{PrintError} = 1;
 $newdbh->{PrintWarn} = 1;
+initGlobals($newdbh);
+
+my %vegatypes = ('S' => 'SOA', 'N' => 'NS', 'A' => 'A', 'T' => 'TXT',
+        'V' => 'SRV', 'P' => 'PTR', 'M' => 'MX', 'C' => 'CNAME' );
 
 if ($mode eq 'replace') {
   print "WARNING:  Using 'replace' will **DELETE** all existing group,\n".
-        "user, domain, and record data.  Once started this cannot be\n".
-        "reversed.  Enter 'yes' to proceed: ";
+        "user, domain, and record data in DeepNet DNS Administrator.\n".
+        "Once started this cannot be reversed.  Enter 'yes' to proceed: ";
   my $resp = <STDIN>;
   chomp $resp;
@@ -74 +78 @@
         "self_edit,group_edit,group_create,group_delete,domain_edit,domain_create,domain_delete,record_edit,".
         "record_create,record_delete FROM user_permissions WHERE user_id=?");
+my $domget = $vegadbh->prepare("SELECT domain_id,domain,description,status FROM domains WHERE group_id=?");
+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, ".
+        "description FROM default_records WHERE group_id=?");
 
 my $newgrp = $newdbh->prepare("INSERT INTO groups (group_id,parent_group_id,group_name,permission_id) ".
@@ -84 +93 @@
 my $newuser = $newdbh->prepare("INSERT INTO users (user_id, group_id, username, password, firstname, ".
         "lastname, phone, type, status, permission_id, inherit_perm) VALUES (?,?,?,?,?,?,?,?,?,?,'f')");
-my $newuserpset = $newdbh->prepare("INSERT INTO permissions (self_edit, group_create, ".
+my $newuserpset = $newdbh->prepare("INSERT INTO permissions (admin, self_edit, group_create, ".
         "group_edit, group_delete, user_create, user_edit, user_delete, domain_create, domain_edit, ".
         "domain_delete, record_create, record_edit, record_delete, user_id) ".
-        "VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?)");
+        "VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");
+my $newdom = $newdbh->prepare("INSERT INTO domains (domain_id, domain, group_id, description, status) VALUES ".
+        "(?,?,?,?,?)");
+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 $foo = qq(
@@ -140 +155 @@
   $userget->execute($grpid);
   while (my $user = $userget->fetchrow_hashref) {
+    # fiddle user data
+    $user->{account_type} = 'S' if $user->{account_type} eq 'senior_admin';
+    $user->{account_type} = 'u' if $user->{account_type} eq 'user';
+    $user->{status} = ($user->{status} eq 'active' ? 1 : 0);
     $userpget->execute($user->{user_id}) or warn "failed permission get on ".$user->{user_id}."\n";
     my $oldp = $userpget->fetchrow_hashref;
     # de-nullify
-    foreach my $permtype ('self_edit', 'group_create', 'group_edit', 'group_delete', 'user_create',
+    foreach my $permtype ('admin', 'self_edit', 'group_create', 'group_edit', 'group_delete', 'user_create',
         'user_edit', 'user_delete', 'domain_create', 'domain_edit', 'domain_delete', 'record_create',
         'record_edit', 'record_delete') {
       $oldp->{$permtype} = 'f' if !defined($oldp->{$permtype});
     }
-    $newuserpset->execute($oldp->{self_edit}, $oldp->{group_create}, $oldp->{group_edit}, $oldp->{group_delete},
+    $newuserpset->execute(($user->{account_type} eq 'S' ? 't' : 'f'), $oldp->{self_edit},
+        $oldp->{group_create}, $oldp->{group_edit}, $oldp->{group_delete},
         $oldp->{user_create}, $oldp->{user_edit}, $oldp->{user_delete},
         $oldp->{domain_create}, $oldp->{domain_edit}, $oldp->{domain_delete},
@@ -155 +175 @@
     $newpid->execute;
     my ($pid) = $newpid->fetchrow_array;
-    # fiddle user data
-    $user->{account_type} = 'S' if $user->{account_type} eq 'senior_admin';
-    $user->{account_type} = 'u' if $user->{account_type} eq 'user';
-    $user->{status} = ($user->{status} eq 'active' ? 1 : 0);
     $newuser->execute($user->{user_id}, $user->{group_id}, $user->{email}, $user->{password},
         $user->{first_name}, $user->{last_name}, $user->{phone}, $user->{account_type}, $user->{status}, $pid) 
         or warn "  new user ".$user->{email}." (".$user->{user_id}.") failed: ".$newuser->errstr."\n";
-    print " user ".$user->{email}." (".$user->{user_id}.")\n";
-  }
-
-
-}
+    print "  user ".$user->{email}." (".$user->{user_id}.")\n";
+  }
+  print " done\n";
+
+ ## Domains
+  print " domains: \n";
+  $domget->execute($grpid);
+  while (my ($id,$dom,$desc,$status) = $domget->fetchrow_array) {
+    $status = ($status eq 'active' ? 1 : 0);
+    $newdom->execute($id, $dom, $grpid, $desc, $status);
+    print "  domain $dom ($id)\n";
+    $recget->execute($id);
+    while (my @rec = $recget->fetchrow_array) {
+      $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];
+      $newrec->execute($id,@rec);
+    }
+  }
+  print " done\n";
+
+ ## Default records
+  print " default records: ";
+  $defrecget->execute($grpid);
+  while (my @rec = $defrecget->fetchrow_array) {
+    $rec[3] = $reverse_typemap{$vegatypes{$rec[3]}};
+    $rec[5] = 0 if !$rec[5];
+    $rec[6] = 0 if !$rec[6];
+    $rec[7] = 0 if !$rec[7];
+    $newdefrec->execute(@rec);
+  }
+  print " done\n";
+}