jeena/telldus
1
0
Fork 0
Code Issues Pull requests Projects Packages Wiki Activity Actions

Added handling of groups of aliases.

Browse source 
Fixed internal bug when using multiple tellsticks.
This commit is contained in:
Rickard Andersson 2008-12-14 11:04:44 +00:00
parent 4971fb472f
commit ccdb488cfe
6 changed files with 261 additions and 82 deletions
Download patch file Download diff file Expand all files Collapse all files

23
tellstickcontroller/Readme
View file

@ -1,3 +1,4 @@
NAME NAME
tellstickController tellstickController
@ -14,17 +15,18 @@
A small database is used for keeping track of device states A small database is used for keeping track of device states
between every execution of tellstickController. between every execution of tellstickController.
-a, --aliases List of aliases for devices. -h, --help Show this help text.
-c, --check Check content of configuration file. -v, --verbose Show extra information.
-d, --daemon Starts in daemon mode. -d, --daemon Starts in daemon mode.
-f, --file F Set configfile to file F. -f, --file F Set configfile to file F.
-g, --get D Get state for device D. -c, --check Check content of configuration file.
-h, --help Print this help text.
-l, --list List states for all devices.
-s, --set D S Set device D to state S.
-t, --test Test mode, no real devices will used. -t, --test Test mode, no real devices will used.
-v, --verbose Print extra information. -a, --aliases List of aliases for devices/groups.
-x, --swap D Swap state for device D. -l, --list List states for all devices/groups.
-s, --set D S Set device D to state S.
-g, --get D Get state for device/group D.
-w, --swapfirst G Swap states for group G based on first device state.
-x, --swap D Swap state for device/group D.
EXAMPLES EXAMPLES
tellstickController -l tellstickController -l
@ -52,6 +54,8 @@
The aliases configures device name, channel, code, etc. The aliases configures device name, channel, code, etc.
The groups configures a list of devices and a delay time.
The rules can be written as a string containing two parts. The rules can be written as a string containing two parts.
The first part is optional and ends with an '/'. It can contain The first part is optional and ends with an '/'. It can contain
one or more of these keywords 'Weekend', 'Workweek', 'Monday', one or more of these keywords 'Weekend', 'Workweek', 'Monday',
@ -71,11 +75,10 @@
AUTHOR AUTHOR
Original version written by Rickard Andersson Original version written by Rickard Andersson
Improvments added by ...
LICENSE LICENSE
Copyright (C) 2008 Rickard Andersson Copyright (C) 2008 Rickard Andersson
Version 1.4.2 Version 1.5.0
This program comes with ABSOLUTELY NO WARRANTY. This program comes with ABSOLUTELY NO WARRANTY.
This is free software, and you are welcome to redistribute it This is free software, and you are welcome to redistribute it
under certain conditions; See license file for details. under certain conditions; See license file for details.

6
tellstickcontroller/examples/power_off_all_lights
View file

@ -7,7 +7,9 @@ tellstickController --set bedroom_mythtv_leds off
tellstickController --set bedroom_window off tellstickController --set bedroom_window off
tellstickController --set kitchen_cabinets off tellstickController --set kitchen_cabinets off
tellstickController --set livingroom_cabinets off tellstickController --set livingroom_cabinets off
tellstickController --set livingroom_uplight off
tellstickController --set livingroom_walls off
tellstickController --set livingroom_mythtv_leds off tellstickController --set livingroom_mythtv_leds off
tellstickController --set livingroom_uplight off
tellstickController --set livingroom_wall_north off
tellstickController --set livingroom_wall_east off
tellstickController --set livingroom_window off

8
tellstickcontroller/examples/power_on_all_lights
View file

@ -1,13 +1,15 @@
#!/bin/sh #!/bin/sh
# #
# Power off every device that control light sources. # Power on every device that control light sources.
# #
tellstickController --set bedroom_mythtv_leds on tellstickController --set bedroom_mythtv_leds on
tellstickController --set bedroom_window on tellstickController --set bedroom_window on
tellstickController --set kitchen_cabinets on tellstickController --set kitchen_cabinets on
tellstickController --set livingroom_cabinets on tellstickController --set livingroom_cabinets on
tellstickController --set livingroom_uplight on
tellstickController --set livingroom_walls on
tellstickController --set livingroom_mythtv_leds on tellstickController --set livingroom_mythtv_leds on
tellstickController --set livingroom_uplight on
tellstickController --set livingroom_wall_north on
tellstickController --set livingroom_wall_east on
tellstickController --set Livingroom_window on

