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

version» Context lines:

Roxen.git/server/modules/scripting/perl.pike:1:   #include <module.h>   inherit "module";   inherit "roxenlib";      // Experimental Perl script and tag handler module.   // by Leif Stensson.      string cvs_version = -  "$Id: perl.pike,v 2.2 2000/08/08 19:54:50 leif Exp $"; +  "$Id: perl.pike,v 2.3 2000/08/17 10:17:14 leif Exp $";      constant module_type = MODULE_EXPERIMENTAL |    MODULE_FILE_EXTENSION | MODULE_PARSER;      constant module_name = "Perl support";   constant module_doc =    "EXPERIMENTAL MODULE! 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 to run Perl code from inside RXML pages.";
Roxen.git/server/modules/scripting/perl.pike:86:   static void periodic()   { ExtScript.periodic_cleanup();    call_out(periodic, 900);   }      void start()   { call_out(periodic, 900);   }      mixed handle_file_extension(Stdio.File file, string ext, object id) - { object h = ExtScript.getscripthandler(QUERY(bindir)+"/perlhelper", + { object h = ExtScript.getscripthandler(QUERY(bindir)+"/perlrun",    QUERY(parallel));       if (id->realfile && stringp(id->realfile))    { array result;       if (!h) return http_string_answer("<h1>Script support failed.</h1>");       mixed bt = catch (result = h->run(id->realfile, id));       ++script_calls;
Roxen.git/server/modules/scripting/perl.pike:145:   }      constant simpletag_perl_flags = 0;      mixed simpletag_perl(string tag, mapping attr, string contents, object id,    RXML.Frame frame)   {    if (!QUERY(tagenable))    RXML.run_error("<perl>...</perl> tag not enabled in this server.");    -  object h = ExtScript.getscripthandler(QUERY(bindir)+"/perlhelper", +  object h = ExtScript.getscripthandler(QUERY(bindir)+"/perlrun",    QUERY(parallel));       if (!h)    RXML.run_error("Perl tag support unavailable.");       array result;    mixed bt = catch (result = h->eval(contents, id));    ++parsed_tags;       if (bt)