Changeset 257952a in lab.git for Dev/github/GitHubBackup.pm
- Timestamp:
- Nov 27, 2013 4:02:06 PM (11 years ago)
- Branches:
- master
- Children:
- 41617a0
- Parents:
- d6dd05b
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Dev/github/GitHubBackup.pm
r4351b0c r257952a 260 260 if (-d "$dir") { 261 261 local $CWD = $dir; 262 $self->message(" ++>$dir");262 $self->message("fetch --all $dir"); 263 263 Git::Repository->run(fetch => '--all'); 264 264 return $self; 265 265 } 266 266 267 $self->message(" ==>$dir");267 $self->message("clone --mirror $dir"); 268 268 mkpath $dir; 269 269 Git::Repository->run(clone => '--mirror' => $url => $dir); … … 302 302 foreach my $fork (@{$self->forks}) { 303 303 if ($remotes =~ /$fork->{full_name}/) { 304 $self->message(" ---". $fork->{full_name});304 $self->message("have ". $fork->{full_name}); 305 305 next; 306 306 } 307 $self->message(" +++". $fork->{full_name});307 $self->message("remote add ". $fork->{full_name}); 308 308 Git::Repository->run(remote => add => $fork->{full_name} => $fork->{clone_url}); 309 309 push @fetch, $fork->{full_name}; … … 311 311 312 312 foreach my $fork (@fetch) { 313 $self->message(" -->$fork");313 $self->message("fetch $fork"); 314 314 Git::Repository->run(fetch => $fork); 315 315 } … … 362 362 foreach my $issue (@{$self->issues}) { 363 363 my $number = $issue->{number}; 364 $self->message(" +++issue/$number");364 $self->message("save issue/$number"); 365 365 366 366 open my $fh, ">$number.json";
Note: See TracChangeset
for help on using the changeset viewer.