home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Komunik / sambar / sambar51p.exe / samples / isapi / testisa.c < prev    next >
Encoding:
C/C++ Source or Header  |  2000-06-26  |  3.1 KB  |  149 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. #ifdef    WIN32
  19. #include <windows.h>
  20. #else
  21. #define    MAX_PATH    1024
  22. #define TRUE        1
  23. #define lstrcpyn    strncpy
  24. #define lstrlen        strlen
  25. #define stricmp        strcasecmp
  26. #define wsprintf    sprintf
  27. #endif    /* WIN32 */
  28.  
  29. #include <httpext.h>
  30. #include <string.h>
  31. #include <stdio.h>
  32. #include <stdarg.h>
  33. #include <time.h>
  34.  
  35.  
  36. /*
  37. ** Globals
  38. */
  39. #define    NO_DATA_FOUND        "<P>No Data Provided."
  40.  
  41. /*
  42. ** DLL Entry point.
  43. */
  44. #ifdef    WIN32
  45. BOOL APIENTRY
  46. DllMain(HANDLE hModule, DWORD ul_reason_for_call, LPVOID lpReserved)
  47. {
  48.     switch(ul_reason_for_call) 
  49.     {
  50.     case DLL_PROCESS_ATTACH: 
  51.         break;
  52.     case DLL_PROCESS_DETACH:
  53.         break;
  54.     default:
  55.         break;
  56.     }
  57.  
  58.     return TRUE;
  59. }
  60.  
  61. #endif    /* WIN32 */
  62.  
  63. /*
  64. **    GetExtensionVersion
  65. **
  66. **    ISAPI/Win32 API method to ensure compatibility with the Server.
  67. */
  68. BOOL WINAPI
  69. GetExtensionVersion(HSE_VERSION_INFO *pVer)
  70. {
  71.     pVer->dwExtensionVersion = MAKELONG(HSE_VERSION_MINOR, HSE_VERSION_MAJOR);
  72.  
  73.     lstrcpyn(pVer->lpszExtensionDesc, "Sambar Server ISAPI Test extension.",
  74.             HSE_MAX_EXT_DLL_NAME_LEN);
  75.  
  76.     return TRUE;
  77. } 
  78.  
  79. /*
  80. **    HttpExtensionProc
  81. **
  82. **     Called in response to the client request.
  83. */
  84. DWORD WINAPI
  85. HttpExtensionProc(EXTENSION_CONTROL_BLOCK *pECB)
  86. {
  87.     DWORD    buflen;
  88.     DWORD    datalen;
  89.     CHAR    buffer[8192];
  90.  
  91.     /* Prepare the response header                                        */
  92.     wsprintf(buffer,
  93.              "Content-Type: text/html\r\n"
  94.              "\r\n"
  95.              "<head><title>Sambar ISAPI TEST</title></head>\n"
  96.              "<body><h1>Sambar ISAPI TEST</h1>\n"
  97.              "<hr>\n");
  98.  
  99.     buflen = lstrlen(buffer);
  100.  
  101.     /* Get the GET/POST data                                            */
  102.     if (!stricmp(pECB->lpszMethod, "GET")) 
  103.     {
  104.         /* Append the QUERY_STRING data                                    */
  105.         datalen = lstrlen(pECB->lpszQueryString);
  106.         if (datalen > 8000)
  107.             datalen = 8000;
  108.         if (datalen > 0)
  109.         {
  110.             strncpy(&buffer[buflen], pECB->lpszQueryString, datalen);
  111.             buflen += datalen;
  112.         }
  113.     }
  114.     else     /* POST */
  115.     {
  116.         /* Note: cbTotalBytes = cbAvailable    in the Sambar Server        */ 
  117.         if(pECB->cbTotalBytes > 0) 
  118.         {
  119.             datalen = pECB->cbAvailable;
  120.             if (datalen > 8000)
  121.                 datalen = 8000;
  122.  
  123.             strncpy(&buffer[buflen], pECB->lpbData, datalen);
  124.             buflen += datalen;
  125.         }
  126.     }
  127.  
  128.     if (datalen == 0)
  129.     {
  130.         datalen = lstrlen(NO_DATA_FOUND);
  131.         strncpy(&buffer[buflen], NO_DATA_FOUND, datalen);
  132.         buflen += datalen;
  133.     }
  134.  
  135.     strncpy(&buffer[buflen], "</BODY></HTML>", 14);
  136.     buflen += 14;
  137.  
  138.     if (!pECB->ServerSupportFunction(pECB->ConnID, HSE_REQ_SEND_RESPONSE_HEADER,
  139.         "200 OK", &buflen, (LPDWORD)buffer)) 
  140.     {
  141.         pECB->dwHttpStatusCode = 500;
  142.         return HSE_STATUS_ERROR;
  143.     }
  144.  
  145.     pECB->dwHttpStatusCode = 200;
  146.  
  147.     return HSE_STATUS_SUCCESS;
  148. } 
  149.