add irc links if included in metadata

Author: haarg

lib/MetaCPAN/Web/Controller/Release.pm

@@ -102,6 +102,7 @@ sub view : Private {
     $c->res->last_modified( $out->{date} );
 
     my $contribs = $self->groom_contributors( $c, $out );
+    my $irc = $self->groom_irc( $c, $out );
 
     $c->stash( $c->model('API::Favorite')->find_plussers($distribution) );
 
@@ -124,6 +125,7 @@ sub view : Private {
         files    => \@view_files,
 
         contributors => $contribs,
+        irc          => $irc,
 
         # TODO: Put this in a more general place.
         # Maybe make a hash for feature flags?

lib/MetaCPAN/Web/Role/ReleaseInfo.pm

@@ -111,4 +111,23 @@ sub groom_contributors {
     return \@contribs;
 }
 
+sub groom_irc {
+    my ( $self, $c, $release ) = @_;
+
+    my $irc = $release->{metadata}{resources}{x_IRC};
+    my $irc_info = ref $irc ? {%$irc} : { url => $irc };
+    $irc_info->{web} ||= $release->{metadata}{resources}{x_WebIRC};
+
+    if ( !$irc_info->{web} && $irc_info->{url} ) {
+        if ( $irc_info->{url} =~ m{^irc://freenode\.net/#?(.*)} ) {
+            $irc_info->{web} = "https://webchat.freenode.net/?channels=#$1";
+        }
+        elsif ( $irc_info->{url} =~ m{^irc://([^/]+)/#?(.*)} ) {
+            $irc_info->{web} = "https://chat.mibbit.com/$2\@$1";
+        }
+    }
+
+    return $irc_info;
+}
+
 1;

root/inc/release-info.html

@@ -48,6 +48,11 @@
 <li>
     <div><a href="http://cpants.charsbar.org/dist/overview/<% release.distribution %>">Kwalitee</a></div>
 </li>
+<% IF irc.web %>
+<li>
+    <div><a href="<% irc.web %>">Chat with Maintainers</a></div>
+</li>
+<% END %>
 <% IF release.license %>
 <li>License: <% release.license.join(', ') %></li>
 <% END %>
@@ -69,4 +74,4 @@
     <option value="<% version.author; '/'; version.name; '/'; module.path %>"><% version.version _ (version.maturity == 'developer' ? ' DEV' : '') %> (<%version.author %> on <% version.date.dt_date_common %>)
     </option>
 <% END %>
-<% END; END %>
+<% END; END %>