PC Memorandom of augustus

package MT::Plugin::CsvLoop;
use strict;
use MT::Template::Context;
MT::Template::Context->add_container_tag(
            CsvLoop=>\&CsvLoop);
sub CsvLoop{
    my($ctx,$arg) = @_;
    my(@list)=split(/,/, $arg->{list});
    my $res = '';
    my $builder = $ctx->stash('builder');
    my $tokens = $ctx->stash('tokens');
    for my $i (@list) {
        $ctx->stash('csv_value', $i);
        defined(my $out=$builder->build($ctx,$tokens))
            or return $ctx->error($ctx->errstr);
        $res .= $out;
    }
    $res;
}

MT::Template::Context->add_tag(
            CsvLoopValue=>\&CsvLoopValue  );
sub CsvLoopValue{
    my $ctx = shift;
    $ctx->stash('csv_value');
}

<MTCsvLoop list='claudius,nero,galba,otho'>
   <$MTCsvLoopValue$>:
   <a href="<$MTCsvLoopValue$>.html">
     <$MTCsvLoopValue$>.html
   </a>
   <br/>
</MTCsvLoop>

投稿者 augustus : 08:38 | コメント (0) | トラックバック

2005年03月07日

Movable Type プラグイン作成入門（４）

package MT::Plugin::RepeatStr;
use strict;
use MT::Template::Context;

MT::Template::Context->add_tag(RepeatStr=> \&repeat);

sub repeat {
	my($ctx, $arg)=@_;
	my $str = $arg->{str} x $arg->{kaisuu};
	$str;
}
1;

package MT::Plugin::Eval;
use strict;
use MT::Template::Context;

MT::Template::Context->add_tag(PerlEval=>\&perleval);

sub repeat {
	my($ctx, $arg)=@_;
	eval($arg->{eval});
}
1;

投稿者 augustus : 21:21 | コメント (0) | トラックバック

Movable Type プラグイン作成入門（３）

package MT::Plugin::YahooLink;
use strict;
use MT::Template::Context;

MT::Template::Context->add_tag(YahooLink=>\&yhlink);

sub yhlink {
	my $url="http://www.yahoo.co.jp/";
	"<a href='$url'>$url</a>";
}
1;

投稿者 augustus : 20:50 | コメント (0) | トラックバック

2005年03月06日

Movable Type プラグイン作成入門（２）

package MT::Plugin::ColorEzo;
use strict;
use MT::Template::Context;
MT::Template::Context->add_global_filter(
            ColorEzo=>\&ClrEzo  );
sub ClrEzo {
    my($text, $arg, $ctx) = @_;
    $text=~s/(tech-ezo)/<font color='$arg'>$1<\/font>/ig;
    $text;
}
1;

投稿者 augustus : 17:48 | コメント (0) | トラックバック

Movable Type プラグイン作成入門（１）

package MT::Plugin::ColorEzo;
use strict;
use MT::Template::Context;

# Global Filter RedEzo の定義
MT::Template::Context->add_global_filter(
	RedEzo => \&ChangeRedEzo);

# Filter によって起動されるメソッド
sub ChangeRedEzo {
    my($text, $arg, $ctx) = @_;
    $text=~s/(tech-ezo)/<font color='red'>$1<\/font>/ig;
    $text;
}
1;

投稿者 augustus : 17:19 | コメント (0) | トラックバック

2004年01月16日

MovableType を MySQL で使う。

私がサーバを借りているIpowerWEBでは MySQL を使うことが出来る。せっかくなので、MovableType のデータを MySQL を使って保存するように設定し直してみた。手順は概ね以下の通り。

• IpowerWEB のコントロールパネルから MySQL の DB と ユーザを作成する。
  
• mt.cfg を編集する。
  DataSource ./db
  の行をコメントアウトして、替わりに
  ObjectDriver DBI::mysql
  Database DBの名前
  DBUser DBに接続するユーザ名
  という行を付け加える。
  
• mt-db-pass.cgi に DBに接続するためのパスワードを記入する。
  
• mt-load.cgi を走らせる。
  
• 前のデータはインポートすることにより復活。
  

参考になったサイトは
http://209.204.217.175/readme/mtcfg.html

投稿者 augustus : 23:37 | コメント (0) | トラックバック

2004年01月15日

MOVABLE TYPE インストール

昨日からの大雪と強風のため外出する気分にならなかったので、ネット上をぶらぶらしているうちに BLOG の紹介ページにたどり着く。面白そうだったので MOVABLETYPE とその日本語化キットをダウンロードして、借りているサーバにインストールしてみる。
私が借りている IpowerWeb のサーバには必要なものは全部入っていたようですんなりインストール出来た。

インストールには以下のサイトを参考にした。
MovableType 日本語化手順

投稿者 augustus : 22:14 | コメント (1) | トラックバック

Movable type のマニュアル

ありがたいことに日本語訳があった。

投稿者 augustus : 14:47 | コメント (0) | トラックバック