MT4.2:QRコード画像を生成するプラグイン（改）

TOPページ > 215プラグイン関係 > MT4.2:QRコード画像を生成するプラグイン（改）

MT4.2:QRコード画像を生成するプラグイン（改）

2008年10月14日 23:53 | Writer: yoshi | 記事本文 | コメント(0) | トラックバック(1)

前回の「MT4.2:QRコード画像を生成するプラグイン」の、xampp上にQRコードが出来ない原因がはっきりとわかった。

ついでに少し手直しした。

動作しなかった原因

Windows版xammp上で指定したディレクトリへ画像ファイルが出来なかったのは、先の「嵌りメモ（perlのxampp環境でのファイル吐き出し実験）」エントリに記述のとおり。

修正したプラグインコード

引数を追加して、変換したいURL、変換後のQRコードのパスを渡すようにした。

情報量がちょっと大きいようなので、プラグイン中の「Version =＞ 2」から「Version =＞ 3」へ変更した。

引数の名前とかちょっとてきとう。構成は最小単位に近い。

package MT::Plugin::GetQRCode;
use strict;
use MT::Plugin;
use base qw(MT::Plugin);
our $VERSION = '0.1';
use MT::Template::Context;
use GD::Barcode;

my $plugin = new MT::Plugin::GetQRCode({
    id => 'GetQRCode',
    key => 'get_qrcode',
    name => 'GetQRCode',
    version => $VERSION,
    description => 'GetQRCode',
    author_name => 'apstar',
    author_link => 'http://www.mtde.info/',
});
MT->add_plugin($plugin);

sub init_registry
{
    my $plugin = shift;
    $plugin->registry({
        tags => {
            function => {
                'GetQRCode' => \&_hdlr_getqrcode,
            },
        },
    });
    
}

sub _hdlr_getqrcode {
my ($ctx, $args) = @_;
my $url = $args->{url};
my $qrcodeurl = $args->{qrcodeurl};

my $oGdBar = GD::Barcode->new('QRcode', $url,
{ Ecc => 'L',
ModuleSize=> 2,
Version => 3,
});

open(OUT,">$qrcodeurl");
binmode OUT;
print OUT $oGdBar->plot->png;
close OUT;
}

1;

使用例

こんな感じでいいみたい。

QRコード生成プラグイン 実験
<MTSetVarBlock name="myurl"><MTBlogURL></MTSetVarBlock>
<MTSetVarBlock name="qrurl">C:\xampp\htdocs\test\amemakanpei.png</MTSetVarBlock>
<mt:GetQRCode url="$myurl" qrcodeurl="$qrurl">