Annotation of parser3/src/targets/cgi/parser3.C, revision 1.204

1.27      paf         1: /** @file
                      2:        Parser: scripting and CGI main.
                      3: 
1.155     paf         4:        Copyright(c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
1.154     paf         5:        Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
1.189     paf         6: */
1.27      paf         7: 
1.204   ! paf         8: static const char* IDENT_PARSER3_C="$Date: 2002/11/20 14:14:17 $";
1.1       paf         9: 
1.40      paf        10: #include "pa_config_includes.h"
1.3       paf        11: 
1.139     paf        12: #if _MSC_VER
1.131     paf        13: #      include <new.h>
1.148     paf        14: #      include <crtdbg.h>
1.3       paf        15: #endif
1.27      paf        16: 
1.37      paf        17: #include "pa_sapi.h"
1.76      paf        18: #include "classes.h"
1.24      paf        19: #include "pa_common.h"
1.2       paf        20: #include "pa_request.h"
1.57      paf        21: #include "pa_socks.h"
1.68      paf        22: #include "pa_version.h"
1.125     parser     23: #include "pool_storage.h"
1.69      paf        24: 
1.149     paf        25: #ifdef WIN32
                     26: #      include <windows.h>
1.184     paf        27: #      include "getopt.h"
                     28: #else
                     29: #      include <getopt.h>
1.120     parser     30: #endif
                     31: 
1.158     paf        32: //#define DEBUG_POOL_MALLOC
1.162     paf        33: //#define DEBUG_STRING_APPENDS_VS_EXPANDS
1.196     paf        34: //#define DEBUG_MAILRECEIVE "mailreceive.eml"
1.160     paf        35: 
                     36: #ifdef DEBUG_STRING_APPENDS_VS_EXPANDS
                     37: extern ulong 
                     38:        string_piece_appends, 
                     39:        wcontext_result_size,
                     40:        total_alloc_size,
                     41:        string_string_shortcut_economy;
                     42: #endif
1.84      parser     43: 
1.109     parser     44: // consts
1.84      parser     45: 
1.175     paf        46: #define REDIRECT_PREFIX "REDIRECT_"
1.181     paf        47: #define PARSER_CONFIG_ENV_NAME "CGI_PARSER_CONFIG"
1.159     paf        48: 
1.42      paf        49: /// IIS refuses to read bigger chunks
                     50: const size_t READ_POST_CHUNK_SIZE=0x400*0x400; // 1M 
                     51: 
1.184     paf        52: static const char *argv0;
1.193     paf        53: static const char *config_filespec_cstr=0;
                     54: static bool fail_on_config_read_problem=true;
1.192     paf        55: 
1.198     paf        56: static Pool_storage global_pool_storage; ///< global pool storage
                     57: static Pool global_pool(&global_pool_storage); ///< global pool
1.184     paf        58: static bool cgi; ///< we were started as CGI?
                     59: static bool mail_received=false; ///< we were started with -m option? [asked to parse incoming message to $mail:received]
1.5       paf        60: 
1.201     paf        61: // for signal handlers
                     62: Request *request=0;
                     63: 
