Thanks for the reply.
I thought as you did (that there were too many "Content-Type"
definitions), so commented out this line in the View.pm module, but that
doesn't seem to have changed anything:
'print "Content-Type: text/html\n\n";'
Here is the lwp command and output:
-------------------------------------------------------------------
$ lwp-request -e -S -s -U -m GET -Sed "http://localhost/admin/";
GET http://localhost/admin/
User-Agent: lwp-request/2.07
GET http://localhost/admin/ --> 200 OK
Connection: close
Date: Thu, 13 Mar 2008 15:24:23 GMT
Server: Apache
Content-Length: 0
Content-Type: text/html; charset=UTF-8
Client-Date: Thu, 13 Mar 2008 15:24:23 GMT
Client-Peer: 127.0.0.1:80
Client-Response-Num: 1
-------------------------------------------------------------------
On Thu, 2008-03-13 at 16:11 +0100, André Warnier wrote:
> Hi.
>
> First, a small disgression : along with perl, comes a beautiful test
> tool for HTTP stuff, called "lwp-request".
> Like, at the command-line :
> lwp-request (to see the options)
> lwp-request -m GET -Sed "http://myserver/myURL";
> (that will show you what you get as a response, without a browser
> getting in the way)
>
> Then, below, are you not now sending one "Content-type" too many ?
> It looks like you are doing it once in handler(), and once in mainpage().
>
> André
>
> xyon wrote:
> > That worked great with the test script ( print $template->output; ), but
> > unfortunately, I'm having trouble getting the display onto a web page
> > (via the Handler). The resulting web page is blank, with no source.
> >
> >
> > Below are my Apache configs for the handler, logs, and the handler and
> > view module's latest code. I've also included the test script code, just
> > in case there is some obvious reason it would work and the handler
> > won't.
> >
> >
> >
> >
> > Apache config:
> > ----------------------------------------------------
> > PerlRequire /etc/httpd/perl/startup.pl
> > <Location /admin>
> > SetHandler modperl
> > PerlResponseHandler Myserver::Handler
> > </Location>
> > ----------------------------------------------------
> >
> >
> >
> >
> > /etc/httpd/perl/startup.pl:
> > ----------------------------------------------------
> > use lib qw(/home/Perl/);
> > 1;
> > ----------------------------------------------------
> >
> >
> >
> >
> > Apache log:
> > ----------------------------------------------------
> > ==> /var/log/httpd/error_log <==
> > ### HTML::Template Debug ### In _parse:
> > ### HTML::Template _param Stack Dump ###
> >
> > $VAR1 = [
> > \'<html><body bgcolor="#FF00FF">Test!</body></html>
> > '
> > ];
> >
> > ### HTML::Template Debug ### In output
> > ### HTML::Template output Stack Dump ###
> >
> > $VAR1 = [
> > \'<html><body bgcolor="#FF00FF">Test!</body></html>
> > '
> > ];
> >
> >
> > ==> /var/log/httpd/ssl_request_log <==
> > [13/Mar/2008:10:48:38 -0400] 10.5.5.5 TLSv1 DHE-RSA-AES256-SHA
> > "GET /admin/ HTTP/1.1" -
> >
> > ==> /var/log/httpd/ssl_access_log <==
> > 10.5.5.5 - - [13/Mar/2008:10:48:38 -0400] "GET /admin/ HTTP/1.1" 200 -
> > ----------------------------------------------------
> >
> >
> >
> >
> > /home/Perl/Myserver/Handler.pm
> > ----------------------------------------------------
> > package Myserver::Handler;
> >
> > #Setup some essentials
> > use strict; #strict tolerance for code
> > use Carp; #debugging
> > use diagnostics; #more debugging
> > use warnings; #more debugging
> >
> > #Handler-related stuff
> > use Apache2::RequestRec ();
> > use Apache2::RequestIO ();
> > use Apache2::Const -compile => qw(OK);
> >
> > sub handler {
> > my $self = shift;
> >
> > my $view = Myserver::View->new();
> > $view->mainpage;
> >
> > # Obligatory stuff for the handler
> > $self->content_type('text/html');
> > return Apache2::Const::OK;
> >
> > }
> >
> > 1;
> >
> > ----------------------------------------------------
> >
> >
> >
> >
> > /home/Perl/Myserver/View.pm:
> > ----------------------------------------------------
> > package Myserver::View;
> >
> > #Setup some essentials
> > use strict; #strict tolerance for code
> > use Carp; #debugging
> > use diagnostics; #more debugging
> > use warnings; #more debugging
> >
> > #Loadup some needed functions
> > use HTML::Template;
> >
> > sub new {
> > my $self = shift;
> > return $self;
> > }
> >
> > sub mainpage {
> > my $self = shift;
> > my $template = HTML::Template->new(
> > filename => '/home/Perl/tmpl/mainpage.tmpl',
> > cache => 1,
> > debug => 1,
> > stack_debug => 1 );
> > print "Content-Type: text/html\n\n";
> > print $template->output;
> > return $self;
> > }
> >
> > 1;
> > ----------------------------------------------------
> >
> >
> >
> >
> > /home/Perl/tmpl/mainpage.tmpl:
> > ----------------------------------------------------
> > <html><body bgcolor="#FF00FF">Test!</body></html>
> > ----------------------------------------------------
> >
> >
> >
> >
> > /home/Perl/tests/View_mainpage.pl
> > ----------------------------------------------------
> > #!/usr/bin/perl -w
> >
> > # Test printing of the main page
> > print "Main Page..";
> >
> > #Let's load the view module
> > use lib "../";
> > use Myserver::View;
> > #Now let's load some things that are very handy
> > use strict; #strict tolerance for code
> > use Carp; #debugging
> > use warnings; #more debugging
> > use diagnostics; #even more debugging
> >
> > # Let's create an object
> > my $view = Myserver::View->new;
> >
> > # Now, let's tell View to display the main page
> > $view->mainpage;
> >
> > print ".OK";
> >
> > 1;
> > ----------------------------------------------------
> >
> >
> >
> >
> > On Thu, 2008-03-13 at 13:29 +0800, Foo JH wrote:
> >> try print $template->output;
> >>
> >> You forgot the print();
> >>
> >> xyon wrote:
> >>> Hey everyone,
> >>>
> >>> Firstly, I apologize I sent the previous email under an incorrect subject line.
> >>>
> >>> I am working on my first Object-Oriented project, and have hit a slight
> >>> snag. I am using HTML::Template to output within the View module, but it
> >>> never outputs. I don't see any errors in the logs, I just get a blank
> >>> page. Below is pertinent information including a test script with its
> >>> output:
> >>>
> >>>
> >>>
> >>> OS Info:
> >>> ----------------------------------------------------
> >>> CentOS release 4.6 (Final)
> >>> ----------------------------------------------------
> >>>
> >>>
> >>>
> >>> Package info:
> >>> ----------------------------------------------------
> >>> perl-5.8.8-11
> >>> perl-HTML-Template-2.9-1
> >>> httpd-2.0.59-1.el4s1.10.el4.centos
> >>> mod_perl-2.0.3-1.el4s1.3
> >>> ----------------------------------------------------
> >>>
> >>>
> >>>
> >>> /home/perl/Myserver/View.pm
> >>> ----------------------------------------------------
> >>> package Myserver::View;
> >>>
> >>> #Setup some essentials
> >>> use strict; #strict tolerance for code
> >>> use Carp; #debugging
> >>> use diagnostics; #more debugging
> >>> use warnings; #more debugging
> >>>
> >>> #Loadup some needed functions
> >>> use HTML::Template;
> >>>
> >>> sub new {
> >>> my $self = shift;
> >>> return $self;
> >>> }
> >>>
> >>> sub mainpage {
> >>> my $self = shift;
> >>> my $template = HTML::Template->new( filename =>
> >>> '/home/Perl/tmpl/mainpage.tmpl',
> >>> cache => 1,
> >>> debug => 1,
> >>> stack_debug => 1 );
> >>> print "Content-Type: text/html\n\n";
> >>> $template->output;
> >>> return $self;
> >>> }
> >>>
> >>> 1;
> >>> ----------------------------------------------------
> >>>
> >>>
> >>>
> >>> /home/Perl/tests/View_mainpage.pl
> >>> ----------------------------------------------------
> >>> #!/usr/bin/perl -w
> >>>
> >>> # Test printing of the main page
> >>> print "Main Page..";
> >>>
> >>> #Let's load the view module
> >>> use lib "../";
> >>> use Myserver::View;
> >>> #Now let's load some things that are very handy
> >>> use strict; #strict tolerance for code
> >>> use Carp; #debugging
> >>> use warnings; #more debugging
> >>> use diagnostics; #even more debugging
> >>>
> >>> # Let's create an object
> >>> my $view = Myserver::View->new;
> >>>
> >>> # Now, let's tell View to display the main page
> >>> $view->mainpage;
> >>>
> >>> print ".OK";
> >>>
> >>> 1;
> >>> ----------------------------------------------------
> >>>
> >>>
> >>>
> >>> /home/Perl/tmpl/mainpage.tmpl:
> >>> ----------------------------------------------------
> >>> <html><body bgcolor="#FF00FF">Test!</body></html>
> >>> ----------------------------------------------------
> >>>
> >>>
> >>>
> >>> Output with debugging on (as above):
> >>> ----------------------------------------------------
> >>> $ tests/View_mainpage.pl
> >>> ### HTML::Template Debug ### In _parse:
> >>> ### HTML::Template _param Stack Dump ###
> >>>
> >>> $VAR1 = [
> >>> \'<html><body bgcolor="#FF00FF">Test!</body></html>
> >>> '
> >>> ];
> >>>
> >>> Main Page..Content-Type: text/html
> >>>
> >>> ### HTML::Template Debug ### In output
> >>> ### HTML::Template output Stack Dump ###
> >>>
> >>> $VAR1 = [
> >>> \'<html><body bgcolor="#FF00FF">Test!</body></html>
> >>> '
> >>> ];
> >>>
> >>> .OK
> >>> ----------------------------------------------------
> >>>
> >>>
> >>>
> >>> Output without debugging:
> >>> ----------------------------------------------------
> >>> $ tests/View_mainpage.pl
> >>> Main Page..Content-Type: text/html
> >>>
> >>> .OK
> >>> ----------------------------------------------------
> >>>
> >>>
> >>>
> >>>
> >>>
> >
Mail converted by mhonarc 2.6.15
This archive provided courtesy of JSW4.NET, Internet Hosting Services for Small Business.