Initial version

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@3 2b470e98-0d58-463d-a4d8-8e2adae1ed80
2007-01-30 12:47:36 +00:00
commit a5b914121c
107 changed files with 14766 additions and 0 deletions
--- a/webfrontend/pgm3/docs/misc/99_ALARM.pm
+++ b/webfrontend/pgm3/docs/misc/99_ALARM.pm
@@ -0,0 +1,150 @@
+##############################################
+# Low Budget ALARM System
+##############################################
+# ATTENTION! This is more a toy than a professional alarm system! 
+# You must know what you do! 
+##############################################
+#  
+# Concept:
+# 1x Signal Light (FS20 allight) to show the status (activated/deactivated)
+# 2x Sirene (in/out) (FS20 alsir1 alsir2 )
+# 2x PIRI-2 (FS20 piriu pirio)
+# 1x Sender (FS20 alsw) to activate/deactivate the system. 
+# Tip: use the KeyMatic CAC with pin code or
+# optional a normal sender (FS20 alsw2)
+# 
+# Add something like the following lines to the configuration file :
+#   	notifyon alsw {MyAlsw()}
+#   	notifyon alsw2 {MyAlswNoPin()}
+#	notifyon piriu {MyAlarm()}
+#	notifyon pirio {MyAlarm()}
+# and put this file in the <modpath>/FHZ1000 directory.
+#
+# Martin Haas
+##############################################
+
+
+package main;
+use strict;
+use warnings;
+
+sub
+ALARM_Initialize($$)
+{
+  my ($hash, $init) = @_;
+  $hash->{Type} = "none";
+}
+
+
+##############################################
+# Switching Alarm System on or off
+sub
+MyAlsw()
+{
+  my $ON="set allight on; setstate alsw on";
+  my $OFF="set allight off; set alsir1 off; set alsir2 off; setstate alsw off";
+
+	if ( -e "/var/tmp/alertsystem")
+	{		
+		unlink "/var/tmp/alertsystem";
+		#Paranoia
+		for (my $i = 0; $i < 2; $i++ )
+		{
+                                fhz "$OFF";
+		};
+                Log 2, "alarm system is OFF";
+	} else	{
+		system "touch /var/tmp/alertsystem";
+		#Paranoia
+		for (my $i = 0; $i < 2; $i++ )
+		{
+                         fhz "$ON"
+		}
+                Log 2, "alarm system is ON";
+	};
+}
+
+
+##############################################
+# If you have no Keymatic then use this workaround:
+# After 4x pushing a fs20-button within some seconds it will activate/deactivate the alarm system.
+sub 
+MyAlswNoPin()
+{
+
+my $timedout=5;
+
+## first time
+        if ( ! -e "/var/tmp/alontest1")
+        {
+                for (my $i = 1; $i < 4; $i++ )
+                {
+                        system "touch -t 200601010101 /var/tmp/alontest$i";
+                }
+        }
+
+
+## test 4 times
+        my $now= `date +%s`;
+                for (my $i = 1; $i < 4; $i++ )
+                {
+                        my $tagx=`date -r /var/tmp/alontest$i +%s`;
+                        my $testx=$now-$tagx;
+
+                        if  ( $testx > $timedout )
+                        {
+                                system "touch /var/tmp/alontest$i";
+                                die "test$i: more than $timedout sec";
+                        }
+                }
+        system "touch -t 200601010101 /var/tmp/alontest*";
+        Log 2, "ok, let's switch the alarm system...";
+
+#if you only allow to activate (and not deactivate) with this script:
+	# if ( -e "/var/tmp/alertsystem") { die "deactivating alarm system not allowed"};
+
+	MyAlsw();
+}
+
+
+
+
+##############################################
+# ALARM! Do what you want!
+sub 
+MyAlarm()
+{
+
+        #alarm-system activated??
+        if ( -e "/var/tmp/alertsystem")
+        {
+
+                my $timer=180;  # time until the sirene will be quiet
+                my $ON1="set alsir1 on-for-timer $timer";
+                my $ON2="set alsir2 on-for-timer $timer";
+
+
+                #Paranoia
+                for (my $i = 0; $i < 2; $i++ )
+                {
+                        fhz "$ON1";
+                        fhz "$ON2";
+                }
+                Log 2, "ALARM! #################" ;
+
+
+                # have fun
+                my @lights=("stuwz1", "stuwz2", "nachto", "nachtu", "stoliba" ,"stlileo");
+                my @rollos=("rolu4", "rolu5", "roloadi", "rololeo", "roloco", "rolowz", "rolunik1", "rolunik2");
+
+                foreach my $light (@lights) {
+                        fhz "set $light on"
+                }
+
+                foreach my $rollo (@rollos) {
+                        fhz "set $rollo on"
+                }
+        }
+}
+
+1;