---

Defined in packages/rrd-tool/tcl/rrd-procs.tcl

Class Relations

• class: ::rrd::Plugin

::rrd::Plugin create ::rrd::plugin::dbstats

Methods (to be applied on the object)

• update (scripted, public)

   rrd::plugin::dbstats update

  Get db-statistics from [ns_db stats]

  Testcases:

  No testcase defined.

  #
  # Get db-statistics from [ns_db stats]
  #
  set pairs [ns_db stats]
  foreach {p values} $pairs {
    foreach {key value} $values {
      set varName $p-$key
      if {$varName ni ${:vars}} continue
      if {![string is integer -strict $value]} {
        # assume floating point number in secs, compute ms
        set value [expr {round ($value*1000)}]
      }
      :updateDataSource $varName $value
    }
  }

---