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.23 2002/01/30 00:19:42 mast Exp $"; +  "$Id: perl.pike,v 2.24 2002/07/03 12:41:47 nilsson 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:248:    report_error("Perl script `" + id->realfile + "' failed.\n");    if (query("showbacktrace"))    return Roxen.http_string_answer("<h1>Script Error!</h1>\n<pre>" +    describe_backtrace(bt) + "\n</pre>");    else    return Roxen.http_string_answer("<h1>Script Error!</h1>");    }    else if (arrayp(result))    { string r = sizeof(result) > 1 ? result[1] : "";    - // werror("Result: " + sprintf("%O", r) + "\n"); + // werror("Result: %O\n", r);    if (r == "") r = " "; // Some browsers don't like null answers.    if (!stringp(r)) r = "(not a string)";       switch (script_output_mode)    {    case "RXML":    if (sizeof(result) > 2 && stringp(result[2]))    add_headers(result[2], id);    return Roxen.http_rxml_answer(r, id);