sperreRaffstoreEZ => {
receive=>['3/1/110', '3/1/117', '3/1/111', '3/1/1', '1/5/3'],
transmit=>'1/1/10',
translate => sub { return ($input->[0] || $input->[1] || $input->[2] || $input->[3] || $input->[4]); },
debug=>1 },
return ($input->[0] || $input->[1] || $input->[2] || $input->[3] || $input->[4]);
(sum($input) > 0 ? 1 : 0);
my %Leckage = (Geschirrspueler => '1/1/13', Kuehlschrank => '1/1/14', Spuele => '1/1/15');
while (my ($name, $ga) = each(%Leckage)) {
$logic{'Leckage'.$name} = { receive=>$ga, translate=>sub{
return unless $input;
sendNma(event=>'Leckage erkannt: '.$name, description=>'bitte Wasserschaden prüfen', priority=>2);
}, debug=>0 };
}
#!/usr/bin/perl
#
# Logikprozessor.pl - Konfiguration
#
$eibd_backend_address='1.1.100'; # eigene Adresse zur Vermeidung von Zirkellogiken, ist oft auch '1.1.254'
# Zentrale Einstellungen, insb. für die Prowl Mechanik, s. u..
%settings=(
nma => {
apikey => 'xxx',
application => 'SmartHome Logikprozessor',
targetUrl => 'http://localhost',
url => 'http://www.notifymyandroid.com/publicapi/notify'
}
);
%logic=(
nma_test => {
receive=>'1/0/16',
translate=>sub {
if ($input = 1) {
sendNma(event=>'Test',
description=>'test'
);
return;
}
},
},
);
sub sendNma {
my (%parameters)=@_;
my ($priority, $event, $description, $application, $url, $apikey, $targetUrl);
# Parameter ermitteln
# dom, 2012-11-05: $settings auch hier auswerten. Damit kann addRssLog() direkt aus der Logik aufgerufen werden!
$priority = $parameters{priority} || $settings{nma}{priority} || 0;
$event = $parameters{event} || $settings{nma}{event} || '[unbenanntes Ereignis]';
$description = $parameters{description} || $settings{nma}{description} || '';
$application = $parameters{application} || $settings{nma}{application} || 'WireGate KNX';
$targetUrl = $parameters{targetUrl} || $settings{nma}{targetUrl} || '';
$url = $parameters{url} || $settings{nma}{url} || '';
$apikey = $parameters{apikey} || $settings{nma}{apikey} || '';
use LWP::UserAgent;
use URI::Escape;
use Encode;
# HTTP Request aufsetzen
my ($userAgent, $request, $response, $requestURL);
$userAgent = LWP::UserAgent->new;
$userAgent->agent("WireGatePlugin/1.0");
$requestURL = sprintf($url."?apikey=%s&priority=%s&event=%s&description=%s&application=%s&url=%s",
uri_escape($apikey),
uri_escape($priority),
uri_escape(encode("utf8", $event)),
uri_escape(encode("utf8", $description)),
uri_escape(encode("utf8", $application)),
uri_escape($targetUrl));
$request = HTTP::Request->new(GET => $requestURL);
#$request->timeout(5);
$response = $userAgent->request($request);
if ($response->is_success) {
plugin_log($plugname, "NMA-Nachricht erfolgreich abgesetzt: $priority, $event, $description, $application") if $parameters{debug};
} elsif ($response->code == 401) {
plugin_log($plugname, "NMA-Nachricht nicht abgesetzt: API key gültig?");
} else {
plugin_log($plugname, "NMA-Nachricht ($requestURL) nicht abgesetzt: " . $response->content);
}
return undef;
}
targetUrl => 'http://localhost',
targetUrl => 'http://127.0.0.1',
2014-05-27 11:21:19.117,Logikprozessor,NMA-Nachricht erfolgreich abgesetzt: 0, Test, test, SmartHome Logikprozessor
if ([COLOR="Red"]$input = 1[/COLOR]) {
sendNma(event=>'Test',
description=>'test', debug=>1
);
return;
}
if ($input == 1) {
if (int($input) == 1) {
if ([COLOR=Red]$input = 1[/COLOR]) {
sendNma(event=>'Test',
description=>'test', debug=>1
);
return;
}
if ($input == 1) {
if (int($input) == 1) {
<text><layout colspan="1" />Wecker</text>
<switch mapping="Off_On" styling="Grey_Green"><layout colspan="1" />
<address transform="DPT:1.001" writeonly="true">Alarm_set</address>
<address transform="DPT:1.001" readonly="true">Alarm_set_Status</address>
</switch>
<slide min="0" max="24" step="0.125"><layout colspan="6" />
<address transform="DPT:9.001" writeonly="true">Alarm_time_dec</address>
<address transform="DPT:9.001" readonly="true">Alarm_time_dec_Status</address>
</slide>
<info><layout colspan="1" />
<address transform="DPT:10.001" readonly="true">Alarm_time_Status</address>
</info>
<trigger value="1" mapping="Slumber"><layout colspan="1"/>
<address transform="DPT:1.001">Alarm_slumber</address>
</trigger>
# Wecker an/aus
$logic{"Alarm_set"} = { receive=>"Alarm_set", execute_only_if_input_defined=>1,
translate => sub {
$plugin_info{"Logik_Alarm_set"}=$input;
followup({"Alarm_main"=>0}); # direkt danach aufrufen
},
};
# Weckzeit einstellen
$logic{"Alarm_time"} = { receive=>"Alarm_time", execute_only_if_input_defined=>1,
transmit=>"Alarm_time_Status",
translate => sub {
return undef unless $input=~/([0-2][0-9]):([0-5][0-9]):?([0-5][0-9])?$/;
$plugin_info{"Logik_Alarm_time"}="$1:$2:01"; # 01 is a workaround for decode_dpt10-Bug
knx_write("Alarm_time_dec_Status",$1+$2/60.);
return $plugin_info{"Logik_Alarm_time"};
},
reply_to_read_requests=>1,
followup=>{"Alarm_main"=>0}, # direkt danach aufrufen
};
Kommentar