home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 April / PCWorld_2000-04_cd.bin / Komunik / Servery / sambar / _setup.1 / testisa.c < prev    next >
C/C++ Source or Header  |  1998-03-08  |  3KB  |  142 lines
  1. /*
  2. ** TESTISA
  3. **
  4. **      This is a simple ISAPI test DLL that takes the input and displays
  5. **        it to the user.
  6. **
  7. **        Confidential Property of Tod Sambar
  8. **        (c) Copyright Tod Sambar 1998
  9. **        All rights reserved.
  10. **
  11. **
  12. ** History:
  13. ** Chg#    Date    Description                                                Resp
  14. ** ----    -------    -------------------------------------------------------    ----
  15. **        5FEB98     Created                                                    sambar
  16. */
  17.  
  18. #include <windows.h>
  19. #include <httpext.h>
  20. #include <string.h>
  21. #include <stdio.h>
  22. #include <stdarg.h>
  23. #include <time.h>
  24.  
  25. /*
  26. ** Globals
  27. */
  28. #define    NO_DATA_FOUND        "<P>No Data Provided."
  29.  
  30. /*
  31. ** Use a critical section to protect global data.
  32. */
  33. CRITICAL_SECTION     gCS;
  34.  
  35. /*
  36. ** DLL Entry point.
  37. */
  38. BOOL APIENTRY
  39. DllMain(HANDLE hModule, DWORD ul_reason_for_call, LPVOID lpReserved)
  40. {
  41.     switch(ul_reason_for_call) 
  42.     {
  43.     case DLL_PROCESS_ATTACH: 
  44.         InitializeCriticalSection(&gCS);
  45.         break;
  46.     case DLL_PROCESS_DETACH:
  47.         DeleteCriticalSection(&gCS);
  48.         break;
  49.     default:
  50.         break;
  51.     }
  52.  
  53.     return TRUE;
  54. }
  55.  
  56. /*
  57. **    GetExtensionVersion
  58. **
  59. **    ISAPI/Win32 API method to ensure compatibility with the Server.
  60. */
  61. BOOL WINAPI
  62. GetExtensionVersion(HSE_VERSION_INFO *pVer)
  63. {
  64.     pVer->dwExtensionVersion = MAKELONG(HSE_VERSION_MINOR, HSE_VERSION_MAJOR);
  65.  
  66.     lstrcpyn(pVer->lpszExtensionDesc, "Sambar Server ISAPI Test extension.",
  67.             HSE_MAX_EXT_DLL_NAME_LEN);
  68.  
  69.     return TRUE;
  70. } 
  71.  
  72. /*
  73. **    HttpExtensionProc
  74. **
  75. **     Called in response to the client request.
  76. */
  77. DWORD WINAPI
  78. HttpExtensionProc(EXTENSION_CONTROL_BLOCK *pECB)
  79. {
  80.     DWORD    buflen;
  81.     DWORD    datalen;
  82.     CHAR    buffer[8192];
  83.  
  84.     /* Prepare the response header                                        */
  85.     wsprintf(buffer,
  86.              "Content-Type: text/html\r\n"
  87.              "\r\n"
  88.              "<head><title>Sambar ISAPI TEST</title></head>\n"
  89.              "<body><h1>Sambar ISAPI TEST</h1>\n"
  90.              "<hr>\n");
  91.  
  92.     buflen = lstrlen(buffer);
  93.  
  94.     /* Get the GET/POST data                                            */
  95.     if (!stricmp(pECB->lpszMethod, "GET")) 
  96.     {
  97.         /* Append the QUERY_STRING data                                    */
  98.         datalen = lstrlen(pECB->lpszQueryString);
  99.         if (datalen > 8000)
  100.             datalen = 8000;
  101.         if (datalen > 0)
  102.         {
  103.             strncpy(&buffer[buflen], pECB->lpszQueryString, datalen);
  104.             buflen += datalen;
  105.         }
  106.     }
  107.     else     /* POST */
  108.     {
  109.         /* Note: cbTotalBytes = cbAvailable    in the Sambar Server        */ 
  110.         if(pECB->cbTotalBytes > 0) 
  111.         {
  112.             datalen = pECB->cbAvailable;
  113.             if (datalen > 8000)
  114.                 datalen = 8000;
  115.  
  116.             strncpy(&buffer[buflen], pECB->lpbData, datalen);
  117.             buflen += datalen;
  118.         }
  119.     }
  120.  
  121.     if (datalen == 0)
  122.     {
  123.         datalen = lstrlen(NO_DATA_FOUND);
  124.         strncpy(&buffer[buflen], NO_DATA_FOUND, datalen);
  125.         buflen += datalen;
  126.     }
  127.  
  128.     strncpy(&buffer[buflen], "</BODY></HTML>", 14);
  129.     buflen += 14;
  130.  
  131.     if (!pECB->ServerSupportFunction(pECB->ConnID, HSE_REQ_SEND_RESPONSE_HEADER,
  132.         "200 OK", &buflen, (LPDWORD)buffer)) 
  133.     {
  134.         pECB->dwHttpStatusCode = 500;
  135.         return HSE_STATUS_ERROR;
  136.     }
  137.  
  138.     pECB->dwHttpStatusCode = 200;
  139.  
  140.     return HSE_STATUS_SUCCESS;
  141. } 
  142.