nlog(n): アプリケーションバージョン表示プラグイン 0.1

Wed May 24, 2006

アプリケーションバージョン表示プラグイン 0.1

アプリケーションや OS のバージョンを表示するプラグインを書く。環境に密接に関係するため，「汎用」とは対極にあるプラグインになる。

■ ■ ■

このサイトでは，Apache や Perl などのアプリケーションを利用している。Movable Type には，バージョンを表示するタグ <$MTVersion$> が用意されている。これに習って，Apache などのアプリケーションのバージョンも表示したい。そして，もしこれらのアプリケーションがバージョンアップしたら自動的にバージョン表示も更新されるようにしたい。

以下は，ごく簡単に Movable Type 2.x 用として書いたもので，2.661 で動作している。appversion-0.1.pl をダウンロードしてプラグインディレクトリに保存する。MT 3.x 用はプラグイン登録用の前置きを追加してやるとよい。MT 3.x の作法については，naoyaのはてなダイアリー - Movable Type で言及リンクのない TrackBack ping を弾くプラグインが参考になる。

主要部分は以下の通り。OS は Vine Linux (Redhat 系) である。アプリケーションがインストールされているパスが違えば，プラグインで指定するパスも変わってくる。OS や環境に依存したものとなるため，「汎用」とは対極にあるプラグインだといえる。恐らくこのまま使う人はいないだろう。何かの参考になればよいので，使っているままのものを公開してしまうことにした。

MT::Template::Context->add_tag(AppVersion => \&AppVersion);
sub AppVersion {
  my $ctx = shift;
  my $args = shift;
  my $out;
  if (defined($args->{target})) {
   if ($args->{target} eq 'Apache') {
   $out = `/usr/sbin/httpd -v`;
   $out =~ /(\d+)\.(\d+)\.(\d+)/;
   return "$1.$2.$3";
   } elsif ($args->{target} eq 'VineLinux') {
   $out = `cat /etc/vine-release`;
   $out =~ /(\d+)\.(\d+)/;
   return "$1.$2";
   } elsif ($args->{target} eq 'Perl') {
   $out = `/usr/bin/perl -v`;
   $out =~ /(\d+)\.(\d+)\.(\d+)/;
   return "$1.$2.$3";
   } else {
   return "";
   }
  } else {
   return "";
  }
}

必要に応じて好きなアプリケーションを追加すればよい。改めて見てみるとつまらないプラグインだが，気にしない。

テンプレートには，以下のように書いておく(細かい整形は省略)。

<a href="http://www.vinelinux.org/">VineLinux <$MTAppVersion target="VineLinux"$></a>
<a href="http://www.apache.jp/">Apache <$MTAppVersion target="Apache"$></a>
<a href="http://www.perl.org/">Perl <$MTAppVersion target="Perl"$></a>

次のような表示になる。

上は Vine Linux 2.6 での表示。