[perl] Skrypt Lm_sensors -> Cacti

[julas]

witam

robie sobie wlasnie monitorowanie mojego serwero-routera za pomoca cacti i potrzebuje pomocy przy wydobyciu informacji z lm_sensors. juz tlumacze o co chodzi:

 

tak wyglada wynik z lm_sensors:

hal9000 ~ # sensorsit8716-isa-0290Adapter: ISA adapterCPU Fan:  1295 RPM  (min =  700 RPM)FAN Fan:  1196 RPM  (min = 1000 RPM)CPU Temp:	+37 C  (low  =   +20 C, high =   +45 C)   sensor = diodeNB Temp:	 +44 C  (low  =   +25 C, high =   +50 C)   sensor = thermistor

zeby wydobyc temperature dla cacti uzylem takiego skryptu (znaleziony gdzies na forum cacti)

#!/usr/bin/perl@sensoroutput=`/usr/bin/sensors`;foreach(@sensoroutput) {chomp();split();if ( "$_[0] Temp:" eq 'CPU Temp:' ) {$temp1 = $_[2];}if ( "$_[0] Temp:" eq 'NB Temp:' ) {$temp2 = $_[2];}$temp1 =~ s/\+//;$temp1 =~ s/\A~~B°C//;$temp2 =~ s/\+//;$temp2 =~ s/\A~~B°C//;}print "temp1:$temp1 temp2:$temp2\n";

jego wynik to: (musi byc w takiej postaci dla cacti)

temp1:37 temp2:44

a teraz wlasciwa prosba: prosze o pomoc w napisaniu skryptu odczytujacego obroty wiatrakow (2 pozycje Fan) i podajacego wyniki w postaci przyjmowanej przez cacti (ostatnia ramka)

 

z gory dziekuje za ew. pomoc

Edytowane 21 Marca 2007 przez julas