Changeset f7f894d in lab.git for Dev

Timestamp:

Aug 21, 2013 12:56:22 PM (11 years ago)

Author:

Ken-ichi Mito <mitty@…>

Branches:

master

Children:

13e2400

Parents:

9353238

Message:

change messages, add sample script

Location:

Dev/github

Files:

• GitHubBackup.pm (modified) (6 diffs)
• github-backup.pl (added)

Dev/github/GitHubBackup.pm

@@ -194 +194 @@
 }
 
+sub message {
+    my $self = shift;
+    my $message  = shift;
+    
+    print $self->full_name, " $message\n";
+    
+    return $self;
+}
+
 sub sync {
     my $self = shift;
@@ -201 +210 @@
     if (-d "$dir") {
         local $CWD = $dir;
-        print "fetch $dir\n";
+        $self->message("++> $dir");
         Git::Repository->run(fetch => '--all');
         return $self;
     }
     
-    print "clone $dir\n";
+    $self->message("==> $dir");
     mkpath $dir;
     Git::Repository->run(clone => '--mirror' => $url => $dir);
@@ -243 +252 @@
     foreach my $fork (@{$self->forks}) {
         if ($remotes =~ /$fork->{full_name}/) {
-            print "skip ", $fork->{full_name}, "\n";
+            $self->message("--- ". $fork->{full_name});
             next;
         }
-        print "add ", $fork->{full_name}, "\n";
+        $self->message("+++ ". $fork->{full_name});
         Git::Repository->run(remote => add => $fork->{full_name} => $fork->{clone_url});
         push @fetch, $fork->{full_name};
@@ -252 +261 @@
     
     foreach my $fork (@fetch) {
-        print "fetch $fork\n";
+        $self->message("--> $fork");
         Git::Repository->run(fetch => $fork);
     }
@@ -270 +279 @@
     );
     if ($res->code != 200) {
-        print "$dir does not exist\n";
+        $self->message("wiki does not exist");
         return $self;
     }
@@ -303 +312 @@
     foreach my $issue (@{$self->issues}) {
         my $number = $issue->{number};
-        print "save issue/$number\n";
+        $self->message("+++ issue/$number");
         
         open my $fh, ">$number.json";