Hallo!

I have two problems. The first is a session-problem
Here my httpd.conf
<IfModule mod_perl.c>
#    Alias /perl /var/www/perl
#    <Directory /var/www/perl>
#        SetHandler perl-script
#        PerlHandler Apache::Registry
#        Options +ExecCGI
#    </Directory>

  PerlSetEnv EMBPERL_DEBUG 2285
        PerlSetEnv EMBPERL_LOG /var/log/httpd/embperl.log
        PerlSetEnv EMBPERL_SESSION_CLASSES "MySQL Semaphore"
        PerlSetEnv EMBPERL_SESSION_ARGS "DataSource=BDI:mysql:sessions UserName= 
Password="
        PerlSetEnv EMBPERL_COOKIE_DOMAIN ".zolnott"
        PerlSetEnv EMBPERL_COOKIE_PATH "/"
        PerlSetEnv EMBPERL_COOKIE_EXPIRES '+10m'
        PerlModule Embperl
        #PerlModule Digest::MD5
        #PerlModule MD5
        Embperl_UseEnv on

        <Location /embperl/>
                SetHandler perl-script
                #PerlHandler HTML::Embperl
                PerlHandler Embperl
                Options +ExecCGI
                </Location>

</IfModule>

My apache crashes during start. When i comment out
EMBPERL_SESSION_CLASSES and EMBPERL_SESSION_ARGS, my apache works

Where is the problem

The second:
I create a dynamic table. But i shows always my <th> to, When i put the
following line in it:
[$ if($row == 0) $]
it works correct

-- snip --
                [#[- @key = keys %ENV -]#]
                <table border="0" cellspacing="2" cellpadding="2"> 
                        [$ if($row == 0) $]
                        <tr bgcolor="#b0b0b0"> 
                                <th width="5%">nr </th>
                                <th width="20%">Variable </th>
                                <th width="60%">Wert </th> 
                        </tr>
                        [#[$ endif $]#]
                        <tr bgcolor="#e0e0e0">
                                <td align="center"><font size="-1">[+ $i = $row 
+]</font></td>
                                <td><font size="-1">[+ $key[$row] +]</font></td>
                                [- 
                                        $ENV{$key[$i]} =~ s/;/; /g;
                                        print LOG "$ENV{$key[i]}\n" ;
                                -]
                                <td><font size="-1">[+ $ENV{$key[$i]} +]</font></td>
                        </tr>
                </table> 
-- snip --

Is this correct?

Tnx

CU

Michael

--
      /---------------------------------------------------------------\
      |       Michael Ott, Glockenhofstr. 29a, 90478 Nuernberg        |
      |      e-mail: [EMAIL PROTECTED], Tel. +49 9 11 41 88 576      | 
      \---------------------------------------------------------------/

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to