#
# this file should contain x10 appliance aliases, one per line, as:
#   appliance-name  housecode  modulenumber
# for example:
#  mydesklamp   A       4
#  atticfan     B       3

bedroom_nightstand              A       1
bedroom_ceiling1                A       2
bedroom_ceiling2                A       3
computer_room_cabs              A       5
computer_room_desk              A       6
back_bedroom_sconce             A       8
livingroom_ceiling              A       9
cabinets                        A       10
entryway_ceiling                A       13
upstairs_sconce                 A       14
outside_front                   A       15
diningroom_ceiling              A       16
kitchen_ceiling                 B       1
kitchen_sconces                 B       2
backyard_floods                 B       5
kitchen_ext_spots               B       6
kitchen_ext_sconces             B       7
garage_ceiling                  B       9
basement_ceiling                C       1
dsl_modem                       G       1
wireless_router                 G       2

# set default housecode -- the one the switches will use
HOUSECODE       A
#
# Set the serial port the program will use.
TTY     /dev/cuad0
# The NEWFORMAT directive allows version 1.28 and higher to display more
# informative messages.
NEWFORMAT
#
# The file listed with MACROXREF is where HEYU will store the addresses
# where macros are loaded in the CM11A.  If you don't use this directive,
# The macros addresses will not be cross-referenced.
MACROXREF       .x10macroxref

% heyu turn computer_room_desk on

#!/usr/bin/perl -w
use Astro::Sunrise;
use Time::Local;
use Sys::Syslog;

# Config for your house
use constant LATITUDE       => 40.641;
use constant LONGITUDE      => -74.016;
use constant TZ             => -5;
use constant DST            => 1;


# X10 device setup
# Device aliases are set up in /etc/heyu/x10.conf.
# These are the devices we're interested in and how we want
# them controlled.
my @DEVICES = (
    [ 'bedroom_nightstand', 'sunset-45', 'on' ],
    [ 'upstairs_sconce', 'sunset-45', 'on' ],
    [ 'entryway_ceiling', 'sunset-45', 'on' ],
    [ 'outside_front', 'sunset-30', 'on' ],
    [ 'cabinets', 'sunset-45', 'on' ],

    [ 'garage_ceiling', '23:01', 'off' ],

    [ 'upstairs_sconce', '00:01', 'dim+12' ],
    [ 'entryway_ceiling', '00:01', 'dim+15' ],
    [ 'outside_front', '00:01', 'off' ],
    [ 'cabinets', '23:01', 'off' ],
    [ 'basement_ceiling', '00:01', 'off' ],

    [ 'upstairs_sconce', '01:00', 'off' ],
    [ 'entryway_ceiling', '01:00', 'off' ],
    [ 'basement_ceiling', '01:00', 'off' ],
    [ 'computer_room_cabs', '01:00', 'off' ],
    [ 'bedroom_nightstand', '01:00', 'off' ],
);

$HEYU_CMD   = '/usr/local/bin/heyu turn %s %s';

use constant    SYSLOG_INFO     => 0;
use constant    SYSLOG_WARNING  => 1;
use constant    SYSLOG_FATAL    => 2;

#####################
### Program begins ##
#####################

openlog "x10_scheduler", "cons,pid", "local1";
syslogger(SYSLOG_INFO, "started");

# Prime today's date
my @last_run_time = localtime;
&process_devices_daily;

# Runs until killed with SIGHUP

while (1) {

    @this_run_time = localtime;

    # If the day has changed, reprocess the devices array
    if ($last_run_time[3] != $this_run_time[3]) {
        &process_devices_daily;
    }

    $time_now = time;

    for (my $i=0; $i < scalar(@DEVICES); $i++) {

        if ($DEVICES[$i][4] eq 'do it' && $DEVICES[$i][3] < $time_now) {

            my $cmd;

            # Is it an on/off type device?
            if ($DEVICES[$i][2] eq 'on' || $DEVICES[$i][2] eq 'off') {
                $cmd = sprintf($HEYU_CMD, $DEVICES[$i][0], $DEVICES[$i][2]);
                $DEVICES[$i][4] = 'done';
            }

            #  It must be a dim/bright device
            else {
                my ($dim, $offset) = split(/\+/, $DEVICES[$i][2]);
                $offset = '' unless defined $offset;

                $cmd = sprintf($HEYU_CMD, $DEVICES[$i][0], "$dim $offset");
                $DEVICES[$i][4] = 'done';
            }

            # Run the command
            syslogger(SYSLOG_INFO, "Running $cmd");
            system($cmd);
        }
    }

    # Log our last run time and take a nap for a minute
    @last_run_time = localtime;
    sleep 60;
}

# Process/reprocess the daily X10 events list.
# In daemon operation, this list will reload automatically at midnight.
sub process_devices_daily
{
    my $trigger_time;
    my @today = localtime;
    my $syslog_sunset = 0;

    for (my $i=0; $i < scalar(@DEVICES); $i++) {

        if ($DEVICES[$i][1] =~ /^sun/) {
            my ($sun, $op, $offset) = $DEVICES[$i][1] =~ /^(\w+)([\-\+])(.*)$/;
            $op = '' unless defined $op;
            $offset = '' unless defined $offset;

            my ($sunrise, $sunset) = sunrise($today[5]+1900, $today[4]+1,
               $today[3], LONGITUDE, LATITUDE, TZ, DST);
            my $trigger_str = ($sun eq 'sunset') ? $sunset : $sunrise;

            if ($syslog_sunset++ == 0) {
                syslogger(SYSLOG_INFO, sprintf("Sunrise: $sunrise Sunset: $sunset"));
            }

            my ($hour, $minute) = split(/:/, $trigger_str);

            my @temp = localtime;
            $temp[2] = $hour;
            $temp[1] = $minute;
            $temp[0] = 0;

            $trigger_time = timelocal(@temp);
            $offset *= 60;

            $trigger_time = ($op eq '-') ?  $trigger_time - $offset : $trigger_time + $offset;
        }
        else {
            my ($hour, $minute) = split(/:/, $DEVICES[$i][1]);

            my @temp = localtime;
            $temp[2] = $hour;
            $temp[1] = $minute;
            $temp[0] = 0;

            $trigger_time = timelocal(@temp);
        }

        $DEVICES[$i][3] = $trigger_time;

        if ($trigger_time < time) {
            $DEVICES[$i][4] = 'done';
        }
        else {
            $DEVICES[$i][4] = 'do it';
            syslogger(SYSLOG_INFO,
                sprintf("X10 event today: $DEVICES[$i][0] ACTION=$DEVICES[$i][2] TIME= %02d:%02d",
                 (localtime($trigger_time))[2], (localtime($trigger_time))[1]));
        }
    }
}

sub syslogger
{
    if ($_[0] == SYSLOG_FATAL) {
        syslog('warning', "FATAL: $_[1]");
        exit 0;
    }
    if ($_[0] == SYSLOG_WARNING) {
        syslog('warning', "WARNING: $_[1]");
    }
    else {
        syslog('notice', "$_[1]");
    }
}

% perl x10_scheduler.pl&