--- parser3/src/classes/file.C 2001/04/28 15:22:38 1.35 +++ parser3/src/classes/file.C 2001/06/28 07:44:17 1.38 @@ -5,8 +5,9 @@ Author: Alexander Petrosyan (http://design.ru/paf) - $Id: file.C,v 1.35 2001/04/28 15:22:38 paf Exp $ + $Id: file.C,v 1.38 2001/06/28 07:44:17 parser Exp $ */ +static const char *RCSId="$Id: file.C,v 1.38 2001/06/28 07:44:17 parser Exp $"; #include "classes.h" #include "pa_request.h" @@ -128,12 +129,7 @@ static void pass_cgi_header_attribute(Ar hash.put(string.mid(0, colon_pos), new(string.pool()) VString(string.mid(colon_pos+1, string.size()))); } -/** - ^exec[file-name] - ^exec[file-name;env hash] - ^exec[file-name;env hash;cmd;line;arg;s] - @todo fix `` in perl - they produced flipping consoles and no output to perl -*/ +/// @todo fix `` in perl - they produced flipping consoles and no output to perl static void _cgi(Request& r, const String& method_name, MethodParams *params) { Pool& pool=r.pool(); @@ -277,9 +273,9 @@ MFile::MFile(Pool& apool) : Methoded(apo // ^stat[disk-name] add_native_method("stat", Method::CT_DYNAMIC, _stat, 1, 1); - // ^exec[file-name] - // ^exec[file-name;env hash] - // ^exec[file-name;env hash;1cmd;2line;3ar;4g;5s] + // ^cgi[file-name] + // ^cgi[file-name;env hash] + // ^cgi[file-name;env hash;1cmd;2line;3ar;4g;5s] add_native_method("cgi", Method::CT_DYNAMIC, _cgi, 1, 2+5); }