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.22 2001/11/01 15:00:09 grubba Exp $"; +  "$Id: perl.pike,v 2.23 2002/01/30 00:19:42 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:190:    if (headers)    foreach(headers / "\r\n", header)    { if (sscanf(header, "%[^:]:%s", name, value) == 2)    switch (name)    { case "Content-Type":    case "Content-Encoding":    case "Content-Languages":    // Might require special treatment in the future?    ;    default: -  Roxen.add_http_header(id->misc->defines[" _extra_heads"], -  name, value); +  id->add_response_header (name, value);    }    }   }      static void do_response_callback(RequestID id, array result)   {   // werror("perl:do_response_callback: %O %O\n", id, result);    id->connection()->write("HTTP/1.0 200 OK\r\n");    if (arrayp(result) && sizeof(result) > 1)    { if (sizeof(result) > 2 && stringp(result[2]))