Sync time script for AlphaClock 5 over BT serial port

test_sync_time.pl

#! /usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Device::SerialPort;


my $name = 'Foo';
my $bt_address = 'D5:89:1F:09:51:15';
say "PID $$";

# Fork a process to connect the rfcomm device
my $pid = fork();
die if not defined $pid;
if (not $pid) {
   say "Opening RFCOMM connection over bluetooth";
   exec("sudo rfcomm connect hci0 D5:89:1F:09:51:15");
   exit;
}

say "In parent ($name) - PID $$ ($pid), waiting for rfcomm0 device to become available";

while (! -e '/dev/rfcomm0') {
 sleep(1);
 say "Waiting for rfcomm0";
}

say "Device available...";

my $alphaclock = new Device::SerialPort ('/dev/rfcomm0') || die "Can't open /dev/rfcomm0: $!\n";

$alphaclock->write("*ST" . time() . "\r\n");

$alphaclock->close();

# send CTRL+C to the child process
sleep(1);
say "Sending CTRL+C to the rfcomm process $pid";

#my $command = "sudo kill -2 $pid";
#say "Going to exec: $command";
#exec($command);
#kill('TERM', $pid );
system("sudo rfcomm release hci0");

# Wait until finished
my $finished = wait();
say "In parent ($name) - PID $$ finished $finished";