usr/src/pinyadmin/bin/lsrepo


1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/perl

use strict;
use warnings;

use Piny;

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

foreach my $repo ( Piny::Repo->all_repos( ) ) {
  print $repo->name . "\n";
};