47
tellstickcontroller/examples/tellstickController.conf
View file

@ -3,7 +3,7 @@
# Configuration file for tellstickController # Configuration file for tellstickController
# #
# Copyright (C) 2008 Rickard Andersson (ran42ran@gmail.com) # Copyright (C) 2008 Rickard Andersson (ran42ran@gmail.com)
# Version: 1.4.0 # Version: 1.4
# #
################################################################################ ################################################################################
# #
@ -49,14 +49,31 @@ Set logfile /var/log/tellstickController.log
# Alias MythTv_Backlight /dev/ttyUSB0 No Sartano 000000001 # Alias MythTv_Backlight /dev/ttyUSB0 No Sartano 000000001
# #
# #
Alias kitchen_cabinets /dev/tellstick0 No Nexa G 2 Alias Bedroom_window /dev/tellstick0 No Nexa G 10
Alias Bedroom_window /dev/tellstick0 No Nexa G 1
Alias Bedroom_mythtv_power /dev/tellstick0 No Nexa G 6 Alias Bedroom_mythtv_power /dev/tellstick0 No Nexa G 6
Alias Bedroom_mythtv_leds /dev/tellstick0 No Nexa G 7 Alias Bedroom_mythtv_leds /dev/tellstick0 No Nexa G 7
Alias Kitchen_cabinets /dev/tellstick0 No Nexa G 2
Alias Kitchen_window /dev/tellstick0 No Nexa G 11
Alias Livingroom_cabinets /dev/tellstick0 No Nexa G 3 Alias Livingroom_cabinets /dev/tellstick0 No Nexa G 3
Alias Livingroom_walls /dev/tellstick0 No Nexa G 4 Alias Livingroom_wall_north /dev/tellstick0 No Nexa G 4
Alias Livingroom_wall_east /dev/tellstick0 No Nexa G 9
Alias Livingroom_uplight /dev/tellstick0 Yes Nexa G 5 Alias Livingroom_uplight /dev/tellstick0 Yes Nexa G 5
Alias Livingroom_mythtv_leds /dev/tellstick0 No Nexa G 8 Alias Livingroom_mythtv_leds /dev/tellstick0 No Nexa G 8
Alias Livingroom_window /dev/tellstick0 No Nexa G 1
Alias Study_window /dev/tellstick0 No Nexa G 12
# Group aliases uses for handling a group of aliases
#
# Usage examples:
# Group Name Delay List of Aliases
# Group Livingroom_walls 60 Livingroom_wall_north Livingroom_wall_east
# Group Kitchen 5 Kitchen_cabinets Kitchen_window
#
#
Group Christmas_lights 20 Bedroom_window Kitchen_window Study_window
Group Background_lights 60 Kitchen_cabinets Livingroom_window Livingroom_wall_east Livingroom_wall_north
Group All_lights 10 Bedroom_mythtv_leds Bedroom_window Kitchen_cabinets Kitchen_window Livingroom_cabinets Livingroom_mythtv_leds Livingroom_uplight Livingroom_wall_north Livingroom_wall_east Livingroom_window Study_window
# Timer rules for reciever devices. # Timer rules for reciever devices.
@ -68,18 +85,12 @@ Alias Livingroom_mythtv_leds /dev/tellstick0 No Nexa G 8
# Rule MythTv_Backlight Weekend/20:00 Weekend/Sunset # Rule MythTv_Backlight Weekend/20:00 Weekend/Sunset
# #
# #
Rule Bedroom_window Workweek/sunrise+02:00 Workweek/Sunrise+03:00 Rule Background_lights Workweek/Sunset+Random(01:00) Workweek/00:00+Random(00:30)
Rule Bedroom_window Sunset-Random(00:30) 00:00+Random(00:30) Rule Background_lights Weekend/Sunset-Random(00:30) Weekend/00:45+Random(00:30)
Rule Bedroom_window No 02:00
Rule Bedroom_mythtv_leds No 02:00
Rule Kitchen_cabinets Sunrise+01:00 Sunrise+03:00
Rule Kitchen_cabinets Workweek/Sunset-01:00 Workweek/00:00+Random(00:30)
Rule Kitchen_cabinets Weekend/Sunset-01:00 Weekend/00:30+Random(00:30)
Rule Kitchen_cabinets No 02:00
Rule Livingroom_cabinets Sunset-Random(00:30) 00:15+Random(00:30)
Rule Livingroom_cabinets No 02:00
Rule Livingroom_walls Sunset-Random(00:30) 00:15+Random(00:30)
Rule Livingroom_walls No 02:00
Rule Livingroom_uplight No 02:00
Rule Livingroom_mythtv_leds No 02:00
Rule Christmas_lights 07:00+Random(00:30) 09:00+Random(00:30)
Rule Christmas_lights 14:30+Random(00:30) 00:30+Random(00:30)
Rule Kitchen_cabinets Sunrise-01:30 Sunrise+01:00
Rule All_lights No 02:00