1.46      paf        64: // SAPI
1.86      parser     65: 
1.124     parser     66: static void log(const char *fmt, va_list args) {
1.193     paf        67:        bool opened=false;
1.61      paf        68:        FILE *f=0;
                     69: 
1.193     paf        70:        if(config_filespec_cstr) {
                     71:                char beside_config_path[MAX_STRING];
                     72:                strncpy(beside_config_path, config_filespec_cstr, MAX_STRING-1);  beside_config_path[MAX_STRING-1]=0;
                     73:                if(!(
                     74:                        rsplit(beside_config_path, '/') || 
                     75:                        rsplit(beside_config_path, '\\'))) { // strip filename
                     76:                        // no path, just filename
                     77:                        beside_config_path[0]='.'; beside_config_path[1]=0;
                     78:                }
                     79: 
                     80:                char file_spec[MAX_STRING];
                     81:                snprintf(file_spec, MAX_STRING, 
                     82:                        "%s/parser3.log", beside_config_path);
                     83:                f=fopen(file_spec, "at");
                     84:                opened=f!=0;
                     85:        }
1.192     paf        86:        // fallback to stderr
1.61      paf        87:        if(!opened)
                     88:                f=stderr;
                     89: 
                     90:        // prefix
                     91:        time_t t=time(0);
1.171     paf        92:        if(const char *stamp=ctime(&t)) { // never saw that
1.173     paf        93:                if(size_t len=strlen(stamp)) // saw once stamp being =""
1.172     paf        94:                        fprintf(f, "[%.*s] ", len-1, stamp);
1.171     paf        95:        }
1.61      paf        96:        // message
1.117     parser     97: 
                     98:        char buf[MAX_STRING];
                     99:        size_t size=vsnprintf(buf, MAX_STRING, fmt, args);
                    100:        remove_crlf(buf, buf+size);
                    101: 
                    102:        fwrite(buf, size, 1, f);
1.61      paf       103:        // newline
                    104:        fprintf(f, "\n");
                    105: 
                    106:        if(opened)
                    107:                fclose(f);
1.85      parser    108:        else
                    109:                fflush(f);
1.124     parser    110: }
                    111: 
                    112: // appends to parser3.log located beside my binary if openable, to stderr otherwize
                    113: void SAPI::log(Pool& , const char *fmt, ...) {
                    114:     va_list args;
                    115:        va_start(args,fmt);
                    116:        ::log(fmt, args);
                    117:        va_end(args);
                    118: }
                    119: 
                    120: void SAPI::die(const char *fmt, ...) {
1.137     paf       121: #ifdef DEBUG_POOL_MALLOC
                    122:        extern void log_pool_stats(Pool& pool);
1.198     paf       123:        log_pool_stats(global_pool);
1.137     paf       124: #endif
                    125: 
1.144     paf       126:     va_list args;
                    127:        va_start(args,fmt);
1.138     paf       128:        // log
                    129: 
                    130:        // logging is more important than user 
1.204   ! paf       131:        // she can cancel download, we'd get SIGPIPE, 
1.138     paf       132:        // nothing would be logged then
1.124     parser    133:        ::log(fmt, args);
                    134: 
1.138     paf       135:        // inform user
                    136: 
1.134     paf       137:        char body[MAX_STRING];
1.138     paf       138:        int content_length=vsnprintf(body, MAX_STRING, fmt, args);
1.134     paf       139: 
1.144     paf       140:        va_end(args);
                    141: 
1.134     paf       142:        // prepare header
                    143:        // let's be honest, that's bad we couldn't produce valid output
1.198     paf       144:        SAPI::add_header_attribute(global_pool, "status", "500");
                    145:        SAPI::add_header_attribute(global_pool, "content-type", "text/plain");
1.134     paf       146:        char content_length_cstr[MAX_NUMBER];
1.168     paf       147:        snprintf(content_length_cstr, sizeof(content_length_cstr), "%u", content_length);
1.198     paf       148:        SAPI::add_header_attribute(global_pool, "content-length", content_length_cstr);
1.134     paf       149: 
                    150:        // send header
1.198     paf       151:        SAPI::send_header(global_pool);
1.134     paf       152: 
                    153:        // body
1.198     paf       154:        SAPI::send_body(global_pool, body, content_length);
1.134     paf       155: 
1.124     parser    156:        exit(1);
1.61      paf       157: }
                    158: 
1.122     parser    159: const char *SAPI::get_env(Pool& , const char *name) {
1.109     parser    160:        return getenv(name);
1.28      paf       161: }
                    162: 
1.180     paf       163: const char *const *SAPI::environment(Pool&) {
                    164: #ifdef _MSC_VER
                    165:        extern char **_environ;
                    166:        return _environ;
                    167: #else
                    168:        extern char **environ;
                    169:        return environ;
                    170: #endif
                    171: }
                    172: 
