root/mt-emoticon/trunk/mt-emoticon.pl

Revision 1743 (checked in by miyagawa, 15 years ago)

import

  • Property svn:keywords set to Id Revision
Line 
1 package MT::Plugin::Emoticon;
2
3 use strict;
4 use Text::Emoticon 0.03;
5 our $VERSION = "1.01";
6
7 our $EmoticonClass = 'MSN';
8 MT::Template::Context->add_global_filter(emoticon => \&emoticon);
9
10 sub emoticon {
11     my $content = shift;
12     my $emoticon = Text::Emoticon->new($EmoticonClass);
13     return return $emoticon->filter($content);
14 }
15
16 1;
Note: See TracBrowser for help on using the browser.