use feature 'say';

use strict;
use warnings;

my $source_role_name = $ARGV[0];
my $target_role_name = $ARGV[1];

my $source_group_member_list_command = "samba-tool group listmembers '$source_role_name'";
say $source_group_member_list_command;
my @source_members = split(/\n/, `$source_group_member_list_command`);
die("samba-tool exited $?") if $? != 0;

foreach my $principle (@source_members) {
	say "Adding $principle to group $target_role_name";
	my @group_add_member_command = ('samba-tool', 'group', 'addmembers', $target_role_name, $principle);
	say join(' ', @group_add_member_command);
	system(@group_add_member_command);
	die("samba-tool exited $?") if $? != 0;
}