The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<li class="whois" data-network="<%= $network %>" data-target="">
  %= timestamp $timestamp
  <div class="content">
  %= link_to $nick, view => { network => $network, target => $nick }, class => 'nick internal'
  (<%= $user %>@<%= $host %> - <%= $realname %>)
  % if ($idle) {
    has been idle for <b><%= $idle %></b> seconds in
  % } else {
    is in
  % }
  % my $i = 0;
  % for my $channel (@$channels) {
    % my $target = $channel; $target =~ s/^.\#/#/;
    <%= link_to $channel, view => { network => $network, target => $target }, class => 'internal channel' %><%= ++$i == @$channels ? '.' : ', ' %>
  % }
  </div>
</li>