1.122     parser    173: size_t SAPI::read_post(Pool& , char *buf, size_t max_bytes) {
1.59      paf       174:        size_t read_size=0;
1.12      paf       175:        do {
1.200     paf       176:                ssize_t chunk_size=read(fileno(stdin), 
1.42      paf       177:                        buf+read_size, min(READ_POST_CHUNK_SIZE, max_bytes-read_size));
1.129     paf       178:                if(chunk_size<=0)
1.12      paf       179:                        break;
                    180:                read_size+=chunk_size;
                    181:        } while(read_size<max_bytes);
                    182: 
                    183:        return read_size;
1.10      paf       184: }
                    185: 
1.122     parser    186: void SAPI::add_header_attribute(Pool& , const char *key, const char *value) {
1.68      paf       187:        if(cgi)
1.20      paf       188:                printf("%s: %s\n", key, value);
1.19      paf       189: }
                    190: 
1.56      paf       191: /// @todo intelligent cache-control
1.122     parser    192: void SAPI::send_header(Pool& ) {
1.33      paf       193:        if(cgi) {
1.147     paf       194: //             puts("expires: Fri, 23 Mar 2001 09:32:23 GMT");
1.33      paf       195: 
                    196:                // header | body  delimiter
1.20      paf       197:                puts("");
1.33      paf       198:        }
1.30      paf       199: }
1.20      paf       200: 
1.122     parser    201: void SAPI::send_body(Pool& , const void *buf, size_t size) {
1.19      paf       202:        stdout_write(buf, size);
1.58      paf       203: }
                    204: 
1.97      parser    205: //
                    206: 
1.184     paf       207: static void full_file_spec(const char *file_name, char *buf, size_t buf_size) {
1.167     paf       208:        if(file_name)
                    209:                if(file_name[0]=='/' 
                    210: #ifdef WIN32
                    211:                        || (file_name[0] && file_name[1]==':')
                    212: #endif
                    213:                        ) 
                    214:                        strncpy(buf, file_name, buf_size);
                    215:                else {
                    216:                        char cwd[MAX_STRING];  getcwd(cwd, MAX_STRING);
                    217:                        snprintf(buf, buf_size, "%s/%s", cwd, file_name);
                    218:                }
                    219:        else
                    220:                buf[0]=0;
1.166     paf       221: #ifdef WIN32
                    222:        back_slashes_to_slashes(buf);
                    223: #endif
1.97      parser    224: }
                    225: 
1.201     paf       226: #ifdef SIGUSR1
                    227: void SIGUSR1_Handler(int /*sig*/){
1.203     paf       228:        SAPI::log(global_pool, "SIGUSR1 received. url=%s", request?request->info.uri:"<no request>");
1.201     paf       229: }
                    230: #endif
                    231: 
                    232: #ifdef SIGPIPE
                    233: void SIGPIPE_Handler(int /*sig*/){
1.203     paf       234:        SAPI::log(global_pool, "SIGPIPE received. url=%s", request?request->info.uri:"<no request>");
1.201     paf       235:        if(request)
                    236:                request->interrupt();
                    237: }
                    238: #endif
                    239: 
