MovableType4で一気にカテゴリを追加する
どうやらMovableTypeでは、こういうのはプラグインでやるらしいのだけど、作っちゃったのでとりあえず。
特定のblogにカテゴリーを大量に追加します。既に同じ名前のカテゴリーがある場合は、なにもしない。
#!/usr/bin/perl
use strict;
use warnings;
use lib '/path/to/lib';
use Encode;
use MT;
use utf8;
my $blog_id = 39;
my $mt = MT->new( Config => '/path/to/mt-config.cgi' );
my @categories_list =
(
'Adobe_CS3',
'Adobe_CS4',
'Adobe_CS5',
);
my %categories_list_hash = ();
@categories_list_hash{@categories_list} = ();
my @categories = MT::Category->top_level_categories($blog_id);
foreach my $cat ( @categories ) {
my $label = decode_utf8($cat->label);
if ( exists($categories_list_hash{$label}) ) {
delete($categories_list_hash{$label})
}
}
foreach my $label ( keys %categories_list_hash ) {
my $cat = MT::Category->new;
$cat->blog_id($blog_id);
utf8::encode($label);
$cat->label($label);
$cat->save or die $cat->errstr;
print encode_utf8('カテゴリー追加:')."$label\n";
}
exit;
__END__
使い道あるかどうかは知らん。
トラックバック
この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/19018/47585019
この記事へのトラックバック一覧です: MovableType4で一気にカテゴリを追加する:






![森田 創: WEB+DB PRESS 総集編 [Vol.1~60]](http://ecx.images-amazon.com/images/I/51aE58LxWlL._SL75_.jpg)
















![: 電子ルーペ ViewPe[ビューペ] 3R-MSV35 マイクロスコープ デジタル顕微鏡 高機能 低価格 読書 植物 研究 肌チェック](http://ecx.images-amazon.com/images/I/41erkiQgAsL._SL75_.jpg)





![: Optimus bright [docomo L-07C] 対応 予備バッテリー 1500mAh BL-44JN](http://ecx.images-amazon.com/images/I/41gjqsDjq%2BL._SL75_.jpg)










![: パンツの穴 [DVD]](http://ecx.images-amazon.com/images/I/21R9SEY1HPL._SL75_.jpg)

















