package MT::Plugin::GetsrcValue; use strict; use MT; use vars qw($VERSION); $VERSION = '0.5'; eval { require MT::Plugin; my $plugin = new MT::Plugin({ name => 'Get Src Uniform Resource Locator Plugin', description => "Global filter that acquires and outputs value of 'src' attribute of 'img' element", doc_link => 'http://2xup.org/repos/mt-plugins/mt-getsrcvalue', author_name => 'Taichi Kaminogoya', author_link => 'http://profile.typekey.com/kaminogoya/', version => $VERSION }); MT->add_plugin($plugin); }; use MT::Template::Context; MT::Template::Context->add_global_filter(getsrcvalue => \&getsrcvalue); sub getsrcvalue { my($text, $param, $ctx) = @_; return (($text =~ m/src=\"([^"]+)\"/is) ? $1 : ''); } 1;