Munin contributed plugins

#!/usr/bin/perl

#

# Copyright (C) 2008 Yuriy Sabov

#

# Plugin to fetch temperature from "IP Thermo 125" ethernet thermometer

# available at http://www.procontrol.hu/GyartasFejlesztes/Termekeink/IPThermoSimple/IPThermo125_eng.htm

my ($hostname, $port, $line, $telnet);

# "C" = Celsius, "F" = Fahrenheit

$hostname = "10.10.10.10";

$port = 23;

  print "graph_args --base 1000 -l 0\n";

  print "graph_category sensors\n";

  print "graph_info This graph shows temperature using IP Thermo 125 server.\n";

  if ($unit =~ /F/)

  {

    print "graph_vlabel temp in °F\n";

    print "graph_vlabel temp in °C\n";

  }

    print "temperature.label temperature\n";

}

$telnet = new Net::Telnet (Telnetmode => 0);