+ 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..");
+ }