Normalize dist URLs

Otherwise, we often end up missing github repo URLs from dists
Raku · Nov 12, 2015 · 31b9712 · 31b9712
1 parent 3ac0bc2
commit 31b9712
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/web/lib/P6Project/Info.pm b/web/lib/P6Project/Info.pm
@@ -50,6 +50,12 @@ sub get_projects {
         my $url = $json->{'source-url'} // $json->{'repo-url'}
             // $json->{support}->{source};
 
+        for ( $url ) {
+            s/^\s+|\s+$//g;
+            $_ .= '.git' if m{^git://}    and not m{\.git$};
+            $_ .= '/'    if m{^https?://} and not m{/$}    ;
+        }
+
         $projects->{$name}->{'url'} = $url;
         $projects->{$name}{success} = 0;