blob: d1ea96c36fe786d7501b388f45664ccad1668589 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/env perl
use strict;
use warnings;
use Net::GitHub::V2;
@ARGV == 2 || @ARGV == 3 or die "usage: $0 name description [url]";
my ($name, $description, $url) = splice @ARGV, 0, 3;
open my $login_info, '<', "$ENV{HOME}/.github"
or die "couldn't get login information";
my $user = <$login_info>;
chomp $user;
my $token = <$login_info>;
chomp $token;
my $github = Net::GitHub::V2->new(
owner => $user,
repo => 'conf', # bleh
login => $user,
token => $token,
);
$github->repos->create($name, $description, $url || '', 1); # 1 = public
|