合并一个MT站点的子Blog
#!/usr/bin/perl -w
BEGIN {
my $MT_DIR = ‘./’;
chdir $MT_DIR;
unshift @INC, $MT_DIR . ‘lib’;
unshift @INC, $MT_DIR . ‘extlib’;
}
use MT;
use MT::Entry;
my $mt = MT->new;
my $entry;
my $entry_id = 1;
while(1) {
$entry = MT::Entry->load($entry_id++) or exit;
if (1 != $entry->blog_id ) {
print “\t”, $entry->id, “\t”, $entry->blog_id, “\t”, $entry->title, “\n”;
$entry->blog_id(1);
$entry->save
or die $entry->errstr;
}
}
通过这个脚本可以将一个MT站点里的各个子Blog合并到第一个Blog（通常是主Blog）。
