Changeset 49aca65 in lab.git for Dev/github/GitHubBackup.pm

Timestamp:

Aug 19, 2013 10:58:01 AM (11 years ago)

Author:

Ken-ichi Mito <mitty@…>

Branches:

master

Children:

d51047d

Parents:

55d0513

Message:

save issue as json and pacth files

File:

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

Dev/github/GitHubBackup.pm

@@ -7 +7 @@
 use LWP::UserAgent;
 use JSON;
-my $ua = LWP::UserAgent->new;
-my $json = JSON->new->utf8->indent;
 
 sub json_api {
     my $url = shift;
+    
+    my $ua = LWP::UserAgent->new;
+    my $json = JSON->new->utf8->indent;
     
     my $res = $ua->get(
@@ -150 +151 @@
 use File::Spec;
 use File::Path qw(mkpath);
+use LWP::UserAgent;
+use JSON;
+
 
 sub new {
@@ -266 +270 @@
     my $self = shift;
     
-    $self->issues;
+    my $ua = LWP::UserAgent->new;
+    my $json = JSON->new->utf8->indent;
+    
+    my $dir = $self->directory . '.issues';
+    mkpath $dir unless (-d $dir);
+    local $CWD = $dir;
+    foreach my $issue (@{$self->issues}) {
+        my $number = $issue->{number};
+        print "save issue/$number\n";
+        
+        open my $fh, ">$number.json";
+        print $fh $json->encode($issue);
+        close $fh;
+        
+        if (exists $issue->{pull_request}{patch_url}) {
+            $ua->mirror($issue->{pull_request}{patch_url} => "$number.patch");
+        }
+    }
+    
+    return $self;
 }