#!/usr/bin/perl

use strict;
use warnings;

use Piny;

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

foreach my $reponame ( @ARGV ) {

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

  if ( $env->user->uid == 0 or $repo->owner->uid != $env->user->uid ) {
    print STDERR "You are not the owner of $reponame!\n";
    exit 1;
  };

  $repo->destroy;

};