179 lines
5.2 KiB
Tcl
179 lines
5.2 KiB
Tcl
#!/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
|
|
}
|
|
|