Website in mod_perl fashion mod_perl Example

See also Website Home

[ home ] - [ search ] - [ sitemap ]

Website in mod_perl fashion

package ModPerl::HelloWebsite;

use strict;
use warnings;
use Website;
use CGI::Lite;

use Apache::RequestRec ();
use Apache::RequestIO ();

use Apache::Const -compile => qw(OK);

sub handler {
	my $r = shift;

	my $cgi = new CGI::Lite;
	my $q = $cgi->parse_form_data ('GET');

	$r->content_type('text/html');

	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->print( contentType_is_set => 1, quiet => 1 );

	return Apache::OK;
}

1;