MovableType4で一気にカテゴリを追加する

Tweet

どうやら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__

使い道あるかどうかは知らん。

2010.02.16 22:54 投稿　大野 義貴 [Web] | 固定リンク |