NAME

Website - Perl extension for as engine to render template-driven applications, designed to run quickly in CGI and mod_perl environments

SYNOPSIS

  use Website;

  my $Website = Website->new( file => 'website-tpl.htm' );

  $Website->let('firstname', 'Reto');
  $Website->let('lastname' , 'Hersiczky');
  $Website->block('demoBlock', print => $ENV{QUERY_STRING} eq 'block=1' ? 1 : 0);

  $Website->print(
	contentType_is_set => 0 ,
	quiet              => 1
  );

  [or]
  my $Website = Website->new(
        file   => 'test.htm',
        tuning => [qw( output speed pretty cache compress )] ,
        debug  => 1
  );


  # ----------------------------------------------
  # -- Extended filling into iterative table rows:
  # ----------------------------------------------

  # Populate three records
	my @table_data = (
		"John	Doe	Washington"	,
		"Foo	Bar	Neverland"	,
		"Tiger	Woods	Florida"	,
		"Stars	Stripes	Bruetten"	,
	);

	my $Website = Website->new(
		file => '/usr/lib/perl5/site_perl/ModPerl/website-tpl.htm' );

	$Website->let('firstname', $q->{'firstname'} );
	$Website->let('lastname' , $q->{'lastname' } );
	$Website->block('demoBlock', print => $q->{'block'} == 1 ? 1 : 0);

	my $i = 0;
	my @rowcolors = ('#e0e0e0', 'white');

	foreach (@table_data) {
		my ($firstname, $lastname, $place) = split /\t/;

		$Website->let('bcol', $rowcolors[$i++ % 2], 'tableRow');

		# -- Assign values to data cells (one table row)
		$Website->let('firstname', $firstname, 'tableRow');
		$Website->let('lastname',  $lastname , 'tableRow');
		$Website->let('place'   ,  $place    , 'tableRow');
	}


	$Website->print( contentType_is_set => 1, quiet => 1 );

DESCRIPTION

Documentation for Website, please visit http://www.infocopter.com/perl/website-pm.htm

EXPORT

None by default.

AUTHOR

Reto Hersiczky, <retoh@dplanet.ch>

SEE ALSO

perl.