Roxen.git / server / modules / scripting / perl.pike

version» Context lines:

Roxen.git/server/modules/scripting/perl.pike:7:      //<locale-token project="mod_perl">LOCALE</locale-token>   // USE_DEFERRED_LOCALE;   #define LOCALE(X,Y) _DEF_LOCALE("mod_perl",X,Y)      #include <module.h>   inherit "module";   inherit "roxenlib";      string cvs_version = -  "$Id: perl.pike,v 2.26 2008/08/15 12:33:55 mast Exp $"; +  "$Id: perl.pike,v 2.27 2008/10/21 12:49:43 mast Exp $";      constant module_type = MODULE_FILE_EXTENSION | MODULE_TAG;      constant module_name = "Scripting: Perl support";   constant module_doc =    "This module provides a faster way of running Perl scripts with Roxen. "    "The module also optionally provides a &lt;perl&gt;..&lt;/perl&gt; "    "container (and a corresponding processing instruction &lt;?perl ... "    "?&gt;) to run Perl code from inside RXML pages.";   
Roxen.git/server/modules/scripting/perl.pike:144:    return s;   }      protected object gethandler()   { return ExtScript.getscripthandler(query("helper"),    query("parallel"), handler_settings);   }      protected void fix_settings()   { -  string u, g; +     mapping s = ([ ]);      #if constant(getpwnam) -  if (sscanf(query("identity"), "%s:%s", u, g) == 2) +  if (sscanf(query("identity"), "%s:%s", string u, string g) == 2)    {    array ua = getpwnam(u), ga = getgrnam(g);       if (!ua) ua = getpwuid((int) u);    if (!ga) ga = getgrgid((int) g);       if (ua) s->set_uid = ua[2];    if (ga) s->set_gid = ga[2];    }   #endif