Download as
Browse Code »

Commit c081cf761f6db20f216bce0180ccc8b7ba1fb59c

Authored by Lucas Kanashiro
1 parent 0bc07ad8
Exists in master and in 2 other branches packaging_status, refactor

Create git_url subroutine

Showing 1 changed file with 13 additions and 1 deletions   Show diff stats
lib/CoprStatus.pm
  Diff comments   View file @c081cf7
... ... @@ -15,6 +15,15 @@ sub copr_monitor_url {
15 15 return "http://copr.fedoraproject.org/api/coprs/$user/$repo/monitor/";
16 16 }
17 17  
  18 +sub git_url {
  19 + my ( $domain, $spec_path, $branch, $package ) = @_;
  20 +
  21 + $spec_path =~ s/<branch>/$branch/;
  22 + $spec_path =~ s/<package>/$package/g;
  23 +
  24 + return "$domain/$spec_path";
  25 +}
  26 +
18 27 sub copr_info {
19 28 my ( $user, $repo, $branch ) = @_;
20 29  
... ... @@ -37,7 +46,10 @@ sub copr_info {
37 46 }
38 47  
39 48 foreach my $key (keys %{$info}) {
40   - my $spec = $ua->get("https://softwarepublico.gov.br/gitlab/softwarepublico/softwarepublico/raw/$branch/src/pkg-rpm/$key/$key.spec");
  49 + my $git_url = git_url('http://softwarepublico.gov.br',
  50 + 'gitlab/softwarepublico/softwarepublico/raw/<branch>/src/pkg-rpm/<package>/<package>.spec',
  51 + $branch, $key);
  52 + my $spec = $ua->get($git_url);
41 53 my $version = $1 if $spec->decoded_content =~ /^Version:\s*([^\s]+)\s*$/m;
42 54 if($version =~ /%\{version\}/) {
43 55 $version = $1 if $spec->decoded_content =~ /define version\s*([^\s]+)\s*$/m;
... ...