1.40      paf       240: /**
1.122     parser    241: main workhorse
1.19      paf       242: 
1.122     parser    243:   @todo 
1.40      paf       244:                IIS: remove trailing default-document[index.html] from $request.uri.
                    245:                to do that we need to consult metabase,
                    246:                wich is tested but seems slow.
1.144     paf       247:                IIS5 todo find out proper 'illegal call' check 
1.40      paf       248: */
1.184     paf       249: static void real_parser_handler(
1.122     parser    250:                                        const char *filespec_to_process,
                    251:                                        const char *request_method, bool header_only) {
                    252:        // init socks
1.198     paf       253:        init_socks(global_pool);
1.122     parser    254:        
                    255:        // init global classes
1.198     paf       256:        init_methoded_array(global_pool);
1.122     parser    257:        // init global variables
1.198     paf       258:        pa_globals_init(global_pool);
1.122     parser    259:        
1.198     paf       260:        // request pool, must be different ptr from global [used in VStateless_class.add_method]
                    261:        Pool request_pool(&global_pool_storage);
                    262: 
1.186     paf       263:        if(!filespec_to_process || !*filespec_to_process)
1.144     paf       264:                SAPI::die("Parser/%s", PARSER_VERSION);
1.122     parser    265:        
                    266:        // Request info
                    267:        Request::Info request_info;
1.166     paf       268:        char document_root_buf[MAX_STRING];
1.122     parser    269:        if(cgi) {
1.198     paf       270:                if(const char *env_document_root=SAPI::get_env(request_pool, "DOCUMENT_ROOT"))
1.122     parser    271:                        request_info.document_root=env_document_root;
1.198     paf       272:                else if(const char *path_info=SAPI::get_env(request_pool, "PATH_INFO")) {
1.122     parser    273:                        // IIS
1.166     paf       274:                        size_t len=min(sizeof(document_root_buf)-1, strlen(filespec_to_process)-strlen(path_info));
                    275:                        memcpy(document_root_buf, filespec_to_process, len); document_root_buf[len]=0;
                    276:                        request_info.document_root=document_root_buf;
1.122     parser    277:                } else
1.165     paf       278:                        throw Exception("parser.runtime",
                    279:                                0,
                    280:                                "CGI: no PATH_INFO defined(in reinventing DOCUMENT_ROOT)");
1.122     parser    281:        } else {
1.166     paf       282:                full_file_spec("", document_root_buf, sizeof(document_root_buf));
                    283:                request_info.document_root=document_root_buf;
1.122     parser    284:        }
                    285:        request_info.path_translated=filespec_to_process;
                    286:        request_info.method=request_method ? request_method : "GET";
1.198     paf       287:        const char *query_string=SAPI::get_env(request_pool, "QUERY_STRING");
1.122     parser    288:        request_info.query_string=query_string;
                    289:        if(cgi) {
1.198     paf       290:                if(const char *env_request_uri=SAPI::get_env(request_pool, "REQUEST_URI"))
1.122     parser    291:                        request_info.uri=env_request_uri;
1.198     paf       292:                else if(const char *path_info=SAPI::get_env(request_pool, "PATH_INFO"))
1.122     parser    293:                        if(query_string) {
1.198     paf       294:                                char *reconstructed_uri=(char *)request_pool.malloc(
1.122     parser    295:                                        strlen(path_info)+1/*'?'*/+
                    296:                                        strlen(query_string)+1/*0*/);
                    297:                                strcpy(reconstructed_uri, path_info);
                    298:                                strcat(reconstructed_uri, "?");
                    299:                                strcat(reconstructed_uri, query_string);
                    300:                                request_info.uri=reconstructed_uri;
                    301:                        } else
                    302:                                request_info.uri=path_info;
1.179     paf       303:                else
                    304:                        throw Exception("parser.runtime",
                    305:                                0,
                    306:                                "CGI: no PATH_INFO defined(in reinventing REQUEST_URI)");
1.145     paf       307:                        
                    308:                        // they've changed this under IIS5.
1.198     paf       309:                        if(const char *script_name=SAPI::get_env(request_pool, "SCRIPT_NAME")) {
1.122     parser    310:                                size_t script_name_len=strlen(script_name);
                    311:                                size_t uri_len=strlen(request_info.uri);
                    312:                                if(strncmp(request_info.uri,script_name, script_name_len)==0 &&
                    313:                                        script_name_len != uri_len) // under IIS they are the same
1.144     paf       314:                                        SAPI::die("CGI: illegal call");
1.122     parser    315:                        }
                    316:        } else
1.177     paf       317:                request_info.uri="";
1.122     parser    318:        
1.198     paf       319:        request_info.content_type=SAPI::get_env(request_pool, "CONTENT_TYPE");
                    320:        const char *content_length=SAPI::get_env(request_pool, "CONTENT_LENGTH");
1.122     parser    321:        request_info.content_length=(content_length?atoi(content_length):0);
1.198     paf       322:        request_info.cookie=SAPI::get_env(request_pool, "HTTP_COOKIE");
1.184     paf       323:        request_info.mail_received=mail_received;
                    324: 
1.198     paf       325: 
1.122     parser    326:        // prepare to process request
1.198     paf       327:        Request request(request_pool,
1.122     parser    328:                request_info,
1.184     paf       329: /*#ifdef _DEBUG
1.143     paf       330:                String::UL_HTML|String::UL_OPTIMIZE_BIT
1.184     paf       331: #else*/
1.143     paf       332:                cgi ? String::UL_HTML|String::UL_OPTIMIZE_BIT : String::UL_AS_IS
1.184     paf       333: /*#endif*/
1.143     paf       334:                ,
1.130     paf       335:                true /* status_allowed */);
1.201     paf       336: 
                    337:        // get request ptr for signal handlers
                    338:        ::request=&request;
                    339: 
1.181     paf       340:        char config_filespec_buf[MAX_STRING];
1.193     paf       341:        if(!config_filespec_cstr) {
                    342:                const char *config_by_env=getenv(PARSER_CONFIG_ENV_NAME);
                    343:                if(!config_by_env)
                    344:                        config_by_env=getenv(REDIRECT_PREFIX PARSER_CONFIG_ENV_NAME);
                    345:                if(config_by_env)
                    346:                        config_filespec_cstr=config_by_env;
                    347:                else {
                    348:                        // beside by binary
                    349:                        char beside_binary_path[MAX_STRING];
                    350:                        strncpy(beside_binary_path, argv0, MAX_STRING-1);  beside_binary_path[MAX_STRING-1]=0; // filespec of my binary
                    351:                        if(!(
                    352:                                rsplit(beside_binary_path, '/') || 
                    353:                                rsplit(beside_binary_path, '\\'))) { // strip filename
                    354:                                // no path, just filename
                    355:                                // @todo full path, not ./!
                    356:                                beside_binary_path[0]='.'; beside_binary_path[1]=0;
                    357:                        }
                    358:                        snprintf(config_filespec_buf, MAX_STRING, 
                    359:                                "%s/%s", 
                    360:                                beside_binary_path, AUTO_FILE_NAME);
                    361:                        config_filespec_cstr=config_filespec_buf;
1.197     paf       362:                        fail_on_config_read_problem=entry_exists(config_filespec_cstr);
1.193     paf       363:                }
1.122     parser    364:        }
                    365:        
                    366:        // process the request
                    367:        request.core(
1.193     paf       368:                config_filespec_cstr, fail_on_config_read_problem,
1.122     parser    369:                header_only);
1.201     paf       370: 
                    371:        // no request [prevent signal handlers from accessing invalid memory]
                    372:        ::request=0;
1.122     parser    373:        
                    374:        //
                    375:        done_socks();
                    376:        
                    377: #ifdef DEBUG_POOL_MALLOC
                    378:        extern void log_pool_stats(Pool& pool);
1.198     paf       379:        log_pool_stats(request_pool);
1.122     parser    380: #endif
1.160     paf       381: 
                    382: #ifdef DEBUG_STRING_APPENDS_VS_EXPANDS
1.198     paf       383:        SAPI::log(global_pool, 
1.161     paf       384:                "string piece appends=%lu, wcontext_result_size=%lu, string_string_shortcut_economy_closer=%lu, total_alloc_size=%lu", 
1.160     paf       385:                string_piece_appends,
                    386:                wcontext_result_size,
                    387:                string_string_shortcut_economy,
                    388:                total_alloc_size);
                    389: #endif
                    390: 
1.122     parser    391: }
                    392: 
