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

version» Context lines:

Roxen.git/server/modules/scripting/perl.pike:7:      //<locate-token project="perl_module">LOCALE</locale-token>   // USE_DEFERRED_LOCALE;   #define LOCALE(X,Y) _DEF_LOCALE("perl_module",X,Y)      #include <module.h>   inherit "module";   inherit "roxenlib";      string cvs_version = -  "$Id: perl.pike,v 2.21 2001/09/21 15:58:13 jhs Exp $"; +  "$Id: perl.pike,v 2.22 2001/11/01 15:00:09 grubba 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:35:   static string script_output_mode;      constant thread_safe = 1;      #ifdef THREADS   static object mutex = Thread.Mutex();   #endif      void create()   { -  defvar("extensions", "pl, perl", -  LOCALE(0,"Extensions"), TYPE_STRING, -  LOCALE(0,"Comma-separated list of URL extensions that indicate that " -  "the document is a Perl script.")); +  defvar("extensions", ({ "pl", "perl" }), +  LOCALE(0,"Extensions"), TYPE_STRING_LIST, +  LOCALE(0,"List of URL extensions that indicate that the document " +  "is a Perl script."));      #if 0    defvar("libdir", "./perl",    LOCALE(0, "Roxen Perl Directory"), TYPE_DIR,    LOCALE(0, "This is the name of a directory with Roxen-related Perl "    "stuff. It should normally point to `perl' in the Roxen server directory, "    "but you may want to point it elsewhere if you want to modify the "    "code."));   #endif   
Roxen.git/server/modules/scripting/perl.pike:345:   }      mixed simple_pi_tag_perl(string tag, mapping attr, string contents, object id,    RXML.Frame frame)   {    return simpletag_perl(tag, attr, contents, id, frame);   }      array(string) query_file_extensions()   { -  return (query("extensions") - " ") / ","; +  return query("extensions");   }      TAGDOCUMENTATION;   #ifdef manual   constant tagdoc=([   "?perl":#"<desc type='pi'><p><short hide='hide'>    Perl processing instruction tag.</short>This processing intruction    tag allows for evaluating Perl code directly in the document.</p>       <p>Note: Read the installation and configuration documentation in the    Administration manual to set up the Perl support properly. If the    correct parameters are not set the Perl code might not work properly    or security issues might arise.</p>       <p>There is also a <tag>perl</tag>...<tag>/perl</tag> container tag    available.</p>   </desc>",       ]);   #endif