From 934702f61f1cbdbf001ebb598c22c75efa247645 Mon Sep 17 00:00:00 2001
From: Markus Krogh <markus@nordu.net>
Date: Fri, 2 Jun 2017 13:19:30 +0200
Subject: Django 1.11 compatible and cleaned up

---
 src/scripts/create-kdc-principal.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 src/scripts/create-kdc-principal.pl

(limited to 'src/scripts')

diff --git a/src/scripts/create-kdc-principal.pl b/src/scripts/create-kdc-principal.pl
new file mode 100755
index 0000000..ec541da
--- /dev/null
+++ b/src/scripts/create-kdc-principal.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+
+use Heimdal::Kadm5 qw(/KADM5_/);
+
+$client = Heimdal::Kadm5::Client->new('RaiseErrors'=>1,'Principal'=>'shibboleth-idp@NORDU.NET',Keytab=>'/etc/useradmin.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