1.184     paf       393: static void call_real_parser_handler__do_SEH(
1.122     parser    394:                                                                 const char *filespec_to_process,
                    395:                                                                 const char *request_method, bool header_only) {
1.133     paf       396: #if _MSC_VER && !defined(_DEBUG)
1.122     parser    397:        LPEXCEPTION_POINTERS system_exception=0;
                    398:        __try {
                    399: #endif
                    400:                real_parser_handler(
                    401:                        filespec_to_process,
                    402:                        request_method, header_only);
                    403:                
1.133     paf       404: #if _MSC_VER && !defined(_DEBUG)
1.122     parser    405:        } __except (
                    406:                (system_exception=GetExceptionInformation()), 
                    407:                EXCEPTION_EXECUTE_HANDLER) {
                    408:                
                    409:                if(system_exception)
                    410:                        if(_EXCEPTION_RECORD *er=system_exception->ExceptionRecord)
1.165     paf       411:                                throw Exception(0,
                    412:                                        0,
                    413:                                        "Exception 0x%08X at 0x%08X", er->ExceptionCode,  er->ExceptionAddress);
1.122     parser    414:                        else
1.165     paf       415:                                throw Exception(0, 0, "Exception <no exception record>");
1.122     parser    416:                        else
1.165     paf       417:                                throw Exception(0, 0, "Exception <no exception information>");
1.122     parser    418:        }
                    419: #endif
                    420: }
                    421: 
