gam script creator

group_file.pl

#!/usr/bin/perl

my $group = shift;
my @users = ();

my $gam_call = "python gam.py";

die "please specify a group" unless $group;

while (<>) {
  chomp;
  push(@users, $_);
}

print "$gam_call create group $group\n";
print "$gam_call update group $group is_archived true\n";
print "$gam_call update group $group max_message_bytes 25M\n";

for $user (@users) {
  print "$gam_call update group $group add member $user\n";
}