#!/usr/bin/perl
use 5.010;

# ./write_rom.pl "directory" "modbus-address" - write banks to the device

$dir=$ARGV[0];

print "Stoping wb-mqtt-serial \n";
`systemctl stop wb-mqtt-serial`;


#foreach $i (0..17) {
foreach $i (0..1) {

$reg=5200 + $i;
`modbus_client --debug -mrtu -b9600 -pnone -o 700 -s2 /dev/ttyRS485-2 -a$ARGV[1] -t0x05 -r $reg 0`;
sleep(2);

}



#foreach $i (0..17) {
foreach $i (0..1) {

$reg=5200 + $i;
#`modbus_client --debug -mrtu -pnone -o 700 -s2 /dev/ttyRS485-2 -a2 -t0x05 -r $reg 0`;
#sleep(2);
`modbus_client --debug -mrtu -b9600 -pnone -o 700 -s2 /dev/ttyRS485-2 -a$ARGV[1] -t0x05 -r $reg 1`;
$j=$i+1;
sleep (20); print "->$j";

`./putbuffer.pl ./$dir/rom_$j.ir $ARGV[1]`;
print "<-";
`modbus_client --debug -mrtu -b9600 -pnone -o 700 -s2 /dev/ttyRS485-2 -a$ARGV[1] -t0x05 -r $reg 0`;
sleep (2);
}

print "\n Starting wb-mqtt-serial \n";
`systemctl start wb-mqtt-serial`;

exit();