@@ -1,6 +1,6 @@

 #!/usr/bin/perl

 # parser pentru mesajele MQTT

-# Version: 1.0.6

+# Version: 1.0.7

 use strict;

 use warnings;

@@ -8,6 +8,7 @@ use JSON qw( decode_json );

 use DBI;

 use Proc::Daemon;

 use POSIX qw(strftime);

+use System::Timeout qw(system);

 # pentru debug pun daemon=0 ca sa nu mai ruleze ca daemon

 my $daemon=1;

@@ -126,6 +127,10 @@ while (my $mqttMessage = <$SUB> ) {

           addDB ($topic, "RestartReason", $decoded->{'RestartReason'});

         }

       } 

+      if ($queue eq "ALARM"){

+        $json=~ s/\"/\\"/g;

+        pushALARM ($topic, $json);

+      }      

     }

   }

   else {

@@ -138,6 +143,19 @@ if ($daemon==1){

   }

 }

+# loghez alarmele pe care le trimit

+sub pushALARM {

+  (my $topic, my $json) = @_;

+  my $script = "php /admin/scripts/alarma/alarm.php $topic $json";

+  my $logfile='/var/log/mqttparser/mqtt-alarm.log';   

+  my $timealarm = strftime("%d/%m/%Y %H:%M:%S", localtime(time));

+  open (my $lh, '>>', $logfile) or die "Cannot open $logfile";

+  print $lh "$timealarm - Am lansat: $script";

+  close $lh;

+  system('1', "$script"); # lansez scriptul de alarma cu timeout 1 secunda

+  return;

+}

+

 # adaug in fisierele pentru graficele senzorilor

 sub addFILE {

   (my $topic, my $camp, my $valoare) = @_;

@@ -12,6 +12,7 @@ stat/qbzesh-1250/ESP {<strong>"Temp":23.30</strong>,<strong>"Humi":41.00</strong

 stat/qbzesh-1250/ESP {<strong>"Module":"NodeMCU DHT22"</strong>,<strong>"Version":"v2.0.1"</strong>}<br>

 stat/qbzesh-1250/ESP {<strong>"ESPMac":"2C-3A-E8-3D-E8-2B"</strong>,<strong>"IPAddress":"192.168.1.35"</strong>}<br>

 stat/qbzesh-1250/ESP {<strong>"LoopInterval":"15 minute"</strong>}<br>

+stat/qbzesh-1250/ALARM {<strong>"PIR":1</strong>}<br>

 tele/64x35up-2452/INFO1 {<strong>"Module":"Sonoff Pow"</strong>,<strong>"Version":"5.10.0"</strong>,"FallbackTopic":"DVES_3B4994","GroupTopic":"sonoffs"}<br>

 tele/64x35up-2452/INFO2 {"WebServerMode":"Admin","Hostname":"64x35up-2452-2452",<strong>"IPAddress":"192.168.23.146"</strong>}<br>

 tele/64x35up-2452/INFO3 {<strong>"RestartReason":"Power on"</strong>}<br>