#!/bin/sh
env_setup="@env_setup@"
confdir="@confdir@"
testdir="@testdir@"
. ${env_setup}
${have_db} || exit 77
mkdir -p "${testdir}"
rm -rf "${testdir}/"*
R=TEST.H5L.SE
port=@port@
keytabfile=${testdir}/server.keytab
keytab="FILE:${keytabfile}"
cache="FILE:${testdir}/krb5ccfile"
kinit="${kinit} -c $cache ${afs_no_afslog}"
klist="${klist} -c $cache"
kgetcred="${kgetcred} -c $cache"
kdestroy="${kdestroy} -c $cache"
kadmin="${kadmin} -l -r $R"
kdc="${kdc} --addresses=localhost -P $port"
KRB5_CONFIG="${confdir}/krb5.conf"
export KRB5_CONFIG
KRB5CCNAME=${cache}
export KRB5CCNAME
rm -f ${keytabfile}
rm -f current-db*
rm -f out-*
rm -f mkey.file*
> ${testdir}/messages.log
echo Creating database
${kadmin} \
init \
--realm-max-ticket-life=1day \
--realm-max-renewable-life=1month \
${R} || exit 1
${kadmin} add -p p1 --use-defaults host/lucid.test.h5l.se@${R} || exit 1
${kadmin} ext -k ${keytab} host/lucid.test.h5l.se@${R} || exit 1
${kadmin} add -p p1 --use-defaults host/lucid@${R} || exit 1
${kadmin} ext -k ${keytab} host/lucid@${R} || exit 1
${kadmin} add -p p1 --use-defaults host/ok-delegate.test.h5l.se@${R} || exit 1
${kadmin} mod --attributes=+ok-as-delegate host/ok-delegate.test.h5l.se@${R} || exit 1
${kadmin} ext -k ${keytab} host/ok-delegate.test.h5l.se@${R} || exit 1
${kadmin} add -p p1 --use-defaults host/short@${R} || exit 1
${kadmin} mod --alias=host/long.test.h5l.se@${R} host/short@${R} || exit 1
${kadmin} ext -k ${keytab} host/short@${R} || exit 1
${ktutil} -k ${keytab} rename --no-delete host/short@${R} host/long.test.h5l.se@${R} || exit 1
${kadmin} add -p kaka --use-defaults digest/${R}@${R} || exit 1
${kadmin} add -p u1 --use-defaults user1@${R} || exit 1
${kadmin} add -p p1 --use-defaults host/no-aes.test.h5l.se@${R} || exit 1
${kadmin} get host/no-aes.test.h5l.se@${R} > /dev/null || exit 1
${kadmin} del_enctype host/no-aes.test.h5l.se@${R} \
aes256-cts-hmac-sha1-96 aes128-cts-hmac-sha1-96 || exit 1
${kadmin} ext -k ${keytab} host/no-aes.test.h5l.se@${R} || exit 1
echo "Doing database check"
${kadmin} check ${R} || exit 1
echo u1 > ${testdir}/foopassword
echo Starting kdc
env MallocStackLogging=1 MallocStackLoggingNoCompact=1 MallocErrorAbort=1 MallocLogFile=${testdir}/malloc-log \
${kdc} &
kdcpid=$!
trap "kill -9 ${kdcpid}; echo signal killing kdc; exit 1;" EXIT
sh ${wait_kdc} KDC ${testdir}/messages.log || exit 1
testfailed="echo test failed; cat ${testdir}/messages.log; exit 1"
echo "Getting client initial tickets" ; > ${testdir}/messages.log
${kinit} --password-file=${testdir}/foopassword --forwardable user1@${R} || \
{ eval "$testfailed"; }
echo "======test unreadable/non existant keytab and its error message" ; > ${testdir}/messages.log
${test_context} --mech-type=krb5 host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
mv ${keytabfile} ${keytabfile}.no
echo "checking non existant keytabfile (krb5)" ; > ${testdir}/messages.log
${test_context} --mech-type=krb5 host@lucid.test.h5l.se > ${testdir}/test_context.log 2>&1 && \
{ eval "$testfailed"; }
grep ${keytabfile} ${testdir}/test_context.log > /dev/null || \
{ echo "string missing failed"; cat ${testdir}/test_context.log ; eval "$testfailed"; }
echo "checking non existant keytabfile (spengo)" ; > ${testdir}/messages.log
${test_context} --mech-type=spnego host@lucid.test.h5l.se > ${testdir}/test_context.log 2>&1 && \
{ eval "$testfailed"; }
grep ${keytabfile} ${testdir}/test_context.log > /dev/null || \
{ echo "string missing failed"; cat test_context.log ; eval "$testfailed"; }
mv ${keytabfile}.no ${keytabfile}
echo "======test naming combinations"
echo "plain" ; > ${testdir}/messages.log
${test_context} --name-type=hostbased-service host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
echo "plain (krb5)" ; > ${testdir}/messages.log
${test_context} --name-type=krb5-principal-name host/lucid.test.h5l.se@${R} || \
{ eval "$testfailed"; }
echo "plain (krb5 realmless)" ; > ${testdir}/messages.log
${test_context} --name-type=krb5-principal-name host/lucid.test.h5l.se || \
{ eval "$testfailed"; }
echo "dns canon on (long name) OFF, need dns_wrapper" ; > ${testdir}/messages.log
echo "dns canon off (long name)" ; > ${testdir}/messages.log
${test_context} --no-dns-canon host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
echo "dns canon off (short name)" ; > ${testdir}/messages.log
${test_context} --no-dns-canon host@lucid || \
{ eval "$testfailed"; }
echo "dns canon off (short name, krb5)" ; > ${testdir}/messages.log
${test_context} --no-dns-canon --name-type=krb5-principal-name host/lucid@${R} || \
{ eval "$testfailed"; }
echo "dns canon off (short name, krb5)" ; > ${testdir}/messages.log
${test_context} --no-dns-canon --name-type=krb5-principal-name host/lucid || \
{ eval "$testfailed"; }
echo "======test context building"
for mech in krb5 krb5iov spnego spnegoiov; do
if [ "$mech" = "krb5iov" ] ; then
mech="krb5"
iov="--iov"
fi
if [ "$mech" = "spnegoiov" ] ; then
mech="spnego"
iov="--iov"
fi
echo "${mech} no-mutual ${iov}" ; > ${testdir}/messages.log
${test_context} --mech-type=${mech} \
--wrapunwrap ${iov} \
--import-export \
--name-type=hostbased-service host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
echo "${mech} mutual ${iov}" ; > ${testdir}/messages.log
${test_context} --mech-type=${mech} \
--mutual \
--import-export \
--wrapunwrap ${iov} \
--name-type=hostbased-service host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
echo "${mech} delegate ${iov}" ; > ${testdir}/messages.log
${test_context} --mech-type=${mech} \
--delegate \
--wrapunwrap ${iov} \
--import-export \
--name-type=hostbased-service host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
echo "${mech} mutual delegate ${iov}" ; > ${testdir}/messages.log
${test_context} --mech-type=${mech} \
--mutual --delegate \
--wrapunwrap ${iov} \
--import-export \
--name-type=hostbased-service host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
done
echo "======dce-style"
for mech in krb5 krb5iov spnego; do
iov=""
if [ "$mech" = "krb5iov" ] ; then
mech="krb5"
iov="--iov"
fi
if [ "$mech" = "spnegoiov" ] ; then
mech="spnego"
iov="--iov"
fi
echo "${mech}: dce-style ${iov}" ; > ${testdir}/messages.log
${test_context} \
--mech-type=${mech} \
--mutual \
--dce-style \
--wrapunwrap ${iov} \
--name-type=hostbased-service host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
done
echo "test gsskrb5_register_acceptor_identity (both positive and negative)"
cp ${keytabfile} ${keytabfile}.new
for mech in krb5 spnego; do
echo "${mech}: acceptor_identity positive" ; > ${testdir}/messages.log
${test_context} --gsskrb5-acceptor-identity=${keytabfile}.new \
--mech-type=$mech host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
echo "${mech}: acceptor_identity negative" ; > ${testdir}/messages.log
${test_context} --gsskrb5-acceptor-identity=${keytabfile}.foo \
--mech-type=$mech host@lucid.test.h5l.se 2>/dev/null && \
{ eval "$testfailed"; }
done
rm ${keytabfile}.new
echo "====== gss-api session key check"
coolenctype="aes256-cts-hmac-sha1-96"
limit_enctype="des3-cbc-sha1"
echo "Getting client initial tickets" ; > ${testdir}/messages.log
${kinit} --password-file=${testdir}/foopassword user1@${R} || \
{ eval "$testfailed"; }
echo "Building context on cred w/o aes, but still ${coolenctype} session key" ; > ${testdir}/messages.log
${test_context} \
--mech-type=krb5 \
--mutual-auth \
--session-enctype=${coolenctype} \
--name-type=hostbased-service host@no-aes.test.h5l.se || \
{ eval "$testfailed"; }
echo "Building context on cred, check if its limited still" ; > ${testdir}/messages.log
${test_context} \
--mech-type=krb5 \
--client-name=user1@${R} \
--limit-enctype="${limit_enctype}" \
--mutual-auth \
--name-type=hostbased-service host@no-aes.test.h5l.se || \
{ eval "$testfailed"; }
echo "====== ok-as-delegate"
echo "Getting client initial tickets" ; > ${testdir}/messages.log
${kinit} --forwardable \
--password-file=${testdir}/foopassword user1@${R} || \
{ eval "$testfailed"; }
echo "ok-as-delegate not used" ; > ${testdir}/messages.log
${test_context} \
--mech-type=krb5 \
--delegate \
--name-type=hostbased-service host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
echo "host without ok-as-delegate with policy-delegate" ; > ${testdir}/messages.log
${test_context} \
--mech-type=krb5 \
--policy-delegate \
--server-no-delegate \
--name-type=hostbased-service host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
echo "ok-as-delegate used by policy" ; > ${testdir}/messages.log
${test_context} \
--mech-type=krb5 \
--policy-delegate \
--name-type=hostbased-service host@ok-delegate.test.h5l.se || \
{ eval "$testfailed"; }
echo "Getting client initial tickets with --ok-as-delgate" ; > ${testdir}/messages.log
${kinit} --ok-as-delegate --forwardable \
--password-file=${testdir}/foopassword user1@${R} || \
{ eval "$testfailed"; }
echo "policy delegate to non delegate host" ; > ${testdir}/messages.log
${test_context} \
--mech-type=krb5 \
--policy-delegate \
--server-no-delegate \
--name-type=hostbased-service host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
echo "ok-as-delegate" ; > ${testdir}/messages.log
${test_context} \
--mech-type=krb5 \
--delegate \
--name-type=hostbased-service host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
echo "======export/import cred"
echo "export-import cred (krb5)" ; > ${testdir}/messages.log
${test_context} \
--mech-type=krb5 \
--delegate \
--export-import-cred \
--name-type=hostbased-service host@ok-delegate.test.h5l.se || \
{ eval "$testfailed"; }
echo "export-import cred (spnego)" ; > ${testdir}/messages.log
${test_context} \
--mech-type=spnego \
--delegate \
--export-import-cred \
--name-type=hostbased-service host@ok-delegate.test.h5l.se || \
{ eval "$testfailed"; }
echo "======time diffs between client and server"
echo "Getting client initial ticket" ; > ${testdir}/messages.log
${kinit} --password-file=${testdir}/foopassword user1@${R} || \
{ eval "$testfailed"; }
echo "No time offset" ; > ${testdir}/messages.log
${test_context} \
--mech-type=krb5 \
--name-type=hostbased-service host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
echo "Getting client initial ticket" ; > ${testdir}/messages.log
${kinit} --password-file=${testdir}/foopassword user1@${R} || \
{ eval "$testfailed"; }
echo "Server time offset" ; > ${testdir}/messages.log
${test_context} \
--mech-type=krb5 \
--mutual-auth \
--server-time-offset=3600 \
--max-loops=3 \
--name-type=hostbased-service host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
echo "Server time offset (cached ?)" ; > ${testdir}/messages.log
${test_context} \
--mech-type=krb5 \
--mutual-auth \
--server-time-offset=3600 \
--max-loops=2 \
--name-type=hostbased-service host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
echo "Getting client initial ticket" ; > ${testdir}/messages.log
${kinit} --password-file=${testdir}/foopassword user1@${R} || \
{ eval "$testfailed"; }
${kgetcred} host/lucid.test.h5l.se@${R} || \
{ eval "$testfailed"; }
echo "Client time offset" ; > ${testdir}/messages.log
${test_context} \
--mech-type=krb5 \
--mutual-auth \
--client-time-offset=3600 \
--name-type=hostbased-service host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
echo "Getting client initial tickets (use-referrals)" ; > ${testdir}/messages.log
${kinit} \
--password-file=${testdir}/foopassword \
--use-referrals user1@${R} || \
{ eval "$testfailed"; }
${test_context} \
--mech-type=krb5 \
host@short || \
{ eval "$testfailed"; }
${test_context} \
--mech-type=krb5 \
--name-type=krb5-principal-name host/short || \
{ eval "$testfailed"; }
${test_context} \
--mech-type=krb5 \
host@long.test.h5l.se || \
{ eval "$testfailed"; }
${test_context} \
--mech-type=krb5 \
--name-type=krb5-principal-name \
host/long.test.h5l.se || \
{ eval "$testfailed"; }
echo "Make clients credentials cache stale (cpw)" ; > ${testdir}/messages.log
echo "Getting client initial ticket" ; > ${testdir}/messages.log
${kinit} --password-file=${testdir}/foopassword user1@${R} || \
{ eval "$testfailed"; }
${kgetcred} host/lucid.test.h5l.se@${R} || \
{ eval "$testfailed"; }
${kadmin} passwd -r host/lucid.test.h5l.se@${R} || exit 1
${ktutil} -k ${keytab} delete -p host/lucid.test.h5l.se@${R} || exit 1
${kadmin} ext -k ${keytab} host/lucid.test.h5l.se@${R} || exit 1
${test_context} \
--mech-type=krb5 \
--mutual-auth \
--name-type=hostbased-service host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
echo "Make clients credentials cache stale (delete/add)" ; > ${testdir}/messages.log
echo "Getting client initial ticket" ; > ${testdir}/messages.log
${kinit} --password-file=${testdir}/foopassword user1@${R} || \
{ eval "$testfailed"; }
${kgetcred} host/lucid.test.h5l.se@${R} || \
{ eval "$testfailed"; }
${kadmin} delete host/lucid.test.h5l.se@${R} || exit 1
${ktutil} -k ${keytab} delete -p host/lucid.test.h5l.se@${R} || exit 1
${kadmin} add -p p2 --use-defaults host/lucid.test.h5l.se@${R} || exit 1
${kadmin} ext -k ${keytab} host/lucid.test.h5l.se@${R} || exit 1
${test_context} \
--mech-type=krb5 \
--mutual-auth \
--name-type=hostbased-service host@lucid.test.h5l.se || \
{ eval "$testfailed"; }
trap "" EXIT
echo "killing kdc (${kdcpid})"
sh ${leaks_kill} kdc $kdcpid || exit 1
exit 0