1.139     paf       422: #if _MSC_VER
1.135     paf       423: int failed_new(size_t size) {
                    424:        SAPI::die("out of memory in 'new', failed to allocated %u bytes", size);
                    425:        return 0; // not reached
1.131     paf       426: }
1.135     paf       427: #endif
1.131     paf       428: 
1.135     paf       429: #ifdef HAVE_SET_NEW_HANDLER
1.184     paf       430: static void failed_new() {
1.135     paf       431:     SAPI::die("out of memory in 'new'");
1.131     paf       432: }
                    433: #endif
                    434: 
1.184     paf       435: static void usage(const char *program) {
1.188     paf       436:        printf(
1.184     paf       437:                "Parser/%s Copyright(c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)\n"
                    438:                "Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)\n"
                    439:                "\n"
                    440:                "Usage: %s [options] file\n"
                    441:                "Options are:\n"
1.185     paf       442: #ifdef WITH_MAILRECEIVE
1.193     paf       443:                "    -m              Parse mail, put received letter to $mail:received\n"
1.184     paf       444: #endif
1.193     paf       445:                "    -f config_file  Use this config file (/path/to/auto.p)\n"
                    446:                "    -h              Display usage information (this message)\n"
1.184     paf       447:                , PARSER_VERSION, 
                    448:                program);
                    449:        exit(EINVAL);
                    450: }
                    451: 
