ò'C1:: V)lE,Q   ~~'CtBB V)lE4  ?"đ!'CBBKE4<] ~Y  ~"!*'Cc  K V)lEN7 1e/************************************************************************** * * Copyright (C) 2006 Steve Karg * * Permission is hereby granted, free of charge, to any person obtaining * a copy of this software and associated documentation files (the * "Software"), to deal in the Software without restriction, including * without limitation the rights to use, copy, modify, merge, publish, * distribute, sublicense, and/or'C.<<( ~~~~~~~~~~~~~~~~~~~~~~~~'C@@ V)lKE'<`O 0 'CBB V)lE4  ?"đ!'CK V)lE. 2e sell copies of the Software, and to * permit persons to whom the Software is furnished to do so, subject to * the following conditions: * * The above copyright notice and this permission notice shall be included * in all copies or substantial portions of the Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF * MERCHANTABILITY, FITNESS FOR A PARTICULAR 'C<< (?"đ!'CA5<< (~"!***************'CQF@@ V)lKE(<^M 0 'CFBB V)lE4  ?"đ!'C?HK V)lER݁ 2ePURPOSE AND NONINFRINGEMENT. * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. * *********************************************************************/ /* READFILE: command line tool that writes a file to a BACnet device. */ #include'Cf<< (?"đ!'Cz@@ V)lKE(<]L 0 'CzBB V)lE4  ?"đ!'Cc|K V)lEQ 2de #include #include #include #include /* for time */ #include #include "bactext.h" #include "iam.h" #include "awf.h" #include "tsm.h" #include "address.h" #include "config.h" #include "bacdef.h" #include "npdu.h" #include "apdu.h" #include "device.h" #include "net.h" #include "datalink.h" #include "whois.h" /* some demo stuff needed */ #include "handlers.h" #include "txbuf.h"'C<< (?"đ!'C@@ V)lKE(<\JR 0 d'C<< (?"đ!'CBB V)lE4  ?"đ!'CK V)lEC 20e // buffer used for receive static uint8_t Rx_Buf[MAX_MPDU] = {0}; /* global variables used in this file */ static uint32_t Target_File_Object_Instance = 4194303; static uint32_t Target_Device_Object_Instance = 4194303; static BACNET_ADDRESS Target_Address; static char *Local_File_Name = NULL; static bool End_Of_File_Detected = false; static bool Error_Detected = false; static uint8_t Current_Invoke_ID = 0; static void Atomic_Read_File_Err'C@@ V)lKE(<[H 0 0'C-BB V)lE4  ?"đ!'CK V)lE. 2eor_Handler( BACNET_ADDRESS *src, uint8_t invoke_id, BACNET_ERROR_CLASS error_class, BACNET_ERROR_CODE error_code) { /* FIXME: verify src and invoke id */ (void)src; (void)invoke_id; printf("\r\nBACnet Error!\r\n"); printf("Error Class: %s\r\n", bactext_error_class_name(error_class)); printf("Error Code: %s\r\n", bactext_error_code_name(error_code)); Error_Detected = true; } void MyAbortHandler( BACNET_ADDR'C<< (?"đ!'Co(<< (?"đ!'CL@@ V)lKE(<ZF 0 'CLBB V)lE4  ?"đ!'CNK V)lE 2 eESS *src, uint8_t invoke_id, uint8_t abort_reason) { /* FIXME: verify src and invoke id */ (void)src; (void)invoke_id; printf("\r\nBACnet Abort!\r\n"); printf("Abort Reason: %s\r\n", bactext_abort_reason_name(abort_reason)); Error_Detected = true; } void MyRejectHandler( BACNET_ADDRESS *src, uint8_t invoke_id, uint8_t reject_reason) { /* FIXME: verify src and invoke id */ (void)src; (void)invoke_id; p'Cq<< (?"đ!'Cdt@@ V)lKE(<YD 0 'CtBB V)lE4  ?"đ!'CWvK V)lEu 2 erintf("\r\nBACnet Reject!\r\n"); printf("Reject Reason: %s\r\n", bactext_reject_reason_name(reject_reason)); Error_Detected = true; } static uint8_t Send_Atomic_Write_File_Stream( uint32_t device_id, uint32_t file_instance, int fileStartPosition, BACNET_OCTET_STRING *fileData) { BACNET_ADDRESS dest; BACNET_ADDRESS my_address; unsigned max_apdu = 0; uint8_t invoke_id = 0; bool status = false; int pdu_len = 0; 'C<< (?"đ!'Cm@@ V)lKE(<XC 0 'CBB V)lE4  ?"đ!'CK V)lEٲ  2`e int bytes_sent = 0; BACNET_ATOMIC_WRITE_FILE_DATA data; /* is the device bound? */ status = address_get_by_device(device_id, &max_apdu, &dest); /* is there a tsm available? */ if (status) status = tsm_transaction_available(); if (status) { datalink_get_my_address(&my_address); pdu_len = npdu_encode_apdu( &Handler_Transmit_Buffer[0], &dest, &my_address, true, // true for confirmed message'C<< (?"đ!'C3@@ V)lKE(<WAQ 0  `'CBB V)lE4  ?"đ!'CXK V)lE  2,es MESSAGE_PRIORITY_NORMAL); invoke_id = tsm_next_free_invokeID(); // load the data for the encoding data.object_type = OBJECT_FILE; data.object_instance = file_instance; data.access = FILE_STREAM_ACCESS; data.type.stream.fileStartPosition = fileStartPosition; status = octetstring_copy(&data.fileData, fileData); if (status) { pdu_len += awf_encode_apdu( &Handler_Transmit_Buffer[pdu_len], 'CN << (?"đ!'C%$ @@ V)lKE(<V? 0  ,'Cq$ BB V)lE4  ?"đ!'C& K V)lEс  2e invoke_id, &data); /* will the APDU fit the target device? note: if there is a bottleneck router in between us and the destination, we won't know unless we have a way to check for that and update the max_apdu in the address binding table. */ if ((unsigned)pdu_len <= max_apdu) { tsm_set_confirmed_unsegmented_transaction( invoke_id, &dest, 'C`F << (?"đ!'C0o @@ V)lKE(<U= 0  'C{o BB V)lE4  ?"đ!'C[q K V)lE@  2e &Handler_Transmit_Buffer[0], pdu_len); bytes_sent = datalink_send_pdu( &dest, // destination address &Handler_Transmit_Buffer[0], pdu_len); // number of bytes of data if (bytes_sent <= 0) fprintf(stderr,"Failed to Send AtomicWriteFile Request (%s)!\n", strerror(errno)); } else fprintf(stderr,"Failed to Send AtomicWriteFile Request " "(p'C << (?"đ!'C @@ V)lKE(<T; 0  'C] BB V)lE4  ?"đ!'C K V)lEl  2eayload [%d] exceeds destination maximum APDU [%u])!\n", pdu_len,max_apdu); } else fprintf(stderr,"Failed to Send AtomicWriteFile Request " "(payload [%d] exceeds octet string capacity)!\n"); } return invoke_id; } static void Send_WhoIs(uint32_t device_id) { int pdu_len = 0; BACNET_ADDRESS dest; int bytes_sent = 0; /* Who-Is is a global broadcast */ datalink_get_broadcast_address(&dest); 'C << (?"đ!'C @@ V)lKE(<S: 0  'CK BB V)lE4  ?"đ!'C K V)lEi 2\e /* encode the NPDU portion of the packet */ pdu_len = npdu_encode_apdu( &Handler_Transmit_Buffer[0], &dest, NULL, false, // true for confirmed messages MESSAGE_PRIORITY_NORMAL); /* encode the APDU portion of the packet */ pdu_len += whois_encode_apdu( &Handler_Transmit_Buffer[pdu_len], device_id, device_id); bytes_sent = datalink_send_pdu( &dest, /* destination address */ &Handler_Trans'C << (?"đ!'C @@ V)lKE( <R8P 0 \'C BB V)lE4  ?"đ!'C K V)lEA 2(emit_Buffer[0], pdu_len); /* number of bytes of data */ if (bytes_sent <= 0) fprintf(stderr,"Failed to Send Who-Is Request (%s)!\n", strerror(errno)); } static void LocalIAmHandler( uint8_t *service_request, uint16_t service_len, BACNET_ADDRESS *src) { int len = 0; uint32_t device_id = 0; unsigned max_apdu = 0; int segmentation = 0; uint16_t vendor_id = 0; (void)src; (void)service_len; len = iam_decode_se'Cs( << (?"đ!'CW @@ V)lKE( <Q6 0 ('CSX BB V)lE4  ?"đ!'C Z K V)lEہ 2ervice_request( service_request, &device_id, &max_apdu, &segmentation, &vendor_id); if (len != -1) { address_add(device_id, max_apdu, src); } else fprintf(stderr,"!\n"); return; } static void Init_Service_Handlers(void) { /* we need to handle who-is to support dynamic device binding to us */ apdu_set_unconfirmed_handler( SERVICE_UNCONFIRMED_WHO_IS, handler_who_is'Cau << (?"đ!'C. @@ V)lKE( <P4 0 'Cp BB V)lE4  ?"đ!'C+ K V)lEV 2e); /* handle i-am to support binding to other devices */ apdu_set_unconfirmed_handler( SERVICE_UNCONFIRMED_I_AM, LocalIAmHandler); /* set the handler for all the services we don't implement It is required to send the proper reject message... */ apdu_set_unrecognized_service_handler_handler( handler_unrecognized_service); /* we must implement read property - it's required! */ apdu_set_confirmed_handler( SERVICE_CO'C << (?"đ!'Cl @@ V)lKE( <O2 0 'C BB V)lE4  ?"đ!'C K V)lE 2eNFIRMED_READ_PROPERTY, handler_read_property); /* handle any errors coming back */ apdu_set_error_handler( SERVICE_CONFIRMED_ATOMIC_READ_FILE, Atomic_Read_File_Error_Handler); apdu_set_abort_handler( MyAbortHandler); apdu_set_reject_handler( MyRejectHandler); } int main(int argc, char *argv[]) { BACNET_ADDRESS src = {0}; // address where message came from uint16_t pdu_len = 0; unsigned timeout = 100; // m'C << (?"đ!'C @@ V)lKE( <N1 0 'C_ BB V)lE4  ?"đ!'C K V)lE# 2 Xeilliseconds unsigned max_apdu = 0; time_t elapsed_seconds = 0; time_t last_seconds = 0; time_t current_seconds = 0; time_t timeout_seconds = 0; int fileStartPosition = 0; unsigned requestedOctetCount = 0; uint8_t invoke_id = 0; bool found = false; uint16_t my_max_apdu = 0; FILE *pFile = NULL; BACNET_OCTET_STRING fileData; size_t len = 0; if (argc < 4) { /* FIXME: what about access method - record or st'C-$ << (?"đ!'CL[ @@ V)lKE(<M/O 0 X'C[ BB V)lE4  ?"đ!'Cj] K V)lEm 2"$eream? */ printf("%s device-instance file-instance local-name\r\n",argv[0]); return 0; } /* decode the command line parameters */ Target_Device_Object_Instance = strtol(argv[1],NULL,0); Target_File_Object_Instance = strtol(argv[2],NULL,0); Local_File_Name = argv[3]; if (Target_Device_Object_Instance >= BACNET_MAX_INSTANCE) { fprintf(stderr,"device-instance=%u - it must be less than %u\r\n", Target_Device_Object_Ins'Cw << (?"đ!'Cy @@ V)lKE(<L- 0 "$'Cy BB V)lE4  ?"đ!'C~{ K V)lEq 2#etance,BACNET_MAX_INSTANCE); return 1; } if (Target_File_Object_Instance >= BACNET_MAX_INSTANCE) { fprintf(stderr,"file-instance=%u - it must be less than %u\r\n", Target_File_Object_Instance,BACNET_MAX_INSTANCE+1); return 1; } /* setup my info */ Device_Set_Object_Instance_Number(BACNET_MAX_INSTANCE); address_init(); Init_Service_Handlers(); /* configure standard BACnet/IP port */ bip_set_interface("eth0"'C, << (?"đ!'C @@ V)lKE(<K+ 0 #'CA BB V)lE4  ?"đ!'Cb K V)lE욁 2%e); /* for linux */ bip_set_port(0xBAC0); if (!bip_init()) return 1; /* configure the timeout values */ last_seconds = time(NULL); timeout_seconds = (Device_APDU_Timeout() / 1000) * Device_Number_Of_APDU_Retries(); /* try to bind with the device */ Send_WhoIs(Target_Device_Object_Instance); /* loop forever */ for (;;) { /* increment timer - exit if timed out */ current_seconds = time(NULL); /* returns'C << (?"đ!'C @@ V)lKE(<J) 0 %'C BB V)lE4  ?"đ!'C K V)lE& 2'e 0 bytes on timeout */ pdu_len = bip_receive( &src, &Rx_Buf[0], MAX_MPDU, timeout); /* process */ if (pdu_len) { npdu_handler( &src, &Rx_Buf[0], pdu_len); } /* at least one second has passed */ if (current_seconds != last_seconds) tsm_timer_milliseconds(((current_seconds - last_seconds) * 1000)); if (End_Of_File_Detected || Error_Detected) 'C << (?"đ!'C  @@ V)lKE(<I( 0 ''CV BB V)lE4  ?"đ!'C K V)lEq 2)Tebreak; if (I_Am_Request) { I_Am_Request = false; iam_send(&Handler_Transmit_Buffer[0]); } else { /* wait until the device is bound, or timeout and quit */ found = address_bind_request( Target_Device_Object_Instance, &max_apdu, &Target_Address); if (found) { /* calculate the smaller of our APDU size or theirs and remove the overhead of the APDU'Cm< << (?"đ!'C} @@ V)lKE(<H&N 0 )T'CG~ BB V)lE4  ?"đ!'C K V)lEu 2+ e (about 20 octets max). note: we could fail if there is a bottle neck (router) and smaller MPDU in betweeen. */ if (max_apdu < MAX_APDU) my_max_apdu = max_apdu; else my_max_apdu = MAX_APDU; requestedOctetCount = my_max_apdu - 20; /* has the previous invoke id expired or returned? note: invoke ID = 0 is invalid, so it will be idle */ if ((invoke_id == 0) |'Cm << (?"đ!'CS @@ V)lKE(<G$ 0 + 'C BB V)lE4  ?"đ!'C9 K V)lE즗 2,e| tsm_invoke_id_free(invoke_id)) { if (invoke_id != 0) fileStartPosition += requestedOctetCount; /* we'll read the file in chunks less than max_apdu to keep unsegmented */ pFile = fopen(Local_File_Name,"rb"); if (pFile) { (void)fseek(pFile, fileStartPosition, SEEK_SET); len = fread(octetstring_value(&fileData), 1, 'C << (?"đ!'C> @@ V)lKE(<F" 0 ,'C2? BB V)lE4  ?"đ!'C@ K V)lEx1 2.e requestedOctetCount, pFile); if (len < requestedOctetCount) End_Of_File_Detected = true; octetstring_truncate(&fileData,len); fclose(pFile); } printf("\rSending %d bytes",(fileStartPosition+len)); invoke_id = Send_Atomic_Write_File_Stream( Target_Device_Object_Instance, Target_File_Object_Instance, fileStartPosition, 'CC\ << (?"đ!'Ch @@ V)lKE(<E 0 .'Ch BB V)lE4  ?"đ!'Cj K V)lE 20e &fileData); Current_Invoke_ID = invoke_id; } } else { /* increment timer - exit if timed out */ elapsed_seconds += (current_seconds - last_seconds); if (elapsed_seconds > timeout_seconds) break; } } /* keep track of time for next check */ last_seconds = current_seconds; } return 0; } 'C << (?"đ!'C* @@ V)lKE(<D 0 0