From cfb3cdaf26edcf91bedafdf1663ccb8602005a1a Mon Sep 17 00:00:00 2001 From: Barry Jaspan Date: Fri, 1 Nov 1996 18:26:30 +0000 Subject: [PATCH] * tcl_kadm5.c (unparse_err): update for new tl_data semantics [krb5-admin/140] git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@9274 dc483132-0cff-0310-8789-dd5450dbe970 --- src/kadmin/testing/util/ChangeLog | 5 +++++ src/kadmin/testing/util/tcl_kadm5.c | 3 +++ 2 files changed, 8 insertions(+) diff --git a/src/kadmin/testing/util/ChangeLog b/src/kadmin/testing/util/ChangeLog index 50414d6dc..1682ef750 100644 --- a/src/kadmin/testing/util/ChangeLog +++ b/src/kadmin/testing/util/ChangeLog @@ -1,3 +1,8 @@ +Fri Nov 1 13:16:43 1996 Barry Jaspan + + * tcl_kadm5.c (unparse_err): update for new tl_data semantics + [krb5-admin/140] + Mon Oct 21 16:31:35 1996 Barry Jaspan * tcl_kadm5.c: add unparse ability for V2 principal fields diff --git a/src/kadmin/testing/util/tcl_kadm5.c b/src/kadmin/testing/util/tcl_kadm5.c index cad3a93ad..533b3b7fb 100644 --- a/src/kadmin/testing/util/tcl_kadm5.c +++ b/src/kadmin/testing/util/tcl_kadm5.c @@ -345,6 +345,7 @@ static Tcl_DString *unparse_err(kadm5_ret_t code) case KADM5_AUTH_CHANGEPW: code_string = "KADM5_AUTH_CHANGEPW"; break; case KADM5_GSS_ERROR: code_string = "KADM5_GSS_ERROR"; break; + case KADM5_BAD_TL_TYPE: code_string = "KADM5_BAD_TL_TYPE"; break; case OSA_ADB_DUP: code_string = "OSA_ADB_DUP"; break; case OSA_ADB_NOENT: code_string = "ENOENT"; break; case OSA_ADB_DBINIT: code_string = "OSA_ADB_DBINIT"; break; @@ -475,6 +476,7 @@ static Tcl_DString *unparse_tl_data(krb5_tl_data *tl_data, int n_tl_data) } Tcl_DStringInit(str); + Tcl_DStringStartSublist(str); for (; tl_data; tl_data = tl_data->tl_data_next) { Tcl_DStringStartSublist(str); sprintf(buf, "%d", tl_data->tl_data_type); @@ -484,6 +486,7 @@ static Tcl_DString *unparse_tl_data(krb5_tl_data *tl_data, int n_tl_data) Tcl_DStringAppendElement(str, tl_data->tl_data_contents); Tcl_DStringEndSublist(str); } + Tcl_DStringEndSublist(str); return str; } -- 2.26.2