src/commands/owns

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use lib $ENV{GL_LIBDIR};
   6 use Gitolite::Easy;
   7
   8 =for usage
   9 Usage:  gitolite owns <reponame>
  10
  11 Checks if $GL_USER is an owner of the repo and returns an exit code (shell
  12 truth, 0 for success), which makes it possible to do this in shell:
  13
  14     if gitolite owns someRepo
  15     then
  16         ...
  17 =cut
  18
  19 usage() if not @ARGV or $ARGV[0] eq '-h';
  20 my $repo = shift;
  21
  22 exit not owns($repo);