Alarmmeldungen auslesen =>Mail versenden.

[alchy]

Ganz auf die Schnelle eine >>neue Version<<

Alchy

[daniello]

Vielen Dank .. ich kann aber grad nicht testen .. weil ich durch die Umbennenung von

${sysVarAlarmZone1}

in "Alarmzone" .. keine Alarme mehr bekomme.

Im Notify-Scripst steht:

Code: Alles auswählen

# trigger a HomeMatic alarm message to "Alarmzone 1"
/bin/triggerAlarm.tcl "${UPSNAME}: ${NOTIFYTYPE}"

Jetzt bräuchte ich Deinen Rat wie ich damit umgehe. Den Namen wieder umbennenen .. oder was in der triggerAlarm.tcl was zu machen?

VG

[alchy]

Wie sieht dein TCL Script aus welches den Alarm auslöst.?

Alchy

[daniello]

oh .. ich dachte das wär Standard .. zeige ich heute nachmittag .. bin jetzt außer Reichweite.

[daniello]

Hier isses:

Code: Alles auswählen

#!/bin/tclsh
#
# Simple tclsh script for triggering an alarm message at the first
# ALARMDP system variable with name "Alarmzone 1".
#
# Copyright (c) 2017 Jens Maus <mail@jens-maus.de>
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
# 
#     http://www.apache.org/licenses/LICENSE-2.0
# 
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
# Usage:
# triggerAlarm.tcl <msg>
#

load tclrpc.so
load tclrega.so

if { $argc != 1 } {
  puts "ERROR: script requires exactly one argument"
  return
}

# function to return a list of alarm variables
proc getAlarmZoneVariableID { } {
  set script "
    string sSysVarId;
    foreach (sSysVarId, dom.GetObject(ID_SYSTEM_VARIABLES).EnumUsedIDs()) {
      object oSysVar = dom.GetObject(sSysVarId);
      string sValueType = oSysVar.ValueType();

      if(oSysVar.TypeName() == 'ALARMDP') {
        WriteLine(sSysVarId # ';' # oSysVar.Name());
      }
    }
  "

  if { ![catch {array set result [rega_script $script]}] } then {
    set variables [split $result(STDOUT) "\n"]
    foreach subsection $variables {
      set b [split $subsection ";"]
      set sysVarId [lindex $b 0]
      set sysVarName [string tolower [lindex $b 1]]
      if {[regexp ".*alarmzone.*1" $sysVarName]} {
        return $sysVarId
      }
    }
  }
  return ""
}

proc triggerAlarm { msg } {
  set sysVarAlarmZone1 [getAlarmZoneVariableID]
  if { [string length $sysVarAlarmZone1] > 0 } then {
    set script "
      dom.GetObject('$sysVarAlarmZone1').State(true);
      dom.GetObject('$sysVarAlarmZone1').DPInfo('$msg');
    "

    if { ![catch {array set result [rega_script $script]}] } then {
      return true
    }
  }

  return false
}

set res [triggerAlarm [lindex $argv 0]]

[alchy]

Wie geil. Nö, das ist keine Standarddatei. Ist wohl was von der Rhaspberrymatic.

Für das TCL Script musst du dann die Alarmvariable wieder umbenennen zu "Alarmzone1" oder "Alarmzone 1" oder von mir aus auch "meine Alarmzone 1" usw. oder auch eine neu anlegen mit dem passenden Namen die dann gesetzt wird.
oder du schreibst die tcl Datei um.

Den Klarnamenbug bist du trotzdem los, da die Variable jetzt mit einem Klarnamen benannt hast.

Alchy

[daniello]

ok danke .. ich denke die Alarmzone umzubennen ist nachhaltiger .. nicht dass ein Update das TCL überbügelt und ich such den Fehler

[daniello]

Das mit der Beschreibung klappt leider noch nciht ...

2 x Alarmzone 1 letztmalig am: 18.10.18 17:36 Uhr von unbekannt mit keine Beschreibung

[alchy]

Sorry, mein Fehler - nun sollte es gehen.
Wenn nicht muss ich wirklich mal selber testen.

Alchy

[daniello]

Neee .. musste nicht .. steht jetzt alles drin was ich brauche:

2 x Alarmzone 1 ausgelöst letztmalig am: 18.10.18 17:36 Uhr von unbekannt mit qnapups@192.168.178.200:3493: ONLINE

VIELEN DANK!