CORNELIUS / App-gh-0.49 / lib / App / gh / Command / Pullreq / Send.pm 

            

              
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

              
package App::gh::Command::Pullreq::Send;
use warnings;
use strict;
use base qw(App::gh::Command);
use App::gh::Utils;
use File::stat;
use File::Temp;
require App::gh::Git;
=head1 NAME
App::gh::Command::PullReq::Send - pull request of current branch.
=head1 DESCRIPTION
=head1 USAGE
=pod
    $ gh pullreq send ([branch])
=cut
sub parse_uri {
    my ($uri) = @_;
    if ( $uri =~ m{(git|https?)://github.com/(.*?)/(.*?).git} ) {
        return ($2,$3,$1);
    } elsif ( $uri =~ m{git\@github.com:(.*?)/(.*?).git} ) {
        return ($1,$2,'git');
    }
    return undef;
}
sub get_remote {
    my $self = shift;
    my $config = App::gh->config->current();
    my %remotes = %{ $config->{remote} };
    # try to get origin remote
    return $remotes{origin} || (values( %remotes ))[0];
}
sub run {
    my $self = shift;
    die "\$EDITOR is not set." unless $ENV{EDITOR};
    my $remote_branch = shift||'master';
    my $remote = $self->get_remote();
    die "Remote not found\n." unless $remote;
    my ( $user, $repo, $uri_type ) = parse_uri( $remote->{url} );
    my $gh_id = App::gh->config->github_id;
    my $gh_token = App::gh->config->github_token;
    unless( $gh_id && $gh_token ) {
        die "Github authtoken not found. Can not send pull request.\n";
    }
    my $local_repo = Git->repository();
    open my $fh, '<', $local_repo->wc_path()."/.git/HEAD";
    my $ref = <$fh>;
    close $fh;
    chomp( $ref );
    my ($branch) = ( $ref =~ m{ref:\s\S+?/\S+?/(\S+)} );
    my $f = File::Temp->new(SUFFIX => ".mkd");
    my $t = stat($f->filename)->mtime;
    system $ENV{EDITOR}, $f->filename;
    if ($t == stat($f->filename)->mtime) {
        _info "No changes. Pull request was not sent.";
        return;
    }
    open $fh, '<', $f->filename;
    my $content = do { local $/; <$fh> };
    close $fh;
    my ($title, $body) = split("\n", $content, 2);
    chomp( $title );
    chomp( $body );
    if (length($title) == 0 || length($body) == 0) {
        _info "Message should two lines at least.";
        return;
    }
    _info "Sending pull request for $branch...";
    my $data = App::gh->api->pullreq_send($user, $repo, $branch, $remote_branch, $title, $body);
    _info "sent: " . $data->{pull}->{html_url};
}
1;