1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
#!/usr/bin/perl
use warnings;
use strict;
use Getopt::Long;
use Net::GitHub;
use Term::ReadLine;
=for :stopwords
OAuth oauth
=head1 NAME
dpt-github-oauth - Generate GitHub OAuth2 token
=head1 SYNOPSIS
dpt github-oauth [note-text]
=head1 DESCRIPTION
B<dpt github-oauth> can be used for obtaining an OAuth2 token for
authenticating to GitHub services without the need to enter your password on
every request. The reason for this script is to allow you to populate the
C<DPT_GITHUB_OAUTH> setting in F<dpt.conf> or F<~/.config/dpt.conf> easily.
You cannot obtain an OAuth2 token with this script if you have two-factor
authentication (2FA) enabled on GitHub.
An alternative method for obtaining the token is to use the GitHub web
interface, Applications-E<gt>Personal Access Tokens.
The token obtained with this program is authorized only for reporting issues.
The only supported argument, I<note-text>, is a short note associated with
the token. It is used for easy distinguishing different tokens and their
purpose. If not specified, the string C<pkg-perl-tools on host $HOSTNAME> is
used, where C<$HOSTNAME> is obtained via L<Sys::Hostname>.
The GitHub user name and password are prompted for and can't be supplied as
command-line options.
=cut
my $term = Term::ReadLine->new('github-oauth');
my $gh_user = $term->readline( 'GitHub user name >', $ENV{USER} );
die "GitHub user name is required\n" unless $gh_user;
# Turn off display for password entry
# works with Term::ReadLine::Gnu but not with Term::ReadLine::Perl
my $attribs = $term->Attribs;
$attribs->{redisplay_function} = $attribs->{shadow_redisplay};
my $warning = $term->ReadLine eq 'Term::ReadLine::Gnu' ? '' : ' (not hidden /!\)';
my $gh_pass = $term->readline( 'GitHub password' . $warning . ' >', '' );
die "GitHub password is required\n" unless $gh_pass;
my $note = $ARGV[0];
unless ($note) {
require Sys::Hostname;
my $host = Sys::Hostname::hostname();
$note = "pkg-perl-tools on host $host";
}
my $gh = Net::GitHub->new( # Net::GitHub::V3
login => $gh_user,
pass => $gh_pass,
);
my $oauth = $gh->oauth;
my $o = $oauth->create_authorization(
{ scopes => ['public_repo'],
note => $note,
}
);
print <<EOF;
The following line may be added to ~/.config/dpt.conf or ~/.config/dpt.conf
to allow dpt to identify as yourself before GitHub:
DPT_GITHUB_OAUTH=$o->{token}
EOF
=head1 LICENSE AND COPYRIGHT
=over
=item Copyright 2014 Damyan Ivanov.
=item Copyright 2016 Alex Muntada.
=back
This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.
=cut
|
