Mailing List Archive: Mason prints out ApacheHandler object

session_handler.pl
******************

package HTML::Mason;

use HTML::Mason;
use strict;

{ package HTML::Mason::Commands;
use vars qw(%session);
use CGI::Cookie;
use Apache::Session::File;
}

my $parser = new HTML::Mason::Parser;
my $interp = new HTML::Mason::Interp (parser=>$parser,
comp_root=>'/home/www',
data_dir=>'/opt/mason_data');
my $ah = new HTML::Mason::ApacheHandler (interp=>$interp,auto_send_headers=>undef);

chown ( [getpwnam('nobody')]->[2], [getgrnam('nogroup')]->[2],
$interp->files_written );

sub handler
{
my ($r) = @_;

return -1 if $r->content_type && $r->content_type !~ m|^text/|io;

my %cookies = parse CGI::Cookie($r->header_in('Cookie'));

eval {
tie %HTML::Mason::Commands::session, 'Apache::Session::File',
( $cookies{'AF_SID'} ? $cookies{'AF_SID'}->value() : undef );
};

if ( $@ ) {
# If the session is invalid, create a new session.
if ( $@ =~ m#^Object does not exist in the data store# ) {
tie %HTML::Mason::Commands::session, 'Apache::Session::File', undef;
undef $cookies{'AF_SID'};
}
}

if ( !$cookies{'AF_SID'} ) {
my $cookie = new CGI::Cookie(-name=>'AF_SID', -value=>$HTML::Mason::Commands::session{_session_id}, -path => '/',);
$r->header_out('Set-Cookie', => $cookie);
}

my $status = $ah->handle_request($r);

untie %HTML::Mason::Commands::session;

return $status;
}

1;

my test page
*************
<HTML>
<HEAD>
<TITLE>Testing</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>

<BODY>
% print $m;
% my $test = "hello";

superman <% $test %>

</BODY>
</HTML>

>Somehow you are printing out the ApacheHandler object. Could you post
>the contents of handler.pl and your page?

At 03:55 PM 2/16/00 -0500, Timothy K Lu wrote:
>>Hello,
>>
>>I am just beginning to test out Mason.
>>I have written a short HTML file with embedded perl in it but when I load
>>up the page in Netscape, I get this splashed to the screen:
>>
>>HTML::Mason::Request::ApacheHandler=HASH(0x860d368)HTTP/1.1 200 OK >>Date:
>>Tue, 15 Feb 2000 20:23:28 GMT Server: Apache/1.3.11 (Unix) mod_perl/1.21
>>mod_ssl/2.5.0
>>OpenSSL/0.9.4 Connection: close Content-Type: text/html
>>
>>Therefore, I did
>>
>>my $ah = new HTML::Mason::ApacheHandler
>> (interp=>>$interp,auto_send_headers=>>undef);
>>
>>in eg/session_handler.pl and the only thing I had printed out was then:
>>
>>HTML::Mason::Request::ApacheHandler=HASH(0x86a58c0)
>>
>>How do I get rid of that?
>>
>>This does not seem to happen in IE. I didn't even need to assign
>>auto_send_headers to undef for this to work in IE.
>>
>>Can anyone help me out?
>>
>>Thanks.
>>
>>Tim
>>
>>_______________________________________________
>>Mason maillist - Mason@netizen.com.au
>>http://netizen.com.au/mailman/listinfo/mason
>>