From e884280458c86b6eee7575638e456e56eaa4354e Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 2 Mar 2010 19:19:45 +0000
Subject: [PATCH] -Fix path to kinit -Document possible change to kerberos
 credential management

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5341 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/perl/xCAT/ADUtils.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/xCAT-server/lib/perl/xCAT/ADUtils.pm b/xCAT-server/lib/perl/xCAT/ADUtils.pm
index 4e38b1659..4d81c6ef3 100644
--- a/xCAT-server/lib/perl/xCAT/ADUtils.pm
+++ b/xCAT-server/lib/perl/xCAT/ADUtils.pm
@@ -251,6 +251,7 @@ sub add_machine_account {
 }
 
 sub krb_login {
+    #TODO: use distinct credential cache
     #TODO: klist -s to see if credentials are good
     my %args = @_;
     my $password = $args{password};
@@ -259,7 +260,11 @@ sub krb_login {
     my $krbin;
     my $krbout;
     my $krberr = gensym;
-    my $kinit = open3($krbin,$krbout,$krberr,qw/kinit/,$username."@".$realm);
+    my $kinit = "kinit";
+    if (-x "/usr/kerberos/bin/kinit") {
+        $kinit = "/usr/kerberos/bin/kinit";
+    }
+    my $kinit = open3($krbin,$krbout,$krberr,$kinit,$username."@".$realm);
     my $ksel = IO::Select->new($krbout,$krberr);
     my @handles;
     while (@handles = $ksel->can_read()) {
@@ -330,9 +335,10 @@ sub find_free_params { #search for things like next available uidNumber
 }
 
 
-use Data::Dumper;
+#use Data::Dumper;
 #print krb_login(username=>"Administrator",password=>"cluster",realm=>"XCAT.E1350");
 #print Dumper(find_free_params(directoryserver=>"v4.xcat.e1350",ou=>"dc=xcat,dc=e1350"));
 #print Dumper add_user_account(dnsdomain=>'xcat.e1350',username=>'ffuu',directoryserver=>'v4.xcat.e1350');
 #print Dumper add_machine_account(node=>'ufred.xcat.e1350',directoryserver=>'v4.xcat.e1350');
 
+1;