print STDERR " Found config\n" if $verbose;
push(@commands,"./ui.pl -b $ctrlname -c $chainname -o ".$cfg->textContent());
}
- $chainsini->{$ctrlid} .= proto_chainsini($chainname,$chainid,$ctrladdr,\@sname,\@sfile,\@senable);
+ $chainsini .= proto_chainsini($chainname,$chainid,$ctrladdr,\@sname,\@sfile,\@senable);
sensorini(\@sfile);
}
foreach my $cfg ($curctrl->findnodes('config')) {
print $boardsinifile $boardsini;
$boardsinifile->close();
-foreach my $c (keys $chainsini) {
- my $chainsinifile = FileHandle->new($defaultIniPath."/chains_board$c.ini", 'w');
- print $chainsinifile $chainsini->{$c};
- $chainsinifile->close();
- }
+my $chainsinifile = FileHandle->new($defaultIniPath."/chains.ini", 'w');
+print $chainsinifile $chainsini->{$c};
+$chainsinifile->close();