How would I go about (either via tie or straight object instantiation) creating a BerekelyDB::Hash variable during PerlChildInitHandler, and then access it during PerlTransHandler? To Wit, my latest attempt: 
in httpd.conf

PerlSetVar streamDB "/adconfig/config"
PerlSetVar clickDB "/adconfig/click"
PerlChildInitHandler Config
PerlTransHandler Serve

[download]
in Config.pm
sub handler
{
    my $r=shift;
    my $config=$r->dir_config('streamDB');
    my $click=$r->dir_config('clickDB');

    %CORE::GLOBAL::config = new BerkeleyDB::Hash
        -Filename => $config,
        -Flags => "DB_RDONLY"
        or die "Cannot open file $config: $!$BerkleleyDB::Error\n";
}

[download]
In Serve.pm
sub handler
{
    my $r=shift;

    unless (scalar(keys %CORE::GLOBAL::config))
    {
        die ("no config data loaded");
    }
    # Code Always dies
}

[download]
I've got the requisite use statments and such in Config.pm, and have tried tied hashes, stashing hashrefs in pnotes and untied hashes, and am now at the end of my rope. Any thoughts?

ÅßÅ×ÅßÅ
"It is a very mixed blessing to be brought back from the dead." -- Kurt Vonnegut

In reply to Berkeley Access through Apache request phases by abaxaba

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.