#!/usr/bin/perl -w
#
# Backup the hardware configuration on machine supporting it
# (Bios configuration, Raid configuration, ...)
#
use strict;
use AppConfig;
use File::Basename;

# Handling Configuration files
my $mindiconf=YYY
my $file1 = "$mindiconf/mindi.conf.dist";
my $file2 = "$mindiconf/mindi.conf";
my $tool = "";
my $tooldir = "";
my $ret = 0;

my $config = AppConfig->new({
                                # Auto Create variables mentioned in Conf file
                                CREATE => 1,
                                DEBUG => 0,
                                GLOBAL => {
									# Each conf item has one single parameter
									ARGCOUNT => AppConfig::ARGCOUNT_ONE,
									DEFAULT => '<undef>'
                                }
                        });
$config->file($file1, $file2);

open(SYSTEM,"dmidecode -s 'system-product-name' |") || die "You need dmidecode for mindi hardware support";
my $productname = <SYSTEM>;
close(SYSTEM);

chomp($productname);
if ($productname =~ /proliant/i) {
	print "Detected an HP Hardware. Nice. Continue to support my job :-)\n";
	print "Activating Proliant support for mindi\n";
	open(PROLIANT,"$mindiconf/deplist.d/proliant.conf") || die "Unable to open $mindiconf/deplist.d/proliant.conf";
	while($tool = <PROLIANT>) {
		next if ($tool =~ /^#/);
		chomp($tool);
		$tooldir = dirname($tool);
		if (! (-e $tool)) {
			print "You should install the SmartStart Scripting toolkit tool $tool\nto benefit from mindi's enhanced hardware support\n";
			print "Get it from http://www.hp.com/servers/sstoolkit\n";
			next;
		} else {
			print "Found $tool, activating enhanced HP Proliant support in mindi\n";
		}
		if ($tool =~ /conrep/) {
			$ret = system("(cd $tooldir ; $tool -s -f".$config->get("mindi_cache_dir")."/conrep.dat)");
		}
		if ($tool =~ /cpqacuxe/) {
			$ret = system("$tool -c ".$config->get("mindi_cache_dir")."/cpqacuxe.dat");
		}
		if ($tool =~ /hponcfg/) {
			$ret = system("$tool -w ".$config->get("mindi_cache_dir")."/hponcfg.dat");
		}
		if ($ret != 0) {
			print "$tool returned an error. Hardware support may not be complete\n";
		}
	}
} else {
	print "No Hardware support for $productname\n";
	print "Ask your manufacturer to contribute to the mindi project\n";
}