File Coverage

blib/lib/HTML/DWT/Simple.pm

Criterion	Covered	Total	%
statement	66	72	91.6
branch	15	20	75.0
condition	2	3	66.6
subroutine	11	11	100.0
pod	3	3	100.0
total	97	109	88.9

package HTML::DWT::Simple;
#############################################################
#  HTML::DWT::Simple
#  Whyte.Wolf DreamWeaver HTML Template Module (Simple)
#  Version 1.02
#
#  Copyright (c) 2002 by S.D. Campbell
#
#  Created 13 March 2002, Modified 05 April 2002
#
#  A perl module designed to parse a simple HTML template file
#  generated by Macromedia Dreamweaver and replace fields in the
#  template with values from a CGI script.
#
#############################################################
#  This program is free software; you can redistribute it and/or
#  modify it under the terms of the GNU General Public License
#  as published by the Free Software Foundation; either version 2
#  of the License, or (at your option) any later version.
#
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with this program; if not, write to the Free Software
#  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#############################################################

use Exporter;

@ISA = qw(Exporter);
@EXPORT_OK = qw(output param);

use strict;
use vars qw($errmsg $VERSION @ISA @EXPORT_OK
	    $NOTICE %DWT_FIELDS %DWT_VALUES);

$VERSION = '1.02';

$NOTICE = "\n\t\t\n";
$NOTICE .= "\t\n";
$NOTICE .= "\t\n";
$NOTICE .= "\t\n";
$NOTICE .= "\n";

%DWT_FIELDS = ();
%DWT_VALUES = ();

$errmsg = "";

#############################################################
# new
#
#  The constructor for the class.  Requires a HTML Template
#  filename.  Returns a reference to the new object or undef
#  on error.  Errors can be retrieved from
#  $HTML::DWT::Simple::errmsg.

sub new {
    my $class = shift;
    my %params = @_;


    my $self = {};

    if (!$params{filename}){
	$params{filename} = $_[0];
    }

	if (exists($params{associate})){
	if (ref($params{associate}) ne 'ARRAY') {
    		$$self{associate} = [ $params{associate} ];
    	}
    	$$self{associate} = $params{associate};
    } else {
	$$self{associate} = undef;
    }


    $$self{filename} = $params{filename};
    $$self{template} = '';


    unless(open(TEMPLATE_FILE, $$self{filename})){
	$errmsg = "HTML::DWT::Simple--Template File $$self{filename} not opened: $!\n";
	return undef;
    }

    while(){
	$$self{template} .= $_;
    }

    $$self{html} = $$self{template};
    $$self{html} =~ s//_beginTemplate($$self{filename})/ie;
    $$self{html} =~ s/<\/html>/_endTemplate()/ie;
    $$self{html} =~ s/?/_quoteReplace($1)/ieg;

    bless $self, $class;

	if (exists($$self{associate})){
		$self->_load();
	}

    return $self;
}


#############################################################
# output
#
#  Returns the substituted HTML as generated by fill() or
#  param().  For compatibility with HTML::Template.

sub output {
    my $self = shift;
    my %params = @_;


    foreach my $key (keys %DWT_VALUES) {
		$$self{html}=~s/?(.*?)/_keyReplace($DWT_VALUES{$key},$1)/iegs;
    }


    if ($params{'print_to'}){
		my $print_to = $params{'print_to'};
	    print $print_to $$self{html};
		return undef;
	} else {
    	return $$self{html};
	}
}

#############################################################
# param
#
#  Take a hash of one or more key/value pairs and substitutes
#  the HTML value in the key's spot in the template.  For
#  compatibility with HTML::Template.

sub param {

    my $self = shift;

    if (scalar(@_) == 0) {
    	return keys %DWT_FIELDS;
    } elsif (scalar(@_) == 1){
    	my $field = shift;
    	return $DWT_VALUES{$field};
    } else {
	my %params = @_;
    	foreach my $key (keys %params) {
		if ($key eq 'doctitle' && !($params{$key}=~/(.*?)<\/title>/i)){
 </td>
</tr>

<tr>
<td  class="h" >
<a name="155">155</a>
</td>

<td  class="c3" >

3

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

12

</td>

<td class="s"> 		    $DWT_VALUES{'doctitle'} = "<title>" . $params{$key} . "";
		} else {
		    $DWT_VALUES{$key} = $params{$key};
		}
	}
    }

}


#############################################################
# _keyReplace
#
#  An internal subroutine that does the actual key/value
#  replacement.  Takes the contents scalar and returns a
#  HTML string.

sub _keyReplace {
    my $cont = shift;
    my $key = shift;

    return "\n" . $cont . "\n\n";
}

#############################################################
# _beginTemplate
#
#  Returns the begin template string and file name back into
#  the parsed HTML.

sub _beginTemplate {
    my $filename = shift;
    return "\n\n" . $NOTICE;
}

#############################################################
# _endTemplate
#
#  Returns the end template string back into the parsed HTML.

sub _endTemplate {
    return "\n";
}

#############################################################
# _quoteReplace
#
#  An internal subroutine that removes quotes from around
#  the editable region name (fixes recursive loop bug).
#  As of version 2.06 also builds %DWT_FIELDS and %DWT_VALUES

sub _quoteReplace {
    my $key = shift;
    $DWT_FIELDS{$key} = 'VAR';
    $DWT_VALUES{$key} = undef;

    return "";
}

#############################################################
# _load
#
#  Loads the parameters from external sources

sub _load {

    my $self = shift;

    if ($$self{associate}){
       	foreach my $query ($$self{associate}){
			foreach my $param ($query->param) {
				$self->param($param => $query->param($param));
   			}
    	}
    }

}

1;
__END__