my $newlist = join ',' => map { "$_=".$db{$_} } sort keys %db;
for my $gname (sort keys %$DBGROUP) {
my $innerjoin = join ',' =>
- map { "$_=".$DBGROUP->{$gname}{db}{$_} }
+ map { "$_=".$DBGROUP->{$gname}{db}{$_}{role} }
sort keys %{$DBGROUP->{$gname}{db}};
if ($innerjoin eq $newlist) {
push @message => qq{Using existing database group "$gname"};
die "Failed to add sync: $@\n";
}
- $dbh->commit();
-
## Now we can output our success messages if any
for my $msg (@message) {
chomp $msg;
$QUIET or print qq{Added sync "$sync_name"\n};
+ confirm_commit();
+
exit 0;
} ## end of add_sync