The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
        print STDERR " feed_IMAGE() started for [$abs_content] file" if DEBUG;

        my $default = <<__DEFAULT__;

<div class="image">

<p><img src="<TMPL_VAR FILE_REL_PATH>"></p>

<ul> <TMPL_IF META_AUTHOR><li>author: <TMPL_VAR META_AUTHOR></li></TMPL_IF> <TMPL_IF META_LOCATION><li>location: <TMPL_VAR META_LOCATION></li></TMPL_IF> </ul>

</div> __DEFAULT__

        my $subtmpl = get_tmpl('plugin_image.html',\$default);
        feed_FILE($subtmpl,$abs_content);
        feed_META($subtmpl,$abs_content);


        $tmpl->param( BODY => $subtmpl->output );       
        return $tmpl;
}

NAME

DESCRIPTION

SEE ALSO

WWW::Autosite