Showing 6 changed files with 28 additions and 28 deletions
+22 -22
lib/Gitprep/Git.pm
... ...
@@ -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;
+2 -2
lib/Gitprep/RepManager.pm
... ...
@@ -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',
+1 -1
templates/main/archive.html.ep
... ...
@@ -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',
+1 -1
templates/main/blob.html.ep
... ...
@@ -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',
+1 -1
templates/main/blobdiff.html.ep
... ...
@@ -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',
+1 -1
templates/main/raw.html.ep
... ...
@@ -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',