Embperl / Apache 2.0.40: ignores "(Perl)SetEnv"
Hello all, A few days ago I upgraded from a very old Redhat to a recent RedHat 9. With embperl: Embperl-2.0b9, mod_perl 1.99_07-5 (default RH9) and Apache 2.0.40 (default RH9). Since this upgrade a few things go wrong (ESCMODE has different default and SYNTAX also). Since I have a few friends who also use my webserver I would like to make it behave as before. In order to do this I added the following lines to my httpd.conf: PerlModule Embperl Embperl_UseEnv on SetEnv EMBPERL_DEBUG 0 SetEnv EMBPERL_OPTIONS 16 SetEnv EMBPERL_ESCMODE 0 SetEnv EMBPERL_SYNTAX "EmbperlBlocks" When I do this Apache says "invalid command" on the "Embperl UseEnv on" part. When I comment this it ignores the other options. I searched the history of this list and other google's: the only thing I cold find was this thread: http://www.mail-archive.com/[EMAIL PROTECTED]/msg05307.html with the most interesting reply: http://www.mail-archive.com/[EMAIL PROTECTED]/msg05378.html " > Finally I found time to look further into this. It seems that my > mod_perl was too old, I had 1.99.07 from Debian Experimental, > which caused the error. After manually updating it to 1.99.08 or > 09 everything works. > Just for the archives, in case anybody else stumbles over this. > This might also be the reason why RH9 fails, they also have mod-perl 1.99_07 " I tried to upgrade to 1.99_09 but end up in a RPM dependency hell. Does any one have a sollution for me that allows my to "disable" this (advanced) behavoir without having to edit every embperl file? Maybe someone has a modperl upgrade that works on RH9 and Apache 2.0.40 if his really it the sollution. May thanks. J. - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Update: Embperl / Apache
Sorry that I have to post an update so quickly but I've been going at this without any luck for 3 days and now something important is discovered: I stumbled over an RPM that has mod_perl-1.99_09 on: http://www.apache.org/~gozer/mp2/ However I still get: Invalid command 'Embperl_UseEnv', perhaps mis-spelled or defined by a module not included in the server configuration When starting httpd.conf with "Embperl_UseEnv on" uncommented. Now I'm really lost on this. Any tips or help are welcome; either direct (embperl at(@) itmon dot(.) nl) or to the list. J. -- Forwarded message -- Date: Wed, 3 Dec 2003 10:10:34 +0100 (CET) From: Johan van Vliet <[EMAIL PROTECTED]> To: [EMAIL PROTECTED] Subject: Embperl / Apache 2.0.40: ignores "(Perl)SetEnv" Hello all, A few days ago I upgraded from a very old Redhat to a recent RedHat 9. With embperl: Embperl-2.0b9, mod_perl 1.99_07-5 (default RH9) and Apache 2.0.40 (default RH9). Since this upgrade a few things go wrong (ESCMODE has different default and SYNTAX also). Since I have a few friends who also use my webserver I would like to make it behave as before. In order to do this I added the following lines to my httpd.conf: PerlModule Embperl Embperl_UseEnv on SetEnv EMBPERL_DEBUG 0 SetEnv EMBPERL_OPTIONS 16 SetEnv EMBPERL_ESCMODE 0 SetEnv EMBPERL_SYNTAX "EmbperlBlocks" When I do this Apache says "invalid command" on the "Embperl UseEnv on" part. When I comment this it ignores the other options. I searched the history of this list and other google's: the only thing I cold find was this thread: http://www.mail-archive.com/[EMAIL PROTECTED]/msg05307.html with the most interesting reply: http://www.mail-archive.com/[EMAIL PROTECTED]/msg05378.html " > Finally I found time to look further into this. It seems that my > mod_perl was too old, I had 1.99.07 from Debian Experimental, > which caused the error. After manually updating it to 1.99.08 or > 09 everything works. > Just for the archives, in case anybody else stumbles over this. > This might also be the reason why RH9 fails, they also have mod-perl 1.99_07 " I tried to upgrade to 1.99_09 but end up in a RPM dependency hell. Does any one have a sollution for me that allows my to "disable" this (advanced) behavoir without having to edit every embperl file? Maybe someone has a modperl upgrade that works on RH9 and Apache 2.0.40 if his really it the sollution. May thanks. J. - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: Update: Embperl / Apache
On Wed, 2003-12-03 at 11:40, Johan van Vliet wrote: > Sorry that I have to post an update so quickly but I've been going at this > without any luck for 3 days and now something important is discovered: > > I stumbled over an RPM that has mod_perl-1.99_09 on: > http://www.apache.org/~gozer/mp2/ > > However I still get: > Invalid command 'Embperl_UseEnv', perhaps mis-spelled or defined by a > module not included in the server configuration do you have somewhere in Apache conf LoadModule embperl_module "/location/to/Embperl.so" ? i.e. LoadModule embperl_module "/usr/local/lib/perl/5.8.2/auto/Embperl/Embperl.so" - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: Simple table problem
On 03 Dec 2003 17:15:57 +1100, Pete Moran <[EMAIL PROTECTED]> wrote: I know this is a really simple problem - and can be fixed using if statements etc - but wanted to know if there was a standard way of doing this. Simply say I have a array @array = qw/1 2 3 4 5 6 7 8 9 10/; And I want to create a dynamic table of this data - BUT I want to have a fixed column length (in this case 4). The end table should look like 1 2 3 4 5 6 7 8 9 10 This can be done with $maxcol and $cnt, I have not tested but try this: [- @array = qw/1 2 3 4 5 6 7 8 9 10/; $maxcol = 4; -] [+ $array[$cnt] +] -- Luiz Fernando B. Ribeiro Engenho Soluções para a Internet - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: Simple table problem
> > This can be done with $maxcol and $cnt, I have not tested but try > this: > This works with 1.3... > > [- > @array = qw/1 2 3 4 5 6 7 8 9 10/; > $maxcol = 4; > -] > > > [+ $array[$cnt] +] > > 2.0 doesn't support $cnt yet, here write instead the following to get the same result [+ $array[$col + ($row * $maxcnt)] +] Gerald -- Gerald Richter ecos electronic communication services gmbh IT-Securitylösungen * dynamische Webapplikationen * Consulting Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz E-Mail: [EMAIL PROTECTED] Voice: +49 6133 939-122 WWW:http://www.ecos.de/ Fax: +49 6133 939-333 -- | | ECOS BB-5000 Firewall- und IT-Security Appliance: www.bb-5000.info | +- - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: Embperl / Apache 2.0.40: ignores "(Perl)SetEnv"
> > Maybe someone has a modperl upgrade that works on RH9 and Apache > 2.0.40 if his really it the sollution. > I don't use RH and have no binaries, but 2.0.40 is really old and has some security problems For theses reason I would suggest you to compile Apache and mod_perl newset version of your own. This should solve your problems Gerald -- Gerald Richter ecos electronic communication services gmbh IT-Securitylösungen * dynamische Webapplikationen * Consulting Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz E-Mail: [EMAIL PROTECTED] Voice: +49 6133 939-122 WWW:http://www.ecos.de/ Fax: +49 6133 939-333 -- | | ECOS BB-5000 Firewall- und IT-Security Appliance: www.bb-5000.info | +- - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
DBIx::Recordset - MySQL DeleteWithLinks() test fails
So far, postgres and sqlite pass the test suite. mysql is failing with
this error:
Clear (Delete all) disabled for table : (! && !(7 & wmCLEAR)) at
blib/lib/DBIx/\
Database.pm line 57
DBIx::Database::Base::savecroak('DBIx::Recordset=HASH(0x86248dc)','Clea\
r (Delete all) disabled for table : (! && !(7 & wmCLEAR))') called at
blib/lib/\
DBIx/Recordset.pm line 2733
DBIx::Recordset::DeleteWithLinks('DBIx::Recordset=HASH(0x86248dc)','HAS\
H(0x8618170)','HASH(0x850f0f0)') called at blib/lib/DBIx/Recordset.pm
line 2778
DBIx::Recordset::DeleteWithLinks('DBIx::Recordset=HASH(0x84da3f8)','HAS\
H(0x8624744)') called at test.pl line 1957
main::DoTest('mysql','dbi:mysql:princepawn','princepawn','money1') call\
ed at test.pl line 4031
test.pl:1957 is:
$set1 -> DeleteWithLinks ({ 'id' => 1
}) or die "not ok
($DBI::errst\
r)" ;
Recordset.pm:2778 is:
$$updset -> DeleteWithLinks ({$lf => $mv}, $seen) ;
Recordset.pm: 2732-2833 is:
my $clear_disabled_diag =
"(!$expr && !($self->{'*WriteMode'} & wmCLEAR))";
$self -> savecroak ("Clear (Delete all) disabled for table
$self->{'*Table'\
}: $clear_disabled_diag") if (!$expr && !($self->{'*WriteMode'} &
wmCLEAR)) ;
I added the diagnostic string to the croak message so it would be clear
why the
exception is being thrown. It is being thrown because the WriteMode must
be 8 for it
to bitwise-and to a true value with wmClear.
So the question is: how did this test pass with the other 2 drivers and
fail with this one?
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
execute problems
If I do this
Execute ({inputfile => 'findList.sub', import => 1});
Then this line in findList.sub will not be executed if it's outside the subs
in findList.sub:
[- $req = shift -]
But I'm using the $req object, so I'll try this:
Execute ('findList.sub');
OK except that the subs are not imported now.
Will I have to do this to get what I want - which is both the req object AND
the sub routines ?
Execute ({inputfile => 'findList.sub', import => 1});
Execute ('findList.sub');
--
Kaare Rasmussen--Linux, spil,--Tlf:3816 2582
Kaki Datatshirts, merchandize Fax:3816 2501
Howitzvej 75 Åben 12.00-18.00Email: [EMAIL PROTECTED]
2000 FrederiksbergLørdag 12.00-16.00 Web: www.suse.dk
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Re: execute problems
On Wed, 3 Dec 2003 18:41:16 +0100, Kaare Rasmussen <[EMAIL PROTECTED]> wrote:
If I do this
Execute ({inputfile => 'findList.sub', import => 1});
Then this line in findList.sub will not be executed if it's outside the
subs
in findList.sub:
[- $req = shift -]
But I'm using the $req object, so I'll try this:
Execute ('findList.sub');
OK except that the subs are not imported now.
Will I have to do this to get what I want - which is both the req object
AND
the sub routines ?
Execute ({inputfile => 'findList.sub', import => 1});
Execute ('findList.sub');
If you need just the subs in a file you can import or use the "objet"
syntax:
$obj = Execute({object => 'findList.sub'});
and then use a pseudo-constructor passing the $req object and store the
$req inside the object:
$obj->initialize($req);
After this you call your subs as methods:
$obj->do_something
But with this technique you have to change your subs to receive the $obj
(or $self if you like) as the first parameter in @_.
You can make it even more smart if you are using EmbperlObject. If you
execute your files with the "isa" syntax in the "base template" file you
can call your subs as methods of the $req object.
This is just one of the alternatives.
Other solution is to pass the $req to every sub you call in the file
imported.
--
Luiz Fernando B. Ribeiro
Engenho Soluções para a Internet
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Re: DBIx::Recordset - MySQL DeleteWithLinks() test fails
> > So the question is: how did this test pass with the other 2 drivers > and fail with this one? > If wmCLEAR is triggered it means there is an attempt to delete _all_ records in a table. That is certainly not what the test should do. I guess there is some argument missing, i.e. some previous fetch went wrong, so the argument what to delete is undef. I just runs the tests for mysql on my linux box (doing a svn up before) and all tests pass. Not sure what is the difference at your installation. Gerald P.S. I send you the test.log with private mail for the mysql, maybe it helps to compare with your test.log -- Gerald Richter ecos electronic communication services gmbh IT-Securitylösungen * dynamische Webapplikationen * Consulting Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz E-Mail: [EMAIL PROTECTED] Voice: +49 6133 939-122 WWW:http://www.ecos.de/ Fax: +49 6133 939-333 -- | | ECOS BB-5000 Firewall- und IT-Security Appliance: www.bb-5000.info | +- - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: execute problems
Kaare Rasmussen wrote:
> If I do this
>
> Execute ({inputfile => 'findList.sub', import => 1});
>
> Then this line in findList.sub will not be executed if it's outside
> the subs in findList.sub:
>
When you say inport => 1 only code inside [! !] is executed, because you
want to import and not to execute.
> [- $req = shift -]
>
I guess you need this in your subs, so it doesn't make sense to execute it
when you import the file anyway (because this is done only once and not for
every request).
You need to pass $req to your subs or use the way Luiz has described
Gerald
P.S. In 2.0 you could also access $Embperl::req
--
Gerald Richter ecos electronic communication services gmbh
IT-Securitylösungen * dynamische Webapplikationen * Consulting
Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
E-Mail: [EMAIL PROTECTED] Voice: +49 6133 939-122
WWW:http://www.ecos.de/ Fax: +49 6133 939-333
--
|
| ECOS BB-5000 Firewall- und IT-Security Appliance: www.bb-5000.info
|
+-
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
