Changeset 139

Timestamp:

10/09/05 00:04:55 (3 years ago)

Author:

ogawa

Message:

Show "your recommended setting" after completing conversion process.
Restructure mt-db-convert31.cgi as same as mt-db-convert.cgi.

Files:

• mt-db-convert/trunk/mt-db-convert.cgi (modified) (3 diffs)
• mt-db-convert/trunk/mt-db-convert31.cgi (modified) (11 diffs, 1 prop)

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

@@ -67 +67 @@
-    }
-
+    print "<pre>\n\n";
-    require MT::Object;
-    my $type = ($dst_cfg->{ObjectDriver} =~ /^DBI::(.*)$/) ? $1 : '';
@@ -80 +81 @@
-        push @stmts, MT::Upgrade->check_class($_);
-    }
-    print "<pre>\n\n";
-    print "Loading database schema...\n\n";
-    MT::Upgrade->do_upgrade(Install => 1);
@@ -207 +207 @@
-
-HTML
+    print "Your recommended setting\n-------------------------------------\n";
+    foreach (@DBSPECS) {
+        next unless $src_cfg->{$_};
+        if (($src_cfg->{ObjectDriver} eq 'DBM' && $_ ne 'ObjectDriver') ||
+            ($src_cfg->{ObjectDriver} ne 'DBM' && $_ ne 'DataSource')) {
+            print "# $_ $src_cfg->{$_}\n";
+        }
+    }
+    foreach (@DBSPECS) {
+        next unless $dst_cfg->{$_};
+        if (($dst_cfg->{ObjectDriver} eq 'DBM' && $_ ne 'ObjectDriver') ||
+            ($dst_cfg->{ObjectDriver} ne 'DBM' && $_ ne 'DataSource')) {
+            print "$_ $dst_cfg->{$_}\n";
+        }
+    }
+    print "-------------------------------------\n";
-}
-

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

@@ -2 +2 @@
-# mt-db-convert.cgi: converting your MT data between multiple db engines
-# This is a derived work from the following:
-
+
-# Copyright 2001-2005 Six Apart. This code cannot be redistributed without
-# permission from www.movabletype.org.
@@ -8 +8 @@
-# $Id: mt-db2sql.cgi 12446 2005-05-25 21:32:39Z bchoate $
-use strict;
-
-my $VERSION = '0.12';
-
-my($MT_DIR);
@@ -24 +22 @@
-local $| = 1;
-print "Content-Type: text/html\n\n";
-
-
-
-
-
-
+
-
-my @CLASSES = qw( MT::Author MT::Blog MT::Category MT::Comment MT::Entry
@@ -39 +32 @@
-
-my @DBSPECS = qw( DataSource ObjectDriver Database DBUser DBHost DBPassword );
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
-eval {
-    local $SIG{__WARN__} = sub { print "**** WARNING: $_[0]\n" };
-
+    require MT;
+    my $mt = MT->new( Config => $MT_DIR . 'mt.cfg', Directory => $MT_DIR )
+        or die MT->errstr;
+    die "This script is for Movable Type 3.1 or above."
+        unless $mt->version_number >= 3.1;
+
+    my $cfg = $mt->{cfg};
+
+    require CGI;
+    my $q = CGI->new;
+    foreach (@DBSPECS) {
+        $src_cfg->{$_} = $q->param('src_' . $_) || '';
+        $dst_cfg->{$_} = $q->param('dst_' . $_) || '';
+    }
+
+    # if src and dst dbspecs not given
+    if (!$src_cfg->{ObjectDriver} ||
+        ($src_cfg->{ObjectDriver} eq 'DBM' && !$src_cfg->{DataSource}) ||
+        !$dst_cfg->{ObjectDriver} ||
+        ($dst_cfg->{ObjectDriver} eq 'DBM' && !$dst_cfg->{DataSource})) {
+        $src_cfg->{$_} ||= $cfg->$_() || '' foreach (@DBSPECS);
+        print show_form($q->url || 'mt-db-convert.cgi', $src_cfg, $dst_cfg);
+        print show_footer();
+        exit;
+    }
+
+    print "<pre>\n\n";
-    require MT::Object;
-
+_cfg->
-    if ($type) {
-    # set dst driver
-
-
+_cfg->
+_cfg->
-        or die MT::ObjectDriver->errstr;
-    my $dbh = MT::Object->driver->{dbh};
-    $dbh->begin_work if $type eq 'sqlite';
-    my $schema = File::Spec->catfile($MT_DIR, 'schemas', $type . '.dump');
-    open FH, $schema or die "Can't open schema file '$schema': $!";
@@ -144 +78 @@
-    close FH;
-    my @stmts = split /;/, $ddl;
-<p>Loading database schema...</p>
+Loading database schema...
-    for my $stmt (@stmts) {
-        $stmt =~ s!^\s*!!;
@@ -151 +85 @@
-        $dbh->do($stmt) or die $dbh->errstr;
-    }
-    $dbh->commit if $type eq 'sqlite';
-    }
-
@@ -157 +90 @@
-    my %ids;
-
+    print "Loading data...\n";
-    for my $class (@CLASSES) {
-
-
-
-
-
-
+
+
+
+
-        eval "use $class";
-        my $iter = $class->load_iter;
@@ -169 +101 @@
-        my %names;
-        my %cat_parent;
-
-
-
-
-
-
-
+
+
+
+
+
+
-        while (my $obj = $iter->()) {
-            $ids{$class} = $obj->id
@@ -224 +155 @@
-                    if defined $obj->allow_comments && $obj->allow_comments eq '';
-            } elsif ($class eq 'MT::Blog') {
-               
+                
-            }
-
-            $i++;
-            $obj->save
-                or die $obj->errstr;
-
-
-
+
+
-        }
-
@@ -242 +171 @@
-        }
-
-       print "</p>
-       
+        print "\n($i objects saved.)
+        
-    }
-
@@ -260 +189 @@
-if ($@) {
-    print <<HTML;
-
-
+
+
+
+
+
-HTML
-} else {
-    print <<HTML;
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+