Category : Network Files
Archive   : SAP.ZIP
Filename : SAP.C

/*****************************************************************************
*
* Program Name: SAP_Routines
*
* Filename: sap.c
*
* Date Created: March 22, 1988
*
* Programmers: Bryan Sparks
*
* Files used: comm.h sapa.asm
*
* Comments: This is a plug-in module that will do service advertising.
*
****************************************************************************/

#include "comm.h"

/* We will keep this pointer around so as to keep track of the */
/* oscillating ECB. We will need to know where it is later so we */
/* can cancel the event associated with that ECB. */
ECB *DownECBPointer;

void StartSAPOscillationRoutines( ServerName, ServerType, ServerSocket )
char ServerName[48];
int ServerType;
unsigned int ServerSocket;
{
SAPData *SAPDataEntity;
ECB *SAPECB;
IPXPacket *SAPPacket;
void SAPWaitESRHandler();
void SAPAdvertiseESRHandler();

/* Allocate memory for ECB, IPXPacket, and SAPData Fragment */
SAPECB = (ECB *)calloc( 1, sizeof( ECB ) );
SAPDataEntity = (SAPData *)calloc( 1, sizeof( SAPData ) );
SAPPacket = (IPXPacket *)calloc( 1, sizeof( IPXPacket ) );

/* Initialize the variables for the SAP IPXPacket. */
/* Notice that I broadcast on socket 452h (The SAP Socket) */
/* You need not have the socket open to send on the socket. */
SAPPacket->PacketType = (unsigned char)4;
SAPPacket->PacketLength = IntSwap( sizeof( IPXPacket ) );
IPXGetInternetworkAddress( (unsigned char *)SAPPacket->Destination.Network );
/* Broadcast on the local network, thus the 0xFFs */
memset( SAPPacket->Destination.Node, 0xFF, 6 );
SAPPacket->Destination.Socket = 0x5204;

/* I initialize the SAP data packet. See the SAP document for details. */
SAPDataEntity->InfoType = IntSwap( 2 );
SAPDataEntity->ServerType = IntSwap( ServerType );
strcpy( SAPDataEntity->ServerName, ServerName);
IPXGetInternetworkAddress( (unsigned char *)SAPDataEntity->Address.Network );
SAPDataEntity->IntermediateNetworks = IntSwap( 1 );
SAPDataEntity->Address.Socket = ServerSocket;

/* Initialize the ECB. */
SAPECB->ESRAddress = (char far *)SAPWaitESRHandler;
SAPECB->InUseFlag = 0;
SAPECB->FragmentCount = 2;
SAPECB->ECBSocket = 0x5204;
memset( SAPECB->ImmediateAddress, 0xFF, 6 );
SAPECB->FragmentDescriptor[0].Address = (char far *)SAPPacket;
SAPECB->FragmentDescriptor[0].Size = sizeof (IPXPacket );
SAPECB->FragmentDescriptor[1].Address = (char far *)SAPDataEntity;
SAPECB->FragmentDescriptor[1].Size = sizeof( SAPData );

/* Keep track of where this ECB is for canceling later. */
DownECBPointer = SAPECB;

IPXSendPacket( SAPECB );

}


/* These two ESRs require some explanation. */
/* When the IPXSendPacket is done above the ESR SAPWaitESR will be called */
/* This ESR will immediately change the ESR to SAPAdvertiseESR and waits */
/* one minute. In one minute the SAPAdvertiseESR will be activated and */
/* it will change the ESR to SAPWaitESR and then do a send packet. */
/* These two ESRs will oscillate back and forth thus doing SAP calls. */
void SAPWaitESR( wECB )
ECB *wECB;
{
wECB->ESRAddress = (char far *)SAPAdvertiseESRHandler;
IPXScheduleIPXEvent( 60*18, wECB ); /* Every 60 Seconds */
}


void SAPAdvertiseESR( wECB )
ECB *wECB;
{
wECB->ESRAddress = (char far *)SAPWaitESRHandler;
IPXSendPacket( wECB );
}


int StopSAPOscillationRoutines( ServerName, ServerType, ServerSocket )
char ServerName[48];
int ServerType;
unsigned int ServerSocket;
{
SAPData *wDataEntity;
ECB *wECB;
IPXPacket *wPacket;


/* First we will cancel the SAP oscillation ESRs. */
IPXCancelEvent( DownECBPointer );
while (DownECBPointer->InUseFlag)
;

/* Was the event canceled? FC means yes. */
if (DownECBPointer->CompletionCode != 0xFC)
return (-1);

/* Now we will send out a IPX packet telling everyone that this */
/* server is down. See the SAP document for details. */
wECB = (ECB *)calloc( 1, sizeof( ECB ) );
wDataEntity = (SAPData *)calloc( 1, sizeof( SAPData ) );
wPacket = (IPXPacket *)calloc( 1, sizeof( IPXPacket ) );

wPacket->PacketType = (unsigned char)4;
wPacket->PacketLength = IntSwap( sizeof( IPXPacket ) );
IPXGetInternetworkAddress( (unsigned char *)wPacket->Destination.Network );
/* Broadcast on the local network, thus the 0xFFs */
memset( wPacket->Destination.Node, 0xFF, 6 );
wPacket->Destination.Socket = 0x5204;

/* I initialize the SAP data packet. See the SAP document for details. */
/* Tell everyone that I am going down. (Thus the 16 intermediate networks) */
wDataEntity->InfoType = IntSwap( 2 );
wDataEntity->ServerType = IntSwap( ServerType );
strcpy( wDataEntity->ServerName, ServerName);
IPXGetInternetworkAddress( (unsigned char *)wDataEntity->Address.Network );
wDataEntity->IntermediateNetworks = IntSwap( 16 );
wDataEntity->Address.Socket = ServerSocket;

/* Initialize the ECB. */
wECB->FragmentCount = 2;
wECB->ECBSocket = 0x5204;
memset( wECB->ImmediateAddress, 0xFF, 6 );
wECB->FragmentDescriptor[0].Address = (char far *)wPacket;
wECB->FragmentDescriptor[0].Size = sizeof (IPXPacket );
wECB->FragmentDescriptor[1].Address = (char far *)wDataEntity;
wECB->FragmentDescriptor[1].Size = sizeof( SAPData );

IPXSendPacket( wECB );
while( wECB->InUseFlag )
;

return (0);

}

/* Convert string to upper case */
void ConvertToUpper(destination, source)
char *source, *destination;
{
int i;

for (i=0;source[i];i++)
destination[i] = toupper(source[i]);
destination[i] = '\0';
}