Revision: 419
http://openautomation.svn.sourceforge.net/openautomation/?rev=419&view=rev
Author: mayerch
Date: 2011-09-18 13:06:41 +0000 (Sun, 18 Sep 2011)
Log Message:
-----------
New (demo) plugin store states on the bus to keep them over restarts
Added Paths:
-----------
wiregate/plugin/generic/StateSave
Added: wiregate/plugin/generic/StateSave
===================================================================
--- wiregate/plugin/generic/StateSave (rev 0)
+++ wiregate/plugin/generic/StateSave 2011-09-18 13:06:41 UTC (rev 419)
@@ -0,0 +1,88 @@
+#############################################################################
+# Plugin StateSave
+# V0.5 2011-09-18
+# Copyright: Christian Mayer (mail at ChristianMayer.de)
+# License: GPL (v3)
+#
+# Plugin to remember states on the bus if over power failures
+#
+# TODO: DPT is currently required - but it should be optional
+#############################################################################
+
+#############################################################################
+# Configuration:
+
+# The %states hash defines the global names to use in the plugins in the form of
+# $plugin_info{'Global_...'}
+# as well as the KNX GA
+
+# Syntax:
+# 'Global_Name' => [ 'KNX GA', 'Initial Value', 'DPT (optional)' ],
+my %states = (
+ 'Global_ErzwingeWochenende' => [ '0/3/20', 0 ],
+ 'Global_WeihnachtsbeleuchtungAutomatik' => [ '0/3/21', 0, 1 ],
+);
+
+my $reset_states = 0; # set to 1 to reset the states, run script and change to 0 again
+my $show_debug = 1; # switches debug information that will be shown in the log
+
+#############################################################################
+# Do NOT change anything below!
+#############################################################################
+
+#############################################################################
+# Initialisation
+for my $this_state ( keys %states )
+{
+ # Initialise global variable an the bus
+ if( $reset_states or not exists $plugin_info{ $this_state } )
+ {
+ $plugin_info{ $this_state } = $states{ $this_state }[1];
+ knx_write( $states{ $this_state }[0], $plugin_info{ $this_state }, $states{ $this_state }[2] );
+ }
+
+ # subscribe GA
+ $plugin_subscribe{ $states{ $this_state }[0] }{ $plugname } = 1;
+}
+
+# No cycling, run only on request
+$plugin_info{$plugname.'_cycle'} = 0;
+
+my $ret_val = '';
+
+#############################################################################
+# Handle the bus traffic
+
+# Early exit during a response messeage - it's usually from us...
+if( $msg{'apci'} eq 'A_GroupValue_Response' )
+{
+ return;
+}
+
+# a linear search isn't smart but OK for only a few states:
+for my $this_state ( keys %states )
+{
+ my $GA = $states{ $this_state }[0];
+ my $DPT = $states{ $this_state }[2];
+
+ if( $msg{'dst'} eq $GA )
+ {
+ $ret_val .= $GA . '[' . $DPT . ']:';
+
+ if( $msg{'apci'} eq 'A_GroupValue_Read' )
+ {
+ $ret_val .= 'read <- "' . $plugin_info{ $this_state } . '";';
+ knx_write( $GA, $plugin_info{ $this_state }, $DPT, 1 ); # send response
+ }
+ elsif($msg{'apci'} eq 'A_GroupValue_Write')
+ {
+ # read from eibd cache, so we'll the cast for free:
+ my $v = knx_read( $GA, 0, $DPT ) > 0 || 0;
+ $ret_val .= 'write: "' . $plugin_info{ $this_state } . '" -> "' . $v . '";';
+ $plugin_info{ $this_state } = $v;
+ }
+ }
+}
+
+if( $show_debug ) { return $ret_val; }
+return;
\ No newline at end of file
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
