File Coverage

blib/lib/HTML/Template/Filter/Dreamweaver.pm

Criterion	Covered	Total	%
statement	161	171	94.1
branch	41	56	73.2
condition	21	32	65.6
subroutine	11	11	100.0
pod	2	8	25.0
total	236	278	84.8

package HTML::Template::Filter::Dreamweaver;

use strict;
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use HTML::Template::Filter::Dreamweaver ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw( DWT2HTML DWT2HTMLExpr

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);
our $VERSION = '1.01';


# Preloaded methods go here.

# Autoload methods go after =cut, and are processed by the autosplit program.
sub escapeQuote {
    my $toencode = shift;

    if    ( $toencode !~ /\'/ ) { return "'$toencode'";   }
    elsif ( $toencode !~ /\"/ ) { return "\"$toencode\""; }
    else {
	$toencode =~ s{\"}{\'}gso;
	return "\"$toencode\"";
    }
}

sub handleTemplateEditable {
    my $str = shift;
    my $default = shift;

    my $ret = "";
    return $ret;
}

sub handleTernary {
    my $str = shift;
    my $defaults = shift;
    my $use_expr = shift;

    my ( $char, $expr ) = $str =~ m{\s[Ee][Xx][Pp][Rr]\s*=\s*([\"\'])(.*?)\1}s;

    my ( $if, $true, $false ) = $expr =~ m{(.*)\?(.*)\:(.*)};

    $if =~ s/^\s+//g;
    $if =~ s/\s+$//g;
    $true =~ s/^\s+//g;
    $true =~ s/\s+$//g;
    $false =~ s/^\s+//g;
    $false =~ s/\s+$//g;

    while ( $true =~ m{([\w\'\"]+)}sg ) {
	if ( $defaults->{ $1 } ) {
	    $true = handleTemplateExpr( "cond=" . escapeQuote($true), $defaults, $use_expr );
	    last;
	}
    }

    while ( $false =~ m{([\w\'\"]+)}sg ) {
	if ( $defaults->{ $1 } ) {
	    $false = handleTemplateExpr( "cond=" . escapeQuote($false), $defaults, $use_expr );
	    last;
	}
    }

    $true = "" if $true eq '""' || $true eq "''";
    $false = "" if $false eq '""' || $false eq "''";

    return "$true$false";
}

sub handleTemplateExpr {
    my $str = shift;
    my $defaults = shift;
    my $use_expr = shift;

    my $ret = "";
    return $ret;
}

sub handleTemplateIf {
    my $str = shift;
    my $character = shift;
    my $defaults = shift;
    my $use_expr = shift;

    my $ret = "";

    $str =~ s/^\s+//s;
    $str =~ s/\s+$//s;

    if ( $str =~ m{^\!} ) {
	$ret = "
	$str =~ s/^\!//;
    }
    else {
	$ret = "
    }

    if ( !$use_expr || exists( $defaults->{ $str } ) ) {
	$ret .= " NAME=$character$str$character";
    }
    else {
	my %words;
	my $hasText = 0;

	while ( $str =~ m{([\w\'\"]+)}sg ) {
	    if ( $defaults->{ $1 } && $defaults->{ $1 }->{ TYPE } eq "text" ) {
		$hasText = 1;
		last;
	    }
	}

	if ( $hasText ) {
	    $str =~ s/\s*\=\=\s*/ eq /sg;
	    $str =~ s/\s*\!\=\s*/ ne /sg;
	    $str =~ s/\s*\<\=\>\s*/ cmp /sg;
	    $str =~ s/\s*\>\=\s*/ ge /sg;
	    $str =~ s/\s*\>\s*/ gt /sg;
	    $str =~ s/\s*\<\=\s*/ le /sg;
	    $str =~ s/\s*\<\s*/ lt /sg;
	}

	$ret .= " EXPR=$character$str$character";
    }

    $ret .= ">";
    return $ret;
}

sub addEndifs {
    my $str = shift;

    my $begins = 0;
    my $ends = 0;
    while ( $str =~ m{
	$begins++;
    }

    while ( $str =~ m{}g ) {
	$ends++;
    }

    $str .= ( "" x ($begins - $ends) );
}

sub DWT2HTML {
    my $dwt = shift;
    my $force_template_expr = shift || 0;

    my $using_template_expr = caller(6) && caller(6) eq "HTML::Template::Expr" ? 1 : 0;
    $using_template_expr ||= $force_template_expr;

    my %params = ( "_isFirst" => {},
		   "_isLast" => {},
		   "_index" => {},
		 );
    while ( $$dwt =~ //g ) {
	my $text = $1;

	my $name;
	if ( $text =~ m{\s[Nn][Aa][Mm][Ee]=([\'\"])(.*?)\1} ) {
	    $name = $2;
	}
	else {
	    next;
	}

	my $val = "";
	if ( $text =~ m{\s[Vv][Aa][Ll][Uu][Ee]=([\'\"])(.*?)\1} ) {
	    $val = $2;
	}
#	else {
#	    next;
#	}

	my $type = "";
	if ( $text =~ m{\s[Tt][Yy][Pp][Ee]=([\'\"])(.*?)\1} ) {
	    $type = $2;
	}

	my $escape = "";
	if ( $text =~ m{\s[Ee][Ss][Cc][Aa][Pp][Ee]=([\'\"])(.*?)\1} ) {
	    $escape = $2;
	}

	if ( lc($type) eq "boolean" ) {
	    $val = lc($val) eq "false" ? 1 : 0;
	}

	$params{ $name } = { DEFAULT => $val || "",
			     ESCAPE => $escape || "",
			     TYPE => lc($type || ""),
			   };
    }

    $$dwt =~ s/\@\@\(\s*_document._Get\(\s*([\'\"])(.*?)\1\s*\,\s*([\'\"])(.*?)\3\s*\)\s*\)\@\@//sg;
    $$dwt =~ s/\@\@\(\s*_document._Get\(\s*([\'\"])(.*?)\1\s*\)\s*\)\@\@//sg;

    $$dwt =~ s/_document\[([\'\"])(.*?)\1\]/$2/sg;
    $$dwt =~ s/_repeat\[([\'\"])(.*?)\1\]/$2/sg;
    $$dwt =~ s/\s*//sg;

    # TemplateBeginEditable
    $$dwt =~ s{(.*?)}{handleTemplateEditable( $1, $2 )}esg;

    $$dwt =~ s{\@\@\((.*?)\)\@\@}{ my $var = $1;
				   $var =~ s/^\s+//s;
				   $var =~ s/\s+$//s;
				   sprintf( "",
					    escapeQuote($var),
					    $params{$var} && $params{$var}->{ ESCAPE } ? " ESCAPE='$params{$var}->{ ESCAPE}'" : "",
					  )
			       }esg;

    # TemplateExpr
    $$dwt =~ s{}{handleTemplateExpr($1, \%params, $using_template_expr)}esg;

    # TemplateBeginIf Cond=
    $$dwt =~ s{}{handleTemplateIf($2, $1, \%params, $using_template_expr )}esg;
    # TemplateEndIf
    $$dwt =~ s{}{}sg;

    # IgnoreTemplateBeginIf Cond=   NOTE: this is not a real dreamweaver tag, but we need it because dreamweaver doesn't
    # like to have TemplateBeginIf tags before the  tag
    $$dwt =~ s{}{handleTemplateIf($2, $1, \%params, $using_template_expr )}esg;

    # IgnoreTemplateEndIf   NOTE: Like the IgnoreTemplateBeginIf tag, this tag is not a real dreamweaver tag
    $$dwt =~ s{}{}sg;

    # TemplateBeginMultipleIf
    $$dwt =~ s{}{}sg;

    # TemplateEndMultipleIf
    $$dwt =~ s{}{}sg;

    # TemplateBeginIfClause Cond=
    $$dwt =~ s{}{handleTemplateIf($2, $1, \%params, $using_template_expr )}esg;
    $$dwt =~ s{}{}sg;

    while ( $$dwt =~ m{((?:(?!).)*)}s ) {
	$$dwt =~ s{(((?!).)*)}{addEndifs($1)}se;
    }

    while ( $$dwt =~ m{
	$$dwt =~ s{}
	{"" : "")}seg;
    }


    $$dwt =~ s{
    $$dwt =~ s{
    $$dwt =~ s{
    $$dwt =~ s{<\!\-\- TMPL_(\w*) NAME=([\"\'])_isFirst\2}{}{}sg;
    # TemplateEndRepeat Name=
    $$dwt =~ s{}{}sg;
}

sub DWT2HTMLExpr {
    DWT2HTML( shift, 1 );
}


1;
__END__