Re: own "mod_perl" implemenation

I think that what you want is to embed Perl in your server.

Embed Perl in other C program is not difficult, but mod_perl is much more than just Perl inside apache. mod_perl works directly with Apache, and you can handle and control a lot of behaviors of Apache from Perl.

But I don't want to discourage you. Soo, first perlembed in your App. Than you need to redirect the output of Perl to the socket of the client, without forget the reverse of that, the input (STDIN). Well, I think that you have done something like that for CGI.

After do the IO work, you need to overwrite exit() and die(), since you can't let the Perl script to close or dump your server. And the work goes. Soo, you will need to like to hack the Perl internals.

Also you can do a lot of this changes with pure Perl, since the language let you change the Perl interpreter behavior. Soo, here are some modules that can help you to do the pure Perl changes:

Die::Alive

Safe::World

Also you can talk with the mod_perl folks. They can help you, or give you some light.

Good luck! ;-P

Graciliano M. P.
"Creativity is the expression of the liberty".

Comment on Re: own "mod_perl" implemenation

Replies are listed 'Best First'.

Re^2: own "mod_perl" implemenation
by esskar (Deacon) on Jul 25, 2005 at 23:43 UTC

static const char *CoreGlobal = "CORE::GLOBAL";

bool Interpreter::Overwrite(const char *funcname, const char *newfunc)
{
    if(!gv_stashpv(CoreGlobal, 0))
        return false;

    static size_t len_CoreGlobal = strlen(CoreGlobal);
        
    size_t len = strlen(funcname);
    size_t size = len_CoreGlobal + len + 16;
    char *fullfuncname = new char[size];

    strncpy(fullfuncname, CoreGlobal, size);
    strncat(fullfuncname, "::", size);
    strncat(fullfuncname, funcname, size);

    GV *funcgp = gv_fetchpv(fullfuncname, TRUE, SVt_PVCV);
    GvCV(funcgp) = perl_get_cv(newfunc, TRUE);
    GvIMPORTED_CV_on(funcgp);

    delete [] fullfuncname;

    return true;    
}
[download]

Interpreter perl;

perl.Overwrite("exit", "Foo::bar");
[download]

[reply]
[d/l]
[select]


Pathologically Eclectic Rubbish Lister
	PerlMonks