Re: Embperl2 & Explorer weirdness

Mon, 19 Jul 2004 10:09:59 -0700

Gerald Richter wrote:
<>The very same Embperl2 page works fine in Firefox, but in Explorer
it says Internal Server Error.


Well, I'm not sure it is the source, but the primary cadidate is app object - maybe I don't just understand how to use it, but as long as I put anything in init metod it returns 500 and error log says [error] handler Embperl::Object didn't return a valid return value!

App object is basicaly just copied from the docs. It works when all lines after sub init are commented out but as soon as I uncomment first line (marked ****), it breaks.

Thanks.

- Robert



Here're parts of the files and config

httpd.conf/virt server
--------------------------------
PerlModuleÂÂÂÂÂ Apache2
PerlModuleÂÂÂÂÂ Embperl
PerlModuleÂÂÂÂÂ DBI
PerlModuleÂÂÂÂÂ DBD::Pg
PerlModuleÂÂÂÂÂ Image::Magick
PerlModuleÂÂÂÂÂ Apache::ImageMagickRG
Â
AddType text/html .eo
Â
# Embperl_DebugÂÂÂÂÂÂÂÂ 262144
Embperl_DebugÂÂÂÂÂÂÂÂÂÂ 0
Embperl_LogÂÂÂÂÂÂÂÂÂÂÂÂ /tmp/embperl2.log
Embperl_Object_AppÂÂÂÂÂ _app.eo
Embperl_Object_BaseÂÂÂÂ _base.eo
Embperl_Object_Fallback index.html
Embperl_UriMatchÂÂÂÂÂÂÂ "\.html$|\.eo$"
Embperl_MailHostÂÂÂÂÂÂÂ rumcajz.pcv.cz
Embperl_MailFromÂÂÂÂÂÂÂ [EMAIL PROTECTED]
Embperl_Mail_Errors_To [EMAIL PROTECTED]
Embperl_Cookie_Expires +10000d
Â
<Directory "/home/www">
<FilesMatch "\.(html|eo)$">
ÂÂÂÂÂÂÂ OptionsÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂ FollowSymLinks ExecCGI
ÂÂÂÂÂÂÂ AllowOverrideÂÂÂÂÂÂÂÂÂÂ None
ÂÂÂÂÂÂÂ OrderÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂ allow,deny
ÂÂÂÂÂÂÂ AllowÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂ from all
ÂÂÂÂÂÂÂ SetHandlerÂÂÂÂÂÂÂÂÂÂÂÂÂ perl-script
ÂÂÂÂÂÂÂ PerlHandlerÂÂÂÂÂÂÂÂÂÂÂÂ Embperl::Object
</FilesMatch>
</Directory>
Â
<VirtualHost 192.168.1.12>
ÂÂÂÂÂÂÂ ServerNameÂÂÂÂÂÂÂÂÂÂÂÂÂ appobj
ÂÂÂÂÂÂÂ Embperl_AppNameÂÂÂÂÂÂÂÂ appobj
ÂÂÂÂÂÂÂ DocumentRootÂÂÂÂÂÂÂÂÂÂÂ /home/www/exp/appobj/doc
ÂÂÂÂÂÂÂ CustomLogÂÂÂÂÂÂÂÂÂÂÂÂÂÂ logs/appobj-access.log combined env=!dontlog
</VirtualHost>

--------------------------------

_base.eo

<body>

ÂÂÂ <h1>EmbperlObject App Object Test</h1>

ÂÂÂ [- Execute '*' -]

</body>

--------------------------------

_app.eo

@ISA = ('Embperl::App') ;


%messages = (
ÂÂÂ 'de' =>ÂÂÂ {
ÂÂÂ ÂÂÂ 'heading' => 'Ãberschrift',
ÂÂÂ ÂÂÂ 'bar'ÂÂÂÂ => 'Absenden',
ÂÂÂ },
ÂÂÂ 'en' => {
ÂÂÂ ÂÂÂ 'heading' => 'Heading',
ÂÂÂ ÂÂÂ 'bar'ÂÂÂÂ => 'Submit',
ÂÂÂ },
) ;


sub init {
**************************** ÂÂ my $self = shift ;
#ÂÂÂ my $r = $self->curr_req ;

#ÂÂÂ $r->{test} = 'robert & petr germic';

#ÂÂÂ $lang = $r->param->language || 'de' ;
#ÂÂÂ push @{$r->messages}, $messages{$lang} ;
#ÂÂÂ push @{$r->default_messages}, $messages{'en'} if ($lang ne 'en') ;
}


1 ;

----------------------------------------------------------

Reply via email to