Projet

Général

Profil

Paste
Télécharger au format
Statistiques
| Branche: | Révision:

root / plugins / sensors / ipmisens-v3 @ ea6afd78

Historique | Voir | Annoter | Télécharger (35,2 ko)

1 2c5cf224 Zoltan Herpai
#!/usr/bin/perl -w
2
#
3
# ipmisens3
4
# Munin plugin to read IPMI sensor data
5
# Zoltan HERPAI (c) 2009 <wigyori@uid0.hu>
6
#
7
#	Symlink this script into your /etc/munin/plugins directory in the
8
#	following way:
9
#
10
#	ipmisens2_[machine]_[sensors]
11 0a1bbfa9 Zoltan Herpai
#
12 2c5cf224 Zoltan Herpai
#	Supported machines:
13 0a1bbfa9 Zoltan Herpai
#	- Asus K8N-LR: asmb2 (temp, volt, fan)
14
#	- Dell DCS-XS23: xs23 (temp, volt, fan)
15
#	- Dell M610 blade: m610 (temp)
16
#	- Dell PowerEdge 2650: pe2650 (temp, volt, fan)
17
#	- Fujitsu TX120: tx120 (temp, volt, fan)
18
#	- HP Proliant ML350G5: proliantg5 (temp)
19
#	- HP Proliant DL380G5: proliantg5 (temp)
20
#	- HP Proliant DL385G1: hpasmcli (temp, fan)
21
#	- IBM HS21/HS22/Dataplex DX360: ibmhsxx (volt)
22
#	- IBM LS20/LS21: ibmlsxx (temp, volt)
23
#	- IBM LS41: ibmls4x (temp, volt)
24
#	- IBM x3200/x3550: ibmx3xx0 (temp, volt, fan)
25 2c5cf224 Zoltan Herpai
#	- IBM x346: x346 (temp, volt, fan)
26
#	- Intel SHG2 mainboard: shg2 (temp, volt, fan)
27 0a1bbfa9 Zoltan Herpai
#	- Sun x2100/2100m2/2200/2200m2: x2100 (temp, volt, fan)
28 2c5cf224 Zoltan Herpai
#	- Sun x2250: x2250 (temp, volt, fan)
29 0a1bbfa9 Zoltan Herpai
#	- Sun x2270: x2270 (temp, volt, fan)
30
#	- Sun x4100/4100m2/4200/4200m2/4600: x4x00 (temp, volt, fan)
31 2c5cf224 Zoltan Herpai
#	- Sun x4150: x4150 (temp, volt, fan)
32 0a1bbfa9 Zoltan Herpai
#	- Sun V20z (V40z?): v20z (temp, volt, fan)
33
#	- Supermicro X7DB8/X7DCL: aocipmi20e (temp, volt, fan)
34
#	- Supermicro X8DT6/X8DTT-F: hermon (temp, volt, fan)
35 2c5cf224 Zoltan Herpai
#	- Verari VB1205XM: vb1205 (temp, volt)
36 0a1bbfa9 Zoltan Herpai
#
37
#	Supported but not tested:
38
#	- HP DL145G2: asmb2 (temp, volt, fan)
39
#
40
#	Notes:
41
#	- hpasmcli machtype requires HP's hpasmcli package, and the additional
42
#	  hpasmcliget script.
43
#
44
# Outputs submitted by:
45
# 	- Zoltan LAJBER <lajbi@lajli.gau.hu>
46
#	- Gergely MADARASZ <gorgo@broadband.hu>
47
#	- Louis van Belle <louis@van-belle.nl>
48
#	- Andras GOT <andrej@antiszoc.hu>
49
#	- Andras KORN <korn@chardonnay.math.bme.hu>
50
#	- Tamas TEVESZ <ice@extreme.hu>
51
#	- Gergely TOMKA <gergely@tomka.hu>
52
#	- Gabor SZOLLOSI <dev@localnet.hu>
53
#	- Reka KAROLYI <reka@karolyi.eu>
54
#	- Andras HORVATH <Andras.Horvath@cern.ch>
55
#
56
# CHANGELOG
57
#
58
# Revision 3.01		2010/09/23 Zoltan HERPAI <wigyori@uid0.hu>
59
#			* Add support for handling non-ipmitool-based machtypes
60
#			* Add support for HP Proliant DL385G1
61
#
62
# Revision 3.00		2010/05/25 Zoltan HERPAI <wigyori@uid0.hu>
63
#			* Add support for Supermicro X7DB8 via AOC IPMI20-E (aocipmi20e)
64
#			* Add support for Supermicro X7DCL via AOC IPMI20-E (aocipmi20e)
65
#			* Add support for Supermicro X8DT6 via Winbond Hermon BMC (hermon)
66
#			* Add support for Supermicro X8DTT-F via Winbond Hermon BMC (hermon)
67
#			* Add support for Dell M610 (m610)
68
#			* Add support for HP DL380G5 (proliantg5)
69
#			* Add support for HP ML350G5 (proliantg5)
70
#			* Re-add support for Asus K8N-LR via ASMB2 (asmb2)
71
#			* Add to-be-tested support for HP DL145G2 as per Paulo@muninexchange (asmb2)
72
#
73
# Revision 3.00early4	2010/01/09 Zoltan HERPAI <wigyori@uid0.hu>
74
#			* Add support for IBM HS22 (ibmhsxx)
75
#			* Add support for IBM iDataplex DX360 (ibmhsxx)
76
#			* Add support for Dell DCS XS23-sc (xs23)
77
#
78
# Revision 3.00early3	2009/12/30 Zoltan HERPAI <wigyori@uid0.hu>
79
#			* Support for easier debugging ($debug)
80
#			* Add support for IBM LS41 (ibmls4x)
81
#			* Add complete support for Sun x2270 (x2270)
82
#			* Add support for Sun x4500 (x4x00)
83
#			* Add support for Fujitsu-Siemens TX120 (tx120)
84
#
85
# Revision 3.00early2	2009/09/09 Zoltan HERPAI <wigyori@uid0.hu>
86
#			* Minor bugfix due to munin brain damage
87 2c5cf224 Zoltan Herpai
#
88
# Revision 3.00early	2009/09/01 Zoltan HERPAI <wigyori@uid0.hu>
89
#			* Complete rewrite in perl.
90
#			* Sun x2100, x2100M2 and x2200 are now supported in 'x2100' machtype
91
#			* Bunch of new machtypes are supported
92
#
93
94
use strict;
95 0a1bbfa9 Zoltan Herpai
use warnings;
96 2c5cf224 Zoltan Herpai
use POSIX;
97
use FindBin qw($Script);
98
99
my $IPMITOOL = '/usr/bin/ipmitool';
100
my $curtime = time();
101
my $TEMPFILE = "/var/lib/munin/plugin-state/ipmisens3";
102
# set the ipmidump expiration to 1 day
103
my $TEMPREFRESH = 86400;
104
my $debug = 0;
105 0a1bbfa9 Zoltan Herpai
my $devel = 0;
106 2c5cf224 Zoltan Herpai
107
##############
108
# You should not need to edit anything below here
109
#
110
$ENV{PATH} = '/bin:/usr/bin:/usr/sbin';
111
$ENV{IFS} = "\n";
112
113 0a1bbfa9 Zoltan Herpai
$0 =~ /.*_(.*)_(.*)/;
114
my $machine = $1;
115
my $sensor = $2;
116
117 2c5cf224 Zoltan Herpai
# Test if ipmitool is available
118 0a1bbfa9 Zoltan Herpai
if ( !$devel )
119 2c5cf224 Zoltan Herpai
{
120 0a1bbfa9 Zoltan Herpai
	if ( $machine ne 'hpasmcli' ) {
121
		`$IPMITOOL help 2> /dev/null`;
122
		if ($?)
123
		{
124
			print "no ($IPMITOOL not found)";
125
			exit 1;
126
		}
127
	}
128 2c5cf224 Zoltan Herpai
}
129
130
131
print "Machine: $machine , sensor: $sensor\n" if ($debug);
132
133
# check expiration time of the dumpfile
134 0a1bbfa9 Zoltan Herpai
if ( !$devel )
135 2c5cf224 Zoltan Herpai
{
136 0a1bbfa9 Zoltan Herpai
	if ( $machine ne 'hpasmcli' ) {
137
		if ( -f $TEMPFILE && $curtime - (stat($TEMPFILE))[9] >= $TEMPREFRESH )
138
		{
139
			print "Unlinking $TEMPFILE...\n" if ($debug);
140
			unlink ($TEMPFILE);
141
		}
142
	}
143 2c5cf224 Zoltan Herpai
}
144
145 0a1bbfa9 Zoltan Herpai
if ( !$devel )
146 2c5cf224 Zoltan Herpai
{
147 0a1bbfa9 Zoltan Herpai
	if ( $machine ne 'hpasmcli' ) {
148
		if ( ! -f $TEMPFILE )
149
		{
150
			print "Writing dumpfile $TEMPFILE...\n" if ($debug);
151
			`$IPMITOOL sdr dump $TEMPFILE` || die $!;
152
			if ($?)
153
			{
154
				print "no (retcode $?)\n";
155
				exit 2;
156
			}
157
		}
158 2c5cf224 Zoltan Herpai
	}
159
}
160
161 0a1bbfa9 Zoltan Herpai
my @ipmioutput;
162
163 2c5cf224 Zoltan Herpai
# Read the sensors
164 0a1bbfa9 Zoltan Herpai
if ( $machine ne 'hpasmcli' ) {
165
	@ipmioutput = `$IPMITOOL sdr -S $TEMPFILE`;
166
}
167
else {
168
	@ipmioutput = `cat /tmp/ipmi-sensors`;
169
}
170
#my @ipmioutput = `cat ~wigyori/ipmisens2/outputs/hp_ml350g5`;
171
172 2c5cf224 Zoltan Herpai
if ($?)
173
{
174
	print "no (retcode $?)\n";
175
	exit 3;
176
}
177
178
my $arg;
179 0a1bbfa9 Zoltan Herpai
if ( defined($ARGV[0]) && $ARGV[0] ne "" )
180 2c5cf224 Zoltan Herpai
{
181 0a1bbfa9 Zoltan Herpai
	print "argv: ".$ARGV[0]."\n" if ($debug);
182 2c5cf224 Zoltan Herpai
	if ( $ARGV[0] eq 'config' )	{ $arg = 'config'; }
183
	if ( $ARGV[0] eq 'autoconf' )	{ $arg = 'autoconf'; }
184
	
185
	if ( $arg eq 'autoconf' )	{ print "no\n"; exit 0; }
186
	
187
	my %cnf;
188
	if ( $arg eq 'config' )
189
	{
190
		# Base sensor config
191
		if ( $sensor eq 'temp' )
192
		{
193
			%cnf = (
194
				'graph_title' => 'Temperature',
195
				'graph_vlabel' => 'C',
196
				'graph_category' => 'sensors',
197
			);
198
		}
199
		
200
		if ( $sensor eq 'volt' )
201
		{
202
			%cnf = (
203
				'graph_title' => 'Voltages',
204
				'graph_vlabel' => 'Volts',
205
				'graph_category' => 'sensors',
206
			);
207
		}
208
		
209
		if ( $sensor eq 'fan' )
210
		{
211 0a1bbfa9 Zoltan Herpai
			if ( $machine ne 'hpasmcli' ) {
212
				%cnf = (
213
					'graph_title' => 'Fan speeds',
214
					'graph_vlabel' => 'RPM',
215
					'graph_category' => 'sensors',
216
				);
217
			}
218
			else {
219
				%cnf = (
220
					'graph_title' => 'Fan speeds',
221
					'graph_vlabel' => '%',
222
					'graph_category' => 'sensors',
223
				);
224
			}
225 2c5cf224 Zoltan Herpai
		}
226
		
227
		# Static descriptors
228
		my %base;
229
		
230
		# Sun x4100
231
		$base{'x4x00'}->{'mbt_amb'} = 'Mainboard';
232
		$base{'x4x00'}->{'fpt_amb'} = 'FP';
233
		$base{'x4x00'}->{'pdbt_amb'} = 'PSU';
234
		$base{'x4x00'}->{'iot_amb'} = 'Disks';
235
		$base{'x4x00'}->{'p0t_core'} = 'CPU0';
236
		$base{'x4x00'}->{'p1t_core'} = 'CPU1';
237
		$base{'x4x00'}->{'ft0fm0f0'} = 'ft0.fm0.f0';
238
		$base{'x4x00'}->{'ft0fm1f0'} = 'ft0.fm1.f0';
239
		$base{'x4x00'}->{'ft0fm2f0'} = 'ft0.fm2.f0';
240
		$base{'x4x00'}->{'ft0fm0f1'} = 'ft0.fm0.f1';
241
		$base{'x4x00'}->{'ft0fm1f1'} = 'ft0.fm1.f1';
242
		$base{'x4x00'}->{'ft0fm2f1'} = 'ft0.fm2.f1';
243
		$base{'x4x00'}->{'ft1fm0f0'} = 'ft1.fm0.f0';
244
		$base{'x4x00'}->{'ft1fm1f0'} = 'ft1.fm1.f0';
245
		$base{'x4x00'}->{'ft1fm2f0'} = 'ft1.fm2.f0';
246
		$base{'x4x00'}->{'ft1fm0f1'} = 'ft1.fm0.f1';
247
		$base{'x4x00'}->{'ft1fm1f1'} = 'ft1.fm1.f1';
248
		$base{'x4x00'}->{'ft1fm2f1'} = 'ft1.fm2.f1';
249
		$base{'x4x00'}->{'mbv_bat'} = 'BAT';
250
		$base{'x4x00'}->{'mbv_3v3stby'} = '3.3VSTBY';
251
		$base{'x4x00'}->{'mbv_3v3'} = '3.3V';
252
		$base{'x4x00'}->{'mbv_5v'} = '5V';
253
		$base{'x4x00'}->{'mbv_12v'} = '+12V';
254
		$base{'x4x00'}->{'mbv_dash12v'} = '-12V';
255
		$base{'x4x00'}->{'mbv_2v5core'} = 'MB 2.5V';
256
		$base{'x4x00'}->{'mbv_1v8core'} = 'MB 1.8V';
257
		$base{'x4x00'}->{'mbv_1v2core'} = 'MB 1.2V';
258
		$base{'x4x00'}->{'p0v_1v5'} = 'CPU0 1.5V';
259
		$base{'x4x00'}->{'p0v_2v5core'} = 'CPU0 2.5V';
260
		$base{'x4x00'}->{'p0v_1v25core'} = 'CPU0 1.25V';
261
		$base{'x4x00'}->{'p1v_1v5'} = 'CPU1 1.5V';
262
		$base{'x4x00'}->{'p1v_2v5core'} = 'CPU1 2.5V';
263
		$base{'x4x00'}->{'p1v_1v25core'} = 'CPU1 1.25V';
264
		# Sun x4100m2 extents
265
		$base{'x4x00'}->{'mbv_1v5core'} = 'MB 1.5V';
266
		$base{'x4x00'}->{'p0v_vddio'} = 'CPU0 VDDIO';
267
		$base{'x4x00'}->{'p0v_vdd'} = 'CPU0 VDD';
268
		$base{'x4x00'}->{'p0v_vtt'} = 'CPU0 VTT';
269
		$base{'x4x00'}->{'p1v_vddio'} = 'CPU1 VDDIO';
270
		$base{'x4x00'}->{'p1v_vdd'} = 'CPU1 VDD';
271
		$base{'x4x00'}->{'p1v_vtt'} = 'CPU1 VTT';
272 0a1bbfa9 Zoltan Herpai
		# Sun x4600 voltage extents
273 2c5cf224 Zoltan Herpai
		$base{'x4x00'}->{'mbv_1v2'} = 'MB +1.2V';
274
		$base{'x4x00'}->{'mbv_1v5'} = 'MB +1.5V';
275
		$base{'x4x00'}->{'mbv_2v5'} = 'MB +2.5V';
276
		$base{'x4x00'}->{'mbv_3v3aux_r'} = 'MB +3.3VAUX';
277
		$base{'x4x00'}->{'p0v_12v'} = 'CPU0 module +12V';
278
		$base{'x4x00'}->{'p1v_12v'} = 'CPU1 module +12V';
279
		$base{'x4x00'}->{'p2v_12v'} = 'CPU2 module +12V';
280
		$base{'x4x00'}->{'p3v_12v'} = 'CPU3 module +12V';
281
		$base{'x4x00'}->{'p4v_12v'} = 'CPU4 module +12V';
282
		$base{'x4x00'}->{'p5v_12v'} = 'CPU5 module +12V';
283
		$base{'x4x00'}->{'p6v_12v'} = 'CPU6 module +12V';
284
		$base{'x4x00'}->{'p7v_12v'} = 'CPU7 module +12V';
285
		$base{'x4x00'}->{'p0v_2v5'} = 'CPU0 module +2.5V';
286
		$base{'x4x00'}->{'p1v_2v5'} = 'CPU1 module +2.5V';
287
		$base{'x4x00'}->{'p2v_2v5'} = 'CPU2 module +2.5V';
288
		$base{'x4x00'}->{'p3v_2v5'} = 'CPU3 module +2.5V';
289
		$base{'x4x00'}->{'p4v_2v5'} = 'CPU4 module +2.5V';
290
		$base{'x4x00'}->{'p5v_2v5'} = 'CPU5 module +2.5V';
291
		$base{'x4x00'}->{'p6v_2v5'} = 'CPU6 module +2.5V';
292
		$base{'x4x00'}->{'p7v_2v5'} = 'CPU7 module +2.5V';
293
		$base{'x4x00'}->{'p0v_1v2'} = 'CPU0 module +1.2V';
294
		$base{'x4x00'}->{'p1v_1v2'} = 'CPU1 module +1.2V';
295
		$base{'x4x00'}->{'p2v_1v2'} = 'CPU2 module +1.2V';
296
		$base{'x4x00'}->{'p3v_1v2'} = 'CPU3 module +1.2V';
297
		$base{'x4x00'}->{'p4v_1v2'} = 'CPU4 module +1.2V';
298
		$base{'x4x00'}->{'p5v_1v2'} = 'CPU5 module +1.2V';
299
		$base{'x4x00'}->{'p6v_1v2'} = 'CPU6 module +1.2V';
300
		$base{'x4x00'}->{'p7v_1v2'} = 'CPU7 module +1.2V';
301
		$base{'x4x00'}->{'p0v_3v3aux_r'} = 'CPU0 module +3.3VAUX';
302
		$base{'x4x00'}->{'p1v_3v3aux_r'} = 'CPU1 module +3.3VAUX';
303
		$base{'x4x00'}->{'p2v_3v3aux_r'} = 'CPU2 module +3.3VAUX';
304
		$base{'x4x00'}->{'p3v_3v3aux_r'} = 'CPU3 module +3.3VAUX';
305
		$base{'x4x00'}->{'p4v_3v3aux_r'} = 'CPU4 module +3.3VAUX';
306
		$base{'x4x00'}->{'p5v_3v3aux_r'} = 'CPU5 module +3.3VAUX';
307
		$base{'x4x00'}->{'p6v_3v3aux_r'} = 'CPU6 module +3.3VAUX';
308
		$base{'x4x00'}->{'p7v_3v3aux_r'} = 'CPU7 module +3.3VAUX';
309
		$base{'x4x00'}->{'p0v_3v3led'} = 'CPU0 module +3.3V LED';
310
		$base{'x4x00'}->{'p1v_3v3led'} = 'CPU1 module +3.3V LED';
311
		$base{'x4x00'}->{'p2v_3v3led'} = 'CPU2 module +3.3V LED';
312
		$base{'x4x00'}->{'p3v_3v3led'} = 'CPU3 module +3.3V LED';
313
		$base{'x4x00'}->{'p4v_3v3led'} = 'CPU4 module +3.3V LED';
314
		$base{'x4x00'}->{'p5v_3v3led'} = 'CPU5 module +3.3V LED';
315
		$base{'x4x00'}->{'p6v_3v3led'} = 'CPU6 module +3.3V LED';
316
		$base{'x4x00'}->{'p7v_3v3led'} = 'CPU7 module +3.3V LED';
317
		$base{'x4x00'}->{'p2v_1v25core'} = 'CPU2 1.25V';
318
		$base{'x4x00'}->{'p3v_1v25core'} = 'CPU3 1.25V';
319
		$base{'x4x00'}->{'p4v_1v25core'} = 'CPU4 1.25V';
320
		$base{'x4x00'}->{'p5v_1v25core'} = 'CPU5 1.25V';
321
		$base{'x4x00'}->{'p6v_1v25core'} = 'CPU6 1.25V';
322
		$base{'x4x00'}->{'p7v_1v25core'} = 'CPU7 1.25V';
323
		$base{'x4x00'}->{'p0v_core'} = 'CPU0 Vcore';
324
		$base{'x4x00'}->{'p1v_core'} = 'CPU1 Vcore';
325
		$base{'x4x00'}->{'p2v_core'} = 'CPU2 Vcore';
326
		$base{'x4x00'}->{'p3v_core'} = 'CPU3 Vcore';
327
		$base{'x4x00'}->{'p4v_core'} = 'CPU4 Vcore';
328
		$base{'x4x00'}->{'p5v_core'} = 'CPU5 Vcore';
329
		$base{'x4x00'}->{'p6v_core'} = 'CPU6 Vcore';
330
		$base{'x4x00'}->{'p7v_core'} = 'CPU7 Vcore';
331
		# Sun x4600 temp extents
332
		$base{'x4x00'}->{'p2t_core'} = 'CPU2';
333
		$base{'x4x00'}->{'p3t_core'} = 'CPU3';
334
		$base{'x4x00'}->{'p4t_core'} = 'CPU4';
335
		$base{'x4x00'}->{'p5t_core'} = 'CPU5';
336
		$base{'x4x00'}->{'p6t_core'} = 'CPU6';
337
		$base{'x4x00'}->{'p7t_core'} = 'CPU7';
338
		$base{'x4x00'}->{'p0t_amb'} = 'CPU0 module';
339
		$base{'x4x00'}->{'p1t_amb'} = 'CPU1 module';
340
		$base{'x4x00'}->{'p2t_amb'} = 'CPU2 module';
341
		$base{'x4x00'}->{'p3t_amb'} = 'CPU3 module';
342
		$base{'x4x00'}->{'p4t_amb'} = 'CPU4 module';
343
		$base{'x4x00'}->{'p5t_amb'} = 'CPU5 module';
344
		$base{'x4x00'}->{'p6t_amb'} = 'CPU6 module';
345
		$base{'x4x00'}->{'p7t_amb'} = 'CPU7 module';
346
		$base{'x4x00'}->{'mbt_amb0'} = 'System board 0';
347
		$base{'x4x00'}->{'mbt_amb1'} = 'System board 1';
348
		$base{'x4x00'}->{'mbt_amb2'} = 'System board 2';
349 0a1bbfa9 Zoltan Herpai
		# Sun x4500 voltage extents
350
		$base{'x4x00'}->{'procp0v_1v25'} = 'CPU0 1.25V';
351
		$base{'x4x00'}->{'procp1v_1v25'} = 'CPU1 1.25V';
352
		$base{'x4x00'}->{'procp0v_1v5'} = 'CPU0 1.5V';
353
		$base{'x4x00'}->{'procp1v_1v5'} = 'CPU1 1.5V';
354
		$base{'x4x00'}->{'procp0v_2v5'} = 'CPU0 2.5V';
355
		$base{'x4x00'}->{'procp1v_2v5'} = 'CPU1 2.5V';
356
		$base{'x4x00'}->{'procv_1v8'} = 'CPU 1.8V';
357
		$base{'x4x00'}->{'iov_1v5'} = 'IO 1.5V';
358
		$base{'x4x00'}->{'iov_2v5'} = 'IO 2.5V';
359
		$base{'x4x00'}->{'iov_5v_disk'} = 'IO 5V disk';
360
		$base{'x4x00'}->{'iov_dash12v'} = 'IO -12V';
361
		# Sun x4500 temp extents
362
		$base{'x4x00'}->{'iofrontt_amb'} = 'IO front';
363
		$base{'x4x00'}->{'ioreart_amb'} = 'IO rear';
364
		$base{'x4x00'}->{'procfrontt_amb'} = 'CPU front';
365
		$base{'x4x00'}->{'procreart_amb'} = 'CPU rear';
366
		$base{'x4x00'}->{'procp0t_core'} = 'CPU0 temp';
367
		$base{'x4x00'}->{'procp1t_core'} = 'CPU1 temp';
368
		$base{'x4x00'}->{'dbpt_amb'} = 'DBP';
369 2c5cf224 Zoltan Herpai
		
370
		# Sun V20z (V40z?)
371
		$base{'v20z'}->{'ambient'} = 'System';
372
		$base{'v20z'}->{'cpu0die'} = 'CPU0 die';
373
		$base{'v20z'}->{'cpu0mem'} = 'CPU0 mem';
374
		$base{'v20z'}->{'cpu1die'} = 'CPU1 die';
375
		$base{'v20z'}->{'cpu1mem'} = 'CPU1 mem';
376
		$base{'v20z'}->{'gbeth'} = 'GBNIC';
377
		$base{'v20z'}->{'hddbp'} = 'HDD backplane';
378
		$base{'v20z'}->{'sp'} = 'Service CPU';
379
		
380
		# Sun x2100
381
		$base{'x2100'}->{'cpucorevoltage'} = 'CPU core';
382
		$base{'x2100'}->{'batteryvolt'} = 'VBAT';
383
		$base{'x2100'}->{'ddr26v'} = 'DDR 2.6V';
384
		$base{'x2100'}->{'vcc33v'} = '+3.3V';
385
		$base{'x2100'}->{'vcc5v'} = '+5V';
386
		$base{'x2100'}->{'vcc12v'} = '+12V';
387
		$base{'x2100'}->{'cputemp'} = 'CPU';
388
		$base{'x2100'}->{'system'} = 'System';
389
		# Sun x2100M2 extents
390
		$base{'x2100'}->{'ddrp118v'} = 'DDR P1 1.8V';
391
		$base{'x2100'}->{'vcc33vstb'} = '+3.3VSTBY';
392
		$base{'x2100'}->{'ambienttemp'} = 'System';
393
		# Sun x2200 extents
394
		$base{'x2100'}->{'ddrp018v'} = 'DDR P0 1.8V';
395
		$base{'x2100'}->{'ambienttemp0'} = 'System temp 0';
396
		$base{'x2100'}->{'ambienttemp1'} = 'System temp 1';
397
		$base{'x2100'}->{'cpu0temp'} = 'CPU0 temp';
398
		$base{'x2100'}->{'cpu1temp'} = 'CPU1 temp';
399
		
400
		# Intel SHG2
401
		$base{'shg2'}->{'baseboard12v'} = 'MB 12V';
402
		$base{'shg2'}->{'baseboard15v'} = 'MB 1.5V';
403
		$base{'shg2'}->{'baseboard25v'} = 'MB 2.5V';
404
		$base{'shg2'}->{'baseboard33v'} = 'MB 3.3V';
405
		$base{'shg2'}->{'baseboard33vsb'} = '3.3VSTBY';
406
		$base{'shg2'}->{'baseboard5v'} = 'MB 5V';
407
		$base{'shg2'}->{'baseboarddash12v'} = 'MB -12V';
408
		$base{'shg2'}->{'batteryvoltage'} = 'VBAT';
409
		$base{'shg2'}->{'processorvrm'} = 'VRM';
410
		
411
		# IBM x346
412
		$base{'x346'}->{'125vsense'} = '+1.25V';
413
		$base{'x346'}->{'12vasense'} = '+12V A';
414
		$base{'x346'}->{'12vbsense'} = '+12V B';
415
		$base{'x346'}->{'12vcsense'} = '+12V C';
416
		$base{'x346'}->{'13vsense'} = '+1.3V';
417
		$base{'x346'}->{'15vsense'} = '+1.5V';
418
		$base{'x346'}->{'18vsense'} = '+1.8V';
419
		$base{'x346'}->{'25vsense'} = '+2.5V';
420
		$base{'x346'}->{'5vsense'} = '+5V';
421
		$base{'x346'}->{'cpu1vcore'} = 'CPU1 Vcore';
422
		$base{'x346'}->{'cpu2vcore'} = 'CPU2 Vcore';
423
		$base{'x346'}->{'cpuvtt'} = 'CPU VTT';
424
		$base{'x346'}->{'dash12vsense'} = '-12V';
425
		$base{'x346'}->{'vbat'} = 'VBAT';
426
		$base{'x346'}->{'cpu1'} = 'CPU1';
427
		$base{'x346'}->{'cpu2'} = 'CPU2';
428
		$base{'x346'}->{'dasd'} = 'DASD';
429
		$base{'x346'}->{'ambient'} = 'System';
430
		
431
		# Sun x2250
432
		$base{'x2250'}->{'3v3_stby'} = '3.3VSTBY';
433
		$base{'x2250'}->{'3v3'} = '+3.3V';
434
		$base{'x2250'}->{'5v'} = '+5V';
435
		$base{'x2250'}->{'12v'} = '+12V';
436
		$base{'x2250'}->{'1v5'} = '+1.5V';
437
		$base{'x2250'}->{'1v8'} = '+1.8V';
438
		$base{'x2250'}->{'0v9'} = '+0.9V';
439
		$base{'x2250'}->{'vtt'} = 'VTT';
440
		$base{'x2250'}->{'1v5_esb'} = 'ESB +1.5V';
441
		$base{'x2250'}->{'1v2_nic'} = 'NIC +1.2V';
442
		$base{'x2250'}->{'1v8_nic'} = 'NIC +1.8V';
443
		$base{'x2250'}->{'1v5_fbd'} = 'FBDIMM +1.5V';
444
		
445 0a1bbfa9 Zoltan Herpai
		# Sun x2270
446
		$base{'x2270'}->{'3v3_stby'} = '3.3VSTBY';
447
		$base{'x2270'}->{'3v3'} = '+3.3V';
448
		$base{'x2270'}->{'5v'} = '+5V';
449
		$base{'x2270'}->{'12v'} = '+12V';
450
		$base{'x2270'}->{'3v3_vbat'} = '3.3VBAT';
451
		$base{'x2270'}->{'1v5'} = '+1.5V';
452
		$base{'x2270'}->{'p0_1v5_ddr'} = 'DDR P0 +1.5V';
453
		$base{'x2270'}->{'p1_1v5_ddr'} = 'DDR P1 +1.5V';
454
		$base{'x2270'}->{'p0_1v8'} = 'P0 +1.8V';
455
		$base{'x2270'}->{'p1_1v8'} = 'P1 +1.8V';
456
		$base{'x2270'}->{'p0_vtt'} = 'P0 VTT';
457
		$base{'x2270'}->{'p1_vtt'} = 'P1 VTT';
458
		$base{'x2270'}->{'p0_vccp'} = 'P0 VCCp';
459
		$base{'x2270'}->{'p1_vccp'} = 'P1 VCCp';
460
		
461 2c5cf224 Zoltan Herpai
		# Sun x4150
462
		$base{'x4150'}->{'mb_t_amb0'} = 'MB Sensor 0';
463
		$base{'x4150'}->{'mb_t_amb1'} = 'MB Sensor 1';
464
		$base{'x4150'}->{'mb_t_amb2'} = 'MB Sensor 2';
465
		$base{'x4150'}->{'mb_t_amb3'} = 'MB Sensor 3';
466
		$base{'x4150'}->{'ps0_t_amb'} = 'PS 1 temp';
467
		$base{'x4150'}->{'ps1_t_amb'} = 'PS 2 temp';
468
		$base{'x4150'}->{'t_amb'} = 'System';
469
		$base{'x4150'}->{'ps0_f0'} = 'PS 1 fan';
470
		$base{'x4150'}->{'ps1_f0'} = 'PS 2 fan';
471
		$base{'x4150'}->{'mb_p0_v_vcc'} = 'CPU0 VCC';
472
		$base{'x4150'}->{'mb_p1_v_vcc'} = 'CPU1 VCC';
473
		$base{'x4150'}->{'mb_v_12v'} = '+12V';
474
		$base{'x4150'}->{'mb_v_1v5'} = '+1.5V';
475
		$base{'x4150'}->{'mb_v_1v8'} = '+1.8V';
476
		$base{'x4150'}->{'mb_v_2v5stby'} = '+2.5VSTBY';
477
		$base{'x4150'}->{'mb_v_3v3'} = '+3.3V';
478
		$base{'x4150'}->{'mb_v_3v3stby'} = '+3.3VSTBY';
479
		$base{'x4150'}->{'mb_v_5v'} = '+5V';
480
		$base{'x4150'}->{'mb_v_nic'} = 'NIC';
481
		$base{'x4150'}->{'mb_v_vtt'} = 'VTT';
482
		$base{'x4150'}->{'ps0_v_in'} = 'PS 1 voltage in';
483
		$base{'x4150'}->{'ps0_v_out'} = 'PS 1 voltage out';
484
		$base{'x4150'}->{'ps1_v_in'} = 'PS 2 voltage in';
485
		$base{'x4150'}->{'ps1_v_out'} = 'PS 2 voltage out';
486
		
487
		# Verari VB1205XM
488
		$base{'vb1205'}->{'12v'} = '+12V';
489
		$base{'vb1205'}->{'1_2v'} = '+1.2V';
490
		$base{'vb1205'}->{'1_5v'} = '+1.5V';
491
		$base{'vb1205'}->{'3_3v'} = '+3.3V';
492
		$base{'vb1205'}->{'5v'} = '+5V';
493
		$base{'vb1205'}->{'5vsb'} = '+5VSTBY';
494
		$base{'vb1205'}->{'cpu1vcore'} = 'CPU1 Vcore';
495
		$base{'vb1205'}->{'cpu2vcore'} = 'CPU2 Vcore';
496
		$base{'vb1205'}->{'dash12v'} = '-12V';
497
		$base{'vb1205'}->{'vbat'} = 'VBAT';
498
		$base{'vb1205'}->{'cputemp1'} = 'CPU 1 temp';
499
		$base{'vb1205'}->{'cputemp2'} = 'CPU 2 temp';
500
		$base{'vb1205'}->{'systemp'} = 'System';
501
		
502
		# Dell PowerEdge 2650
503
		$base{'pe2650'}->{'esmmbfan1'} = 'Fan 1';
504
		$base{'pe2650'}->{'esmmbfan2'} = 'Fan 2';
505
		$base{'pe2650'}->{'esmmbfan3'} = 'Fan 3';
506
		$base{'pe2650'}->{'esmmbfan4'} = 'Fan 4';
507
		$base{'pe2650'}->{'esmmbfan5'} = 'Fan 5';
508
		$base{'pe2650'}->{'esmmbfan6'} = 'Fan 6';
509
		$base{'pe2650'}->{'esmmbfan7'} = 'Fan 7';
510
		$base{'pe2650'}->{'esmmb12'} = 'MB +12V';
511
		$base{'pe2650'}->{'esmmb25'} = 'MB +2.5V';
512
		$base{'pe2650'}->{'esmmb33'} = 'MB +3.3V';
513
		$base{'pe2650'}->{'esmmb5'} = 'MB +5V';
514
		$base{'pe2650'}->{'esmmbbat'} = 'VBAT';
515
		$base{'pe2650'}->{'esmmbdash12'} = 'MB -12V';
516
		$base{'pe2650'}->{'esmrombpk'} = 'ROMB PK';
517
		$base{'pe2650'}->{'esmvtt'} = 'VTT';
518
		$base{'pe2650'}->{'esmcpu'} = 'CPU';
519
		$base{'pe2650'}->{'esm5aux'} = '5V AUX';
520
		$base{'pe2650'}->{'esmcpu1'} = 'CPU1';
521
		$base{'pe2650'}->{'esmcpu2'} = 'CPU2';
522
		$base{'pe2650'}->{'esmfrti_o'} = 'Front I/O';
523
		$base{'pe2650'}->{'esmriser'} = 'Riser';
524
		
525
		# IBM x3200
526
		$base{'ibmx3xx0'}->{'planar12v'} = '+12V';
527
		$base{'ibmx3xx0'}->{'planar15v'} = '+1.5V';
528
		$base{'ibmx3xx0'}->{'planar18v'} = '+1.8V';
529
		$base{'ibmx3xx0'}->{'planar33v'} = '+3.3V';
530
		$base{'ibmx3xx0'}->{'planar5v'} = '+5V';
531
		$base{'ibmx3xx0'}->{'cpuvcore'} = 'CPU Vcore';
532
		$base{'ibmx3xx0'}->{'cpuvtt'} = 'VTT';
533
		$base{'ibmx3xx0'}->{'ambient'} = 'System';
534
		$base{'ibmx3xx0'}->{'cpu'} = 'CPU';
535
		# IBM x3550 extents
536
		$base{'ibmx3xx0'}->{'planarvbat'} = 'VBAT';
537
		
538
		# IBM LS41
539
		$base{'ibmlsxx'}->{'12vsense'} = '+12V';
540
		$base{'ibmlsxx'}->{'3_3vsense'} = '+3.3V';
541
		$base{'ibmlsxx'}->{'5vsense'} = '+5V';
542
		$base{'ibmlsxx'}->{'planarvbat'} = 'VBAT';
543
		# IBM LS20 extents
544
		$base{'ibmlsxx'}->{'1_8vsense'} = '+1.8V';
545
		$base{'ibmlsxx'}->{'1_8vsbsense'} = '+1.8VSB';
546
		$base{'ibmlsxx'}->{'12vsbsense'} = '+12VSB';
547
		$base{'ibmlsxx'}->{'12v_isense'} = '+12V_I';
548
		
549
		# IBM HS21 
550
		$base{'ibmhsxx'}->{'planar0_9v'} = '+0.9V';
551
		$base{'ibmhsxx'}->{'planar12v'} = '+12V';
552
		$base{'ibmhsxx'}->{'planar3_3v'} = '+3.3V';
553
		$base{'ibmhsxx'}->{'planar5v'} = '+5V';
554
		$base{'ibmhsxx'}->{'planarvbat'} = 'VBAT';
555 0a1bbfa9 Zoltan Herpai
		# IBM iDataplex DX320 extents
556
		$base{'ibmhsxx'}->{'cpu1vcore'} = 'CPU1 Vcore';
557
		$base{'ibmhsxx'}->{'cpu2vcore'} = 'CPU2 Vcore';
558 2c5cf224 Zoltan Herpai
559 0a1bbfa9 Zoltan Herpai
		# Fujitsu-Siemens TX120
560
		$base{'tx120'}->{'12v'} = '12V';
561
		$base{'tx120'}->{'15v'} = '1.5V';
562
		$base{'tx120'}->{'18v'} = '1.8V';
563
		$base{'tx120'}->{'33v'} = '3.3V';
564
		$base{'tx120'}->{'5v'} = '5V';
565
		$base{'tx120'}->{'dash12v'} = '-12V';
566
		$base{'tx120'}->{'stdby33v'} = '3.3VSTBY';
567
		$base{'tx120'}->{'vtt'} = 'VTT';
568
		$base{'tx120'}->{'battery3v'} = '3VBAT';
569
		$base{'tx120'}->{'fanpsu'} = 'Fan PSU';
570
		$base{'tx120'}->{'fan1sys'} = 'Fan Sys 1';
571
		$base{'tx120'}->{'fan2sys'} = 'Fan Sys 2';
572
		$base{'tx120'}->{'fancpu'} = 'Fan CPU';
573
		$base{'tx120'}->{'ambient'} = 'Ambient';
574
		$base{'tx120'}->{'systemboard'} = 'System board';
575
		$base{'tx120'}->{'cpu'} = 'CPU';
576
		
577
		# Dell DCS XS23-sc
578
		$base{'xs23'}->{'systemfan'} = 'System fan';
579
		$base{'xs23'}->{'cpu0'} = 'CPU 0';
580
		$base{'xs23'}->{'cpu1'} = 'CPU 1';
581
		$base{'xs23'}->{'midplane'} = 'Midplane';
582
		$base{'xs23'}->{'p12v'} = 'Planar 12V';
583
		$base{'xs23'}->{'p15v'} = 'Planar 1.5V';
584
		$base{'xs23'}->{'p18v'} = 'Planar 1.8V';
585
		$base{'xs23'}->{'p33v'} = 'Planar 3.3V';
586
		$base{'xs23'}->{'p5v'} = 'Planar 5V';
587
		$base{'xs23'}->{'vtt'} = 'Vtt';
588
		$base{'xs23'}->{'vcc33vaux'} = 'Vcc 3.3V AUX';
589
		
590
		# Supermicro X8DT6 / X8DTT-F via Winbond Hermon BMC
591
		$base{'hermon'}->{'fan1'} = 'Fan 1';
592
		$base{'hermon'}->{'fan2'} = 'Fan 2';
593
		$base{'hermon'}->{'fan3'} = 'Fan 3';
594
		$base{'hermon'}->{'fan4'} = 'Fan 4';
595
		$base{'hermon'}->{'fan5'} = 'Fan 5';
596
		$base{'hermon'}->{'fan6'} = 'Fan 6';
597
		$base{'hermon'}->{'fan7'} = 'Fan 7';
598
		$base{'hermon'}->{'fan8'} = 'Fan 8';
599
		$base{'hermon'}->{'system'} = 'System';
600
		$base{'hermon'}->{'cpu1temp'} = 'CPU1 temp';
601
		$base{'hermon'}->{'cpu2temp'} = 'CPU2 temp';
602
		$base{'hermon'}->{'12v'} = '+12V';
603
		$base{'hermon'}->{'15v'} = '+1.5V';
604
		$base{'hermon'}->{'33v'} = '+3.3V';
605
		$base{'hermon'}->{'33vsb'} = '+3.3VSB';
606
		$base{'hermon'}->{'5v'} = '+5V';
607
		$base{'hermon'}->{'vbat'} = 'VBAT';
608
		$base{'hermon'}->{'cpu1dimm'} = 'CPU1 DIMM';
609
		$base{'hermon'}->{'cpu2dimm'} = 'CPU2 DIMM';
610
		$base{'hermon'}->{'cpu1vcore'} = 'CPU1 Vcore';
611
		$base{'hermon'}->{'cpu2vcore'} = 'CPU2 Vcore';
612
		
613
		# Most of these are similar on the Supermicro X* boards
614
		$base{'aocipmi20e'} = $base{'hermon'};
615
		$base{'aocipmi20e'}->{'dash12v'} = '-12V';
616
		$base{'aocipmi20e'}->{'5vsb'} = '+5VSB';
617
		$base{'aocipmi20e'}->{'fan7_cpu1'} = 'Fan7 / CPU1';
618
		$base{'aocipmi20e'}->{'fan8_cpu2'} = 'Fan8 / CPU2';
619
		$base{'aocipmi20e'}->{'sys'} = 'System';
620
		
621
		# Asus K8N-LR / HP DL145G2
622
		$base{'asmb2'}->{'cpufan1'} = 'CPU Fan 1';
623
		$base{'asmb2'}->{'cpufan2'} = 'CPU Fan 2';
624
		$base{'asmb2'}->{'frontfan1'} = 'Front Fan 1';
625
		$base{'asmb2'}->{'frontfan2'} = 'Front Fan 2';
626
		$base{'asmb2'}->{'rearfan1'} = 'Rear Fan 1';
627
		$base{'asmb2'}->{'rearfan2'} = 'Rear Fan 2';
628
		$base{'asmb2'}->{'cpu1thermal'} = 'CPU1';
629
		$base{'asmb2'}->{'systemthermal'} = 'System';
630
		$base{'asmb2'}->{'25vor18v'} = '+2.5V / +1.8V';
631
		$base{'asmb2'}->{'bat_cmos'} = 'VBAT';
632
		$base{'asmb2'}->{'cpuvcore1'} = 'CPU1 Vcore';
633
		$base{'asmb2'}->{'system12v'} = '+12V';
634
		$base{'asmb2'}->{'system15v'} = '+1.5V';
635
		$base{'asmb2'}->{'system5v'} = '+5V';
636
		$base{'asmb2'}->{'system3v'} = '+3V';
637
		$base{'asmb2'}->{'system5vsb'} = '+5VSTBY';
638
		
639
		# Dell M610 blade
640
		$base{'m610'}->{'ambienttemp'} = 'Ambient temp';
641
		$base{'m610'}->{'temp'} = 'Blade temp';
642
		
643
		# hpasmcli / Proliant DL385G1
644
		$base{'hpasmcli'}->{'cpu-1'} = 'CPU 1';
645
		$base{'hpasmcli'}->{'cpu-2'} = 'CPU 2';
646
		$base{'hpasmcli'}->{'i_o_zone'} = 'I/O zone';
647
		$base{'hpasmcli'}->{'power_supply_bay'} = 'PSU bay';
648
		$base{'hpasmcli'}->{'processor_zone'} = 'CPU zone';
649
		
650 2c5cf224 Zoltan Herpai
		# Machine config, run through the file/output
651
		my $label; my $tmp;
652
		foreach my $line ( @ipmioutput )
653
		{
654
			$line =~ s/\s+/ /g;
655
			if ( $sensor eq 'fan' && $line =~ /.*RPM.*ok/ )
656
			{
657
				if ( $machine eq 'x4x00' ) { $line =~ /(.*)\.speed.*/; $label = $1; }
658
				if ( $machine eq 'v20z' ) { $line =~ /(.*)\.tach.*/; $label = $1; }
659
				if ( $machine eq 'x2100') { $line =~ s/(.*)\s+\|.*RPM.*/\L$1/; $label = $line; }
660
				if ( $machine eq 'x346' ) { $line =~ /(.*) Tach.*/; $label = $1; }
661
				if ( $machine eq 'shg2' ) { $line =~ s/(.*)\s+\|.*RPM.*\|\s+ok/$1/; $label = $1; }
662
				if ( $machine eq 'x2250' ) { $line =~ /(.*)\/TACH.*RPM.*/; $label = $1; }
663 0a1bbfa9 Zoltan Herpai
				if ( $machine eq 'x2270' ) { $line =~ /(.*)\/TACH.*RPM.*/; $label = $1; }
664 2c5cf224 Zoltan Herpai
				if ( $machine eq 'x4150' ) { $line =~ /(.*)\/TACH.*RPM.*/; $label = $1; }
665
				if ( $machine eq 'pe2650' ) { $line =~ /(.*) RPM\s+\|.*RPM.*/; $label = $1; }
666
				if ( $machine eq 'ibmx3xx0' ) { $line =~ /(.*) Tach.*/; $label = $1; }
667 0a1bbfa9 Zoltan Herpai
				if ( $machine eq 'tx120' ) { $line =~ /(.*)\s+\|.*RPM.*\|\s+ok/; $label = $1; }
668
				if ( $machine eq 'xs23' ) { $line =~ /(.*)\s+\|.*RPM.*\|\s+ok/; $label = $1; }
669
				if ( $machine eq 'hermon' ) { $line =~ /(.*)\s+\|.*RPM.*\|\s+ok/; $label = $1; }
670
				if ( $machine eq 'aocipmi20e' ) { $line =~ /(.*)\s+\|.*RPM.*\|\s+ok/; $label = $1; }
671
				if ( $machine eq 'asmb2' ) { $line =~ /(.*)\s+\|.*RPM.*\|\s+ok/; $label = $1; }
672 2c5cf224 Zoltan Herpai
				
673
			}
674 0a1bbfa9 Zoltan Herpai
			elsif ( $sensor eq 'fan' && $line =~ /\#\d+\s+\S+\s+Yes.*\%/ ) {
675
				if ( $machine eq 'hpasmcli' ) { $line =~ /\#(\d+)\s+(.*)\s+Yes.*\%.*/; $label = "$2_$1"; }
676
			}
677 2c5cf224 Zoltan Herpai
			
678
			if ( $sensor eq 'temp' && $line =~ /.*degree.*ok/ )
679
			{
680
				if ( $machine eq 'x4x00' ) { $line =~ /(.*)\ \|.*deg.*/; $label = $1; }
681
				if ( $machine eq 'v20z' ) { $line =~ /(.*)temp.*/; $label = $1; }
682
				if ( $machine eq 'x2100') { $line =~ s/(.*)\s+\|.*deg.*/\L$1/; $label = $line; }
683
				if ( $machine eq 'x346' ) { $line =~ /(.*) Temp.*/; $label = $1; }
684 0a1bbfa9 Zoltan Herpai
				if ( $machine eq 'ibmls4x' ) { $line =~ /(.*) TEMP.*/; $label = $1; }
685 2c5cf224 Zoltan Herpai
				if ( $machine eq 'shg2' ) { $line =~ /(.*)\s+\|.*deg.*/; $label = $1; }
686
				if ( $machine eq 'x2250' ) { $line =~ /MB\/T\_(.*)\s+\|.*deg.*/; $label = $1; }
687 0a1bbfa9 Zoltan Herpai
				if ( $machine eq 'x2270' ) { $line =~ /MB\/T\_(.*)\s+\|.*deg.*/; $label = $1; }
688 2c5cf224 Zoltan Herpai
				if ( $machine eq 'x4150' ) { $line =~ /(.*)\s+\|.*deg.*/; $label = $1; }
689
				if ( $machine eq 'vb1205' ) { $line =~ /(.*)\s+\|.*deg.*/; $label = $1; }
690
				if ( $machine eq 'pe2650' ) { $line =~ /(.*) Temp.*/; $label = $1; }
691
				if ( $machine eq 'ibmx3xx0' ) { $line =~ /(.*) Temp.*/; $label = $1; }
692
				if ( $machine eq 'ibmlsxx' ) { $line =~ /(.*) TEMP.*/; $label = $1; }
693 0a1bbfa9 Zoltan Herpai
				if ( $machine eq 'tx120' ) { $line =~ /(.*)\ \|.*deg.*/; $label = $1; }
694
				if ( $machine eq 'xs23' ) { $line =~ /(.*)\ Temp\s+|.*deg.*/; $label = $1; }
695
				if ( $machine eq 'hermon' ) { $line =~ /(.*)\ Temp\s+|.*deg.*/; $label = $1; }
696
				if ( $machine eq 'aocipmi20e' ) { $line =~ /(.*)\ Temp\s+|.*deg.*/; $label = $1; }
697
				if ( $machine eq 'asmb2' ) { $line =~ /(.*)\s+\|.*deg.*/; $label = $1; }
698
				if ( $machine eq 'm610' ) { $line =~ /(.*)\s+\|.*deg.*/; $label = $1; }
699
				if ( $machine eq 'proliantg5' ) { $line =~ /(.*)\s+\|.*deg.*/; $label = $1; }
700
			}
701
			elsif ( $sensor eq 'temp' && $line =~ /\d+C\/\d+F/ ) {
702
				if ( $machine eq 'hpasmcli' ) { $line =~ /.*\s+(.*)\s+\d+C\/\d+F\s+\d+C\/\d+F/; $label = $1; }
703 2c5cf224 Zoltan Herpai
			}
704
			
705
			if ( $sensor eq 'volt' && $line =~ /.*Volts.*/ )
706
			{
707
				if ( $machine eq 'x4x00' ) { $line =~ /(.*)\ \|.*Volts.*/; $label = $1; }
708
				if ( $machine eq 'v20z' ) { $line =~ /(.*)\ \|.*Volts.*/; $label = $1; }
709
				if ( $machine eq 'x2100') { $line =~ s/(.*)\s+\|.*Volts.*/\L$1/; $label = $line; }
710
				if ( $machine eq 'x346' ) { $line =~ /(.*)\s+\|.*Volts.*/; $label = $1; }
711 0a1bbfa9 Zoltan Herpai
				if ( $machine eq 'ibmls4x' ) { $line =~ /(.*)\s+\|.*Volts.*/; $label = $1; }
712 2c5cf224 Zoltan Herpai
				if ( $machine eq 'shg2' ) { $line =~ /(.*)\s+\|.*Volts.*/; $label = $1; }
713
				if ( $machine eq 'x2250' ) { $line =~ /MB\/V\_(.*)\s+\|.*Volts.*/; $label = $1; }
714 0a1bbfa9 Zoltan Herpai
				if ( $machine eq 'x2270' ) { $line =~ /MB\/(.*)\s+\|.*Volts.*/; $label = $1; }
715 2c5cf224 Zoltan Herpai
				if ( $machine eq 'x4150' ) { $line =~ /(.*)\s+\|\s+.*Volts.*/; $label = $1;  }
716
				if ( $machine eq 'vb1205' ) { $line =~ /(.*)\s+\|\s+.*Volts.*/; $label = $1; $label =~ s/\./_/g; }
717
				if ( $machine eq 'pe2650' ) { $line =~ /(.*) Volt\s+\|.*Volts.*/; $label = $1; }
718
				if ( $machine eq 'ibmx3xx0' ) { $line =~ /(.*)\s+\|\s+.*Volts.*/; $label = $1; }
719
				if ( $machine eq 'ibmlsxx' ) { $line =~ /(.*)\s+\|\s+.*Volts.*/; $label = $1; $label =~ s/\./_/g; }
720
				if ( $machine eq 'ibmhsxx' ) { $line =~ /(.*)\s+\|\s+.*Volts.*/; $label = $1; $label =~ s/\./_/g; }
721 0a1bbfa9 Zoltan Herpai
				if ( $machine eq 'tx120' ) { $line =~ /(.*)\ \|.*Volts.*/; $label = $1; }
722
				if ( $machine eq 'xs23' ) { $line =~ /(.*)\s+\|.*Volts.*/; $label = $1; }
723
				if ( $machine eq 'hermon' ) { $line =~ /(.*)\s+\|\s+.*Volts.*/; $label = $1;  }
724
				if ( $machine eq 'aocipmi20e' ) { $line =~ /(.*)\s+\|\s+.*Volts.*/; $label = $1;  }
725
				if ( $machine eq 'asmb2' ) { $line =~ /(.*)\s+\|\s+.*Volts.*/; $label = $1;  }
726 2c5cf224 Zoltan Herpai
			}
727
			
728
			if ( $label )
729
			{
730
				$label =~ s/\.//g;
731
				$label =~ s/\-/dash/g;
732
				$label =~ s/\+//;
733
				$label =~ s/\s+//g;
734
				$label =~ s/(.*)/\L$1/;
735
				$label =~ s/\//_/g;
736 0a1bbfa9 Zoltan Herpai
				$label =~ s/\#/_/g;
737
				
738
				# Random fixups
739
				if ( $machine eq 'x2270' )	{ $label =~ s/v_//; }
740
				if ( $machine eq 'x4x00' )	{ $label =~ s/^sysv\_/mbv\_/; }
741
				if ( $machine eq 'tx120' )	{ $label =~ s/main//; }
742 2c5cf224 Zoltan Herpai
				
743
				if ( $base{$machine}->{$label} )
744
				{
745
					$cnf{ $label. '.label' } = $base{$machine}->{$label};
746
				}
747
				else
748
				{
749
					$cnf{ $label. '.label' } = $label;
750
				}
751
			}	
752
753
			undef ($label);
754
		}
755
		foreach my $key ( sort(keys(%cnf)) )
756
		{
757
			print "$key $cnf{$key}\n";
758
		}
759
	}
760
	exit 0;
761
}
762
763
my %res; my $label; my $value;
764
foreach my $line ( @ipmioutput )
765
{
766
	$line =~ s/\s+/ /g;
767
	if ( $sensor eq 'fan' && $line =~ /.*RPM.*ok/ )
768
	{
769
		if ( $machine eq 'x4x00' ) { $line =~ /(.*)\.speed\s+\|\s+(\d+) RPM.*/; $label = $1; $value = $2; }
770
		if ( $machine eq 'v20z' ) { $line =~ /(.*)\.tach\s+\|\s+(\d+) RPM.*/;  $label = $1; $value = $2; }
771
		if ( $machine eq 'x2100' ) { $line =~ s/(.*)\s+\|\s+(\S+) RPM.*/\L$1/; $label = $line; $value = $2; }
772
		if ( $machine eq 'x346' ) { $line =~ /(.*) Tach\s+\| (\d+) RPM.*/; $label = $1; $value = $2; }
773
		if ( $machine eq 'shg2' ) { $line =~ /(.*)\s+\|\s+(.*) RPM.*\|.*ok/; $label = $1; $value = $2; }
774
		if ( $machine eq 'x2250' ) { $line =~ /(.*)\/TACH\s+\|\s+(.*) RPM.*/; $label = $1; $value = $2; }
775 0a1bbfa9 Zoltan Herpai
		if ( $machine eq 'x2270' ) { $line =~ /(.*)\/TACH\s+\|\s+(.*) RPM.*/; $label = $1; $value = $2; }
776 2c5cf224 Zoltan Herpai
		if ( $machine eq 'x4150' ) { $line =~ /(.*)\/TACH\s+\|\s+(\S+) RPM.*/; $label = $1; $value = $2; }
777
		if ( $machine eq 'pe2650' ) { $line =~ /(.*) RPM\s+\|\s+(\S+) RPM.*/; $label = $1; $value = $2; }
778
		if ( $machine eq 'ibmx3xx0' ) { $line =~ /(.*) Tach\s+\|\s+(\S+) RPM.*/; $label = $1; $value = $2; }
779 0a1bbfa9 Zoltan Herpai
		if ( $machine eq 'tx120' ) { $line =~ /(.*)\s+\|\s+(.*) RPM.*\|\s+ok/; $label = $1; $value = $2; }
780
		if ( $machine eq 'xs23' ) { $line =~ /(.*)\s+\|\s+(.*) RPM.*\|\s+ok/; $label = $1; $value = $2; }
781
		if ( $machine eq 'hermon' ) { $line =~ /(.*)\s+\|\s+(.*) RPM.*\|\s+ok/; $label = $1; $value = $2; }
782
		if ( $machine eq 'aocipmi20e' ) { $line =~ /(.*)\s+\|\s+(.*) RPM.*\|\s+ok/; $label = $1; $value = $2; }
783
		if ( $machine eq 'asmb2' ) { $line =~ /(.*)\s+\|\s+(.*) RPM.*\|\s+ok/; $label = $1; $value = $2; }
784 2c5cf224 Zoltan Herpai
	}
785 0a1bbfa9 Zoltan Herpai
	elsif ( $sensor eq 'fan' && $line =~ /\#\d+\s+\S+\s+Yes.*\%/ ) {
786
		if ( $machine eq 'hpasmcli' ) { $line =~ /\#(\d+)\s+(.*)\s+Yes\s+\w+\s+(\d+)\%.*/; $label = "$2_$1"; $value = $3; }
787
	}
788
                                                        	
789 2c5cf224 Zoltan Herpai
	if ( $sensor eq 'temp' && $line =~ /.*degree.*ok/ )
790
	{
791
		if ( $machine eq 'x4x00' ) { $line =~ /(.*)\s+\|\s+(\S+)\ deg.*/; $label = $1; $value = $2; }
792
		if ( $machine eq 'v20z' ) { $line =~ /(.*)temp\s+\|\s+(\S+)\ deg.*/; $label = $1; $value = $2; }
793
		if ( $machine eq 'x2100' ) { $line =~ s/(.*)\s+\|\s+(\d+) deg.*/\L$1/; $label = $line; $value = $2; }
794
		if ( $machine eq 'x346' ) { $line =~ /(.*) Temp\s+\|\s+(\d+) deg.*/; $label = $1; $value = $2; }
795 0a1bbfa9 Zoltan Herpai
		if ( $machine eq 'ibmls4x' ) { $line =~ /(.*) TEMP\s+\|\s+(\d+) deg.*/; $label = $1; $value = $2; }
796 2c5cf224 Zoltan Herpai
		if ( $machine eq 'shg2' ) { $line =~ /(.*)\s+\|\s+(\d+) deg.*/; $label = $1; $value = $2; }
797
		if ( $machine eq 'x2250' ) { $line =~ /MB\/T\_(.*)\s+\|\s+(\d+) deg.*/; $label = $1; $value = $2; }
798 0a1bbfa9 Zoltan Herpai
		if ( $machine eq 'x2270' ) { $line =~ /MB\/T\_(.*)\s+\|\s+(\d+) deg.*/; $label = $1; $value = $2; }
799 2c5cf224 Zoltan Herpai
		if ( $machine eq 'x4150' ) { $line =~ /(.*)\s+\|\s+(\S+) deg.*/; $label = $1; $value = $2; }
800
		if ( $machine eq 'vb1205' ) { $line =~ /(.*)\s+\|\s+(\S+) deg.*/; $label = $1; $value = $2; }
801
		if ( $machine eq 'pe2650' ) { $line =~ /(.*) Temp\s+\|\s+(\S+) deg.*/; $label = $1; $value = $2; }
802
		if ( $machine eq 'ibmx3xx0' ) { $line =~ /(.*) Temp\s+\|\s+(\S+) deg.*/; $label = $1; $value = $2; }
803
		if ( $machine eq 'ibmlsxx' ) { $line =~ /(.*) TEMP\s+\|\s+(\S+) deg.*/; $label = $1; $value = $2; }
804 0a1bbfa9 Zoltan Herpai
		if ( $machine eq 'tx120' ) { $line =~ /(.*)\s+\|\s+(\S+)\ deg.*/; $label = $1; $value = $2; }
805
		if ( $machine eq 'xs23' ) { $line =~ /(.*)\ Temp\s+\|\s+(\S+)\ deg.*/; $label = $1; $value = $2; }
806
		if ( $machine eq 'hermon' ) { $line =~ /(.*)\ Temp\s+\|\s+(\S+)\ deg.*/; $label = $1; $value = $2; }   
807
		if ( $machine eq 'aocipmi20e' ) { $line =~ /(.*)\ Temp\s+\|\s+(\S+)\ deg.*/; $label = $1; $value = $2; }
808
		if ( $machine eq 'asmb2' ) { $line =~ /(.*)\s+\|\s+(\S+)\ deg.*/; $label = $1; $value = $2; }
809
		if ( $machine eq 'm610' ) { $line =~ /(.*)\s+\|\s+(\S+)\ deg.*/; $label = $1; $value = $2; }
810
		if ( $machine eq 'proliantg5' ) { $line =~ /(.*)\s+\|\s+(\S+)\ deg.*/; $label = $1; $value = $2; }
811 2c5cf224 Zoltan Herpai
	}
812 0a1bbfa9 Zoltan Herpai
	elsif ( $sensor eq 'temp' && $line =~ /\d+C\/\d+F/ ) {
813
		if ( $machine eq 'hpasmcli' ) { $line =~ /.*\s+(.*)\s+(\d+)C\/\d+F\s+\d+C\/\d+F/; $label = $1; $value = $2; } 
814
	}	                                                        
815 2c5cf224 Zoltan Herpai
	
816
	if ( $sensor eq 'volt' && $line =~ /.*Volt.*ok/ )
817
	{
818
		if ( $machine eq 'x4x00' ) { $line =~ /(.*)\ \|\s+(\S+)\ Volt.*/; $label = $1; $value = $2; }
819
		if ( $machine eq 'v20z' ) { $line =~ /(.*)\s+\|\s+(\S+)\ Volt.*/; $label = $1; $value = $2; }
820
		if ( $machine eq 'x2100' ) { $line =~ s/(.*)\s+\|\s+(\S+)\ Volt.*/\L$1/; $label = $line; $value = $2; }
821
		if ( $machine eq 'x346' ) { $line =~ /(.*)\s+\|\s+(\S+) Volts.*/; $label = $1; $value = $2; }
822 0a1bbfa9 Zoltan Herpai
		if ( $machine eq 'ibmls4x' ) { $line =~ /(.*)\s+\|\s+(\S+) Volts.*/; $label = $1; $value = $2; }
823 2c5cf224 Zoltan Herpai
		if ( $machine eq 'shg2' ) { $line =~ /(.*)\s+\|\s+(\S+) Volts.*/; $label = $1; $value = $2; }
824
		if ( $machine eq 'x2250' ) { $line =~ /MB\/V\_(.*)\s+\|\s+(\S+) Volts.*/; $label = $1; $value = $2; }
825 0a1bbfa9 Zoltan Herpai
		if ( $machine eq 'x2270' ) { $line =~ /MB\/(.*)\s+\|\s+(\S+) Volts.*/; $label = $1; $value = $2; }
826 2c5cf224 Zoltan Herpai
		if ( $machine eq 'x4150' ) { $line =~ /(.*)\s+\|\s+(\S+) Volts.*/; $label = $1; $value = $2; }
827
		if ( $machine eq 'vb1205' ) { $line =~ /(.*)\s+\|\s+(\S+) Volts.*/; $label = $1; $value = $2; $label =~ s/\./_/g; }
828
		if ( $machine eq 'pe2650' ) { $line =~ /(.*) Volt\s+\|\s+(\S+) Volts.*/; $label = $1; $value = $2; }
829
		if ( $machine eq 'ibmx3xx0' ) { $line =~ /(.*)\s+\|\s+(\S+) Volts.*/; $label = $1; $value = $2; }
830
		if ( $machine eq 'ibmlsxx' ) { $line =~ /(.*)\s+\|\s+(\S+) Volts.*/; $label = $1; $value = $2; $label =~ s/\./_/g; }
831
		if ( $machine eq 'ibmhsxx' ) { $line =~ /(.*)\s+\|\s+(\S+) Volts.*/; $label = $1; $value = $2; $label =~ s/\./_/g; }
832 0a1bbfa9 Zoltan Herpai
		if ( $machine eq 'tx120' ) { $line =~ /(.*)\ \|\s+(\S+)\ Volt.*/; $label = $1; $value = $2; }
833
		if ( $machine eq 'xs23' ) { $line =~ /(.*)\ \|\s+(\S+)\ Volt.*/; $label = $1; $value = $2; }
834
		if ( $machine eq 'hermon' ) { $line =~ /(.*)\s+\|\s+(\S+) Volts.*/; $label = $1; $value = $2; }
835
		if ( $machine eq 'aocipmi20e' ) { $line =~ /(.*)\s+\|\s+(\S+) Volts.*/; $label = $1; $value = $2; }
836
		if ( $machine eq 'asmb2' ) { $line =~ /(.*)\s+\|\s+(\S+) Volts.*/; $label = $1; $value = $2; }
837 2c5cf224 Zoltan Herpai
	}
838
839
	if ( $label )
840
	{
841
		$label =~ s/\.//g;
842
		$label =~ s/\-/dash/g;
843
		$label =~ s/\+//;
844
		$label =~ s/\s+//g;
845
		$label =~ s/(.*)/\L$1/;
846
		$label =~ s/\//_/g;
847 0a1bbfa9 Zoltan Herpai
		$label =~ s/\#/_/g;
848
		
849
		# Random fixups
850
		if ( $machine eq 'x2270' )	{ $label =~ s/v_//; }
851
		if ( $machine eq 'x4x00' )	{ $label =~ s/^sysv\_/mbv\_/; }
852
		if ( $machine eq 'tx120' )	{ $label =~ s/main//; }
853
		
854 2c5cf224 Zoltan Herpai
                                		
855
		$res{$label} = $value;
856
	}
857
	undef ($label);
858
}
859
860
my $key;
861
foreach $key ( sort(keys(%res)) )
862
{
863
	print "$key.value ".$res{$key}."\n";
864
}