CStringA CClientDlg::GetHeaderSummary(IHttpSyncClient* pHttpClient, LPCSTR lpszSep, int iSepCount, BOOL bWithContentLength)
{
CStringA SEP1;
for(int i = 0; i < iSepCount; i++)
SEP1 += lpszSep;
CStringA SEP2(SEP1);
SEP2 += lpszSep;
CStringA strResult;
strResult.AppendFormat("%s[Status Fields]%s", SEP1, CRLF);
strResult.AppendFormat("%s%13s: %u%s", SEP2, "Status Code", pHttpClient->GetStatusCode(), CRLF);
DWORD dwHeaderCount = 0;
pHttpClient->GetAllHeaders(nullptr, dwHeaderCount);
strResult.AppendFormat("%s[Response Headers]%s", SEP1, CRLF);
if(dwHeaderCount == 0)
strResult.AppendFormat("%s(no header)%s", SEP2, CRLF);
else
{
unique_ptr<THeader[]> headers(new THeader[dwHeaderCount]);
VERIFY(pHttpClient->GetAllHeaders(headers.get(), dwHeaderCount));
for(DWORD i = 0; i < dwHeaderCount; i++)
strResult.AppendFormat("%s%s: %s%s", SEP2, headers[i].name, headers[i].value, CRLF);
}
DWORD dwCookieCount = 0;
pHttpClient->GetAllCookies(nullptr, dwCookieCount);
strResult.AppendFormat("%s[Cookies]%s", SEP1, CRLF);
if(dwCookieCount == 0)
strResult.AppendFormat("%s(no cookie)%s", SEP2, CRLF);
else
{
unique_ptr<TCookie[]> cookies(new TCookie[dwCookieCount]);
VERIFY(pHttpClient->GetAllCookies(cookies.get(), dwCookieCount));
for(DWORD i = 0; i < dwCookieCount; i++)
strResult.AppendFormat("%s%s: %s%s", SEP2, cookies[i].name, cookies[i].value, CRLF);
}
CStringA strVersion;
::HttpVersionToString((EnHttpVersion)pHttpClient->GetVersion(), strVersion);
EnHttpUpgradeType enUpgType = pHttpClient->GetUpgradeType();
LPCSTR lpszUpgrade = enUpgType != HUT_NONE ? "true" : "false";
LPCSTR lpszKeepAlive = pHttpClient->IsKeepAlive() ? "true" : "false";
strResult.AppendFormat("%s[Basic Info]%s", SEP1, CRLF);
strResult.AppendFormat("%s%13s: %s%s", SEP2, "Version", strVersion, CRLF);
strResult.AppendFormat("%s%13s: %u%s", SEP2, "Status Code", pHttpClient->GetStatusCode(), CRLF);
strResult.AppendFormat("%s%13s: %s%s", SEP2, "IsUpgrade", lpszUpgrade, CRLF);
if(enUpgType != HUT_NONE)
strResult.AppendFormat("%s%13s: %d%s", SEP2, "UpgradeType", enUpgType, CRLF);
strResult.AppendFormat("%s%13s: %s%s", SEP2, "IsKeepAlive", lpszKeepAlive, CRLF);
if(bWithContentLength)
strResult.AppendFormat("%s%13s: %lld%s", SEP2, "ContentLength", pHttpClient->GetContentLength(), CRLF);
strResult.AppendFormat("%s%13s: %s%s", SEP2, "ContentType", pHttpClient->GetContentType(), CRLF);
return strResult;
}
CStringA CServerDlg::GetHeaderSummary(HP_HttpServer pSender, HP_CONNID dwConnID, LPCSTR lpszSep, int iSepCount, BOOL bWithContentLength)
{
CStringA SEP1;
for(int i = 0; i < iSepCount; i++)
SEP1 += lpszSep;
CStringA SEP2(SEP1);
SEP2 += lpszSep;
CStringA strResult;
USHORT usUrlFieldSet = ::HP_HttpServer_GetUrlFieldSet(pSender, dwConnID);
strResult.AppendFormat("%s[URL Fields]%s", SEP1, CRLF);
strResult.AppendFormat("%s%8s: %s%s", SEP2, "SCHEMA", ::HP_HttpServer_GetUrlField(pSender, dwConnID, HUF_SCHEMA), CRLF);
strResult.AppendFormat("%s%8s: %s%s", SEP2, "HOST", ::HP_HttpServer_GetUrlField(pSender, dwConnID, HUF_HOST), CRLF);
strResult.AppendFormat("%s%8s: %s%s", SEP2, "PORT", ::HP_HttpServer_GetUrlField(pSender, dwConnID, HUF_PORT), CRLF);
strResult.AppendFormat("%s%8s: %s%s", SEP2, "PATH", ::HP_HttpServer_GetUrlField(pSender, dwConnID, HUF_PATH), CRLF);
strResult.AppendFormat("%s%8s: %s%s", SEP2, "QUERY", ::HP_HttpServer_GetUrlField(pSender, dwConnID, HUF_QUERY), CRLF);
strResult.AppendFormat("%s%8s: %s%s", SEP2, "FRAGMENT", ::HP_HttpServer_GetUrlField(pSender, dwConnID, HUF_FRAGMENT), CRLF);
strResult.AppendFormat("%s%8s: %s%s", SEP2, "USERINFO", ::HP_HttpServer_GetUrlField(pSender, dwConnID, HUF_USERINFO), CRLF);
DWORD dwHeaderCount = 0;
::HP_HttpServer_GetAllHeaders(pSender, dwConnID, nullptr, &dwHeaderCount);
strResult.AppendFormat("%s[Request Headers]%s", SEP1, CRLF);
if(dwHeaderCount == 0)
strResult.AppendFormat("%s(no header)%s", SEP2, CRLF);
else
{
unique_ptr<THeader[]> headers(new THeader[dwHeaderCount]);
VERIFY(::HP_HttpServer_GetAllHeaders(pSender, dwConnID, headers.get(), &dwHeaderCount));
for(DWORD i = 0; i < dwHeaderCount; i++)
strResult.AppendFormat("%s%s: %s%s", SEP2, headers[i].name, headers[i].value, CRLF);
}
DWORD dwCookieCount = 0;
::HP_HttpServer_GetAllCookies(pSender, dwConnID, nullptr, &dwCookieCount);
strResult.AppendFormat("%s[Cookies]%s", SEP1, CRLF);
if(dwCookieCount == 0)
strResult.AppendFormat("%s(no cookie)%s", SEP2, CRLF);
else
{
unique_ptr<TCookie[]> cookies(new TCookie[dwCookieCount]);
VERIFY(::HP_HttpServer_GetAllCookies(pSender, dwConnID, cookies.get(), &dwCookieCount));
for(DWORD i = 0; i < dwCookieCount; i++)
strResult.AppendFormat("%s%s: %s%s", SEP2, cookies[i].name, cookies[i].value, CRLF);
}
CStringA strVersion;
::HttpVersionToString((EnHttpVersion)::HP_HttpServer_GetVersion(pSender, dwConnID), strVersion);
EnHttpUpgradeType enUpgType = ::HP_HttpServer_GetUpgradeType(pSender, dwConnID);
LPCSTR lpszUpgrade = enUpgType != HUT_NONE ? "true" : "false";
LPCSTR lpszKeepAlive = ::HP_HttpServer_IsKeepAlive(pSender, dwConnID) ? "true" : "false";
strResult.AppendFormat("%s[Basic Info]%s", SEP1, CRLF);
strResult.AppendFormat("%s%13s: %s%s", SEP2, "Version", strVersion, CRLF);
strResult.AppendFormat("%s%13s: %s%s", SEP2, "Method", ::HP_HttpServer_GetMethod(pSender, dwConnID), CRLF);
strResult.AppendFormat("%s%13s: %s%s", SEP2, "IsUpgrade", lpszUpgrade, CRLF);
if(enUpgType != HUT_NONE)
strResult.AppendFormat("%s%13s: %d%s", SEP2, "UpgradeType", enUpgType, CRLF);
strResult.AppendFormat("%s%13s: %s%s", SEP2, "IsKeepAlive", lpszKeepAlive, CRLF);
if(bWithContentLength)
strResult.AppendFormat("%s%13s: %lld%s", SEP2, "ContentLength", ::HP_HttpServer_GetContentLength(pSender, dwConnID), CRLF);
strResult.AppendFormat("%s%13s: %s%s", SEP2, "ContentType", ::HP_HttpServer_GetContentType(pSender, dwConnID), CRLF);
return strResult;
}
