usr/src/pinyadmin/bin/pinyconfig


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

#!/usr/bin/perl

use strict;
use warnings;

use Piny;

my ( $reponame, $attr, $value ) = @ARGV;

$attr =~ s/\./_/g;

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

if ( defined $value ) {
  $repo->config->$attr( $value );
};

print "$attr = " . $repo->config->$attr . "\n";