1.195     paf       452: int main(int argc, char *argv[]) {
1.203     paf       453: #ifdef SIGUSR1
                    454:     if(signal(SIGUSR1, SIGUSR1_Handler)==SIG_ERR)
                    455:                SAPI::die("Can not set handler for SIGUSR1");
                    456: #endif
                    457: #ifdef SIGPIPE
                    458:     if(signal(SIGPIPE, SIGPIPE_Handler)==SIG_ERR)
                    459:                SAPI::die("Can not set handler for SIGPIPE");
                    460: #endif
                    461: 
                    462: 
1.185     paf       463: #ifdef DEBUG_MAILRECEIVE
                    464:        if(FILE *fake_in=fopen(DEBUG_MAILRECEIVE, "rt")) {
1.184     paf       465:                dup2(fake_in->_file, 0/*STDIN_FILENO*/);
                    466:        }
                    467: #endif
                    468: 
1.178     paf       469: #ifdef _DEBUG
                    470: //     _crtBreakAlloc=33112;
                    471: #endif
1.144     paf       472: //     _asm int 3;
1.193     paf       473:        argv0=argv[0];
1.45      paf       474: 
1.32      paf       475:        umask(2);
                    476: 
1.3       paf       477:        // were we started as CGI?
1.146     paf       478:        cgi=
1.109     parser    479:                getenv("SERVER_SOFTWARE") || 
                    480:                getenv("SERVER_NAME") || 
                    481:                getenv("GATEWAY_INTERFACE") || 
                    482:                getenv("REQUEST_METHOD");
1.5       paf       483:        
1.184     paf       484:        char *raw_filespec_to_process;
                    485:        if(cgi) 
                    486:                raw_filespec_to_process=getenv("PATH_TRANSLATED");
                    487:        else {
                    488:                optind = 1;
                    489:                opterr = 0;
                    490:                int c;
1.193     paf       491:                while((c = getopt(argc, argv, "hf:"
1.185     paf       492: #ifdef WITH_MAILRECEIVE
1.184     paf       493:                        "m"
                    494: #endif
                    495:                        )) > 0) {
                    496:                        switch (c) {
                    497:                        case 'h':
                    498:                                usage(argv[0]);
1.193     paf       499:                                break;
                    500:                        case 'f':
                    501:                                config_filespec_cstr=optarg;
1.184     paf       502:                                break;
1.185     paf       503: #ifdef WITH_MAILRECEIVE
1.184     paf       504:                        case 'm':
                    505:                                mail_received=true;
                    506:                                break;
                    507: #endif
                    508:                        default:
                    509:                                fprintf(stderr, "%s: invalid option '%c'\n", argv[0], optopt);
                    510:                                usage(argv[0]);
                    511:                                break;
                    512:                        }
                    513:                }
                    514:                if (optind != argc - 1) {
                    515:                        fprintf(stderr, "%s: file not specified\n", argv[0]);
                    516:                        usage(argv[0]);
1.10      paf       517:                }
1.184     paf       518:                
                    519:                raw_filespec_to_process=argv[optind++];
1.10      paf       520:        }
                    521: 
1.100     parser    522: #ifdef WIN32
                    523:        setmode(fileno(stdin), _O_BINARY);
                    524:        setmode(fileno(stdout), _O_BINARY);
                    525:        setmode(fileno(stderr), _O_BINARY);
                    526: #endif
                    527: 
1.139     paf       528: #if _MSC_VER
1.138     paf       529:        _set_new_handler(failed_new);
1.148     paf       530: 
                    531: #ifdef _DEBUG
                    532:        // Get current flag
                    533:        int tmpFlag = _CrtSetDbgFlag( _CRTDBG_REPORT_FLAG );
                    534: 
                    535:        // Turn on leak-checking bit
                    536:        tmpFlag |= _CRTDBG_LEAK_CHECK_DF;
                    537: 
                    538:        // Set flag to the new value
                    539:        _CrtSetDbgFlag( tmpFlag );
                    540: //     _CrtSetBreakAlloc(471);
                    541: 
                    542: #endif
                    543: 
1.138     paf       544: #endif
                    545: 
                    546: #ifdef HAVE_SET_NEW_HANDLER
                    547:        std::set_new_handler(failed_new);
                    548: #endif
                    549: 
1.166     paf       550:        char filespec_to_process[MAX_STRING];
                    551:        full_file_spec(raw_filespec_to_process, filespec_to_process, sizeof(filespec_to_process));
1.10      paf       552: 
1.109     parser    553:        const char *request_method=getenv("REQUEST_METHOD");
1.35      paf       554:        bool header_only=request_method && strcasecmp(request_method, "HEAD")==0;
1.131     paf       555: 
1.122     parser    556:        try { // global try
                    557:                call_real_parser_handler__do_SEH(
                    558:                        filespec_to_process,
                    559:                        request_method, header_only);
                    560:        } catch(const Exception& e) { // global problem 
1.44      paf       561:                // don't allocate anything on pool here:
                    562:                //   possible pool' exception not catch-ed now
                    563:                //   and there could be out-of-memory exception
1.43      paf       564: 
1.144     paf       565:                SAPI::die("exception in request exception handler: %s", e.comment());
1.134     paf       566: #ifndef _DEBUG
1.131     paf       567:        } catch(...) { 
1.134     paf       568:                SAPI::die("<unknown exception>");
1.133     paf       569: #endif
1.16      paf       570:        }
1.122     parser    571:        
1.109     parser    572: 
                    573: #ifndef WIN32
                    574:        // 
                    575:        if(!cgi)
1.198     paf       576:                SAPI::send_body(global_pool, "\n", 1);
1.109     parser    577: #endif
1.203     paf       578: 
                    579:        //_asm int 3;
1.134     paf       580:        return 0;
1.1       paf       581: }

E-mail: