package MT::Plugin::FilterMD5; use strict; use base 'MT::Plugin'; our $VERSION = '0.01'; my $plugin = MT::Plugin->new({ name => 'md5_hex() filter', author_name => 'Naoki Tomita', author_link => 'http://e8y.net/', description => q{ <$MTEntryPermalink md5="1"$> }, }); MT->add_plugin($plugin); use Digest::MD5 qw(md5_hex); MT::Template::Context->add_global_filter( md5 => sub{ return md5_hex(shift); }); 1;