[3686] in BarnOwl Developers
Re: [barnowl] Perl logging (#54)
daemon@ATHENA.MIT.EDU (Jason Gross)
Thu Jan 2 21:01:37 2014
Date: Thu, 02 Jan 2014 18:01:34 -0800
From: Jason Gross <notifications@github.com>
Reply-To: barnowl/barnowl <reply+p-8628541-c6898b12f8b44ed12c242d9eafb568e1f03bd9d0-4475081@reply.github.com>
To: barnowl/barnowl <barnowl@noreply.github.com>
In-Reply-To: <barnowl/barnowl/pull/54@github.com>
----==_mimepart_52c619fe5e0ff_2f7c111bd084025fa
Content-Type: text/plain;
charset=UTF-8
Content-Transfer-Encoding: 7bit
> @@ -22,6 +22,12 @@ sub principal_realm {
> return $realm;
> }
>
> +sub casefold_principal {
> + my $principal = shift;
> + my ($user, $realm) = split(/@/, $principal);
How about
```perl
my @parts = split(/@/, $principal);
my $user = join('@', @parts[0..$#parts-1]);
my $realm = $parts[$#parts];
```
?
---
Reply to this email directly or view it on GitHub:
https://github.com/barnowl/barnowl/pull/54/files#r8628541
----==_mimepart_52c619fe5e0ff_2f7c111bd084025fa
Content-Type: text/html;
charset=UTF-8
Content-Transfer-Encoding: 7bit
<p>In perl/lib/BarnOwl/Message/Zephyr.pm:</p>
<pre style='color:#555'>> @@ -22,6 +22,12 @@ sub principal_realm {
> return $realm;
> }
>
> +sub casefold_principal {
> + my $principal = shift;
> + my ($user, $realm) = split(/@/, $principal);
</pre>
<p>How about</p>
<div class="highlight highlight-perl"><pre><span class="k">my</span> <span class="nv">@parts</span> <span class="o">=</span> <span class="nb">split</span><span class="p">(</span><span class="sr">/@/</span><span class="p">,</span> <span class="nv">$principal</span><span class="p">);</span>
<span class="k">my</span> <span class="nv">$user</span> <span class="o">=</span> <span class="nb">join</span><span class="p">(</span><span class="s">'@'</span><span class="p">,</span> <span class="nv">@parts</span><span class="p">[</span><span class="mi">0</span><span class="o">..</span><span class="nv">$#parts</span><span class="o">-</span><span class="mi">1</span><span class="p">]);</span>
<span class="k">my</span> <span class="nv">$realm</span> <span class="o">=</span> <span class="nv">$parts</span><span class="p">[</span><span class="nv">$#parts</span><span class="p">];</span>
</pre></div>
<p>?</p>
<p style="font-size:small;-webkit-text-size-adjust:none;color:#666;">—<br>Reply to this email directly or <a href='https://github.com/barnowl/barnowl/pull/54/files#r8628541'>view it on GitHub</a>.<img src='https://github.com/notifications/beacon/4475081__eyJzY29wZSI6Ik5ld3NpZXM6QmVhY29uIiwiZXhwaXJlcyI6MTcwNDI0NzI5NCwiZGF0YSI6eyJpZCI6MjI3OTE3NzN9fQ==--c26365fde8e99c4d7d59de82c70e5a2d36c63461.gif' height='1' width='1'></p>
----==_mimepart_52c619fe5e0ff_2f7c111bd084025fa--
