#!/usr/bin/perl -w
# Sample Perl script to transmit number
# to Arduino then listen for the Arduino
# to echo it back

use strict;
use Device::SerialPort;
use Switch;
use Time::HiRes qw ( alarm );

# Set up the serial port
# 19200, 81N on the USB ftdi driver
my $device = '/dev/ttyACM0';
# Tomoc has to use a different tty for testing
#$device = '/dev/ttyS0';

my $port = new Device::SerialPort ($device)
    or die('Unable to open connection to device');;
$port->databits(8);
$port->baudrate(19200);
$port->parity("none");
$port->stopbits(1);

my $lastChoice = ' ';
my $pid = fork();
my $signalOut;
my $args = shift(@ARGV);

# Parent must wait for child to exit before exiting itself on CTRL+C
$SIG{'INT'} = sub { 
    waitpid($pid,0) if $pid != 0; exit(0); 
};
# What child process should do
if($pid == 0) {
    # Poll to see if any data is coming in
    print "\nListening...\n\n";
    while (1) {
        my $char = $port->lookfor();
        # If we get data, then print it
        if ($char) {
            print "\nFrom arduino: " . $char . "\n\n";
        }   
    }
}
# What parent process should do
else {
    if ($args eq "cycle") {
                $SIG{ALRM} = sub {
                        print "Expecting plant bed to be full; please check.\n";
                        $signalOut = $port->write('2'); # Signal to set pin 3 low
                        print "Sent cmd: 2\n";
                };
                $signalOut = $port->write('1'); # Signal to arduino to set pin 3 High
                print "Sent cmd: 1\n";
                print "Waiting for plant bed to fill...\n";
                alarm (420);
                die "Done.";
    }
    else {
            sleep(1);
            my $choice = ' ';
            print "Please pick an option you'd like to use:\n";
            while(1) {
                print " [1] Cycle  [2] Relay OFF  [3] Relay ON  [4] Config  [$lastChoice]: ";
                chomp($choice = <STDIN>);
                switch ($choice) {
                        case /1/ {
                                $SIG{ALRM} = sub {
                                                print "Expecting plant bed to be full; please check.\n";
                                                $signalOut = $port->write('2'); # Signal to set pin 3 low
                                                print "Sent cmd: 2\n";
                                                };
                                $signalOut = $port->write('1'); # Signal to arduino to set pin 3 High
                                print "Sent cmd: 1\n";
                                print "Waiting for plant bed to fill...\n";
                                alarm (300);
                                $lastChoice = $choice;
                        }
                        case /2/ {
                                $signalOut = $port->write('2'); # Signal to set pin 3 low       
                                print "Sent cmd: 2";
                                $lastChoice = $choice;
                        }
                        case /3/ {
                                $signalOut = $port->write('1'); # Signal to arduino to set pin 3 High
                                print "Sent cmd: 1";
                                $lastChoice = $choice;
                        }
                        case /4/ {
                                print "There is no configuration available yet. Please stab the developer.";
                        }
                    else        { print "Please select a valid option.\n\n";}
                }
           }
   }
}