use access_token

[lab.git] / Dev / github / GitHubBackup.pm

diff --git a/Dev/github/GitHubBackup.pm b/Dev/github/GitHubBackup.pm
index 30fd705..a059bd2 100644 (file)
--- a/Dev/github/GitHubBackup.pm
+++ b/Dev/github/GitHubBackup.pm
@@ -35,6 +35,9 @@ sub get {
     my $url  = shift;
     my %parameters = @_;
     
+    if ($self->access_token) {
+        $parameters{access_token} = $self->access_token;
+    }
     my $parameters = '';
     while (my($key, $value) = each %parameters) {
         $parameters .= "&$key=$value";
@@ -145,9 +148,10 @@ sub repos {
     $self->{repos} = [];
     
     my $account = $self->account or croak "account is not set";
+    my $token = ($self->access_token) ? "?access_token=" . $self->access_token : '';
     my $result;
     if (my $repository = $self->repository) {
-        $result = [ $self->api->json_api("/repos/$account/$repository") ];
+        $result = [ $self->api->json_api("/repos/$account/$repository$token") ];
     }
     else {
         $result = $self->api->get("/users/$account/repos");