home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Moscow ML 1.42 / e_mac / e_cgi_main.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-07-25  |  21.0 KB  |  753 lines  |  [TEXT/CWIE]
  1. // e_cgi_main.c
  2. // 14May97 e
  3.  
  4. // a substitute MacOS pacifier and AppleEvent Handler for mosml cgi programs
  5.  
  6. #include "os_mac.h"
  7. #include <signal.h>
  8.  
  9. #define CRLF_TRANSLATE 1
  10.  
  11. long next_eventchk_ticks;
  12. long gWaitTicksBG =   6; /* in ticks, should be 6..60 */
  13. long gWaitTicksFG =   1; /* in ticks, should be 1..15 */
  14. long gMaxSleep    =  18;
  15.  
  16. char *image_name = NULL;
  17. FSSpec appFSS;
  18.  
  19. RgnHandle gCursorRgn;
  20.  
  21. short interrupted =   0;
  22.  
  23. char      gReceivedAE = 0;
  24. Boolean   gMadeAppFSS = false;
  25. Boolean   gDoQuit = false;
  26. Boolean   gInBackground = false;
  27. Boolean   gHasAppleEvents = false;
  28. Boolean     gAESuspn = false;
  29. AppleEvent  gAEEvent;
  30. AppleEvent  gAEReply;
  31.  
  32. MenuRef f_menu, a_menu;
  33.  
  34. // utils
  35.  
  36. static void ParamText1( Str255 text )
  37. {
  38.   ParamText( text, "\p", "\p", "\p" );
  39. }
  40.  
  41. static void path_too_long_err( Str255 name )
  42. { ParamText( "\pPath to file \"", name, "\p\" is too long.", "\p" );
  43.   SysBeep( 10 );
  44.   StopAlert( ok_alertID, 0L );
  45. }
  46.  
  47. void io_err( short io )
  48. { unsigned char errnostr[16];
  49.   switch (io)
  50.   { case wrPermErr    : ParamText1( "\pCan't write file!" ); break;
  51.     case dupFNErr     : ParamText1( "\pDuplicate file name!" ); break;
  52.     case fBsyErr      : ParamText1( "\pFile is busy!" ); break;
  53.     case vLckdErr     : ParamText1( "\pVolume is locked!" ); break;
  54.     case fLckdErr     : ParamText1( "\pFile is locked!" ); break;
  55.     case fnfErr       : ParamText1( "\pFile not found!" ); break;
  56.     case bdNamErr     : ParamText1( "\pBad filename!" ); break;
  57.     case ioErr        : ParamText1( "\pIO transfer error!" ); break;
  58.     case dskFulErr    : ParamText1( "\pDisk full!" ); break;
  59.     case dirFulErr    : ParamText1( "\pDirectory full!" ); break;
  60.     case mFulErr      : ParamText1( "\pFile is too large for memory!" ); break;
  61.                         
  62.     case -4101        : ParamText1( "\pNo printer selected. Use the Chooser." ); break;
  63.     default           : NumToString( io, errnostr );
  64.                         ParamText( "\pIO Error! Mac error number: ", errnostr, "\p", "\p" );
  65.                         break;
  66.   }
  67.   SysBeep( 10 );
  68.   StopAlert( ok_alertID, 0L );
  69. }
  70.  
  71. short getfullpath( 
  72.     short vRefNum,
  73.     long dirID,
  74.     Str255 fName,
  75.     char *Path,
  76.     short MaxLength,
  77.     short warn )
  78. {
  79.   char *p, *q;
  80.   long len;
  81.   CInfoPBRec block;
  82.   Str255 directoryName;
  83.  
  84.   p = &Path[MaxLength];
  85.   *--p = '\0';
  86.  
  87.   len = (unsigned char)fName[0];
  88.   p -= len;
  89.   if (p < Path) goto too_long;
  90.   BlockMove( &fName[1], p, len );
  91.  
  92.   block.dirInfo.ioNamePtr = directoryName;
  93.   block.dirInfo.ioDrParID = dirID;
  94.  
  95.   do
  96.   { block.dirInfo.ioVRefNum = vRefNum;
  97.     block.dirInfo.ioFDirIndex = -1;
  98.     block.dirInfo.ioDrDirID = block.dirInfo.ioDrParID;
  99.  
  100.     if (PBGetCatInfoSync( &block ) != noErr) return 0;
  101.     *--p = ':';
  102.     len = (unsigned char)directoryName[0];
  103.     p -= len;
  104.     if (p < Path) goto too_long;
  105.     BlockMove( &directoryName[1], p, len );
  106.   } while ( block.dirInfo.ioDrDirID != fsRtDirID );
  107.  
  108.   q = Path;
  109.   while (*p != '\0') *q++ = *p++;
  110.   *q = '\0';
  111.  
  112.   return (short )( q - Path );
  113.  
  114.   too_long:
  115.   if (warn) path_too_long_err( fName );
  116.   return 0;
  117. }
  118.  
  119. // ********************* events **********************
  120.  
  121. long os_get_next_event( EventRecord *event )
  122. { long result = 0;
  123.   if (1) // do_tasks()
  124.   { beg_mf_time();
  125.     result = (long)( gInBackground
  126.                    ? gWaitTicksBG 
  127.                    : (long )( (gWaitTicksFG > gMaxSleep) ? gMaxSleep : gWaitTicksFG) );
  128.     result = WaitNextEvent( everyEvent, event, result, gCursorRgn );
  129.     end_mf_time();
  130.   }
  131.   return result;
  132. }
  133.  
  134. long os_handle_event( EventRecord *event )
  135. {
  136.   WindowPtr window;
  137.   short theItem, theMenu;
  138.   
  139.   switch (event->what)
  140.   { 
  141.     case keyDown:
  142.     case autoKey:
  143.     { unsigned char c = event->message & charCodeMask;
  144.       if( (event->modifiers & cmdKey) != 0 && (c == 'q' || c == 'Q') )
  145.       { gDoQuit = 1;
  146.         os_quit();
  147.       }
  148.       break;
  149.     }
  150.  
  151.     case mouseDown:
  152.       if (FindWindow( event->where, &window ) == inMenuBar)
  153.       {
  154.         long menuChoice = MenuSelect( event->where );
  155.         theItem = LoWord(menuChoice);
  156.         theMenu = HiWord(menuChoice);
  157.         if( theMenu == fileID && theItem == 1 )
  158.         {
  159.           gDoQuit = 1;
  160.           os_quit();
  161.         }
  162.         else if( theMenu == appleID && theItem > 2 )
  163.         {
  164.           Str255 name;
  165.           GetMenuItemText( a_menu, theItem, name );
  166.           OpenDeskAcc( name );
  167.         }
  168.         //else SysBeep( 3 );
  169.         HiliteMenu(0);
  170.       }
  171.       break;
  172.  
  173.     case kHighLevelEvent:
  174.       AEProcessAppleEvent(event);
  175.       if (gDoQuit) os_quit();
  176.       break;
  177.  
  178.     default: ;
  179.   }
  180.   return 1;
  181. }
  182.  
  183. void os_event_check( void )
  184. { EventRecord event;
  185.   os_get_next_event( &event );
  186.   os_handle_event( &event );
  187. #if USE_EVENTCHK_TIMER
  188.   next_eventchk_ticks = 0;
  189. #else
  190.   next_eventchk_ticks = LMGetTicks() + TicksBetweenEventChecks;
  191. #endif
  192.   if ( interrupted ) { interrupted = 0; raise(SIGINT); }
  193. }
  194.  
  195. // ********************* console **********************
  196.  
  197. static void init_all(void);
  198.  
  199. static short console_initialized = 0;
  200. static long handleSizeOut;
  201. static long stringSizeOut;
  202. static Handle the_output;
  203. static long stringSizeIn;
  204. static long stringUsedIn;
  205. static Handle the_input;
  206.  
  207. #define osc_INIT_SIZE  4096
  208. #define osc_RESIZE_ADD 4096
  209.  
  210. void os_quit()
  211. { 
  212. #if ANSIquitP
  213.   exit(0);
  214. #else
  215. #if USE_EVENTCHK_TIMER
  216.   cancel_eck_timer();
  217. #endif
  218.   ExitToShell();
  219. #endif
  220. }
  221.  
  222. // stub
  223.  
  224. int ecommand(unsigned char ***av)
  225. {
  226.   #pragma unused( av )
  227.   return 0;
  228. }
  229.  
  230. WindowPeek os_console_new( unsigned char *name )
  231. {
  232.   #pragma unused( name )
  233.   WindowPeek wp;
  234.   if( !console_initialized )
  235.   { init_all();
  236.     console_initialized = 1;
  237.   }
  238.   wp = (WindowPeek )NewHandle(osc_INIT_SIZE); // what a hack
  239.   the_output = (Handle )wp;
  240.   if( wp )
  241.   {
  242.     **(char **)wp = 0;
  243.     handleSizeOut = osc_INIT_SIZE;
  244.     stringSizeOut = 0;
  245.     stringSizeIn = 0;
  246.     stringUsedIn = 0;
  247.     the_input = NULL;
  248.   }
  249.   return(wp);
  250. }
  251.  
  252. long os_console_read_nohang( WindowPeek wp, unsigned char *ptr, long cnt )
  253. {
  254.   #pragma unused(wp)
  255.   long room;
  256.   os_event_check();
  257.   if( the_input == NULL ) cnt = 0;
  258.   room = stringSizeIn - stringUsedIn;
  259.   if( cnt > room ) cnt = room;
  260.   if( cnt > 0 )
  261.   {
  262.     HLock( the_input );
  263.     strncpy( (char *)ptr, &((char *)(*the_input))[stringUsedIn], cnt );
  264.     stringUsedIn += cnt;
  265.     HUnlock( the_input );
  266.   }
  267.   return cnt;
  268. }
  269.  
  270. long os_console_write( WindowPeek wp, unsigned char *ptr, long cnt)
  271. {
  272.   Handle h = (Handle )wp; // what a hack
  273.   long room;
  274.   // another hack to accommodate main()'s use of puts() to init console
  275.   if( stringSizeOut == 0 && cnt == 2 && ptr[0] == ' ' && ptr[1] == '\r' )
  276.     return 2;
  277.   if( stringSizeOut + cnt > handleSizeOut )
  278.   {
  279.     SetHandleSize( h, stringSizeOut + cnt + osc_RESIZE_ADD );
  280.     handleSizeOut = GetHandleSize( h );
  281.   }
  282.   room = handleSizeOut - stringSizeOut - 1;
  283.   if( cnt > room ) cnt = room; // only if resize failed
  284.   if( cnt > 0 )
  285.   {
  286.     HLock( h );
  287.     strncpy( &((char *)(*h))[stringSizeOut], (char *)ptr, cnt );
  288.     stringSizeOut += cnt;
  289.     ((char *)(*h))[stringSizeOut] = 0;
  290.     HUnlock( h );
  291.   }
  292.   return cnt;
  293. }
  294.  
  295. /*--------------------------------------------------------------------------*/
  296.  
  297. /* Used to check for any unread required parameters. Returns true if we
  298. ** missed at least one. */
  299.  
  300. static Boolean MissedAnyParameters(AppleEvent *message)
  301. {
  302.   OSErr        err;
  303.   DescType    ignoredActualType;
  304.   AEKeyword    missedKeyword;
  305.   Size        ignoredActualSize;
  306.   EventRecord    event;
  307.  
  308.   err = AEGetAttributePtr(            // SEE IF PARAMETERS ARE ALL USED UP.
  309.         message,              // AppleEvent to check.
  310.         keyMissedKeywordAttr, // Look for unread parameters.
  311.         typeWildCard,         // So we can see what type we missed, if any.
  312.         &ignoredActualType,   // What it would have been if not coerced.
  313.         (Ptr)&missedKeyword,  // Data area.  (Keyword not handled.)
  314.         sizeof(missedKeyword),// Size of data area.
  315.         &ignoredActualSize    // Actual data size.
  316.     );
  317.   /* No error means that we found some unused parameters. */
  318.   if (err == noErr)
  319.   {
  320.     event.message = *(long *) &ignoredActualType;
  321.     event.where = *(Point *) &missedKeyword;
  322.     err = errAEEventNotHandled;
  323.   }
  324.   /* errAEDescNotFound means that there are no more parameters.  If we get
  325.   ** an error code other than that, flag it. */
  326.   return(err != errAEDescNotFound);
  327. }
  328.  
  329. static OSErr OpenDocEventHandler(AppleEvent *message, AppleEvent *reply, short mode)
  330. {
  331.   #pragma unused( reply, mode )
  332.   OSErr     err;
  333.   OSErr     err2;
  334.   AEDesc    theDesc;
  335.   FSSpec    theFSS;
  336.   short     loop;
  337.   long      numFilesToOpen;
  338.   AEKeyword ignoredKeyWord;
  339.   DescType  ignoredType;
  340.   Size      ignoredSize;
  341.   char      path[512];
  342.   short     w;
  343.   FInfo     theFInfo;
  344.  
  345.   theDesc.dataHandle = nil;
  346.   /* Make sure disposing of the descriptors is okay in all cases.
  347.   ** This will not be necessary after 7.0b3, since the calls that
  348.   ** attempt to create the descriptors will nil automatically
  349.   ** upon failure. */
  350.  
  351.   if ( (err = AEGetParamDesc( message, keyDirectObject, typeAEList, &theDesc )) != 0 )
  352.     return(err);
  353.  
  354.   if ( ! MissedAnyParameters( message ) && !(err = AECountItems(&theDesc, &numFilesToOpen)))
  355.   { /* We have numFilesToOpen that need opening, as either a window
  356.     ** or to be printed.  Go to it... */
  357.  
  358.     for (loop = 1; ((loop <= numFilesToOpen) && (!err)); ++loop)
  359.     { err = AEGetNthPtr(// GET NEXT IN THE LIST...
  360.       &theDesc,         // List of file names.
  361.       loop,             // Item # in the list.
  362.       typeFSS,          // Item is of type FSSpec.
  363.       &ignoredKeyWord,  // Returned keyword -- we know.
  364.       &ignoredType,     // Returned type -- we know.
  365.       (Ptr)&theFSS,     // Where to put the FSSpec info.
  366.       sizeof(theFSS),   // Size of the FSSpec info.
  367.       &ignoredSize      // Actual size -- we know.
  368.       );
  369.       if (err) break;
  370.  
  371.       FSpGetFInfo( &theFSS, &theFInfo );
  372.       if ( theFInfo.fdType != 'TEXT' )
  373.       { 
  374.         w = getfullpath( theFSS.vRefNum, theFSS.parID, theFSS.name, path, 511, 1 );
  375.         if( theFInfo.fdType == 'BINA' && theFInfo.fdCreator == 'Moml' )
  376.         {
  377.           image_name = malloc( w + 1 );
  378.           if( image_name ) strncpy( image_name, path, w + 1 );
  379.         }
  380.         else
  381.           SysBeep( 3 );
  382.         continue;
  383.       }
  384.       else SysBeep( 3 ); // err = errAEEventNotHandled;
  385.     }
  386.   }
  387.   err2 = AEDisposeDesc(&theDesc);
  388.   return(err ? err : err2);
  389. }
  390.  
  391. static pascal OSErr DoAEOpenApplication( AppleEvent *message, AppleEvent *reply, long refcon )
  392. {
  393.   #pragma unused( message, reply, refcon )
  394.   //DebugStr( "\pDoAEOpenApplication" );
  395.   return(noErr);
  396. }
  397.  
  398. static pascal OSErr DoAEOpenDocuments( AppleEvent *message, AppleEvent *reply, long refcon )
  399. {
  400.   #pragma unused( refcon )
  401.   return( OpenDocEventHandler( message, reply, 0 ) ); /* 0 means regular open document */
  402. }
  403.  
  404. static pascal OSErr DoAEPrintDocuments(AppleEvent *message, AppleEvent *reply, long refcon)
  405. {
  406.   #pragma unused( message, reply, refcon )
  407.   return(noErr);
  408. }
  409.  
  410. static pascal OSErr DoAEQuitApplication( AppleEvent *message, AppleEvent *reply, long refcon )
  411. {
  412.   #pragma unused( message, reply, refcon )
  413.   gDoQuit = 1;
  414.   return noErr;
  415. }
  416.  
  417. static pascal OSErr DoAEwww2( AppleEvent *theAEEvent, AppleEvent *theAEReply, long *theRefCon)
  418. {
  419.   #pragma unused( theAEEvent, theRefCon )
  420.   OSErr     theErr = noErr;
  421.   //char      ourScriptText[256];
  422.  
  423.   if( gAESuspn )
  424.   {
  425.     int i;
  426.     char *p, c;
  427.     Handle h = the_output; // what a hack
  428.     HLock( h );
  429.     p = *h;
  430. #if ( CRLF_TRANSLATE )
  431.     for( i = 0; i < stringSizeOut; i++ )
  432.     { c = p[i];
  433.       if     ( c == '\r' ) p[i] = '\n';
  434.       else if( c == '\n' ) p[i] = '\r';
  435.     }
  436. #endif
  437. /* */
  438. //sprintf( ourScriptText+1, "www: %x", *h );
  439. //ourScriptText[0] = strlen(ourScriptText+1);
  440. //DebugStr( (unsigned char *)ourScriptText ); 
  441. /* */
  442.     theErr = AEPutParamPtr( theAEReply, keyDirectObject, typeChar, (Ptr)p, stringSizeOut+1);
  443.     HUnlock( h );
  444.     gAESuspn = 0;
  445.   }
  446.   return theErr;
  447. }
  448.  
  449. #define ARG_SIZE 4096
  450. extern int e_setenv(const char *name, const char *text, int rewrite);
  451.  
  452. static OSErr aeparm_to_env( AppleEvent *inEvent, AEKeyword kwrd, char *envname )
  453. {
  454.   OSErr    err = noErr;
  455.   DescType theType;
  456.   Size     theSize;
  457.   char  theArg[ARG_SIZE];
  458.   
  459.   err = AEGetParamPtr(inEvent, kwrd, typeChar, &theType, theArg, ARG_SIZE, &theSize);
  460.   if( theSize != 0 && theSize < ARG_SIZE )
  461.   {
  462.     theArg[theSize] = '\0';
  463.     e_setenv( envname, theArg, 0 );
  464.   }
  465.   //else ???
  466.   return err;
  467. } 
  468.  
  469. static OSErr aeparm_to_stdin( AppleEvent *inEvent, AEKeyword kwrd )
  470. {
  471.   OSErr    err = noErr;
  472.   DescType theType;
  473.   Size     theSize;
  474.   char  theArg[ARG_SIZE];
  475.   
  476.   stringUsedIn = 0;
  477.   the_input = NULL;
  478.   err = AEGetParamPtr( inEvent, kwrd, typeChar, &theType, theArg, ARG_SIZE, &theSize );
  479.   if( theSize == 0 )
  480.   {
  481.     stringSizeIn = 0;
  482.   }
  483.   else
  484.   {
  485.     the_input = NewHandle( theSize );
  486.     if( the_input == NULL )
  487.     {
  488.       stringSizeIn = 0;
  489.     }
  490.     else
  491.     { int i;
  492.       char *p, c;
  493.       p = *the_input;
  494.       stringSizeIn = theSize;
  495.       if( theSize <= ARG_SIZE )
  496.       {
  497.         HLock( the_input );
  498.         strncpy( p, theArg, theSize );
  499.       }
  500.       else
  501.       {
  502.         HLock( the_input );
  503.         err = AEGetParamPtr( inEvent, kwrd, typeChar, &theType, p, theSize, &theSize );
  504.         // what if stringSizeIn != theSize ??
  505.       }
  506. #if ( CRLF_TRANSLATE )
  507.       for( i = 0; i < stringSizeIn; i++ )
  508.       { c = p[i];
  509.         if     ( c == '\r' ) p[i] = '\n';
  510.         else if( c == '\n' ) p[i] = '\r';
  511.       }
  512. #endif
  513.       HUnlock( the_input );
  514.       sprintf( theArg, "%d", stringSizeIn );
  515.       e_setenv( "CONTENT_LENGTH", theArg, 0 );
  516.     }
  517.   }
  518.   return err;
  519. }
  520.  
  521. static void cgi_get_app_name( void )
  522. {
  523.   //unsigned char *CurApName = LMGetCurApName();
  524.   ProcessInfoRec pir;
  525.   ProcessSerialNumber psn;
  526.   char      path[512];
  527.   short     w;
  528.   
  529.   psn.highLongOfPSN = 0;
  530.   psn.lowLongOfPSN = kCurrentProcess;
  531.   pir.processInfoLength = sizeof(pir);
  532.   pir.processName = 0;
  533.   pir.processAppSpec = &appFSS;
  534.   GetProcessInformation( &psn, &pir );
  535.   w = getfullpath( appFSS.vRefNum, appFSS.parID, appFSS.name, path, 511, 1 );
  536.   e_setenv( "PATH_TRANSLATED", path, 0 );
  537.   if( strcmp( ".cgi", &path[w-4] ) == 0 && w < 510 )
  538.   { // make image name from app name: app.cgi => app.image
  539.     strcpy( &path[w-3], "image" );
  540.     image_name = malloc( w + 3 );
  541.     if( image_name ) strncpy( image_name, path, w + 3 );
  542.   }
  543.   gMadeAppFSS = true;
  544. }
  545.  
  546. static pascal OSErr DoAEwww( AppleEvent *inEvent, AppleEvent *outReply, long *theRefCon)
  547. {
  548.   #pragma unused( theRefCon )
  549.   OSErr    err = noErr;
  550.  
  551.   // env vars
  552.   // missing:      SERVER_SOFTWARE SERVER_PROTOCOL AUTH_TYPE REMOTE_IDENT
  553.   // questionable: GATEWAY_INTERFACE PATH_TRANSLATED
  554.   // wrong:        REMOTE_HOST (can be same as REMOTE_ADDR if resolution turned off)
  555.   // invented:     REMOTE_PASS
  556.   
  557.   // SERVER_SOFTWARE = NCSA/1.5.2
  558.   // SERVER_PROTOCOL = HTTP/1.0
  559.   // GATEWAY_INTERFACE = CGI/1.1
  560.   
  561.   // create PATH_TRANSLATED  and maybe set image_name
  562.   cgi_get_app_name();
  563.  
  564.   // Path Arguments ('----') PATH_INFO
  565.   // This the data following the '$' in a URL, but preceding the '?', if one is present.
  566.   // This is a common method of passing arguments to a CGI. 
  567.   // Note that the path arguments in a UNIX server a delimited by a '/', not a '$'.
  568.   // The '$' is a peculiarity of the Macintosh CGI "standard"
  569.   err = aeparm_to_env( inEvent, '----', "PATH_INFO" );
  570.  
  571.   // Search Arguments ('kfor') QUERY_STRING
  572.   // This is the data that follows the '?' in a URL, if any is present. 
  573.   // Search arguments
  574.   err = aeparm_to_env( inEvent, 'kfor', "QUERY_STRING" );
  575.  
  576.   // Post Arguments ('post') -> std_in
  577.   // The post parameter contains the data passed in the body of a POST request,
  578.   // usually data from a form.
  579.   err = aeparm_to_stdin( inEvent, 'post' );
  580.   
  581.   // Username ('user') REMOTE_USER
  582.   // If the user supplied a username for authentication, this filed contains the name entered.
  583.   err = aeparm_to_env( inEvent, 'user', "REMOTE_USER" );
  584.   
  585.   // Password ('pass') ???? AUTH_TYPE? REMOTE_IDENT?
  586.   // The password the user entered, if authentication was required.
  587.   err = aeparm_to_env( inEvent, 'pass', "REMOTE_PASS" );
  588.  
  589.   // Method ('meth') REQUEST_METHOD
  590.   // The HTTP method that was used for the request, usually 'GET' or 'POST'. 
  591.   err = aeparm_to_env( inEvent, 'meth', "REQUEST_METHOD" );
  592.   
  593.   // Client Address ('addr') REMOTE_HOST -- but only if it's a host name?
  594.   // The IP address or domain name of the client, depending on whether or not the 
  595.   // "Lookup Client Address with DNS" option is enabled, and the client has a DNS entry.
  596.   err = aeparm_to_env( inEvent, 'addr', "REMOTE_HOST" );
  597.  
  598.   // Client IP ('Kcip') REMOTE_ADDR
  599.   // The IP address of the client.
  600.   err = aeparm_to_env( inEvent, 'Kcip', "REMOTE_ADDR" );
  601.  
  602.   // Server Name ('svnm') SERVER_NAME
  603.   // The name of the web server.
  604.   err = aeparm_to_env( inEvent, 'svnm', "SERVER_NAME" );
  605.   
  606.   // Server Port ('svpt') SERVER_PORT
  607.   // The TCP port on which the server is listening for connections (usually 80) 
  608.   err = aeparm_to_env( inEvent, 'svpt', "SERVER_PORT" );
  609.  
  610.   // Script Name ('scnm') SCRIPT_NAME
  611.   // This is the URL path to the CGI application. If the CGI is running as an action,
  612.   // this parameter contains the path to the file specified by the URL.
  613.   err = aeparm_to_env( inEvent, 'scnm', "SCRIPT_NAME" );
  614.  
  615.   // Referrer ('refr') HTTP_REFERER e.g., "http://208.146.140.3/html/cgiexamples.html"
  616.   // The URL of the page that the user was on when she clicked on the CGI's URL.
  617.   err = aeparm_to_env( inEvent, 'refr', "HTTP_REFERER" );
  618.  
  619.   // User Agent ('Agnt') HTTP_USER_AGENT e.g., "Mozilla/3.01 (Macintosh; U; PPC)"
  620.   // The name of the client software, such as "Mozilla" for Netscape Navigator. 
  621.   err = aeparm_to_env( inEvent, 'Agnt', "HTTP_USER_AGENT" );
  622.  
  623.   // Content Type ('ctyp') CONTENT_TYPE
  624.   // The MIME type of the POST data, if present. 
  625.   err = aeparm_to_env( inEvent, 'ctyp', "CONTENT_TYPE" );
  626.  
  627.   // Action ('Kact') ???? GATEWAY_INTERFACE?
  628.   // The type of CGI that is being run, such as "CGI", "ACGI", "PREPROCESSOR", or
  629.   // "POSTPROCESSOR". If the CGI is running as an action, this contains the name of the action.
  630.   // Action name
  631.   err = aeparm_to_env( inEvent, 'Kact', "GATEWAY_INTERFACE" );
  632.   
  633.   // Action Path ('Kapt') ???? punt?
  634.   // When running as an action, this contains the path to the action.
  635.   // If running as a CGI, this is identical to the Script Name ('scnm') parameter.
  636.   //err = aeparm_to_env( inEvent, 'Kapt', "" );
  637.   // We don't do anything with the Action Path.
  638.  
  639.   // Full Request ('Kfrq')
  640.   // The entire text of the request as received by the server, with no processing whatsoever.
  641.   // Full, unprocessed request (including the HTTP header)
  642.   //err = aeparm_to_env( inEvent, 'Kfrq', "" );
  643.   // We don't do anything with the Full Request.
  644.   
  645.   // From User ('frmu') ???? (obsolete)
  646.   // If the HTTP header of the client request contained a "From:" field,
  647.   // this parameter contains the information from that field,
  648.   // usually the user's email address.
  649.   //err = aeparm_to_env( inEvent, 'frmu', "" );
  650.  
  651.   // Connection ID ('Kcid')
  652.   // A long integer identifying the connection corresponding to the CGI request.
  653.   // This is the only parameter that is not typeChar. It's used for partial replies.
  654.   // We don't do anything with the Connection ID.
  655.   
  656.   gAEEvent = *inEvent;
  657.   gAEReply = *outReply;
  658.   gAESuspn = 1;
  659.   gReceivedAE = 1;
  660.   return AESuspendTheCurrentEvent( inEvent );
  661. }
  662.  
  663. OSErr finish_AEDoScript( void )
  664. {
  665.   if( gAESuspn )
  666.   {
  667.     //int i;
  668.     AEEventHandlerUPP upp = NewAEEventHandlerProc(DoAEwww2);
  669.     OSErr err = AEResumeTheCurrentEvent( &gAEEvent, &gAEReply, upp, 0 );
  670.     //if( gAESuspn && err == noErr ) 
  671.     //  for( i = 0; gAESuspn && i < 10; i++ ) os_event_check();
  672.     return err;
  673.   }
  674.   return errAEEventNotHandled;
  675. }
  676.  
  677. // ********************* init **********************
  678.  
  679. //static GrowZoneUPP mem_full_errUPP;
  680.  
  681. static Boolean install_aehandler( AEEventClass cl, AEEventID id, ProcPtr p )
  682. { OSErr    err;
  683.   AEEventHandlerUPP upp = NewAEEventHandlerProc(p);
  684.   
  685.   if ( upp == NULL ) err = memFullErr;
  686.   else err = AEInstallEventHandler( cl, id, upp, 0L, false );
  687.   if (err)
  688.   { io_err(err);
  689.     return false;
  690.   }
  691.   return true;
  692. }
  693.  
  694. static void init_ae()
  695. {
  696.   long result;
  697.  
  698.   gHasAppleEvents = (Gestalt(gestaltAppleEventsAttr, &result) ? false : result != 0);
  699.  
  700.   if (gHasAppleEvents)
  701.     install_aehandler( kCoreEventClass, kAEOpenApplication, (ProcPtr )DoAEOpenApplication )
  702.      && install_aehandler( kCoreEventClass, kAEOpenDocuments, (ProcPtr )DoAEOpenDocuments )
  703.      && install_aehandler( kCoreEventClass, kAEPrintDocuments, (ProcPtr )DoAEPrintDocuments )
  704.      && install_aehandler( kCoreEventClass, kAEQuitApplication, (ProcPtr )DoAEQuitApplication )
  705.      && install_aehandler( 'WWWΩ', 'sdoc', (ProcPtr )DoAEwww )
  706.      ;
  707.   else ExitToShell();
  708. }
  709.  
  710. static void hack_remove_console( void )
  711. {
  712.   gDoQuit = 1; // prevents RemoveConsole from doing SetWTitle on wp
  713. }
  714.  
  715. static void init_all(void)
  716. { short i;
  717.  
  718.   MaxApplZone();
  719.   for (i = 0; i < 10; i++) MoreMasters();
  720.   // mem_full_errUPP = NewGrowZoneProc(mem_full_err);
  721.   // SetGrowZone( mem_full_errUPP );
  722.  
  723.   InitGraf( &qd.thePort );
  724.   InitFonts();
  725.   //FlushEvents( everyEvent, 0 );
  726.   InitWindows();
  727.   InitMenus();
  728.   TEInit();
  729.   InitDialogs( 0L );
  730.   InitCursor();
  731.  
  732.   gCursorRgn = NewRgn();
  733.   SetRectRgn(gCursorRgn, -32768, -32768, 32766, 32766);
  734.  
  735.   a_menu = GetMenu( appleID );
  736.   AppendResMenu( a_menu, 'DRVR' );
  737.   f_menu = GetMenu( fileID );
  738.   ClearMenuBar();
  739.   InsertMenu( a_menu, 0);
  740.   InsertMenu( f_menu, 0);
  741.   DrawMenuBar();
  742.   
  743.   atexit(hack_remove_console);
  744.  
  745.   init_ae();
  746.  
  747. #if USE_EVENTCHK_TIMER
  748.   init_eck_timer();
  749. #endif
  750. }
  751.  
  752. // end.
  753.