Changeset 9353238 in lab.git for Dev/github/GitHubBackup.pm

Timestamp:

Aug 21, 2013 11:36:58 AM (11 years ago)

Author:

Ken-ichi Mito <mitty@…>

Branches:

master

Children:

f7f894d

Parents:

f38b66d

Message:

check wiki existency

• some repositories have no wiki even if '"has_wiki": true'

File:

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

Dev/github/GitHubBackup.pm

@@ -201 +201 @@
     if (-d "$dir") {
         local $CWD = $dir;
-        print "fetch ", $dir, "\n";
+        print "fetch $dir\n";
         Git::Repository->run(fetch => '--all');
         return $self;
     }
     
-    print "clone ", $dir, "\n";
+    print "clone $dir\n";
     mkpath $dir;
     Git::Repository->run(clone => '--mirror' => $url => $dir);
@@ -252 +252 @@
     
     foreach my $fork (@fetch) {
-        print "fetch ", $fork, "\n";
+        print "fetch $fork\n";
         Git::Repository->run(fetch => $fork);
     }
@@ -264 +264 @@
     my $dir = $self->directory . '.wiki.git';
     my $url = 'https://github.com/' . $self->full_name . '.wiki.git';
+    
+    my $ua = LWP::UserAgent->new(max_redirect => 0);
+    my $res = $ua->head(
+        'https://github.com/' . $self->full_name . '/wiki'
+    );
+    if ($res->code != 200) {
+        print "$dir does not exist\n";
+        return $self;
+    }
     
     $self->sync($url => $dir);