#!/usr/bin/perl

use strict;
use warnings;

use Piny;

my $env = Piny::Environment->new( );

my ( $reponame, @users ) = @ARGV;

my $repo = Piny::Repo->new( $reponame );

if ( $repo->owner->uid != $env->user->uid ) {
  print "You are not the owner of that repo!\n";
  exit( 3 );
};

$repo->remove_access( map { Piny::User->new( $_ ) } @users );