Hallo zusammen,
auf Wunsch (siehe
dieser Thread) habe ich mal eine
Anwesenheitssimulation als
Wiregate-Plugin zusammengehackt. Wie immer "ohne Gewehr" :-)
Folgender Disclaimer: es handelt sich um einen Quick Hack, auch um zu zeigen, wie schön
Perl doch ist, wenn es um Quick Hacks geht :-)
Ich selbst brauche keine
Anwesenheitssimulation, deshalb bittet mich nicht um eure 10.000 Wunschfeatures. Wer das Plugin erweitern will - be my guest, aber beachtet die GPL und postet das verbesserte Plugin hier bzw. im SVN.
Das Ganze funktioniert so: das Plugin
Anwesenheitssimulation abonniert eine einzige
GA (im Skript festgelegt, extra dafür wollte ich kein .conf-File schreiben). Diese
GA sollte (wie immer) in der eibga.conf hinterlegt sein und
DPT-Typ 1 haben (wie ein Schalter: an/aus).
Wird die
Anwesenheitssimulation über die
GA angeschaltet (Telegrammwert 1), so erzeugt sie ein neues Plugin aus der
eib.log. Das neue Plugin wird danach vom
Wiregate-Daemon ausgeführt und wiederholt einfach die Telegramme, die im
eib.log gefunden wurden. (Beispielhaft steht im Skript auch drin, wie man bestimmte GAs ausfiltern kann).
Wird die
Anwesenheitssimulation über die
GA ausgeschaltet (Telegrammwert 0), so löscht sie das erzeugte Plugin wieder.
Und hier das Skript, wie immer auch im SVN zu finden:
Code:
#!/usr/bin/perl -w
##########################
# Anwesenheitssimulation #
##########################
# Wiregate-Plugin
# (c) 2012 Fry under the GNU Public License
#$plugin_info{$plugname.'_cycle'}=0; return 'deaktiviert';
# Aufrufgrund ermitteln
my $event=undef;
if (!$plugin_initflag)
{ $event='restart'; } # Restart des daemons / Reboot
elsif ($plugin_info{$plugname.'_lastsaved'} > $plugin_info{$plugname.'_last'})
{ $event='modified'; } # Plugin modifiziert
elsif (%msg) { $event='bus'; } # Bustraffic
elsif ($fh) { $event='socket'; } # Netzwerktraffic
else { $event='cycle'; } # Zyklus
# eine Gruppenadresse zum Starten und Stoppen. Diese ist vom Typ DPT 1 (An/Aus)
$plugin_subscribe{'1/2/0'}{$plugname}=1;
# kein regelmaessiger Aufruf
$plugin_info{$plugname.'_cycle'}=0;
# Nur auf Bustraffic reagieren
return unless $event=~/bus/ && $msg{apci} eq "A_GroupValue_Write";
my $in=int($msg{value});
# Name des Simulationsskriptes
my $simscript="/etc/wiregate/plugin/generic/Anwesenheitssimulationsskript.pl";
unless($in) { system "rm", "-f", $simscript; return "Anwesenheitssimulation gestoppt"; }
# Start Anwesenheitssimulation: einfach ein neues Plugin aus eib.log erzeugen, der wiregate-Daemon fuehrt es dann aus
open SIM, ">$simscript";
my $line=1;
print SIM <<EOF;
#!/usr/bin/perl -w
\$plugin_info{\$plugname.'_line'}=1 unless defined \$plugin_info{\$plugname.'_line'};
given(\$plugin_info{\$plugname.'_line'}) {
when($line) {
EOF
my $time=`/bin/date +%X`; $time=~/^([0-9][0-9])\:([0-9][0-9])\:([0-9][0-9])/; my ($h,$m,$s)=($1,$2,$3);
my $lastdaynum=undef;
open IN, "</var/log/eib.log";
$/="\n";
while($_=<IN>)
{
chomp;
next unless /^([0-9][0-9][0-9][0-9])\-([0-9][0-9])\-([0-9][0-9]) ([0-9][0-9])\:([0-9][0-9])\:([0-9][0-9])[^,]*,[^,]*,[^,]*,([0-9]+\/[0-9]+\/[0\
-9]+),[^,]*,([^,]*),[^,]*,([^,]*),.*$/;
my ($year, $month, $day, $hour, $min, $sec, $ga, $val, $dpt)=($1, $2, $3, $4, $5, $6, $7, $8, $9);
$val="'$val'" if $dpt=~/^16/;
# Alle Telegramme auf manchen Hauptgruppen ausfiltern
next if $ga=~m!^(5|6)/0!;
my $daynum=365*$year; $year-- if $month<=2; $daynum+=int($year/4) - int($year/100) + int($year/400);
my $delta = (defined $lastdaynum) ? $daynum-$lastdaynum : 0;
$lastdaynum=$daynum;
$delta=(($delta*24+($hour-$h))*60+($min-$m))*60+($sec-$s);
next if $delta<0;
($h,$m,$s)=($hour,$min,$sec);
if($delta>0)
{
$line++;
print SIM <<EOF;
\$plugin_info{\$plugname.'_cycle'}=$delta; }
when($line) {
EOF
}
print SIM <<EOF;
# $_
knx_write('$ga', $val, $dpt);
EOF
}
close IN;
print SIM <<EOF;
}
}
default { \$plugin_info{\$plugname.'_line'}=1; }
}
\$plugin_info{\$plugname.'_line'}++;
return \$plugin_info{\$plugname.'_line'}-1;
EOF
close SIM;
return "Anwesenheitssimulation gestartet";
Bitte holt das Plugin aus dem SVN - dort stehen ggf. neuere Versionen.
Have fun!
VG, Fry
Neues Plugin: Anwesenheitssimulation
Linear-Darstellung
