#!/usr/bin/perl
#use strict;
#use warnings;
use Switch;

my $pid = fork();
exit 0 if $pid != 0;

my $retry_interval = 1;

my $bin = "/opt/interm/bin";
my $conf = "/opt/interm/conf";

while( 1 ) {
	qx|killall -SIGTERM emitTimeDate|;
	qx|su -c "$bin/emitTimeDate"|;

	sleep $retry_interval;
}

exit 0;
