usr/src/pinyadmin/sbin/rmrepo


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!/usr/bin/perl

use strict;
use warnings;

use Piny;

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

foreach my $reponame ( @ARGV ) {

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

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

  $repo->destroy;

};