Move getcreds into the utility library as well.

1 files changed, 21 insertions, 1 deletions

diff --git a/perl/t/lib/Util.pm b/perl/t/lib/Util.pm
index 8aec1aa..481b7d9 100644
--- a/perl/t/lib/Util.pm
+++ b/perl/t/lib/Util.pm
@@ -21,7 +21,7 @@ $VERSION = '0.02';
 
 use Exporter ();
 @ISA    = qw(Exporter);
-@EXPORT = qw(contents db_setup remctld_spawn remctld_stop);
+@EXPORT = qw(contents db_setup getcreds remctld_spawn remctld_stop);
 
 ##############################################################################
 # General utility functions
@@ -67,6 +67,26 @@ sub db_setup {
 }
 
 ##############################################################################
+# Local ticket cache
+##############################################################################
+
+# Given a keytab file and a principal, try authenticating with kinit.
+sub getcreds {
+    my ($file, $principal) = @_;
+    my @commands = (
+        "kinit -k -t $file $principal >/dev/null 2>&1 </dev/null",
+        "kinit -t $file $principal >/dev/null 2>&1 </dev/null",
+        "kinit -k -K $file $principal >/dev/null 2>&1 </dev/null",
+    );
+    for my $command (@commands) {
+        if (system ($command) == 0) {
+            return 1;
+        }
+    }
+    return 0;
+}
+
+##############################################################################
 # remctld handling
 ##############################################################################