Changeset 19df400 in lab.git

Timestamp:

Aug 18, 2013 4:55:43 AM (11 years ago)

Author:

Ken-ichi Mito <mitty@…>

Branches:

master

Children:

6f31bfb

Parents:

b8d7413

Message:

remake accessors and create backup() method

• repository list will flush with account() and repository()
• backup() do backup

File:

• Dev/github/GitHubBackup.pm (modified) (5 diffs)

Dev/github/GitHubBackup.pm

@@ -33 +33 @@
 __PACKAGE__->mk_accessors( qw(
     directory
-    account
-    repository
 ));
 
@@ -48 +46 @@
     
     return $class->SUPER::new($args);
+}
+
+sub account {
+    my $self = shift;
+    my $args = shift;
+    
+    if (defined $args) {
+        $self->{repos} = undef;
+        $self->{account} = $args;
+    }
+    
+    return $self->{account};
+}
+
+sub repository {
+    my $self = shift;
+    my $args = shift;
+    
+    if (defined $args) {
+        $self->{repos} = undef;
+        $self->{repository} = $args;
+    }
+    
+    return $self->{repository};
 }
 
@@ -92 +114 @@
 }
 
+sub backup {
+    my $self = shift;
+    
+    foreach my $repos (@{$self->repos}) {
+        $repos->backup;
+    }
+    
+    return $self;
+}
+
 
 package GitHubBackup::Repository;
@@ -128 +160 @@
     if (-d "$dir") {
         local $CWD = $dir;
-        print "fetch ", $self->{full_name}, "\n";
+        print "fetch ", $dir, "\n";
         Git::Repository->run(fetch => '--all');
         return $self;
     }
     
-    print "clone ", $self->{full_name}, "\n";
+    print "clone ", $dir, "\n";
     Git::Repository->run(clone => '--mirror' => $self->{clone_url} => $dir);
     return $self;
@@ -150 +182 @@
 }
 
+sub backup {
+    my $self = shift;
+    
+    $self->clone_git;
+    $self->set_forks;
+    $self->clone_wiki;
+    $self->save_issues;
+    
+    return $self;
+}