[BACK]Return to parser3.C CVS log [TXT] [DIR] Up to [parser3project] / parser3 / src / targets / cgi

Diff for /parser3/src/targets/cgi/parser3.C between versions 1.59 and 1.107

version 1.59, 2001/04/09 09:48:26 version 1.107, 2001/09/04 19:03:23
Line 4 Line 4
         Copyright(c) 2001 ArtLebedev Group(http://www.artlebedev.com)          Copyright(c) 2001 ArtLebedev Group(http://www.artlebedev.com)
   
         Author: Alexander Petrosyan <paf@design.ru>(http://design.ru/paf)          Author: Alexander Petrosyan <paf@design.ru>(http://design.ru/paf)
   
         $Id$  
 */  */
   static const char *RCSId="$Id$"; 
   
 #include "pa_config_includes.h"  #include "pa_config_includes.h"
   
Line 14 Line 13
 #       include <windows.h>  #       include <windows.h>
 #endif  #endif
   
 #include <io.h>  
 #include <stdlib.h>  
 #include <stdio.h>  
 #include <fcntl.h>  
 #include <time.h>  
   
 #include "pa_sapi.h"  #include "pa_sapi.h"
   #include "classes.h"
 #include "pa_common.h"  #include "pa_common.h"
 #include "pa_globals.h"  
 #include "pa_request.h"  #include "pa_request.h"
 #include "pa_socks.h"  #include "pa_socks.h"
 #include "pa_exec.h"  #include "pa_version.h"
   
   //#define DEBUG_POOL_MALLOC
   
   
 /// IIS refuses to read bigger chunks  /// IIS refuses to read bigger chunks
 const size_t READ_POST_CHUNK_SIZE=0x400*0x400; // 1M   const size_t READ_POST_CHUNK_SIZE=0x400*0x400; // 1M 
Line 55  static LONG WINAPI TopLevelExceptionFilt Line 51  static LONG WINAPI TopLevelExceptionFilt
 #endif  #endif
   
 // SAPI  // SAPI
   
   // appends to parser3.log located beside my binary if openable, to stderr otherwize
   void SAPI::log(Pool& pool, const char *fmt, ...) {
           bool opened;
           FILE *f=0;
   
           if(argv0) {
                   // beside by binary
                   char file_spec[MAX_STRING];
                   strncpy(file_spec, argv0, MAX_STRING-1);  file_spec[MAX_STRING-1]=0; // filespec of my binary
                   rsplit(file_spec, '/');  rsplit(file_spec, '\\');// strip filename
                   strcat(file_spec, "/parser3.log");
                   f=fopen(file_spec, "at");
           }
           opened=f!=0;
           if(!opened)
                   f=stderr;
   
           // prefix
           time_t t=time(0);
           const char *stamp=ctime(&t);
           fprintf(f, "[%.*s] ", strlen(stamp)-1, stamp);
           // message
       va_list args;
           va_start(args,fmt);
           vfprintf(f, fmt, args);
           va_end(args);
           // newline
           fprintf(f, "\n");
   
           if(opened)
                   fclose(f);
           else
                   fflush(f);
   }
   
   static char *_getenv(const char *name) {
           char *result=getenv(name);
           return result && *result ? result : 0;
   }
   
 const char *SAPI::get_env(Pool& pool, const char *name) {  const char *SAPI::get_env(Pool& pool, const char *name) {
         return getenv(name);          return _getenv(name);
 }  }
   
 size_t SAPI::read_post(Pool& pool, char *buf, size_t max_bytes) {  size_t SAPI::read_post(Pool& pool, char *buf, size_t max_bytes) {
Line 91  void SAPI::send_body(Pool& pool, const v Line 128  void SAPI::send_body(Pool& pool, const v
         stdout_write(buf, size);          stdout_write(buf, size);
 }  }
   
 // appends to parser3.log located beside my binary  //
 void SAPI::log(Pool& pool, const char *fmt, ...) {  
         bool opened;  
         FILE *f=0;  
   
         if(argv0) {  char *full_file_spec(char *file_name) {
                 // beside by binary          if(!strchr(file_name, '/')) {
                 char file_spec[MAX_STRING];                  static char cwd[MAX_STRING];  getcwd(cwd, MAX_STRING);
                 strncpy(file_spec, argv0, MAX_STRING);  // filespec of my binary                  static char buf[MAX_STRING];
                 rsplit(file_spec, '/');  rsplit(file_spec, '\\');// strip filename                  snprintf(buf, MAX_STRING, "%s/%s", cwd, file_name);
                 strcat(file_spec, "/parser3.log");                  return buf;
                 f=fopen(file_spec, "at");  
         }          }
         opened=f!=0;          return file_name;
         if(!opened)  
                 f=stderr;  
   
         // prefix  
         time_t t=time(0);  
         const char *stamp=ctime(&t);  
         fprintf(f, "[%.*s] ", strlen(stamp)-1, stamp);  
         // message  
     va_list args;  
         va_start(args,fmt);  
         vfprintf(f, fmt, args);  
         va_end(args);  
         // newline  
         fprintf(f, "\n");  
   
         if(opened)  
                 fclose(f);  
 }  
   
 int SAPI::execute(const String& file_spec,   
         const Hash *env,  
         const Array *argv,  
         const String& in, String& out, String& err) {  
         return pa_exec(file_spec, env, argv, in,  out, err);  
 }  }
   
 /**  /**
Line 144  int main(int argc, char *argv[]) { Line 153  int main(int argc, char *argv[]) {
   
         umask(2);          umask(2);
   
 #ifdef WIN32  
         setmode(fileno(stdin), _O_BINARY);  
         setmode(fileno(stdout), _O_BINARY);  
         setmode(fileno(stderr), _O_BINARY);  
 #endif  
   
         // were we started as CGI?          // were we started as CGI?
         cgi=          cgi=
                 getenv("SERVER_SOFTWARE") ||                   _getenv("SERVER_SOFTWARE") || 
                 getenv("SERVER_NAME") ||                   _getenv("SERVER_NAME") || 
                 getenv("GATEWAY_INTERFACE") ||                   _getenv("GATEWAY_INTERFACE") || 
                 getenv("REQUEST_METHOD");                  _getenv("REQUEST_METHOD");
                   
         if(!cgi) {          if(!cgi) {
                 if(argc<2) {                  if(argc<2) {
                         printf("Usage: %s <file>\n", argv0?argv0:"parser3");                          printf(
                         exit(1);                                  "Parser/%s Copyright(c) 2001 ArtLebedev Group(http://www.artlebedev.com)\n"
                                   "Author: Alexander Petrosyan <paf@design.ru>(http://design.ru/paf)\n"
                                   "\n"
                                   "Usage: %s <file>\n",
                                   PARSER_VERSION, 
                                   argv0?argv0:"parser3");
                           return 1;
                 }                  }
         }          }
   
         char *filespec_to_process=cgi?getenv("PATH_TRANSLATED"):argv[1];  #ifdef WIN32
           setmode(fileno(stdin), _O_BINARY);
           setmode(fileno(stdout), _O_BINARY);
           setmode(fileno(stderr), _O_BINARY);
   #endif
   
           char *filespec_to_process=cgi?_getenv("PATH_TRANSLATED"):argv[1];
 #ifdef WIN32  #ifdef WIN32
         back_slashes_to_slashes(filespec_to_process);          back_slashes_to_slashes(filespec_to_process);
 #endif  #endif
           filespec_to_process=full_file_spec(filespec_to_process);
   
         const char *request_method=getenv("REQUEST_METHOD");          const char *request_method=_getenv("REQUEST_METHOD");
         bool header_only=request_method && strcasecmp(request_method, "HEAD")==0;          bool header_only=request_method && strcasecmp(request_method, "HEAD")==0;
         PTRY { // global try          PTRY { // global try
                 // must be first in PTRY{}PCATCH                  // must be first in PTRY{}PCATCH
 #ifdef WIN32  #ifdef WIN32
                 SetUnhandledExceptionFilter(&TopLevelExceptionFilter);                  SetUnhandledExceptionFilter(&TopLevelExceptionFilter);
                 //TODO: initSocks();  
 #endif  #endif
   
                 //                   // init socks
                 init_socks(pool);                  init_socks(pool);
   
                   // init global classes
                   init_methoded_array(pool);
                 // init global variables                  // init global variables
                 pa_globals_init(pool);                  pa_globals_init(pool);
   
                 if(!filespec_to_process)                  if(!filespec_to_process)
                         PTHROW(0, 0,                          PTHROW(0, 0,
                                 0,                                  0,
                                 "no file to process");                                  "Parser/%s", PARSER_VERSION);
   
                 // Request info                  // Request info
                 Request::Info request_info;                  Request::Info request_info;
Line 198  int main(int argc, char *argv[]) { Line 215  int main(int argc, char *argv[]) {
                                 // IIS                                  // IIS
                                 size_t len=strlen(filespec_to_process)-strlen(path_info);                                  size_t len=strlen(filespec_to_process)-strlen(path_info);
                                 char *buf=(char *)pool.malloc(len+1);                                  char *buf=(char *)pool.malloc(len+1);
                                 strncpy(buf, filespec_to_process, len);                                  memcpy(buf, filespec_to_process, len); buf[len]=0;
                                 buf[len]=0;  
                                 request_info.document_root=buf;                                  request_info.document_root=buf;
                         } else                          } else
                                 PTHROW(0, 0,                                  PTHROW(0, 0,
Line 207  int main(int argc, char *argv[]) { Line 223  int main(int argc, char *argv[]) {
                                         "CGI: no PATH_INFO defined(in reinventing DOCUMENT_ROOT)");                                          "CGI: no PATH_INFO defined(in reinventing DOCUMENT_ROOT)");
                 } else {                  } else {
                         static char buf[MAX_STRING];                          static char buf[MAX_STRING];
                         strncpy(buf, filespec_to_process, MAX_STRING);                          strncpy(buf, filespec_to_process, MAX_STRING-1); buf[MAX_STRING-1]=0;
                         rsplit(buf, '/');  rsplit(buf, '\\');// strip filename                          if(rsplit(buf, '/') || rsplit(buf, '\\')) // strip filename
                         request_info.document_root=buf;                                  request_info.document_root=buf;
                           else
                                   request_info.document_root="";
                 }                  }
                 request_info.path_translated=filespec_to_process;                  request_info.path_translated=filespec_to_process;
                 request_info.method=request_method;                  request_info.method=request_method ? request_method : "GET";
                 const char *query_string=SAPI::get_env(pool, "QUERY_STRING");                  const char *query_string=SAPI::get_env(pool, "QUERY_STRING");
                 request_info.query_string=query_string;                  request_info.query_string=query_string;
                 if(cgi)                   if(cgi) {
                         if(const char *env_request_uri=SAPI::get_env(pool, "REQUEST_URI"))                          if(const char *env_request_uri=SAPI::get_env(pool, "REQUEST_URI"))
                                 request_info.uri=env_request_uri;                                  request_info.uri=env_request_uri;
                         else if(const char *path_info=SAPI::get_env(pool, "PATH_INFO"))                          else if(const char *path_info=SAPI::get_env(pool, "PATH_INFO"))
Line 233  int main(int argc, char *argv[]) { Line 251  int main(int argc, char *argv[]) {
                                 PTHROW(0, 0,                                  PTHROW(0, 0,
                                         0,                                          0,
                                         "CGI: no PATH_INFO defined(in reinventing REQUEST_URI)");                                          "CGI: no PATH_INFO defined(in reinventing REQUEST_URI)");
                 else  
                           if(const char *script_name=SAPI::get_env(pool, "SCRIPT_NAME")) {
                                   size_t script_name_len=strlen(script_name);
                                   size_t uri_len=strlen(request_info.uri);
                                   if(strncmp(request_info.uri,script_name, script_name_len)==0 &&
                                           script_name_len != uri_len) // under IIS they are the same
                                           PTHROW(0, 0,
                                                   0,
                                                   "CGI: illegal call");
                           }
                   } else
                         request_info.uri=0;                          request_info.uri=0;
   
                 request_info.content_type=SAPI::get_env(pool, "CONTENT_TYPE");                  request_info.content_type=SAPI::get_env(pool, "CONTENT_TYPE");
Line 245  int main(int argc, char *argv[]) { Line 273  int main(int argc, char *argv[]) {
                 // prepare to process request                  // prepare to process request
                 Request request(pool,                  Request request(pool,
                         request_info,                          request_info,
                         1||cgi ? String::UL_HTML_TYPO : String::UL_CLEAN                          cgi ? String::UL_USER_HTML : String::UL_AS_IS
                         );                          );
                                   
                 // some root-controlled location                  // some root-controlled location
 #ifdef WIN32  #ifdef SYSCONFDIR
                   const char *root_auto_path=SYSCONFDIR;
   #else
   #       ifdef WIN32
                 // c:\windows                  // c:\windows
                 static char root_auto_path[MAX_STRING];                  static char root_auto_path[MAX_STRING];
                 GetWindowsDirectory(root_auto_path, MAX_STRING);                  GetWindowsDirectory(root_auto_path, MAX_STRING);
 #else  #       else
                 // ~nobody  todo: figure out a better place                  #error must be compiled either configure/make or MSVC++
                 char *root_auto_path=SAPI::get_env(pool, "HOME");  #       endif
 #endif  #endif
                                   
                 // beside by binary                  // beside by binary
                 static char site_auto_path[MAX_STRING];                  static char site_auto_path[MAX_STRING];
                 strncpy(site_auto_path, argv[0], MAX_STRING);  // filespec of my binary                  strncpy(site_auto_path, argv0, MAX_STRING-1);  site_auto_path[MAX_STRING-1]=0; // filespec of my binary
                 rsplit(site_auto_path, '/');  rsplit(site_auto_path, '\\');// strip filename                  if(!(
                           rsplit(site_auto_path, '/') || 
                           rsplit(site_auto_path, '\\'))) { // strip filename
                           // no path, just filename
                           site_auto_path[0]='.'; site_auto_path[1]=0;
                   }
                                   
                 // process the request                  // process the request
                 request.core(                  request.core(
Line 272  int main(int argc, char *argv[]) { Line 308  int main(int argc, char *argv[]) {
                 //                  //
                 done_socks();                  done_socks();
   
   #ifdef DEBUG_POOL_MALLOC
                   extern void log_pool_stats(Pool& pool);
                   log_pool_stats(pool);
   #endif
   
                 // must be last in PTRY{}PCATCH                  // must be last in PTRY{}PCATCH
 #ifdef WIN32  #ifdef WIN32
                 SetUnhandledExceptionFilter(0);                  SetUnhandledExceptionFilter(0);
 #endif  #endif
   
   #ifndef WIN32
                   // 
                   if(!cgi)
                           SAPI::send_body(pool, "\n", 1);
   #endif
   
                 // successful finish                  // successful finish
                 return 0;                  return 0;
         } PCATCH(e) { // global problem           } PCATCH(e) { // global problem 
Line 297  int main(int argc, char *argv[]) { Line 345  int main(int argc, char *argv[]) {
                 // prepare header                  // prepare header
                 SAPI::add_header_attribute(pool, "content-type", "text/plain");                  SAPI::add_header_attribute(pool, "content-type", "text/plain");
                 char content_length_cstr[MAX_NUMBER];                  char content_length_cstr[MAX_NUMBER];
                 snprintf(content_length_cstr, MAX_NUMBER, "%lu", content_length);                  snprintf(content_length_cstr, MAX_NUMBER, "%u", content_length);
                 SAPI::add_header_attribute(pool, "content-length", content_length_cstr);                  SAPI::add_header_attribute(pool, "content-length", content_length_cstr);
   
                 // send header                  // send header
Line 307  int main(int argc, char *argv[]) { Line 355  int main(int argc, char *argv[]) {
                 if(!header_only)                  if(!header_only)
                         SAPI::send_body(pool, body, content_length);                          SAPI::send_body(pool, body, content_length);
   
   #ifndef WIN32
                   // 
                   if(!cgi)
                           SAPI::send_body(pool, "\n", 1);
   #endif
   
                 // unsuccessful finish                  // unsuccessful finish
                 return 1;                  return 1;
         }          }
Removed from v.1.59  
changed lines
  Added in v.1.107

E-mail: