add tree, rename name, change push

diff --git a/moth.pl b/moth.pl
index 7ffec1590d2ff5463738b1d7eb4afb0ccffea07a..b427e7627c4fe6b853353e4434989176b45e95f9 100755 (executable)
--- a/moth.pl
+++ b/moth.pl
@@ -84,7 +84,7 @@ elsif ($action eq 'rename') {
        goto_branch($new_name);
        remove_branch($old_name);
 }
-elsif ($action eq 'addname') {
+elsif ($action eq 'name') {
        if ((scalar @ARGV) < 3) {
                print STDERR "Name(s) missing.\n";
                exit 1;
@@ -105,6 +105,16 @@ elsif ($action eq 'goto') {
        goto_tree();
        goto_branch($name);
 }
+elsif ($action eq 'tree') {
+       if ((scalar @ARGV) < 2) {
+               print STDERR "Name missing.\n";
+               exit 1;
+       }
+       my $name = $ARGV[1];
+       goto_tree();
+       goto_branch($name);
+       show_tree();
+}
 elsif ($action eq 'rm') {
        if ((scalar @ARGV) < 2) {
                print STDERR "Name missing.\n";
@@ -348,7 +358,7 @@ sub push_out {
        }
        
        $r = system_encoded(GIT(), (
-               GIT(), 'push', '--all', '--force'
+               GIT(), 'push', '--mirror'
        ));
        if ($r != 0) {
                print STDERR "Git push fail.\n";
@@ -362,4 +372,14 @@ sub push_out {
                print STDERR "Git remote remove fail.\n";
                exit 1;
        }
-}
\ No newline at end of file
+}
+
+sub show_tree {
+       my $r = system_encoded(GIT(), (
+               GIT(), 'log', '--graph', '--oneline',
+       ));
+       if ($r != 0) {
+               print STDERR "Git log fail.\n";
+               exit 1;
+       }
+}