Enable access to private repos

Author: abeverley

bin/github-backup

@@ -65,6 +65,17 @@ Options:
 EOF
     exit;
 }
+
+# If cloning private repos it is necessary to pass the authentication
+# information to the git command. It is not possible to do this using
+# Git::Repository, so an alternative is to use git's GIT_ASKPASS option, which
+# is a command to run that will return the password (it is not possible to pass
+# the password directly in an environment variable). The github_backup_pass
+# command simply echos the GITHUB_TOKEN value, which can be used in place of a
+# password for authentication, thus allowing access to the private repos. This
+# option is ignored if it doesn't exist or returns nothing.
+$ENV{GIT_ASKPASS}="github_backup_pass";
+
 my $gh = Github::Backup->new(
     api_user    => $opts{user},
     token   => $opts{token},

bin/github-backup-pass

@@ -0,0 +1 @@
+echo $GITHUB_TOKEN

lib/Github/Backup.pm

@@ -284,7 +284,11 @@ Mandatory: Your Github username.
 
 Mandatory: Your Github API token. If you wish to not include this on the
 command line, you can put the token into the C<GITHUB_TOKEN> environment
-variable.
+variable. Specifying the token in the C<GITHUB_TOKEN> environment variable also
+enables private repositories to be accessed, as github_backup will use the
+environment variable via the github_backup_pass command and git's
+C<GIT_ASKPASS> option to pass the required authentication information to git
+when cloning a repository.
 
 =head2 -l | --list