// Heart Beat requeset
APP_Error HeartBeat_Request(TLP_Head_Struct *pHeadInfo)
{
GSM_Error res;
uint32_t timestamp;
Packet_Struct Packet;
uint16_t crc_resault;
TLP_Head_Struct *PacketHead;
uint8_t *pData;
PacketHead = (TLP_Head_Struct *)&(Packet.Data[0]);
pData = (uint8_t *)&(Packet.Data[0]) + sizeof(TLP_Head_Struct);
// no need to change
PacketHead->version = _VERSION;
PacketHead->length = sizeof(TLP_Head_Struct);
PacketHead->type = _TransmitCtrl; // device to server
PacketHead->medium = _TransmitType; // UDP
PacketHead->encrypt = _Encrypt; // encrypt none
PacketHead->reserve = _Reserve;
PacketHead->DEV_IDH = HTONL(_DEV_IDH);
PacketHead->DEV_IDL = HTONL(_DEV_IDL);
//need to change
GetTimestamp(×tamp);
PacketHead->timestamp = HTONL(timestamp); // need to fix
PacketHead->SEQ_num = HTONL(Get_SEQ());
// send the ack
*(pData++) = HEART_BEAT; // command type
*(pData++) = (uint8_t)(_HeartBeat>>8);
*(pData++) = (uint8_t)(_HeartBeat); // action
Packet.length = pData - ((uint8_t *)&(Packet.Data[0]));
// get the crc16
pData = (uint8_t *)&(Packet.Data[0]) + 2;
crc_resault = Caculate(pData, (Packet.length-2));
PacketHead->crc16 = HTONS(crc_resault);
// send packet
res = UDP_SendPacket((char *)&(Packet.Data[0]), Packet.length);
if(res!=ERR_NONE){
DEBUG("%s : ACK ...Error!\n",__func__);
return APP_ERR_SEND;
} else {
DEBUG("%s : ACK ...OK\n",__func__);
return APP_ERR_NONE;
}
}
void UDP_echo( void )
{
// make an static UDPbuffer
// warning, do not use an stack-allocated buffer! it will be damage the udp-packet
static unsigned char UDPBuffer[ UDP_Bufferlen ];
// if an Socket created or opened, if not, create them ?
if ( UDP_Socket == 0xffff )
UDP_Socket = UDP_ListenOnPort( UDPPORT_ECHO, UDP_Bufferlen, UDPBuffer );
else
{
if ( UDP_GetSocketState( UDP_Socket ) == SOCKET_BUSY )
{
LockEthernet();
UDP_SendPacket( UDP_Socket, UDP_GetByteInBuffer( UDP_Socket ), UDPBuffer );
FreeEthernet();
UDP_CloseSocket( UDP_Socket );
UDP_Socket = 0xffff;
}
}
return;
}
/*------------------------------------------------------------------------------------------------------------*/
unsigned int NTP_GetTime( unsigned long IP, char * dnsbuffer, char timedif )
{
char buffer[ NTP_SIZE ];
int i=0, socket, timer, retval = NTP_ERROR;
#if defined(NTP_DEBUG)
char String[30];
#endif
union DATE ZeitInSek;
struct TIME time;
#if defined(NTP_DEBUG)
printf_P( PSTR("Oeffne neues Socket.\r\n") );
#endif
if ( IP == 0 )
{
#ifdef UDP
#ifdef DNS
if ( dnsbuffer != 0 )
{
// Host nach IP auflösen
IP = DNS_ResolveName( dnsbuffer );
// könnte er aufgelöst werden ?
if ( IP == DNS_NO_ANSWER ) return( NTP_ERROR );
}
else
#endif
#endif
return( NTP_ERROR );
}
// UDP-socket aufmachen für Bootp
socket = UDP_RegisterSocket( IP , 37 , NTP_SIZE , buffer);
// Wenn Fehler aufgetretten, return
if ( socket == UDP_SOCKET_ERROR )
{
return ( NTP_ERROR );
}
#if defined(NTP_DEBUG)
printf_P( PSTR("UDP-Socket aufgemacht zur %s.\r\n"), iptostr( IP, String ) );
#endif
// leeres UDP-Packet an Time-server senden
UDP_SendPacket( socket, 0 , buffer);
#if defined(NTP_DEBUG)
printf_P( PSTR("UDP-Packet gesendet.\r\n"));
#endif
// Timeout-counter reservieren und starten
timer = CLOCK_RegisterCountdowntimer();
if ( timer == CLOCK_FAILED ) return ( NTP_ERROR );
CLOCK_SetCountdownTimer( timer , 500, MSECOUND );
#if defined(NTP_DEBUG)
printf_P( PSTR("Warte auf Antwort."));
#endif
// Auf Antwort des Timer-Servers warten
while( 1 )
{
// Wenn Time-Server geantwortet hat inerhalb des Timeouts, hier weiter
if ( UDP_GetSocketState( socket ) == UDP_SOCKET_BUSY && ( CLOCK_GetCountdownTimer( timer ) != 0 ) )
{
// Sind 4 Bytes empfangen worden, wenn ja okay, sonst fehler
if ( UDP_GetByteInBuffer( socket ) >= 4 )
{
// Daten kopieren und Zeit ausrechnen
for ( i = 0 ; i < 4 ; i++ )
ZeitInSek.DateByte[ i ] = buffer[ 3 - i ];
CLOCK_GetTime( &time );
time.time = ZeitInSek.Date;
time.timezone = timedif;
CLOCK_decode_time( &time );
CLOCK_SetTime( &time );
retval = NTP_OK;
#if defined(NTP_DEBUG)
printf_P( PSTR("Antwort erhalten.\r\n"));
#endif
// fertisch
break;
}
else
{
#if defined(NTP_DEBUG)
printf_P( PSTR("Falsches Format der Antwort.\r\n"));
#endif
retval = NTP_ERROR;
break;
}
}
// Timeout erreicht ? Wenn ja Fehler.
if ( CLOCK_GetCountdownTimer( timer ) == 0 )
{
#if defined(NTP_DEBUG)
printf_P( PSTR("Timeout beun warten auf Antwort.\r\n"));
#endif
retval = NTP_ERROR;
break;
}
}
// timer freigeben und UDP-Socket schliessen
CLOCK_ReleaseCountdownTimer( timer );
UDP_CloseSocket( socket );
#if defined(NTP_DEBUG)
printf_P( PSTR("UDP-Socket geschlossen.\r\n"));
#endif
return( retval );
}
/*! \brief Holt von einen Hostname die IP-Adressen
* \warning Es ist drauf zu achten das genug Speicher vorgesehen ist fuer die Anworten und das auch Packete mit entsprechender groesse
* vom Ethernetmodul empfagen werden koennen und nicht verworfen werden. Siehe MAX_FRAMELEN in enc28j60.h .
* \param HOSTNAME Zeiger auf den Hostnamestring der mit 0 teminiert ist.
* \retval IP Die IP des Hostname, wenn IP = DNS_NO_ANSWER ist war die Anfrage nicht erfolgreich. Es sollte der DNSserver Eintrag ueberprueft werden
* oder die richtigkeit des Hostname.
*/
unsigned long DNS_ResolveName( char * HOSTNAME )
{
int i,UDP_socket;
int timer;
// udp-puffer anlegen
unsigned char * udpbuffer;
udpbuffer = (unsigned char*) __builtin_alloca (( size_t ) DNS_BUFFER_LENGHT );
// DNS-struct in udp-puffer anlegen
struct DNS_header * DNS_question;
DNS_question = ( struct DNS_header *) udpbuffer;
// DNS anfrage bauen
DNS_question->TransactionID = 0x1acd;
DNS_question->Flags = ChangeEndian16bit( 0x0100 );
DNS_question->Questions = ChangeEndian16bit( 1 );
DNS_question->Answer_RRs = 0;
DNS_question->Authority_RRs = 0;
DNS_question->Additional_RRs = 0;
// Hostename für DNS umwandeln, in i steht die länge des neuen strings
i = DNS_convertHostName( HOSTNAME, DNS_question->Queries );
DNS_question->Queries[i + 1] = '\0';
DNS_question->Queries[i + 2] = 1;
DNS_question->Queries[i + 3] = '\0';
DNS_question->Queries[i + 4] = 1;
i = i + 5;
// Antwortstruct anlegen
struct DNS_answer * DNS_ans;
DNS_ans = ( void * ) &DNS_question->Queries[i];
// UDP-Paccket senden
UDP_socket = UDP_RegisterSocket( DNSserver , DNS_SERVER_PORT, DNS_BUFFER_LENGHT , udpbuffer);
if ( UDP_socket == UDP_SOCKET_ERROR )
return( DNS_NO_ANSWER );
UDP_SendPacket( UDP_socket, DNS_HEADER_LENGHT + i , udpbuffer);
// empfang des der DNS-Atwort abwarten
timer = CLOCK_RegisterCoundowntimer();
if ( timer == CLOCK_FAILED ) return ( DNS_NO_ANSWER );
CLOCK_SetCountdownTimer ( timer, DNS_REQUEST_TIMEOUT, MSECOUND );
while ( 1 )
{
if ( UDP_GetSocketState( UDP_socket ) == UDP_SOCKET_BUSY )
{
CLOCK_ReleaseCountdownTimer( timer );
UDP_CloseSocket( UDP_socket );
if ( ( ChangeEndian16bit( DNS_question->Flags ) & 0x000f ) != 0 ) return ( DNS_NO_ANSWER );
break;
}
if ( CLOCK_GetCountdownTimer( timer ) == 0 )
{
CLOCK_ReleaseCountdownTimer( timer );
UDP_CloseSocket( UDP_socket );
return( DNS_NO_ANSWER );
}
}
// Antwortpacket auseinander nehmen
while ( 1 )
{
// Wenn noch nicht der Hosteintrag dann nächsten DNS-Answer Datensatz
if ( ChangeEndian16bit( DNS_ans->Type ) != A_HOSTNAME )
{
i = i + ChangeEndian16bit( DNS_ans->Datalenght ) + DNS_ANSWER_HEADER_LENGHT;
DNS_ans = ( void * ) &DNS_question->Queries[i];
}
else break;
}
return( DNS_ans->Adress );
}
