|
|
/*++
Copyright (c) 1995 Microsoft Corporation
Module Name:
nt4api.c
Abstract:
Domain Name System (DNS) Server -- Admin Client API
DNS NT4 API that are not direct calls to RPC stubs.
Author:
Jim Gilroy (jamesg) 14-Oct-1995
Environment:
User Mode - Win32
Revision History:
--*/
#include "dnsclip.h"
VOIDDNS_API_FUNCTIONDns4_FreeZoneInfo( IN OUT PDNS4_ZONE_INFO pZoneInfo )/*++
Routine Description:
Deep free of DNS4_ZONE_INFO structure.
Arguments:
pZoneInfo -- ptr to zone info to free
Return Value:
None
--*/{ if ( !pZoneInfo ) { return; }
//
// free substructures
// - name string
// - data file string
// - secondary IP array
// - WINS server array
//
if ( pZoneInfo->pszZoneName ) { MIDL_user_free( pZoneInfo->pszZoneName ); } if ( pZoneInfo->pszDataFile ) { MIDL_user_free( pZoneInfo->pszDataFile ); } if ( pZoneInfo->aipMasters ) { MIDL_user_free( pZoneInfo->aipMasters ); } if ( pZoneInfo->aipSecondaries ) { MIDL_user_free( pZoneInfo->aipSecondaries ); }
//
// free DNS4_ZONE_INFO struct itself
//
MIDL_user_free( pZoneInfo );}
DNS_STATUSDNS_API_FUNCTIONDns4_ResetZoneMaster( IN LPCSTR Server, IN DNS_HANDLE hZone, IN IP_ADDRESS ipMaster )/*++
Routine Description:
Reset one zone master
--*/{ IP_ADDRESS ipBuf = ipMaster;
return Dns4_ResetZoneMasters( Server, hZone, 1, & ipBuf );}
DNS_STATUSDNS_API_FUNCTIONDns4_EnumZoneInfo( IN LPCSTR Server, OUT PDWORD pdwZoneCount, IN DWORD dwArrayCount, IN OUT PDNS4_ZONE_INFO apZones[] )/*++
Routine Description:
Get zone info for all zones on server.
Arguments:
Server -- server name pdwZoneCount -- addr to recv number of zones on server dwArrayCount -- size of zone info ptr array apZones -- array to be filled with zone info ptrs
Return Value:
None
--*/{ DNS_STATUS status; PDNS_HANDLE ahZones; INT i; DWORD zoneCount = 0;
IF_DNSDBG( STUB ) { DNS_PRINT(( "Enter DnsEnumZoneInfo()\n" "\tServer = %s\n" "\tpdwZoneCount = %p\n" "\tdwArrayCount = %d\n" "\tapZones = %p\n", Server, pdwZoneCount, dwArrayCount, apZones )); DnsDbg_DwordArray( "Zone array", NULL, dwArrayCount, (PDWORD)apZones ); }
//
// allocate space
// - allocate for as many entries as caller is allowing zones
// zones
ahZones = (PDNS_HANDLE) MIDL_user_allocate( dwArrayCount * sizeof(DNS_HANDLE) ); if ( !ahZones ) { return( DNS_ERROR_NO_MEMORY ); } IF_DNSDBG( STUB ) { DNS_PRINT(( "Allocated zone HANDLE block at %p for up to %d zones\n", ahZones, dwArrayCount )); DnsDbg_DwordArray( "Zone handle array", NULL, dwArrayCount, ahZones ); }
//
// get zone handles
//
status = Dns4_EnumZoneHandles( Server, & zoneCount, dwArrayCount, ahZones ); IF_DNSDBG( STUB ) { DNS_PRINT(( "Under call to DnsEnumZoneHandles() completed.\n" "\tstatus = %d (%p)\n" "\tzone count = %d\n", status, status, zoneCount )); DnsDbg_DwordArray( "Zone handle array", NULL, (zoneCount < dwArrayCount) ? zoneCount+1 : dwArrayCount, ahZones ); }
*pdwZoneCount = zoneCount; if ( status != ERROR_SUCCESS ) { return( status ); }
//
// get info for each zone
//
for( i=0; i<(INT)zoneCount; i++ ) { apZones[i] = NULL; status = Dns4_GetZoneInfo( Server, ahZones[i], & apZones[i] );
if ( status != ERROR_SUCCESS ) { goto cleanup; } }
IF_DNSDBG( STUB ) { Dns4_Dbg_RpcZoneInfoList( "Leaving DnsEnumZoneInfo() ", *pdwZoneCount, apZones ); }
cleanup:
IF_DNSDBG( STUB ) { if ( status != ERROR_SUCCESS ) { DNS_PRINT(( "Leaving DnsEnumZoneInfo(), status = %d\n", status )); } } MIDL_user_free( ahZones ); return( status );}
//
// NT4 type print
//
VOIDDns4_Print_RpcServerInfo( IN PRINT_ROUTINE PrintRoutine, IN LPSTR pszHeader, IN PDNS4_RPC_SERVER_INFO pServerInfo ){ DnsPrint_Lock(); if ( pszHeader ) { PrintRoutine( pszHeader ); }
if ( ! pServerInfo ) { PrintRoutine( "NULL server info ptr.\n" ); } else { PrintRoutine( "Server info:\n" "\tptr = %p\n" "\tversion = %p\n" "\tboot registry = %d\n", pServerInfo, pServerInfo->dwVersion, pServerInfo->fBootRegistry );
DnsPrint_IpArray( PrintRoutine, NULL, "\tServerAddresses:\n", "\tAddr", pServerInfo->aipServerAddrs );
DnsPrint_IpArray( PrintRoutine, NULL, "\tListenAddresses:\n", "\tAddr", pServerInfo->aipListenAddrs );
DnsPrint_IpArray( PrintRoutine, NULL, "\tForwarders:\n", "\tAddr", pServerInfo->aipForwarders );
PrintRoutine( "\tforward timeout = %d\n" "\tslave = %d\n", pServerInfo->dwForwardTimeout, pServerInfo->fSlave ); } DnsPrint_Unlock();}
VOIDDns4_Print_RpcStatistics( IN PRINT_ROUTINE PrintRoutine, IN LPSTR pszHeader, IN PDNS4_STATISTICS pStatistics )/*++
Routine Description:
Debug print statistics.
Arguments:
None.
Return Value:
None.
--*/{ CHAR szdate[30]; CHAR sztime[20];
DnsPrint_Lock(); if ( pszHeader ) { PrintRoutine( pszHeader ); }
GetDateFormat( LOCALE_SYSTEM_DEFAULT, LOCALE_NOUSEROVERRIDE, (PSYSTEMTIME) &pStatistics->ServerStartTime, NULL, szdate, 30 ); GetTimeFormat( LOCALE_SYSTEM_DEFAULT, LOCALE_NOUSEROVERRIDE, (PSYSTEMTIME) &pStatistics->ServerStartTime, NULL, sztime, 20 ); PrintRoutine( "\n" "DNS Statistics\n" "--------------\n" "\tServer start time %s %s\n", szdate, sztime );
GetDateFormat( LOCALE_SYSTEM_DEFAULT, LOCALE_NOUSEROVERRIDE, (PSYSTEMTIME) &pStatistics->LastClearTime, NULL, szdate, 30 ); GetTimeFormat( LOCALE_SYSTEM_DEFAULT, LOCALE_NOUSEROVERRIDE, (PSYSTEMTIME) &pStatistics->LastClearTime, NULL, sztime, 20 ); PrintRoutine( "\tStats last cleared %s %s\n" "\tSeconds since clear %d\n", szdate, sztime, pStatistics->SecondsSinceLastClear );
//
// query and response counts
//
PrintRoutine( "\n" "Queries and Responses:\n" "----------------------\n" "Total:\n" "\tQueries Received = %d\n" "\tResponses Sent = %d\n" "UDP:\n" "\tQueries Recvd = %d\n" "\tResponses Sent = %d\n" "\tQueries Sent = %d\n" "\tResponses Recvd = %d\n" "TCP:\n" "\tClient Connects = %d\n" "\tQueries Recvd = %d\n" "\tResponses Sent = %d\n" "\tQueries Sent = %d\n" "\tResponses Recvd = %d\n", pStatistics->UdpQueries + pStatistics->TcpQueries, pStatistics->UdpResponses + pStatistics->TcpResponses, pStatistics->UdpQueries, pStatistics->UdpResponses, pStatistics->UdpQueriesSent, pStatistics->UdpResponsesReceived, pStatistics->TcpClientConnections, pStatistics->TcpQueries, pStatistics->TcpResponses, pStatistics->TcpQueriesSent, pStatistics->TcpResponsesReceived );
PrintRoutine( "\n" "Recursion:\n" "----------\n" "\tPackets = %d\n" "\tLookups = %d\n" "\tQuestions = %d\n" "\tPasses = %d\n" "\tForwards = %d\n" "\tSends = %d\n" "\tResponses = %d\n" "\tTimeouts = %d\n" "\tFailures = %d\n" "\tIncomplete = %d\n", pStatistics->RecursePacketUsed, pStatistics->RecurseLookups, pStatistics->RecurseQuestions, pStatistics->RecursePasses, pStatistics->RecurseForwards, pStatistics->RecurseLookups, pStatistics->RecurseResponses, pStatistics->RecurseTimeouts, pStatistics->RecurseFailures, pStatistics->RecursePartialFailures );
PrintRoutine( "TCP Recursion:\n" "\tTry = %d\n" "\tQuery = %d\n" "\tResponse = %d\n" "Root Query:\n" "\tQuery = %d\n" "\tResponse = %d\n", pStatistics->RecurseTcpTry, pStatistics->RecurseTcpQuery, pStatistics->RecurseTcpResponse, pStatistics->RecurseRootQuery, pStatistics->RecurseRootResponse );
PrintRoutine( "\n" "WINS Referrals:\n" "---------------\n" "Forward:\n" "\tLookups = %d\n" "\tResponses = %d\n" "Reverse:\n" "\tLookups = %d\n" "\tResponses = %d\n", pStatistics->WinsLookups, pStatistics->WinsResponses, pStatistics->WinsReverseLookups, pStatistics->WinsReverseResponses );
PrintRoutine( "\n" "Secondary Zone Transfer:\n" "------------------------\n" "SOA Queries = %d\n" "SOA Responses = %d\n" "Notifies Recvd = %d\n" "AXFR Requests = %d\n" "AXFR Rejected = %d\n" "AXFR Failed = %d\n" "AXFR Successful = %d\n", pStatistics->SecSoaQueries, pStatistics->SecSoaResponses, pStatistics->SecNotifyReceived, pStatistics->SecAxfrRequested, pStatistics->SecAxfrRejected, pStatistics->SecAxfrFailed, pStatistics->SecAxfrSuccessful );
PrintRoutine( "\n" "Master Zone Transfer:\n" "---------------------\n" "Notifies Sent = %d\n" "AXFR Requests Recvd = %d\n" "AXFR Invalid Requests = %d\n" "AXFR Denied (Security) = %d\n" "AXFR Refused = %d\n" "AXFR Failed = %d\n" "AXFR Successful = %d\n", pStatistics->MasterNotifySent, pStatistics->MasterAxfrReceived, pStatistics->MasterAxfrInvalid, pStatistics->MasterAxfrDenied, pStatistics->MasterAxfrRefused, pStatistics->MasterAxfrFailed, pStatistics->MasterAxfrSuccessful );
//
// Database stats
//
PrintRoutine( "\n" "Database:\n" "---------\n" "Nodes\n" " InUse = %d\n" " Memory = %d\n" "Records\n" " InUse = %d\n" " Memory = %d\n" "Database Total\n" " Memory = %d\n", pStatistics->NodeInUse, pStatistics->NodeMemory, pStatistics->RecordInUse, pStatistics->RecordMemory, pStatistics->DatabaseMemory );
PrintRoutine( "\n" "RR Caching:\n" "\tTotal = %d\n" "\tCurrent = %d\n" "\tTimeouts = %d\n", pStatistics->CacheRRTotal, pStatistics->CacheRRCurrent, pStatistics->CacheRRTimeouts );
PrintRoutine( "\n" "Domain Nodes:\n" "\tAlloc = %d\n" "\tFree = %d\n" "\tNetAllocs = %d\n" "\tMemory = %d\n" "\n" "\tUsed = %d\n" "\tReturned = %d\n" "\tInUse = %d\n" "\n" "\tStd Alloc = %d\n" "\tStd Used = %d\n" "\tStd Return = %d\n" "\tInFreeList = %d\n", pStatistics->NodeAlloc, pStatistics->NodeFree, pStatistics->NodeNetAllocs, pStatistics->NodeMemory, pStatistics->NodeUsed, pStatistics->NodeReturn, pStatistics->NodeInUse, pStatistics->NodeStdAlloc, pStatistics->NodeStdUsed, pStatistics->NodeStdReturn, pStatistics->NodeInFreeList );
PrintRoutine( "\n" "Records:\n" "\tAlloc = %d\n" "\tFree = %d\n" "\tNetAllocs = %d\n" "\tMemory = %d\n" "\n" "\tUsed = %d\n" "\tReturned = %d\n" "\tInUse = %d\n" "\n" "\tStd Alloc = %d\n" "\tStd Used = %d\n" "\tStd Return = %d\n" "\tInFreeList = %d\n", pStatistics->RecordAlloc, pStatistics->RecordFree, pStatistics->RecordNetAllocs, pStatistics->RecordMemory, pStatistics->RecordUsed, pStatistics->RecordReturn, pStatistics->RecordInUse, pStatistics->RecordStdAlloc, pStatistics->RecordStdUsed, pStatistics->RecordStdReturn, pStatistics->RecordInFreeList );
PrintRoutine( "\n" "Packet Memory Usage:\n" "--------------------\n" "UDP Messages:\n" "\tAlloc = %d\n" "\tFree = %d\n" "\tNetAllocs = %d\n" "\tMemory = %d\n" "\tUsed = %d\n" "\tReturned = %d\n" "\tInUse = %d\n" "\tInFreeList = %d\n" "\n", pStatistics->UdpAlloc, pStatistics->UdpFree, pStatistics->UdpNetAllocs, pStatistics->UdpMemory, pStatistics->UdpUsed, pStatistics->UdpReturn, pStatistics->UdpInUse, pStatistics->UdpInFreeList );
PrintRoutine( "TCP Messages:\n" "\tAlloc = %d\n" "\tRealloc = %d\n" "\tFree = %d\n" "\tNetAllocs = %d\n" "\tMemory = %d\n" "\n", pStatistics->TcpAlloc, pStatistics->TcpRealloc, pStatistics->TcpFree, pStatistics->TcpNetAllocs, pStatistics->TcpMemory );
PrintRoutine( "Recursion Messages:\n" "\tUsed = %d\n" "\tReturned = %d\n" "\n", pStatistics->RecursePacketUsed, pStatistics->RecursePacketReturn );
PrintRoutine( "\n" "Nbstat Memory Usage:\n" "--------------------\n" "Nbstat Buffers:\n" "\tAlloc = %d\n" "\tFree = %d\n" "\tNetAllocs = %d\n" "\tMemory = %d\n" "\tUsed = %d\n" "\tReturned = %d\n" "\tInUse = %d\n" "\tInFreeList = %d\n" "\n", pStatistics->NbstatAlloc, pStatistics->NbstatFree, pStatistics->NbstatNetAllocs, pStatistics->NbstatMemory, pStatistics->NbstatUsed, pStatistics->NbstatReturn, pStatistics->NbstatInUse, pStatistics->NbstatInFreeList ); DnsPrint_Unlock();}
VOIDDns4_Print_RpcZoneHandleList( IN PRINT_ROUTINE PrintRoutine, IN LPSTR pszHeader, IN DWORD dwZoneCount, IN DNS_HANDLE ahZones[] ){ DWORD i;
DnsPrint_Lock(); if ( pszHeader ) { PrintRoutine( pszHeader ); } PrintRoutine( "Zone Count = %d\n", dwZoneCount );
if ( dwZoneCount != 0 && ahZones != NULL ) { for( i=0; i<dwZoneCount; i++ ) { PrintRoutine( "\thZones[%d] => %p\n", i, ahZones[i] ); } }}
VOIDDns4_Print_RpcZoneInfo( IN PRINT_ROUTINE PrintRoutine, IN LPSTR pszHeader, IN PDNS4_ZONE_INFO pZoneInfo ){ DnsPrint_Lock(); PrintRoutine( (pszHeader ? pszHeader : "") );
if ( ! pZoneInfo ) { PrintRoutine( "NULL zone info ptr.\n" ); } else { PrintRoutine( "Zone info:\n" "\tptr = %p\n" "\thZone = %p\n" "\tzone name = %s\n" "\tzone type = %d\n" "\tusing dbase = %d\n" "\tdata file = %s\n" "\tusing WINS = %d\n" "\tusing Nbstat = %d\n", pZoneInfo, pZoneInfo->hZone, pZoneInfo->pszZoneName, pZoneInfo->dwZoneType, pZoneInfo->fUseDatabase, pZoneInfo->pszDataFile, pZoneInfo->fUseWins, pZoneInfo->fUseNbstat );
DnsPrint_IpArray( PrintRoutine, NULL, "\tZones Masters\n", "\tMaster", pZoneInfo->aipMasters );
DnsPrint_IpArray( PrintRoutine, NULL, "\tZone Secondaries\n", "\tSecondary", pZoneInfo->aipSecondaries );
PrintRoutine( "\tsecure secs = %d\n", pZoneInfo->fSecureSecondaries ); } DnsPrint_Unlock();}
VOIDDns4_Print_RpcZoneInfoList( IN PRINT_ROUTINE PrintRoutine, IN LPSTR pszHeader, IN DWORD dwZoneCount, IN PDNS4_ZONE_INFO apZoneInfo[] ){ DWORD i;
DnsPrint_Lock(); PrintRoutine( (pszHeader ? pszHeader : "") ); PrintRoutine( "Zone Count = %d\n", dwZoneCount );
if ( dwZoneCount != 0 && apZoneInfo != NULL ) { for (i=0; i<dwZoneCount; i++) { PrintRoutine( "\n[%d]", i ); Dns4_Print_RpcZoneInfo( PrintRoutine, NULL, apZoneInfo[i] ); } } DnsPrint_Unlock();}
VOIDDns4_Print_RpcRecord( IN PRINT_ROUTINE PrintRoutine, IN LPSTR pszHeader, IN PDNS4_RPC_RECORD pRecord ){ PCHAR pRecordString; PDNS4_RPC_RECORD pnt4Record; WORD type;
DnsPrint_Lock(); PrintRoutine( (pszHeader ? pszHeader : "" ) );
if ( ! pRecord ) { PrintRoutine( "NULL record ptr.\n" ); goto Done; }
//
// record fixed fields
//
type = pRecord->wType; pRecordString = Dns_RecordStringForType( type ); if ( !pRecordString ) { pRecordString = "UNKNOWN"; } PrintRoutine( " %s Record (NT4):\n" "\tptr = %p\n" "\thRecord = %p\n" "\twLength = %u\n" "\twDataLength = %u\n" "\twType = %s (%u)\n" "\twClass = %u\n" "\tdwFlags = %lx\n" "\tdwTtlSeconds = %u\n", pRecordString, pRecord, pRecord->hRecord, pRecord->wRecordLength, pRecord->wDataLength, pRecordString, type, pRecord->wClass, pRecord->dwFlags, pRecord->dwTtlSeconds );
//
// print record type and data
// - as single line data where possible
PrintRoutine( " %s ", pRecordString );
switch ( type ) { case DNS_TYPE_A:
PrintRoutine( "%d.%d.%d.%d\n", * ( (PUCHAR) &(pRecord->Data.A) + 0 ), * ( (PUCHAR) &(pRecord->Data.A) + 1 ), * ( (PUCHAR) &(pRecord->Data.A) + 2 ), * ( (PUCHAR) &(pRecord->Data.A) + 3 ) ); break;
case DNS_TYPE_PTR: case DNS_TYPE_NS: case DNS_TYPE_CNAME: case DNS_TYPE_MD: case DNS_TYPE_MB: case DNS_TYPE_MF: case DNS_TYPE_MG: case DNS_TYPE_MR:
//
// these RRs contain single indirection
//
DnsPrint_RpcName( PrintRoutine, NULL, & pRecord->Data.NS.nameNode, "\n" ); break;
case DNS_TYPE_MX: case DNS_TYPE_RT: case DNS_TYPE_AFSDB:
//
// these RR contain
// - one preference value
// - one domain name
//
PrintRoutine( "%d ", pRecord->Data.MX.wPreference ); DnsPrint_RpcName( PrintRoutine, NULL, & pRecord->Data.MX.nameExchange, "\n" ); break;
case DNS_TYPE_SOA:
DnsPrint_RpcName( PrintRoutine, "\n\tPrimaryNameServer: ", & pRecord->Data.SOA.namePrimaryServer, "\n" );
// responsible party name, immediately follows primary server name
DnsPrint_RpcName( PrintRoutine, "\tResponsibleParty: ", (PDNS_RPC_NAME) (pRecord->Data.SOA.namePrimaryServer.achName + pRecord->Data.SOA.namePrimaryServer.cchNameLength), "\n" );
PrintRoutine( "\tSerialNo = %lu\n" "\tRefresh = %lu\n" "\tRetry = %lu\n" "\tExpire = %lu\n" "\tMinimumTTL = %lu\n", pRecord->Data.SOA.dwSerialNo, pRecord->Data.SOA.dwRefresh, pRecord->Data.SOA.dwRetry, pRecord->Data.SOA.dwExpire, pRecord->Data.SOA.dwMinimumTtl ); break;
case DNS_TYPE_MINFO: case DNS_TYPE_RP:
//
// these RRs contain two domain names
//
DnsPrint_RpcName( PrintRoutine, "\n\tMailBox: ", & pRecord->Data.MINFO.nameMailBox, NULL );
// errors to mailbox name, immediately follows mail box
DnsPrint_RpcName( PrintRoutine, "\tErrorsToMailbox: ", (PDNS_RPC_NAME) ( pRecord->Data.MINFO.nameMailBox.achName + pRecord->Data.MINFO.nameMailBox.cchNameLength ), "\n" ); break;
case DNS_TYPE_AAAA: case DNS_TYPE_HINFO: case DNS_TYPE_ISDN: case DNS_TYPE_X25: case DNS_TYPE_TEXT: { //
// all these are simply text string(s)
//
PCHAR pch = (PCHAR) &pRecord->Data.TXT.stringData; PCHAR pchStop = pch + pRecord->wDataLength; UCHAR cch;
while ( pch < pchStop ) { cch = (UCHAR) *pch++;
PrintRoutine( "\t%.*s\n", cch, pch );
pch += cch; } ASSERT( pch == pchStop ); break; }
case DNS_TYPE_WKS: { INT i;
PrintRoutine( "WKS: Address %d.%d.%d.%d\n" "\tProtocol %d\n" "\tBitmask\n", * ( (PUCHAR) &(pRecord->Data.WKS.ipAddress) + 0 ), * ( (PUCHAR) &(pRecord->Data.WKS.ipAddress) + 1 ), * ( (PUCHAR) &(pRecord->Data.WKS.ipAddress) + 2 ), * ( (PUCHAR) &(pRecord->Data.WKS.ipAddress) + 3 ), pRecord->Data.WKS.chProtocol );
for ( i = 0; i < (INT)( pRecord->wDataLength - sizeof( pRecord->Data.WKS.ipAddress ) - sizeof( pRecord->Data.WKS.chProtocol ) ); i++ ) { PrintRoutine( "\t\tbyte[%d] = %x\n", i, (UCHAR) pRecord->Data.WKS.bBitMask[i] ); } break; }
case DNS_TYPE_NULL: { INT i;
for ( i = 0; i < pRecord->wDataLength; i++ ) { // print one DWORD per line
if ( !(i%16) ) { PrintRoutine( "\n\t" ); } PrintRoutine( "%02x ", (UCHAR) pRecord->Data.Null.bData[i] ); } PrintRoutine( "\n" ); break; }
case DNS_TYPE_SRV:
//
// SRV <priority> <weight> <port> <target host>
//
PrintRoutine( "%d %d %d ", pRecord->Data.SRV.wPriority, pRecord->Data.SRV.wWeight, pRecord->Data.SRV.wPort ); DnsPrint_RpcName( PrintRoutine, NULL, & pRecord->Data.SRV.nameTarget, "\n" ); break;
case DNS_TYPE_WINS: { DWORD i;
//
// WINS
// - scope/domain mapping flag
// - WINS server list
//
PrintRoutine( "%08lx\n", pRecord->Data.WINS.dwMappingFlag );#if 0
//
// DEVNOTE: WINS mapping strings
// JJW: this is probably an obsolete B*GB*G
//
"%s\t", Dns_WinsMappingFlagString( pRecord->Data.WINS.dwMappingFlag )#endif
for( i=0; i<pRecord->Data.WINS.cWinsServerCount; i++ ) { PrintRoutine( "%d.%d.%d.%d\n", * ( (PUCHAR) &(pRecord->Data.WINS.aipWinsServers[i]) + 0 ), * ( (PUCHAR) &(pRecord->Data.WINS.aipWinsServers[i]) + 1 ), * ( (PUCHAR) &(pRecord->Data.WINS.aipWinsServers[i]) + 2 ), * ( (PUCHAR) &(pRecord->Data.WINS.aipWinsServers[i]) + 3 ) ); } break; }
case DNS_TYPE_NBSTAT:
//
// NBSTAT
// - scope/domain mapping flag
// - optionally a result domain
//
PrintRoutine( "%08lx\n", pRecord->Data.NBSTAT.dwMappingFlag );
if ( pRecord->wDataLength > sizeof(pRecord->Data.NBSTAT.dwMappingFlag) ) { DnsPrint_RpcName( PrintRoutine, NULL, & pRecord->Data.NBSTAT.nameResultDomain, "\n" ); } break;
default: PrintRoutine( "Unknown resource record type (%d) at %p.\n", pRecord->wType, pRecord ); break; }
Done: DnsPrint_Unlock();}
VOIDDNS_API_FUNCTIONDns4_Print_RpcRecordsInBuffer( IN PRINT_ROUTINE PrintRoutine, IN LPSTR pszHeader, IN DWORD dwBufferLength, IN BYTE abBuffer[] ){ PBYTE pbCurrent; PBYTE pbStop; INT cRecordCount;
DnsPrint_Lock(); PrintRoutine( (pszHeader ? pszHeader : "") );
if ( !abBuffer ) { PrintRoutine( "NULL record buffer ptr.\n" ); goto Done; } else { PrintRoutine( "Record buffer of length %d at %p:\n", dwBufferLength, abBuffer ); }
//
// find stop byte
//
ASSERT( DNS_IS_DWORD_ALIGNED(abBuffer) );
pbStop = abBuffer + dwBufferLength; pbCurrent = abBuffer;
//
// loop until out of nodes
//
while( pbCurrent < pbStop ) { //
// print owner node
// determine record count
// find first record
//
DnsPrint_RpcNode( PrintRoutine, NULL, (PDNS_RPC_NODE)pbCurrent );
cRecordCount = ((PDNS_RPC_NODE)pbCurrent)->wRecordCount; pbCurrent += ((PDNS_RPC_NODE)pbCurrent)->wLength; pbCurrent = DNS_NEXT_DWORD_PTR(pbCurrent);
//
// for each node, print all records in list
//
while( cRecordCount-- ) { if ( pbCurrent >= pbStop ) { PrintRoutine( "ERROR: Bogus buffer at %p\n" "\tExpect record at %p past buffer end at %p\n" "\twith %d records remaining.\n", abBuffer, (PDNS_RPC_RECORD) pbCurrent, pbStop, cRecordCount+1 );
ASSERT( FALSE ); break; }
Dns4_Print_RpcRecord( PrintRoutine, "", (PDNS4_RPC_RECORD) pbCurrent );
pbCurrent += ((PDNS4_RPC_RECORD)pbCurrent)->wDataLength + SIZEOF_DNS4_RPC_RECORD_HEADER; pbCurrent = DNS_NEXT_DWORD_PTR(pbCurrent); } }
Done: DnsPrint_Unlock();}
//
// End of nt4api.c
//
|
