From ab2df0b7b3ff8020abadd9ad338600e771064961 Mon Sep 17 00:00:00 2001
From: Joe Rayhawk <jrayhawk@omgwallhack.org>
Date: Mon, 30 May 2011 23:55:18 -0700
Subject: Adding primitive cloning support

---
 pinyadmin/sbin/newrepo | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

(limited to 'pinyadmin')

diff --git a/pinyadmin/sbin/newrepo b/pinyadmin/sbin/newrepo
index 0a6cdf0..a13a0dc 100755
--- a/pinyadmin/sbin/newrepo
+++ b/pinyadmin/sbin/newrepo
@@ -7,12 +7,12 @@ use Moose::Util::TypeConstraints qw( find_type_constraint );
 
 use Piny;
 
-my ( $batch, $name );
+my ( $batch, $name, $remote );
 
 if ( $ARGV[0] eq "--batch" ) {
-  ( $batch, $name ) = @ARGV;
+  ( $batch, $name, $remote ) = @ARGV;
 } else {
-  ( $name ) = @ARGV;
+  ( $name, $remote ) = @ARGV;
 };
 
 if ( not defined $name ) {
@@ -59,9 +59,20 @@ A new piny repo ``$name'' has been created.
 
 Description: $description
 END
+
+if( defined( $remote ) ) {
+  print( MAIL "\nRemote: $remote\n" );
+};
+
 close( MAIL );
 
-my $repo = Piny::Repo->create( $name, $description );
+my $repo;
+
+if( defined( $remote ) ) {
+  $repo = Piny::Repo->create( $name, $description, $remote );
+} else {
+  $repo = Piny::Repo->create( $name, $description );
+};
 
 print "Repo URL: " . $repo->ikiwiki_url . "\n";
 print "Repo URL: " . $repo->cgit_url . "\n";
-- 
cgit v1.2.3