Changeset 10

Timestamp:

04/06/05 19:18:53 (4 years ago)

Author:

ogawa

Message:

add Posgres support

Files:

• mt-db-convert/trunk/mt-db-convert.cgi (modified) (4 diffs)

mt-db-convert/trunk/mt-db-convert.cgi

@@ -151 +151 @@
-    }
-
+    ## %ids will hold the highest IDs of each class.
-    my %ids;
-
@@ -177 +178 @@
-        $ids{$class} = $o->id
-          if !$ids{$class} || $o->id > $ids{$class};
-
+
+
-        if ($class eq 'MT::Template') {
-          my $key = lc($o->name) . $o->blog_id;
@@ -217 +219 @@
-        }
-
-
-        $i++;
-        print $o->save ? "." : "!<br />" . $o->errstr;
@@ -225 +226 @@
-      print "</p>\n\n";
-    }
+
+    if ($type eq 'postgres') {
+        print "Updating sequences\n";
+        my $dbh = MT::Object->driver->{dbh};
+        for my $class (keys %ids) {
+            print "    $class => $ids{$class}\n";
+            my $seq = 'mt_' . $class->datasource . '_' .
+                      $class->properties->{primary_key};
+            $dbh->do("select setval('$seq', $ids{$class})")
+                or die $dbh->errstr;
+        }
+    }
+
-  };
-