Jun 29 2004

BlogTimes fixed

You may find out there is one more “blogtimes” picture at the top-right corner recently, I have already adapted Nilesh’s BlogTimes plugin into this site. This is a funny plugin, let the author(and readers) know how many posts you wrote in +hours of days every month+. Unfortunately, there is one limitation: You can NOT give a customized filename like demo part in Nilesh’s page, becuase MT doesn’t support nested tag attribution assignment. How do I solve this problem?

Answer: 1. Do a little hack. Install Kalsey’s Expressions plugin into blog/extlib/MTPlugins (create this directory if it doesn’t exist). 2. Patch blogtimes.pl like this:

— blogtimes.pl.orig Tue Jun 29 13:42:33 2004 +++ blogtimes.pl Tue Jun 29 13:54:52 2004 @@ -33,6 +33,7 @@ use MT::Template::Context; use MT::Util qw(days_in offset_time); use GD; +use MTPlugins::Expressions; MT::Template::Context->add_container_tag(BlogTimes => \&BlogTimes); MT::Template::Context->add_tag(BlogTimesWidth => \&BlogTimesWidth); @@ -43,6 +44,11 @@ sub BlogTimes { my ($ctx, $args) = @_; + + my $tokens = $ctx->stash(’tokens’); + my $builder = $ctx->stash(’builder’); + $args = MTPlugins::Expressions::process($ctx, $args); + # Default Values my $chart_type = $args->{style} || ‘bar’; my $blog = $ctx->stash(’blog’); @@ -134,8 +140,8 @@ print CHART $img->png; close CHART; - my $tokens = $ctx->stash(’tokens’); - my $builder = $ctx->stash(’builder’); +# my $tokens = $ctx->stash(’tokens’); +# my $builder = $ctx->stash(’builder’); local $ctx->{__stash}{BlogTimesWidth} = $scale_width; local $ctx->{__stash}{BlogTimesHeight} = $scale_height;

Call your blogtimes template, note that change the name part:

Now it gives a blogtimes file named “blogtimes-2004-Jun.png” as you see, happy ending. Thank you Nilesh and Kalsey to bring these useful plugins to us!

No responses yet

Jun 27 2004

無聊的時候

Published by foxfair under Computer

無聊的時候翻翻 server log, 發現這一段怪異的錯誤訊息：

Byte order is not compatible at blib/lib/Storable.pm (autosplit into blib/lib/auto/Storable/thaw.al) line 363, at /da1/www/data/blog/lib/MT/PluginData.pm line 28, referer: http://www.fomokka.net/foxfair/

然後就去查了 PluginData.pm, 才發現了這個問題原來是從 Storable.pm 這邊來的(man Storable)：

64 bit data in perl 5.6.0 and 5.6.1 This section only applies to you if you have existing data written out by Storable 2.02 or earlier on perl 5.6.0 or 5.6.1 on Unix or Linux which has been configured with 64 bit integer support (not the default). If you got a precompiled perl, rather than running Configure to build your own perl from source, then it almost certainly does not affect you, and you can stop reading now (unless you’re curious). If you’re using perl on Windows it does not affect you.

於是乎，拜請搜尋引擎的神力加持後，我在 TextDrive 的討論版上看到解法了，所以有了這個 diff:

— lib/MT/PluginData.pm.orig Sun Jun 27 21:45:50 2004 +++ lib/MT/PluginData.pm Sun Jun 27 21:50:37 2004 @@ -7,6 +7,7 @@ use strict; use Storable qw( freeze thaw ); +$Storable::interwork_56_64bit = 1; use MT::Object; @MT::PluginData::ISA = qw( MT::Object );

簡單說：就是修正完畢了，但怕我記姓不好所以再把解法放在這裡