summaryrefslogtreecommitdiff
path: root/usr/src/pinyadmin/bin/lsaccess
diff options
context:
space:
mode:
authorBryan Bishop <kanzure@gmail.com>2010-10-29 19:46:24 -0500
committerBryan Bishop <kanzure@gmail.com>2010-10-29 19:46:24 -0500
commit7786ce2a332b0eba4b3ca7c57f906a32e8715da3 (patch)
tree5a9fe32b69a93f41ae2ac82a50788fe50c0d86fb /usr/src/pinyadmin/bin/lsaccess
parent413373be9ab30eb21b564cdc180cb2dcda77bfeb (diff)
downloadpiny-code-7786ce2a332b0eba4b3ca7c57f906a32e8715da3.tar.gz
piny-code-7786ce2a332b0eba4b3ca7c57f906a32e8715da3.zip
Starting repo cleanup to make this not so awful
Diffstat (limited to 'usr/src/pinyadmin/bin/lsaccess')
-rwxr-xr-xusr/src/pinyadmin/bin/lsaccess30
1 files changed, 0 insertions, 30 deletions
diff --git a/usr/src/pinyadmin/bin/lsaccess b/usr/src/pinyadmin/bin/lsaccess
deleted file mode 100755
index ce41fc4..0000000
--- a/usr/src/pinyadmin/bin/lsaccess
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Piny;
-
-my $env = Piny::Environment->instance( );
-
-my ( $reponame ) = @ARGV;
-
-if ( defined $reponame ) {
-
- my $repo = Piny::Repo->new( $reponame );
-
- foreach my $user ( Piny::User->all_users( ) ) {
- if ( $repo->has_access( $user ) ) {
- print $user->name . "\n";
- };
- };
-
-} else {
-
- foreach my $repo ( Piny::Repo->all_repos( ) ) {
- if ( $repo->has_access( $env->user ) ) {
- print $repo->name . "\n";
- };
- };
-
-};