Should be fairly simple: Configure a few locations w/in the <perl> section
of httpd.conf. The code seems to run, exept that naming the first section
"/cdr/Data" gives me the output from Cdr::Welcome, rather than the Cdr::Data
module. Changing the name from "cdr/Data" to "cdr/Foo" in the config file
fixes the problem; changing it to "cdr/Bar" breaks things again. Aside from
server-status and server-info these are the only locations in the config
file; the only dir's in the file are serverroot and htdocs -- which don't
seem to cause any problem.

The really annoying thing is that all I get back is a lack of error
messages and the contents of the /cdr location when accessing the 
/cdr/Data (/cdr/Menu and /cdr work fine). Aside from gremlins or an 
easter egg for URI's named "Foo", anyone know of a decent reference 
for this?

thanx,
sl


    $Location{'/cdr/Data'} = 
    {
            SetHandler                      => 'perl-script',

            SetEnvIf                        => 
            [
                    [ 'Cookie',  'Eastern',  'TZ=US/Eastern'  ],
                    [ 'Cookie',  'Central',  'TZ=US/Central'  ],
                    [ 'Cookie',  'Mountain', 'TZ=US/Mountain' ],
                    [ 'Cookie',  'Pacific',  'TZ=US/Pacific'  ],

                    [ 'Referer', 'Central',  'TZ=US/Central'  ],
                    [ 'Referer', 'Eastern',  'TZ=US/Eastern'  ],
                    [ 'Referer', 'Mountain', 'TZ=US/Mountain' ],
                    [ 'Referer', 'Pacific',  'TZ=US/Pacific'  ],
            ],

            PerlHandler                     => 'Cdr::Data',
    };

    # welcome screen, authentication is handled
    # here also via Apache::AuthNetLDAP which 
    # is configured here.

    $Location{'/cdr'} = 
    {
            SetHandler      => 'perl-script',
            PerlSetEnv      => "BASEURL http://$host:$Port/cdr";,
            PerlHandler     => 'Cdr::Welcome',
    };

    $Location{'/cdr/Top'} = 
    {
            SetHandler                      => 'perl-script',
            PerlHandler                     => 'Cdr::Top',
    };

    $Location{'/cdr/Menu'} = 
    {
            SetHandler                      => 'perl-script',
            PerlHandler                     => 'Cdr::Menu',
    };




Reply via email to