Changeset 682d2d9 in lab.git for Dev


Ignore:
Timestamp:
Aug 18, 2013 9:56:40 PM (11 years ago)
Author:
Ken-ichi Mito <mitty@…>
Branches:
master
Children:
6473c3b
Parents:
6f31bfb
Message:

add forks as remotes/'full_name'

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Dev/github/GitHubBackup.pm

    r6f31bfb r682d2d9  
    165165    my $self = shift; 
    166166     
    167     my $dir = $self->directory; 
     167    my $dir = $self->directory . '.git'; 
    168168    if (-d "$dir") { 
    169169        local $CWD = $dir; 
     
    179179} 
    180180 
     181sub get_forks { 
     182    my $self = shift; 
     183    return $self->{forks} if ($self->{forks}); 
     184     
     185    my $page = 1; 
     186    while (1) { 
     187        my $result = utils::json_api("/repos/" . $self->{full_name} . "/forks?per_page=100&page=$page"); 
     188        if (ref($result) eq 'ARRAY' && scalar @$result > 0) { 
     189            push @{$self->{forks}}, @$result; 
     190            $page++; 
     191             
     192            next; 
     193        } 
     194        last; 
     195    } 
     196     
     197    return $self; 
     198} 
     199 
    181200sub set_forks { 
    182201    my $self = shift; 
     202     
     203    $self->get_forks; 
     204     
     205    my $dir = $self->directory . '.git'; 
     206    local $CWD = $dir; 
     207     
     208    my $remotes = Git::Repository->run(branch => '--remotes'); 
     209    foreach my $fork (@{$self->{forks}}) { 
     210        if ($remotes =~ /$fork->{full_name}/) { 
     211            print "skip ", $fork->{full_name}, "\n"; 
     212            next; 
     213        } 
     214        print "add ", $fork->{full_name}, "\n"; 
     215        Git::Repository->run(remote => add => $fork->{full_name} => $fork->{clone_url}); 
     216    } 
     217     
     218    print "fetch ", $dir, "\n"; 
     219    Git::Repository->run(fetch => '--all'); 
     220     
     221    return $self; 
    183222} 
    184223 
Note: See TracChangeset for help on using the changeset viewer.