Initial commit

addon/addon/common.tcl

@@ -0,0 +1,55 @@
+set ADDON_NAME "check_mk_agent"
+
+proc log { message } {
+  global ADDON_NAME
+  exec logger "$ADDON_NAME - $message"
+}
+
+proc save_to_file { fileName content } {
+  set fd -1
+
+  set fd [open $fileName w]
+  if { $fd != -1 } then {
+    puts -nonewline $fd $content
+    close $fd
+  } else {
+    error "could not write file $fileName"
+  }
+}
+
+proc load_from_file { fileName } {
+  set fd -1
+  
+  set fd [open $fileName r]
+  if { $fd != -1 } then {
+    set result [read $fd]
+    close $fd
+  } else {
+    error "could not read file $fileName"
+  }
+  
+  return $result
+}
+ 
+set PID_FILE "/var/lock/$ADDON_NAME.pid"
+
+proc is_running { } {
+  global PID_FILE
+  return [file exists $PID_FILE]
+}
+
+proc write_pid_file { } {
+  global PID_FILE
+  save_to_file $PID_FILE [pid]
+}
+
+proc read_pid_file { } {
+  global PID_FILE
+  return [load_from_file $PID_FILE]
+}
+
+proc remove_pid_file { } {
+  global PID_FILE
+  file delete $PID_FILE
+}
+

addon/addon/server.tcl

