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.1 2000/08/01 14:21:03 leif Exp $"; +  "$Id: perl.pike,v 2.2 2000/08/08 19:54:50 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:177:    }    else    return result[1];    }    else    return sprintf("SCRIPT ERROR: bad result: %O", result);       return "<b>(No perl tag support?)</b>";   }    + 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);   }