#!/bin/perl

use strict;

add_iLO3_data();
 
exit;

sub add_iLO3_data() {
	$_ = "Memory           | 0x0        | discrete   | 0x4080| na        | na        | na        | na        | na        | na       ";
	chomp;
	my @fields = split(/\|/);
	my $name = $fields[0];
	$name =~ s/\s*//;
	$name =~ s/\s*$//;
	my $value = $fields[1];
	$value =~ s/\s*//;
	$value =~ s/\s*$//;
	my $status = $fields[3];
	$status =~ s/\s*//;
	$status =~ s/\s*$//;
	print "$name--$value--$status--\n";
#	add to database
	my $id = get_sensor_id($name);
	my @variables = ("sensor_id", "OperationalStatus", "CurrentReading");
	my @readings = ($id, $value, $status);
# here I add to DB
}


sub get_sensor_id($) {
	my $sensor = $_;
	print "sensor input: $sensor\n";
	return 0;
}