$output =~ s/Configuration Status:\n/Configuration Status:/g;
my @output = split /\n/, $output;
for (@output) {
$_ =~ s/\s//g;
#print "$_\n";
my ($attr, $val) = split /[=,:,-]/, $_;
$dg_config{$attr} = $val;
}