<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<style>
<!--
@font-face
        {font-family:Calibri}
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0cm;
        margin-bottom:.0001pt;
        font-size:11.0pt;
        font-family:"Calibri","sans-serif"}
a:link, span.MsoHyperlink
        {color:blue;
        text-decoration:underline}
a:visited, span.MsoHyperlinkFollowed
        {color:purple;
        text-decoration:underline}
p.MsoListParagraph, li.MsoListParagraph, div.MsoListParagraph
        {margin-top:0cm;
        margin-right:0cm;
        margin-bottom:0cm;
        margin-left:36.0pt;
        margin-bottom:.0001pt;
        font-size:11.0pt;
        font-family:"Calibri","sans-serif"}
span.EmailStyle18
        {font-family:"Calibri","sans-serif";
        color:windowtext}
span.EmailStyle19
        {font-family:"Calibri","sans-serif";
        color:#1F497D}
.MsoChpDefault
        {font-size:10.0pt}
@page WordSection1
        {margin:72.0pt 72.0pt 72.0pt 72.0pt}
div.WordSection1
        {}
-->
</style>
</head>
<body lang="EN-GB" link="blue" vlink="purple">
<div class="WordSection1">
<p class="MsoNormal">I’m trying to adapt the perl script on the website to handle prpl-sipe protocols  but I’ve hit a brick wall with regards to two issues:</p>
<p class="MsoNormal"> </p>
<p class="MsoNormal">How do I set the krb5 boolean needed for a single-sign-on? I can’t find anything in pidgin-docs regarding this.</p>
<p class="MsoNormal" style="margin-left:18.0pt"> </p>
<p class="MsoNormal" style="margin-left:18.0pt">so far it’s:</p>
<p class="MsoNormal" style="margin-left:18.0pt"> </p>
<p class="MsoNormal" style="margin-left:18.0pt">sub plugin_load {</p>
<p class="MsoNormal" style="margin-left:18.0pt">          my $plugin = shift;</p>
<p class="MsoNormal" style="margin-left:18.0pt">          my $protocol = "prpl-sipe";</p>
<p class="MsoNormal" style="margin-left:18.0pt">          my $account_name = `/usr/bin/finger \$USER | /bin/sed -ne "s/.*Name:
<a href="file:///\\(.*\)">\\(.*\\)</a> <a href="file:///\\(.*\)\1.\2\@emaildomain.com\p">
\\(.*\\)/\\1.\\2\@emaildomain.com/p</a>" |tr -d "\n" `;</p>
<p class="MsoNormal" style="margin-left:18.0pt">          $account = Purple::Account->new($account_name, $protocol);</p>
<p class="MsoNormal" style="margin-left:18.0pt">          Purple::Accounts::add($account);</p>
<p class="MsoNormal" style="margin-left:18.0pt">          $account->set_username($account_name);</p>
<p class="MsoNormal" style="margin-left:18.0pt"><span style="color:#1F497D">etc}</span></p>
<p class="MsoNormal"><span style="color:#1F497D"> </span></p>
<p class="MsoNormal">I’ve gone through the online documentation (although not being a C or perl programmer I may have missed the reference) but can’t see anything explicitly mentioning this.</p>
<p class="MsoNormal"> </p>
<p class="MsoNormal">Any help appreciated!</p>
<p class="MsoNormal"> </p>
</div>
<br>
<hr>
<font face="Arial" color="Gray" size="1"><br>
<br>
This email and any files transmitted with it are confidential and are intended solely for the use of the individual or entity to whom they are addressed. If you are not the original recipient or the person responsible for delivering the email to the intended
 recipient, be advised that you have received this email in error, and that any use, dissemination, forwarding, printing, or copying of this email is strictly prohibited. If you received this email in error, please immediately notify the sender and delete the
 original.<br>
<br>
</font>
</body>
</html>