X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=sync-all;h=5336e29af71579aeb62a85afb00635b2c3599b42;hb=3463ec6781e091e584fd216157c3247c3d3d5865;hp=7bb8016354c3a718580a394545a3bdfce34977ae;hpb=d94579a594823b44334e81f0eb38e9a45945796d;p=ghc-hetmet.git

diff --git a/sync-all b/sync-all
index 7bb8016..5336e29 100755
--- a/sync-all
+++ b/sync-all
@@ -241,6 +241,16 @@ 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");
+            }
+            elsif ($command =~ /^new$/) {
+                @scm_args = ("log", "origin..");
+            }
             else {
                 die "Unknown command: $command";
             }
@@ -333,8 +343,11 @@ Supported commands:
   * --<package-tag>
   * --complete
   * --partial
+ * fetch
  * send
  * set-origin
+ * set-push
+ * new
 
 Available package-tags are:
 END