@@ -0,0 +1,178 @@
+#!/bin/tclsh
+load tclrega.so
+load tclrpc.so
+
+source [file join [file dirname [info script]] common.tcl]
+
+proc handle_connection { channelId clientAddress clientPort } {
+  if { [catch {
+    log "connection accepted from $clientAddress:$clientPort"
+
+    puts $channelId "<<<check_mk>>>"
+    puts $channelId "Version: [get_version]"
+    puts $channelId "AgentOS: HomeMatic"
+    puts $channelId "Hostname: [info hostname]"
+
+    puts $channelId "<<<mem>>>"
+    puts $channelId [string trim [load_from_file /proc/meminfo]]
+
+    puts $channelId "<<<cpu>>>"
+    puts $channelId "[string trim [load_from_file /proc/loadavg]] [exec grep -E ^(P|p)rocessor < /proc/cpuinfo | wc -l]"
+
+    puts $channelId "<<<uptime>>>"
+    puts $channelId [string trim [load_from_file /proc/uptime]]
+
+    puts $channelId "<<<kernel>>>"
+    puts $channelId [clock seconds]
+    puts $channelId [string trim [load_from_file /proc/vmstat]]
+    puts $channelId [string trim [load_from_file /proc/stat]]
+
+    if { [file exists /sys/class/thermal/thermal_zone0/temp] == 1} {
+        puts $channelId "<<<lnx_thermal>>>"
+        puts $channelId "thermal_zone0 enabled [string trim [load_from_file /sys/class/thermal/thermal_zone0/type]] [string trim [load_from_file /sys/class/thermal/thermal_zone0/temp]]"
+    }
+
+    if { [file exists /proc/net/tcp6] == 1 } {
+        puts $channelId "<<<tcp_conn_stats>>>"
+        puts $channelId "[exec cat /proc/net/tcp /proc/net/tcp6 2>/dev/null | awk { /:/ { c[$4]++; } END { for (x in c) { print x, c[x]; } } }]"
+    } else {
+        puts $channelId "<<<tcp_conn_stats>>>"
+        puts $channelId "[exec cat /proc/net/tcp 2>/dev/null | awk { /:/ { c[$4]++; } END { for (x in c) { print x, c[x]; } } }]"
+    }
+
+    puts $channelId "<<<lnx_if>>>"
+    puts $channelId "\[start_iplink\]"
+    puts $channelId "[exec ip link]"
+    puts $channelId "\[end_iplink\]"
+
+    puts $channelId "<<<lnx_if:sep(58)>>>"
+    puts $channelId "[exec sed 1,2d /proc/net/dev]"
+
+    if { [regexp CCU2 [exec grep Hardware < /proc/cpuinfo]] == 0 } {
+        puts $channelId "<<<df>>>"
+        puts $channelId "[exec df -PTk | sed 1d]"
+
+        puts $channelId "<<<mounts>>>"
+        puts $channelId "[exec grep ^/dev < /proc/mounts]"
+
+        puts $channelId "<<<diskstat>>>"
+        puts $channelId "[clock seconds]"
+        puts $channelId "[exec egrep { (x?[shv]d[a-z]*|cciss/c[0-9]+d[0-9]+|emcpower[a-z]+|dm-[0-9]+|VxVM.*|mmcblk.*|dasd[a-z]*|bcache[0-9]+|nvme[0-9]+n[0-9]+) } < /proc/diskstats]"
+    }
+
+    if { [file exists /usr/bin/ntpq] == 1 } {
+        puts $channelId "<<<ntp>>>"
+        puts $channelId "[exec ntpq -np | sed -e 1,2d -e {s/^\(.\)/\1 /} -e {s/^ /%/}]"
+    }
+
+    puts $channelId "<<<homematic:sep(59)>>>"
+    puts $channelId [string trim [get_homematic_check_result]]
+    foreach dev [xmlrpc http://127.0.0.1:2001/ listBidcosInterfaces] {
+      foreach {key value} [split $dev] {
+        set values($key) $value
+      }
+      set address $values(ADDRESS)
+      foreach key [array names values] {
+        if { $key != "ADDRESS" } {
+          puts $channelId "$address;$key;$values($key)"
+        }
+      }
+    }
+
+    flush $channelId
+
+    close $channelId
+  } err] } {
+    log $err    
+    [catch { close $channelId }]
+  }
+}
+
+proc get_homematic_check_result { } {
+  array set result [rega_script {
+    string _svcId;
+    object _svc;
+    string _devId;
+    object _dev;
+    string _chId;
+    object _ch;
+    string _dpId;
+    object _dp;
+    string _name;
+
+    foreach (_svcId, dom.GetObject(ID_SERVICES).EnumUsedIDs()) {
+      _svc = dom.GetObject(_svcId);
+      if (_svc.AlState() == asOncoming) {
+        _dp = dom.GetObject(_svc.AlTriggerDP());
+        _ch = dom.GetObject(_dp.Channel());
+        _dev = dom.GetObject(_ch.Device());
+        
+        WriteLine("SVC_MSG;" # _dev.Name() # ";" # _svc.Name().StrValueByIndex (".", 1).StrValueByIndex ("-", 0) # ";" # _dp.Timestamp());
+      }
+    }
+
+    foreach (_chId, dom.GetObject("Monitored").EnumUsedIDs()) {
+      _ch = dom.GetObject(_chId);
+
+      _dev = dom.GetObject(_ch.Device());
+      WriteLine(_ch.Name() # ";HSSTYPE;" # _dev.HssType());
+
+      foreach (_dpId, _ch.DPs()) {
+        _dp = dom.GetObject(_dpId);
+
+        if (_dp.Value()) {
+          _name = _dp.Name().StrValueByIndex(".", 2);
+          WriteLine(_ch.Name() # ";" # _name # ";" # _dp.Value() # ";" # _dp.Timestamp());
+        }
+      }
+    }
+  }]
+  return $result(STDOUT)
+}
+
+proc get_homematic_bidcos_devices { } {
+  foreach dev [xmlrpc http://127.0.0.1:2001/ listBidcosInterfaces] {
+    foreach {key value} [split $dev] {
+      puts "$key=$value"
+    }
+  }
+}
+                                                  
+proc read_var { filename varname } {
+  set fd [open $filename r]
+  set var ""
+  if { $fd >=0 } {
+    while { [gets $fd buf] >=0 } {
+      if [regexp "^ *$varname *= *(.*)$" $buf dummy var] break
+    }
+    close $fd
+  }
+  return $var
+}
+
+proc get_version { } {
+  return [read_var /boot/VERSION VERSION]
+}
+                                                                    
+proc main { } {
+  startup
+
+  socket -server handle_connection 6556
+  log "check_mk agent started and waiting for connections..."
+
+  vwait forever
+}
+
+proc startup { } {
+  if {[is_running]} then {
+    error "already running"
+  }
+
+  write_pid_file
+}
+
+if { [catch { main } err] } then {
+  log $err
+  exit 1
+}
+

addon/addon/stop.tcl

@@ -0,0 +1,20 @@
+#!/bin/tclsh
+
+source [file join [file dirname [info script]] common.tcl]
+
+proc main { } {
+  if { [is_running] } then {
+    set pid [read_pid_file]
+
+    catch { exec kill -KILL $pid }
+    remove_pid_file
+  }
+
+  log "stopped"
+}
+
+if { [catch { main } errorMessage] } then {
+  log $errorMessage
+  exit 1
+}
+

addon/rc.d/check_mk_agent

@@ -0,0 +1,47 @@
+#!/bin/sh
+
+ADDONNAME=check_mk_agent
+ADDONDIR=/usr/local/addons/${ADDONNAME}
+#WWWDIR=/usr/local/etc/config/addons/www/${ADDONNAME}
+RCDDIR=/usr/local/etc/config/rc.d
+
+case "$1" in
+
+  ""|start)
+    tclsh $ADDONDIR/server.tcl &
+    ;;
+
+  stop)
+    tclsh $ADDONDIR/stop.tcl
+    ;;
+
+  restart|reload)
+    tclsh $ADDONDIR/stop.tcl
+    sleep 2
+    tclsh $ADDONDIR/server.tcl &
+    ;;
+
+  info)
+    echo "Info: <b>(Inoffical) check_mk agent</b>"
+    echo "Version: 1.0"
+    echo "Name: check_mk_agent"
+    echo "Operations: uninstall restart"
+    ;;
+
+  uninstall)
+    tclsh $ADDONDIR/stop.tcl
+
+    rm -rf ${ADDONDIR}
+    rm -rf ${WWWDIR}
+    rm -f ${RCDDIR}/${ADDONNAME}
+    ;;
+
+  *)
+    echo "Usage: check_mk_agent {start|stop|restart|info|uninstall}" >&2
+    exit 1
+    ;;
+
+esac
+
+exit $?
+

addon/update_script

@@ -0,0 +1,22 @@
+#!/bin/sh
+
+ADDONNAME=check_mk_agent
+CONFIG_DIR=/usr/local/etc/config
+ADDON_DIR=/usr/local/addons/${ADDONNAME}
+RCD_DIR=${CONFIG_DIR}/rc.d
+
+mount | grep /usr/local 2>&1 >/dev/null
+if [ $? -eq 1 ]; then
+  mount /usr/local
+fi
+
+# create necessary directories
+mkdir -p ${ADDON_DIR}
+chmod 755 ${ADDON_DIR}
+mkdir -p ${RCD_DIR}
+chmod 755 ${RCD_DIR}
+
+cp -af addon/* ${ADDON_DIR}
+cp -af rc.d/* ${RCD_DIR}
+
+sync