summaryrefslogtreecommitdiffstats
path: root/bin/github-create
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