#/*
# *  Copyright 2007 hkrn <hikarin@users.sourceforge.jp>
# *
# *  Licensed under the Apache License, Version 2.0 (the "License");
# *  you may not use this file except in compliance with the License.
# *  You may obtain a copy of the License at
# *
# *      http://www.apache.org/licenses/LICENSE-2.0
# *
# *  Unless required by applicable law or agreed to in writing, software
# *  distributed under the License is distributed on an "AS IS" BASIS,
# *  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# *  See the License for the specific language governing permissions and
# *  limitations under the License.
# */
#
# $Id: HT.pm 363 2007-03-16 15:11:10Z hikarin $
#

package Img0ch::Template::HT;

use strict;
use base qw(HTML::Template);

sub new {
    my ( $iClass, $args ) = @_;
    my $cachedir = $args->{cachedir};
    my $cmode    = oct $args->{cmode} || 700;
    my $do_cache = $cachedir ? 1 : 0;

    my $iTemplate = $iClass->SUPER::new(
        cache                       => 0,
        case_sensitive              => 1,
        die_on_bad_params           => 0,
        double_cache                => 0,
        file_cache                  => $do_cache,
        file_cache_dir              => $cachedir,
        file_cache_dir_mode         => $cmode,
        filename                    => $args->{filename},
        global_vars                 => 1,
        out_fh                      => 0,
        path                        => $args->{tmplpath},
        search_path_on_include      => 1,
        strict                      => 1,
        vanguard_compatibility_mode => 0,
    );

    my $bbs = $args->{bbs};
    my $uri = $args->{uri};
    $iTemplate->param(
        {   BaseURI   => $uri,
            BBSPath   => $uri,
            BBSURI    => ( $bbs ? join( '/', $uri, $bbs ) : $uri ),
            BBS       => $bbs,
            CGIURI    => $args->{cgipath},
            StaticURI => $args->{static},
            TimeStamp => time(),
            VERSION   => $args->{version},
            Version   => Img0ch::Kernel->VERSION(),
            %{ $args->{setting} },
        }
    );
    $iTemplate;
}

sub render { \$_[0]->output() }

sub remove_cache {
    my ($iTemplate) = @_;
    my $dir = $iTemplate->{options}->{file_cache_dir};
    require File::Path;
    File::Path::rmtree( $dir, 0, 1 );
    mkdir $dir, 0777;
    return;
}

1;
__END__
