Movable Type 3.35 を、Drupal 5.3 に移行する。

$MT_DIR = $1;

$MT_DIR = './';

            Directory => $MT_DIR) || die MT->errstr;

                                blog_id   => $blog_id});

$userid[$author->id] = $drupal_users{$author->name};
next;

db_query($dbh,"INSERT INTO ${shared_prefix}users (uid, name, pass, mail, created) VALUES (%d, _utf8%s, _utf8%s, _utf8%s, %d)", $count, $dbh->quote($author->name), $dbh->quote($author->password), $dbh->quote($author->email), time());

my $path = $cat->label;
$path =~ tr/A-Z/a-z/;
$path =~ s/\s/-/g; #replace space with -
$path =~ s/[\(\)]//g; #get rid of parentheses like MT does

if ($drupal_categories{$cat->label})
{
$catsid[$cat->id] = $drupal_categories{$cat->label};
db_query($dbh, "REPLACE INTO ${db_prefix}url_alias (src, dst) VALUES (_utf8%s, _utf8%s)", $dbh->quote(sprintf("taxonomy/term/%d",$catsid[$cat->id])),$dbh->quote($path));
next;
}
$count++;
$catsid[$cat->id] = $count;
db_query($dbh, "REPLACE INTO ${db_prefix}url_alias (src, dst) VALUES (_utf8%s, _utf8%s)", $dbh->quote(sprintf("taxonomy/term/%d",$count)),$dbh->quote($path));
# I want index.php ones set up too. If not, just delete the following line.
db_query($dbh, "REPLACE INTO ${db_prefix}url_alias (src, dst) VALUES (_utf8%s, _utf8%s)", $dbh->quote(sprintf("taxonomy/term/%d",$count)),$dbh->quote($path . "/index.php"));
db_query($dbh, "INSERT INTO ${db_prefix}term_data (vid, tid, name, description) VALUES (%d, %d, _utf8%s, _utf8%s)", $drupal_category, $count, $dbh->quote($cat->label), $dbh->quote($cat->description));
db_query($dbh, "INSERT INTO ${db_prefix}term_hierarchy (tid, parent) VALUES (%d, %d)", $count, 0);

if ($cat->allow_pings)
{
# unable to ping to taxonomy's terms yet.
}

# Trackbacks
my $tbping = MT::Trackback->load({blog_id => $blog_id, entry_id => $entry->id}); 
if ($tbping)
{
    my @trackbacks = MT::TBPing->load({blog_id => $blog_id, tb_id => $tbping->id});
    for my $tb (@trackbacks)
    {
    $cid++; $ccid++; $thread = "";
    for (my $i = 0; $i < int $ccid/10; $i++)
    {
        $thread .= "9";
    }
    $thread .= "" . $ccid%10 . "/";
    my $text = sprintf("<strong>Trackback from <a href=\"%s\">%s</a>:</strong><br /><blockquote>%s...</blockquote>", $tb->source_url, $tb->blog_name, $tb->excerpt);
    db_query($dbh,"INSERT INTO ${db_prefix}comments (cid, pid, nid, uid, subject, comment, hostname, timestamp, status, name, mail, homepage, thread) VALUES (%d, %d, %d, %d, _utf8%s, _utf8%s, _utf8%s, %d, %d, _utf8%s, _utf8%s, _utf8%s, _utf8%s)", $cid, ($preserve_id ? $entry->id : $count), ($preserve_id ? $entry->id : $count), 0, $dbh->quote(($tb->title ? $tb->title : '')), $dbh->quote($text), $dbh->quote($tb->ip), timeformat($tb->created_on), 0, $dbh->quote(($tb->blog_name ? $tb->blog_name : '')), $dbh->quote(''), $dbh->quote($tb->source_url), $dbh->quote($thread));
    # Erm, this table doesn't exist any more.
    db_query($dbh,"REPLACE INTO ${db_prefix}trackback_pingme (nid, cid) VALUES (%d, %d)", ($preserve_id ? $entry->id : $count), $cid) if ($mode == 0);
    }
}

# I use different archive settings (/blog/year/month/basename.php. This change resolves that.
my $file;
if(!$is_category) {
    my $postyear = substr($entry->created_on, 0, 4);
    my $postmonth = substr($entry->created_on, 4, 2);
    $file = $blog->archive_url . "$postyear/$postmonth/" . $entry->basename . ".php"; #sprintf("%06d", $entry->basename)
} else {
    my $category = $entry->category->basename;
    $file = $blog->archive_url . "$category/" . $entry->basename . ".php"; #sprintf("%06d", $entry->basename)
}
print "$file\n";
my $site_url = $blog->site_url;
$file =~ s/$site_url//;
db_query($dbh,"REPLACE INTO ${db_prefix}url_alias (src, dst) VALUES (_utf8%s, _utf8%s)", $dbh->quote(sprintf("node/%d", ($preserve_id ? $entry->id : $count))), $dbh->quote($file));
} # End of for a group of 50