From 577c006de0364a9c313b40cd00e744af1908c8e3 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 4 Apr 2011 14:13:54 +0100 Subject: [PATCH] Add "./sync-all set-push" Use like this: ./sync-all -r me@darcs.haskell.org:/home/darcs set-push to set the default repo to push to (in remotes/origin) for each of the sub-repos. --- sync-all | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/sync-all b/sync-all index d89e439..5336e29 100755 --- a/sync-all +++ b/sync-all @@ -241,6 +241,10 @@ sub scmall { elsif ($command =~ /^set-origin$/) { @scm_args = ("remote", "set-url", "origin", $path); } + elsif ($command =~ /^set-push$/) { + @scm_args = ("remote", "set-url", "--push", "origin", $path); + print "foo\n", @scm_args; + } elsif ($command =~ /^fetch$/) { @scm_args = ("fetch", "origin"); } @@ -342,6 +346,7 @@ Supported commands: * fetch * send * set-origin + * set-push * new Available package-tags are: -- 1.7.10.4