... | ... |
@@ -39,7 +39,7 @@ sub authors { |
39 | 39 |
my ($self, $user, $project, $ref, $file) = @_; |
40 | 40 |
|
41 | 41 |
# Command "git log FILE" |
42 |
- my @cmd = $self->_cmd( |
|
42 |
+ my @cmd = $self->cmd( |
|
43 | 43 |
$user, |
44 | 44 |
$project, |
45 | 45 |
'log', |
... | ... |
@@ -63,7 +63,7 @@ sub blobdiffs { |
63 | 63 |
my ($self, $user, $project, $from_id, $id, $difftrees) = @_; |
64 | 64 |
|
65 | 65 |
my $blobdiffs = []; |
66 |
- my @cmd = $self->_cmd( |
|
66 |
+ my @cmd = $self->cmd( |
|
67 | 67 |
$user, |
68 | 68 |
$project, |
69 | 69 |
'diff-tree', |
... | ... |
@@ -93,7 +93,7 @@ sub blobdiffs { |
93 | 93 |
my $file = $diffinfo->{to_file}; |
94 | 94 |
|
95 | 95 |
# Get blobdiff (command "self diff-tree") |
96 |
- my @cmd = $self->_cmd( |
|
96 |
+ my @cmd = $self->cmd( |
|
97 | 97 |
$user, |
98 | 98 |
$project, |
99 | 99 |
'diff-tree', |
... | ... |
@@ -133,7 +133,7 @@ sub blob_plain { |
133 | 133 |
my ($self, $user, $project, $ref, $path) = @_; |
134 | 134 |
|
135 | 135 |
# Get blob |
136 |
- my @cmd = $self->_cmd($user, $project, 'cat-file', 'blob', "$ref:$path"); |
|
136 |
+ my @cmd = $self->cmd($user, $project, 'cat-file', 'blob', "$ref:$path"); |
|
137 | 137 |
open my $fh, "-|", @cmd |
138 | 138 |
or croak 500, "Open git-cat-file failed"; |
139 | 139 |
local $/; |
... | ... |
@@ -180,7 +180,7 @@ sub blob_size_kb { |
180 | 180 |
my ($self, $user, $project, $rev, $file) = @_; |
181 | 181 |
|
182 | 182 |
# Command "git diff-tree" |
183 |
- my @cmd = $self->_cmd( |
|
183 |
+ my @cmd = $self->cmd( |
|
184 | 184 |
$user, |
185 | 185 |
$project, |
186 | 186 |
'cat-file', |
... | ... |
@@ -203,7 +203,7 @@ sub branch_exists { |
203 | 203 |
|
204 | 204 |
my $home = $self->rep_home; |
205 | 205 |
|
206 |
- my @cmd = $self->_cmd($user, $project, 'branch'); |
|
206 |
+ my @cmd = $self->cmd($user, $project, 'branch'); |
|
207 | 207 |
open my $fh, "-|", @cmd |
208 | 208 |
or croak 'git branch failed'; |
209 | 209 |
|
... | ... |
@@ -217,7 +217,7 @@ sub branch_commits { |
217 | 217 |
my ($self, $user, $project, $rev1, $rev2) = @_; |
218 | 218 |
|
219 | 219 |
# Get bramcj commits |
220 |
- my @cmd = $self->_cmd( |
|
220 |
+ my @cmd = $self->cmd( |
|
221 | 221 |
$user, |
222 | 222 |
$project, |
223 | 223 |
'show-branch', |
... | ... |
@@ -266,7 +266,7 @@ sub commits_number { |
266 | 266 |
my ($self, $user, $project, $ref) = @_; |
267 | 267 |
|
268 | 268 |
# Command "git diff-tree" |
269 |
- my @cmd = $self->_cmd($user, $project, 'shortlog', '-s', $ref); |
|
269 |
+ my @cmd = $self->cmd($user, $project, 'shortlog', '-s', $ref); |
|
270 | 270 |
open my $fh, "-|", @cmd |
271 | 271 |
or croak 500, "Open git-shortlog failed"; |
272 | 272 |
my @commits_infos = map { chomp; $self->dec($_) } <$fh>; |
... | ... |
@@ -374,7 +374,7 @@ sub difftree { |
374 | 374 |
$parent = '--root' unless defined $parent; |
375 | 375 |
|
376 | 376 |
# Get diff tree |
377 |
- my @cmd = $self->_cmd( |
|
377 |
+ my @cmd = $self->cmd( |
|
378 | 378 |
$user, |
379 | 379 |
$project, |
380 | 380 |
"diff-tree", |
... | ... |
@@ -448,7 +448,7 @@ sub branches { |
448 | 448 |
my ($self, $user, $project, $opts) = @_; |
449 | 449 |
|
450 | 450 |
# Command "git branch --no-merged" |
451 |
- my @cmd = $self->_cmd($user, $project, 'branch'); |
|
451 |
+ my @cmd = $self->cmd($user, $project, 'branch'); |
|
452 | 452 |
push @cmd, , '--no-merged' if $opts->{no_merged}; |
453 | 453 |
open my $fh, '-|', @cmd or return; |
454 | 454 |
|
... | ... |
@@ -474,7 +474,7 @@ sub id_by_path { |
474 | 474 |
|
475 | 475 |
# Get blob id or tree id (command "git ls-tree") |
476 | 476 |
$path =~ s#/+$##; |
477 |
- my @cmd = $self->_cmd( |
|
477 |
+ my @cmd = $self->cmd( |
|
478 | 478 |
$user, |
479 | 479 |
$project, |
480 | 480 |
'ls-tree', |
... | ... |
@@ -535,7 +535,7 @@ sub path_by_id { |
535 | 535 |
return unless $hash; |
536 | 536 |
|
537 | 537 |
# Command "git ls-tree" |
538 |
- my @cmd = $self->_cmd($user, $project, 'ls-tree', '-r', '-t', '-z', $base); |
|
538 |
+ my @cmd = $self->cmd($user, $project, 'ls-tree', '-r', '-t', '-z', $base); |
|
539 | 539 |
open my $fh, '-|' or return; |
540 | 540 |
|
541 | 541 |
# Get path |
... | ... |
@@ -558,7 +558,7 @@ sub last_activity { |
558 | 558 |
my ($self, $user, $project) = @_; |
559 | 559 |
|
560 | 560 |
# Command "git for-each-ref" |
561 |
- my @cmd = $self->_cmd( |
|
561 |
+ my @cmd = $self->cmd( |
|
562 | 562 |
$user, |
563 | 563 |
$project, |
564 | 564 |
'for-each-ref', |
... | ... |
@@ -585,7 +585,7 @@ sub object_type { |
585 | 585 |
my ($self, $user, $project, $cid) = @_; |
586 | 586 |
|
587 | 587 |
# Get object type |
588 |
- my @cmd = $self->_cmd( |
|
588 |
+ my @cmd = $self->cmd( |
|
589 | 589 |
$user, |
590 | 590 |
$project, |
591 | 591 |
'cat-file', |
... | ... |
@@ -662,7 +662,7 @@ sub references { |
662 | 662 |
$type ||= ''; |
663 | 663 |
|
664 | 664 |
# Get references |
665 |
- my @cmd = $self->_cmd( |
|
665 |
+ my @cmd = $self->cmd( |
|
666 | 666 |
$user, |
667 | 667 |
$project, |
668 | 668 |
'show-ref', |
... | ... |
@@ -716,7 +716,7 @@ sub tags { |
716 | 716 |
my ($self, $user, $project, $limit) = @_; |
717 | 717 |
|
718 | 718 |
# Get tags |
719 |
- my @cmd = $self->_cmd( |
|
719 |
+ my @cmd = $self->cmd( |
|
720 | 720 |
$user, |
721 | 721 |
$project, |
722 | 722 |
'for-each-ref', |
... | ... |
@@ -794,7 +794,7 @@ sub latest_commit_log { |
794 | 794 |
my $commit_log = {}; |
795 | 795 |
$file = '' unless defined $file; |
796 | 796 |
|
797 |
- my @cmd = $self->_cmd( |
|
797 |
+ my @cmd = $self->cmd( |
|
798 | 798 |
$user, |
799 | 799 |
$project, |
800 | 800 |
'--no-pager', |
... | ... |
@@ -853,7 +853,7 @@ sub parse_commit { |
853 | 853 |
my ($self, $user, $project, $id) = @_; |
854 | 854 |
|
855 | 855 |
# Git rev-list |
856 |
- my @cmd = $self->_cmd( |
|
856 |
+ my @cmd = $self->cmd( |
|
857 | 857 |
$user, |
858 | 858 |
$project, |
859 | 859 |
'rev-list', |
... | ... |
@@ -974,7 +974,7 @@ sub parse_commits { |
974 | 974 |
# Get Commits |
975 | 975 |
$maxcount ||= 1; |
976 | 976 |
$skip ||= 0; |
977 |
- my @cmd = $self->_cmd( |
|
977 |
+ my @cmd = $self->cmd( |
|
978 | 978 |
$user, |
979 | 979 |
$project, |
980 | 980 |
'rev-list', |
... | ... |
@@ -1130,7 +1130,7 @@ sub separated_commit { |
1130 | 1130 |
my ($self, $user, $project, $rev1, $rev2) = @_; |
1131 | 1131 |
|
1132 | 1132 |
# Command "git diff-tree" |
1133 |
- my @cmd = $self->_cmd( |
|
1133 |
+ my @cmd = $self->cmd( |
|
1134 | 1134 |
$user, |
1135 | 1135 |
$project, |
1136 | 1136 |
'show-branch', |
... | ... |
@@ -1286,7 +1286,7 @@ sub trees { |
1286 | 1286 |
# Get tree |
1287 | 1287 |
my @entries = (); |
1288 | 1288 |
my $show_sizes = 0; |
1289 |
- my @cmd = $self->_cmd( |
|
1289 |
+ my @cmd = $self->cmd( |
|
1290 | 1290 |
$user, |
1291 | 1291 |
$project, |
1292 | 1292 |
'ls-tree', |
... | ... |
@@ -1321,7 +1321,7 @@ sub trees { |
1321 | 1321 |
return $trees; |
1322 | 1322 |
} |
1323 | 1323 |
|
1324 |
-sub _cmd { |
|
1324 |
+sub cmd { |
|
1325 | 1325 |
my ($self, $user, $project, @cmd) = @_; |
1326 | 1326 |
|
1327 | 1327 |
my $home = $self->rep_home; |
... | ... |
@@ -50,7 +50,7 @@ sub _create_rep { |
50 | 50 |
mkpath $rep; |
51 | 51 |
|
52 | 52 |
# Git init |
53 |
- my @git_init_cmd = $git->_cmd($user, $project, 'init', '--bare'); |
|
53 |
+ my @git_init_cmd = $git->cmd($user, $project, 'init', '--bare'); |
|
54 | 54 |
system(@git_init_cmd) == 0 |
55 | 55 |
or croak "Can't execute git init"; |
56 | 56 |
|
... | ... |
@@ -62,7 +62,7 @@ sub _create_rep { |
62 | 62 |
} |
63 | 63 |
|
64 | 64 |
# HTTP support |
65 |
- my @git_update_server_info_cmd = $git->_cmd( |
|
65 |
+ my @git_update_server_info_cmd = $git->cmd( |
|
66 | 66 |
$user, |
67 | 67 |
$project, |
68 | 68 |
'--bare', |
... | ... |
@@ -37,7 +37,7 @@ |
37 | 37 |
); |
38 | 38 |
}; |
39 | 39 |
my $cmd = $quote->( |
40 |
- $git->_cmd( |
|
40 |
+ $git->cmd( |
|
41 | 41 |
$user, |
42 | 42 |
$project, |
43 | 43 |
'archive', |
... | ... |
@@ -25,7 +25,7 @@ |
25 | 25 |
# Blob content |
26 | 26 |
my $bid = $git->id_by_path($user, $project, $rev, $blob, 'blob') |
27 | 27 |
or $api->croak('Cannot find file'); |
28 |
- my @cmd = $git->_cmd( |
|
28 |
+ my @cmd = $git->cmd( |
|
29 | 29 |
$user, |
30 | 30 |
$project, |
31 | 31 |
'cat-file', |
... | ... |
@@ -17,7 +17,7 @@ |
17 | 17 |
my $git = $self->app->git; |
18 | 18 |
|
19 | 19 |
# Get blob diff |
20 |
- my @cmd = $git->_cmd( |
|
20 |
+ my @cmd = $git->cmd( |
|
21 | 21 |
$user, |
22 | 22 |
$project, |
23 | 23 |
'diff', |
... | ... |
@@ -19,7 +19,7 @@ |
19 | 19 |
# Blob content |
20 | 20 |
my $bid = $git->id_by_path($user, $project, $rev, $blob, 'blob') |
21 | 21 |
or $api->croak('Cannot find file'); |
22 |
- my @cmd = $git->_cmd( |
|
22 |
+ my @cmd = $git->cmd( |
|
23 | 23 |
$user, |
24 | 24 |
$project, |
25 | 25 |
'cat-file', |