226
tellstickcontroller/tellstickController
View file

@ -4,7 +4,7 @@
# tellstickController program # tellstickController program
# #
# Copyright (C) 2008 Rickard Andersson (ran42ran@gmail.com) # Copyright (C) 2008 Rickard Andersson (ran42ran@gmail.com)
# Version 1.4.2 # Version 1.5.0
# #
###################################################################### ######################################################################
# #
@ -52,6 +52,7 @@ my %cfg_set = (
"longitude" => "15.31", "longitude" => "15.31",
"timezone" => "Europe/Stockholm", "timezone" => "Europe/Stockholm",
); );
my %cfg_group = ();
my %cfg_alias = (); my %cfg_alias = ();
my %cfg_dimmer = (); my %cfg_dimmer = ();
my @cfg_rule = (); my @cfg_rule = ();
@ -64,6 +65,7 @@ my %option = (
"list" => 0, "list" => 0,
"device" => "", "device" => "",
"state" => "", "state" => "",
"swapfirst" => 0,
"swap" => 0, "swap" => 0,
"test" => 0, "test" => 0,
"verbose" => 0, "verbose" => 0,
@ -121,6 +123,12 @@ sub check_args(@) {
$option{"state"} = lc($args[0]); $option{"state"} = lc($args[0]);
shift(@args); shift(@args);
next; next;
} elsif ($args[0] =~ /^-(w|-swapfirst)$/) {
shift(@args);
$option{"swapfirst"} = 1;
$option{"device"} = lc($args[0]);
shift(@args);
next;
} elsif ($args[0] =~ /^-(x|-swap)$/) { } elsif ($args[0] =~ /^-(x|-swap)$/) {
shift(@args); shift(@args);
$option{"swap"} = 1; $option{"swap"} = 1;
@ -316,6 +324,7 @@ sub read_config($) {
= split(/\s+/, $line); = split(/\s+/, $line);
if (defined($suffix)) { if (defined($suffix)) {
println "Wrong argument '$suffix' in line '$line'!"; println "Wrong argument '$suffix' in line '$line'!";
println $addr;
} else { } else {
$name = lc($name); $name = lc($name);
$sender = $sender; $sender = $sender;
@ -355,6 +364,30 @@ sub read_config($) {
next; next;
} }
if ($line =~ /^Group\s+/i) {
println $line if ($option{"verbose"});
my (undef, $name, $delay, $aliases) = split(/\s+/, $line, 4);
$name = lc($name);
$delay = lc($delay);
if ($delay =~ /^\d+$/) {
my $error = 0;
$aliases = lc($aliases);
my @aliaslist = split(/\s+/, $aliases);
foreach my $alias (@aliaslist) {
if (! exists($cfg_alias{$alias})) {
println "Wrong alias '$alias' in line '$line'!";
$error += 1;
}
}
if ($error == 0) {
$cfg_group{$name} = "$delay $aliases";
}
} else {
println "Wrong delay time '$delay' in line '$line'!";
}
next;
}
if ($line =~ /^Rule\s+/i) { if ($line =~ /^Rule\s+/i) {
#println $line if ($option{"verbose"}); #println $line if ($option{"verbose"});
my (undef, $alias, $on, $off, $suffix) = split(/\s+/, $line); my (undef, $alias, $on, $off, $suffix) = split(/\s+/, $line);
@ -364,7 +397,6 @@ sub read_config($) {
$alias = lc($alias); $alias = lc($alias);
$on = lc($on); $on = lc($on);
$off = lc($off); $off = lc($off);
if (exists($cfg_alias{$alias})) {
if ($on eq "") { if ($on eq "") {
println "Wrong on time '$on' in line '$line'!"; println "Wrong on time '$on' in line '$line'!";
} elsif ($off eq "") { } elsif ($off eq "") {
@ -374,10 +406,12 @@ sub read_config($) {
println "Wrong on time '$on' in line '$line'!"; println "Wrong on time '$on' in line '$line'!";
} elsif ($off !~ /[\w\/\+\-\:\$\(\)]+/) { } elsif ($off !~ /[\w\/\+\-\:\$\(\)]+/) {
println "Wrong off time '$off' in line '$line'!"; println "Wrong off time '$off' in line '$line'!";
} else {
push @cfg_rule, [$alias, $on, $off];
} }
} }
if (exists($cfg_alias{$alias})) {
push @cfg_rule, [$alias, $on, $off];
} elsif (exists($cfg_group{$alias})) {
push @cfg_rule, [$alias, $on, $off];
} else { } else {
println "Wrong alias '$alias' in line '$line'!"; println "Wrong alias '$alias' in line '$line'!";
} }
@ -414,6 +448,18 @@ sub read_config($) {
println $text if ($option{"check"}); println $text if ($option{"check"});
printlogger $text; printlogger $text;
} }
$text = "=== Group ===";
println $text if ($option{"check"});
printlogger $text;
foreach my $key (sort keys %cfg_group) {
my $val = $cfg_group{$key};
my ($delay, $aliases) = split(/\s+/, $val, 2);
$text = "$key =";
$text .= " delay time $delay seconds";
$text .= " between aliases ($aliases)";
println $text if ($option{"check"});
printlogger $text;
}
$text = "=== Rule ==="; $text = "=== Rule ===";
println $text if ($option{"check"}); println $text if ($option{"check"});
printlogger $text; printlogger $text;
@ -480,10 +526,31 @@ sub load_device_rules () {
foreach my $rule (@cfg_rule) { foreach my $rule (@cfg_rule) {
my ($alias, $on, $off) = @$rule; my ($alias, $on, $off) = @$rule;
my $time = get_rule_datetime($on, $today, $sunrise, $sunset); if (exists($cfg_alias{$alias})) {
push @device_on, [$time, $alias] if (defined($time) && ($now <= $time)); my $time = get_rule_datetime($on, $today, $sunrise, $sunset);
$time = get_rule_datetime($off, $today, $sunrise, $sunset); push @device_on, [$time, $alias] if (defined($time) && ($now <= $time));
push @device_off, [$time, $alias] if (defined($time) && ($now <= $time)); $time = get_rule_datetime($off, $today, $sunrise, $sunset);
push @device_off, [$time, $alias] if (defined($time) && ($now <= $time));
} else {
foreach my $val ($cfg_group{$alias}) {
my ($delay, $aliases) = split(/\s+/, $val, 2);
my $timedelay = 0;
my $ontime = get_rule_datetime($on, $today, $sunrise, $sunset);
my $offtime = get_rule_datetime($off, $today, $sunrise, $sunset);
my (@aliaslist) = split(/\s+/, $aliases);
foreach my $device (@aliaslist) {
if (defined($ontime)) {
my $time = $ontime->clone->add(seconds => $timedelay);
push @device_on, [$time, $device] if (defined($time) && ($now <= $time));
}
if (defined($offtime)) {
my $time = $offtime->clone->add(seconds => $timedelay);
push @device_off, [$time, $device] if (defined($time) && ($now <= $time));
}
$timedelay += $delay;
}
}
}
} }
@device_on = sort { $a->[0] cmp $b->[0] } @device_on; @device_on = sort { $a->[0] cmp $b->[0] } @device_on;
@ -517,7 +584,7 @@ sub load_device_rules () {
sub get_rule_datetime($$$$) { sub get_rule_datetime($$$$) {
my ($rule, $now, $sunrise, $sunset) = @_; my ($rule, $now, $sunrise, $sunset) = @_;
# println "Rule='$rule'"; #println "Rule='$rule'";
my ($date, $time) = split(/\//, $rule); my ($date, $time) = split(/\//, $rule);
if (not defined($time)) { if (not defined($time)) {
@ -590,7 +657,7 @@ sub get_rule_datetime($$$$) {
my $op = ""; my $op = "";
my $rest = ""; my $rest = "";
my $mins = 0; my $mins = 0;
# println "rule='$time'"; #println "rule='$time'";
while ($time ne "") { while ($time ne "") {
$op = $lastOp; $op = $lastOp;
@ -625,13 +692,13 @@ sub get_rule_datetime($$$$) {
$expr = ""; $expr = "";
} }
# println "expr='$expr', op='$op', rest='$rest'"; #println "expr='$expr', op='$op', rest='$rest'";
if ($op eq "+") { if ($op eq "+") {
$mins += $expr; $mins += $expr;
} elsif ($op eq "-") { } elsif ($op eq "-") {
$mins -= $expr; $mins -= $expr;
} }
# println "mins='$mins'"; #println "mins='$mins'";
} }
if ($mins <= 0) { if ($mins <= 0) {
$mins = $mins % (24*60); $mins = $mins % (24*60);
@ -646,9 +713,9 @@ sub get_rule_datetime($$$$) {
# UTC ? # UTC ?
$time = get_datetime_now(); $time = get_datetime_now();
$time->set(hour => 0, minute => 0, second => 0); $time->set(hour => 0, minute => 0, second => 0);
$time->add(hours => $hours+24*$days, minutes => $minutes); $time->add(hours => $hours+24*$days, minutes => $minutes, seconds => 0);
# println "days='$days', hours='$hours', minutes='$minutes'"; #println "days='$days', hours='$hours', minutes='$minutes'";
# println "time='$time'"; #println "time='$time'";
} else { } else {
$time = undef; $time = undef;
} }
@ -713,8 +780,17 @@ sub get_device_state() {
my $state = $device_state{$device}; my $state = $device_state{$device};
println "$state" if (not $option{"verbose"}); println "$state" if (not $option{"verbose"});
println "Device $device = $state" if ($option{"verbose"}); println "Device $device = $state" if ($option{"verbose"});
} elsif (exists($cfg_group{$device})) {
my $val = $cfg_group{$device};
my ($delay, $aliases) = split(/\s+/, $val, 2);
my $states = "";
my (@aliaslist) = split(/\s+/, $aliases);
foreach my $alias (@aliaslist) {
$states .= " $device_state{$alias}";
}
println "Group $device =$states";
} else { } else {
println "No device found with alias '$device'!"; println "No alias or group found with name '$device'!";
} }
} }
} }
@ -723,16 +799,58 @@ sub get_device_state() {
sub set_device_state() { sub set_device_state() {
if ($option{"device"}) { if ($option{"device"}) {
if ($option{"state"}) { if ($option{"state"}) {
my $state = $option{"state"};
if ($state !~ /^(on|off)$/i) {
println "No state found with name '$state'!";
}
my $device = $option{"device"}; my $device = $option{"device"};
if ($device_state{$device}) { if ($device_state{$device}) {
my $state = $option{"state"}; change_device_state($device, $state);
if ($state =~ /^(on|off)$/i) { } elsif (exists($cfg_group{$device})) {
change_device_state($device, $state); my $val = $cfg_group{$device};
} else { my ($delay, $aliases) = split(/\s+/, $val, 2);
println "No state found with name '$state'!"; my (@aliaslist) = split(/\s+/, $aliases);
foreach my $alias (@aliaslist) {
change_device_state($alias, $state);
sleep(1);
} }
} else { } else {
println "No device found with alias '$device'!"; println "No alias or group found with name '$device'!";
}
}
}
}
sub swap_first_device_state() {
if ($option{"device"}) {
if ($option{"swapfirst"}) {
my $device = $option{"device"};
if ($device_state{$device}) {
my $state = $device_state{$device};
if ($state =~ /^off$/i) {
$state = 'on';
} else {
$state = 'off';
}
change_device_state($device, $state);
} elsif (exists($cfg_group{$device})) {
my $val = $cfg_group{$device};
my ($delay, $aliases) = split(/\s+/, $val, 2);
my ($alias) = split(/\s+/, $aliases);
my $state = $device_state{$alias};
if ($state =~ /^off$/i) {
$state = 'on';
} else {
$state = 'off';
}
my (@aliaslist) = split(/\s+/, $aliases);
foreach my $alias (@aliaslist) {
change_device_state($alias, $state);
sleep(1);
}
} else {
println "No alias or group found with name '$device'!";
} }
} }
} }
@ -746,12 +864,27 @@ sub swap_device_state() {
if ($device_state{$device}) { if ($device_state{$device}) {
my $state = $device_state{$device}; my $state = $device_state{$device};
if ($state =~ /^off$/i) { if ($state =~ /^off$/i) {
change_device_state($device, 'on'); $state = 'on';
} else { } else {
change_device_state($device, 'off'); $state = 'off';
}
change_device_state($device, $state);
} elsif (exists($cfg_group{$device})) {
my $val = $cfg_group{$device};
my ($delay, $aliases) = split(/\s+/, $val, 2);
my (@aliaslist) = split(/\s+/, $aliases);
foreach my $alias (@aliaslist) {
my $state = $device_state{$alias};
if ($state =~ /^off$/i) {
$state = 'on';
} else {
$state = 'off';
}
change_device_state($alias, $state);
sleep(1);
} }
} else { } else {
println "No device found with alias '$device'!"; println "No alias or group found with name '$device'!";
} }
} }
} }
@ -762,6 +895,16 @@ sub list_all_devices() {
foreach my $key (sort keys %device_state) { foreach my $key (sort keys %device_state) {
println "Device $key = $device_state{$key}"; println "Device $key = $device_state{$key}";
} }
foreach my $key (sort keys %cfg_group) {
my $val = $cfg_group{$key};
my ($delay, $aliases) = split(/\s+/, $val, 2);
my $states = "";
my (@aliaslist) = split(/\s+/, $aliases);
foreach my $device (@aliaslist) {
$states .= " $device_state{$device}";
}
println "Group $key =$states";
}
} }
@ -769,7 +912,12 @@ sub list_all_aliases {
foreach my $key (sort keys %cfg_alias) { foreach my $key (sort keys %cfg_alias) {
my $dimmer = ""; my $dimmer = "";
$dimmer = " dimmer" if $cfg_dimmer{$key} eq "yes"; $dimmer = " dimmer" if $cfg_dimmer{$key} eq "yes";
println "Device $key is an alias for$dimmer receiver $cfg_alias{$key}"; println "Alias $key = receiver ($cfg_alias{$key}$dimmer)";
}
foreach my $key (sort keys %cfg_group) {
my $val = $cfg_group{$key};
my ($delay, $aliases) = split(/\s+/, $val, 2);
println "Group $key = delay $delay seconds, aliases ($aliases)";
} }
} }
@ -784,7 +932,7 @@ sub daemon_loop() {
$next_day->set( hour => 0, minute => 0, second => 0 ); $next_day->set( hour => 0, minute => 0, second => 0 );
println "Next reload of device rules = $next_day" if ($option{"verbose"}); println "Next reload of device rules = $next_day" if ($option{"verbose"});
my $wait_time = 60; my $wait_time = 5;
my $loop = 1; my $loop = 1;
check_device_rules($now); check_device_rules($now);
@ -811,6 +959,8 @@ sub perform_action() {
get_device_state(); get_device_state();
} elsif ($option{"set"}) { } elsif ($option{"set"}) {
set_device_state(); set_device_state();
} elsif ($option{"swapfirst"}) {
swap_first_device_state();
} elsif ($option{"swap"}) { } elsif ($option{"swap"}) {
swap_device_state(); swap_device_state();
} elsif ($option{"list"}) { } elsif ($option{"list"}) {
@ -869,17 +1019,18 @@ __DATA__
#- A small database is used for keeping track of device states #- A small database is used for keeping track of device states
#- between every execution of tellstickController. #- between every execution of tellstickController.
#- #-
#- -a, --aliases List of aliases for devices. #- -h, --help Show this help text.
#- -c, --check Check content of configuration file. #- -v, --verbose Show extra information.
#- -d, --daemon Starts in daemon mode. #- -d, --daemon Starts in daemon mode.
#- -f, --file F Set configfile to file F. #- -f, --file F Set configfile to file F.
#- -g, --get D Get state for device D. #- -c, --check Check content of configuration file.
#- -h, --help Print this help text.
#- -l, --list List states for all devices.
#- -s, --set D S Set device D to state S.
#- -t, --test Test mode, no real devices will used. #- -t, --test Test mode, no real devices will used.
#- -v, --verbose Print extra information. #- -a, --aliases List of aliases for devices/groups.
#- -x, --swap D Swap state for device D. #- -l, --list List states for all devices/groups.
#- -s, --set D S Set device D to state S.
#- -g, --get D Get state for device/group D.
#- -w, --swapfirst G Swap states for group G based on first device state.
#- -x, --swap D Swap state for device/group D.
#- #-
#- EXAMPLES #- EXAMPLES
#- tellstickController -l #- tellstickController -l
@ -907,6 +1058,8 @@ __DATA__
#- #-
#- The aliases configures device name, channel, code, etc. #- The aliases configures device name, channel, code, etc.
#- #-
#- The groups configures a list of devices and a delay time.
#-
#- The rules can be written as a string containing two parts. #- The rules can be written as a string containing two parts.
#- The first part is optional and ends with an '/'. It can contain #- The first part is optional and ends with an '/'. It can contain
#- one or more of these keywords 'Weekend', 'Workweek', 'Monday', #- one or more of these keywords 'Weekend', 'Workweek', 'Monday',
@ -926,11 +1079,10 @@ __DATA__
#- #-
#- AUTHOR #- AUTHOR
#- Original version written by Rickard Andersson #- Original version written by Rickard Andersson
#- Improvments added by ...
#- #-
#- LICENSE #- LICENSE
#- Copyright (C) 2008 Rickard Andersson #- Copyright (C) 2008 Rickard Andersson
#- Version 1.4.2 #- Version 1.5.0
#- This program comes with ABSOLUTELY NO WARRANTY. #- This program comes with ABSOLUTELY NO WARRANTY.
#- This is free software, and you are welcome to redistribute it #- This is free software, and you are welcome to redistribute it
#- under certain conditions; See license file for details. #- under certain conditions; See license file for details.

21
tellstickcontroller/tellstickController.conf
View file

@ -3,7 +3,7 @@
# Configuration file for tellstickController # Configuration file for tellstickController
# #
# Copyright (C) 2008 Rickard Andersson (ran42ran@gmail.com) # Copyright (C) 2008 Rickard Andersson (ran42ran@gmail.com)
# Version: 1.4.2 # Version: 1.5.0
# #
################################################################################ ################################################################################
# #
@ -29,7 +29,6 @@
# #
# Set Timezone Europe/Stockholm # Set Timezone Europe/Stockholm
# #
#
Set Timezone Europe/Stockholm Set Timezone Europe/Stockholm
Set Latitude 58.24 Set Latitude 58.24
Set Longitude 15.31 Set Longitude 15.31
@ -53,8 +52,18 @@ Set logfile /var/log/tellstickController.log
# #
# Alias MythTv_Backlight /dev/ttyUSB0 No Sartano 000000001 # Alias MythTv_Backlight /dev/ttyUSB0 No Sartano 000000001
# #
Alias device1 /dev/tellstick No Nexa A 1
Alias device2 /dev/tellstick No Nexa A 2
# Groups used for handling a list of aliases.
# #
Alias device1 /dev/tellstick No Nexa A 1 # Usage examples:
# Group Name Delay Aliases
# Group Livingroom_walls 60 Livingroom_wall_north Livingroom_wall_east
# Group Kitchen 5 Kitchen_cabinets Kitchen_window
#
Group allDevices 10 Device1 Device2
# Timer rules for reciever devices. # Timer rules for reciever devices.
@ -68,7 +77,7 @@ Alias device1 /dev/tellstick No Nexa A 1
# Rule device42 2008-03-##/18:45 2008-03-##/22:11 # Rule device42 2008-03-##/18:45 2008-03-##/22:11
# Rule device42 No 02:00 # Rule device42 No 02:00
# #
# Rule device1 weekend/sunrise weekend/08:45
Rule device1 weekend/sunrise weekend/08:45 Rule device1 sunset+00:15 23:30+Random(00:20)
Rule device1 sunset+00:15 23:30+Random(00:20) Rule allDevices 16:45 23:45