From 0e5be768a7128745bd1f4a6a3904eb67a131e719 Mon Sep 17 00:00:00 2001 From: Julian Blake Kongslie Date: Mon, 11 Oct 2010 21:53:06 -0700 Subject: Making libpiny saner This is a rewrite of libpiny to make much better use of Moose, and have a cleaner overall architecture. Signed-off-by: Julian Blake Kongslie --- usr/src/pinyadmin/bin/pinyconfig | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100755 usr/src/pinyadmin/bin/pinyconfig (limited to 'usr/src/pinyadmin/bin/pinyconfig') diff --git a/usr/src/pinyadmin/bin/pinyconfig b/usr/src/pinyadmin/bin/pinyconfig new file mode 100755 index 0000000..ec8e80a --- /dev/null +++ b/usr/src/pinyadmin/bin/pinyconfig @@ -0,0 +1,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"; -- cgit v1.2.3