Leo Charre > WWW-Autosite > cgi-bin/autosite/image.html.pl

Download:
WWW-Autosite-1.08.tar.gz

Annotate this POD

CPAN RT

New  1
Open  0
View/Report Bugs
Source  
        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

syntax highlighting: