From 7f437db53b49339615bbad9813e8beee522de493 Mon Sep 17 00:00:00 2001
From: Markus Krogh <markus@nordu.net>
Date: Thu, 7 Feb 2019 11:11:53 +0100
Subject: Use kinit and kadmin directly rather than perl script

---
 scripts/create-kdc-principal.pl | 18 ------------------
 1 file changed, 18 deletions(-)
 delete mode 100755 scripts/create-kdc-principal.pl

(limited to 'scripts/create-kdc-principal.pl')

diff --git a/scripts/create-kdc-principal.pl b/scripts/create-kdc-principal.pl
deleted file mode 100755
index a88c96c..0000000
--- a/scripts/create-kdc-principal.pl
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/usr/bin/env perl
-
-use Heimdal::Kadm5 qw(/KADM5_/);
-
-$client = Heimdal::Kadm5::Client->new('RaiseErrors'=>1,'Principal'=>'shibboleth-idp@NORDU.NET',Keytab=>'/opt/keytabs/pwman.keytab');
-my $line = <STDIN>;
-my ($user,$pass) = split('\s+',$line);
-die "Missing parameters on stdin\n" unless ($user and $pass);
-my ($local,$domain) = split('\@',$user);
-
-my $pn = "$local\@NORDU.NET";
-my $p = $client->getPrincipal($pn);
-unless ($p) {
-   $p = $client->makePrincipal($pn);
-   $client->createPrincipal($p,$pass);
-} else {
-   $client->changePassword($pn,$pass);
-}
-- 
cgit v1.1