diff options
| author | Barry Jaspan <bjaspan@mit.edu> | 1996-11-01 18:26:30 +0000 |
|---|---|---|
| committer | Barry Jaspan <bjaspan@mit.edu> | 1996-11-01 18:26:30 +0000 |
| commit | cfb3cdaf26edcf91bedafdf1663ccb8602005a1a (patch) | |
| tree | 081bb90aec311aa253d22cd4ed61a7e42f7ffa4b /src | |
| parent | 9ca101bb1f386f9e089524c767421f6c9edbea82 (diff) | |
| download | krb5-cfb3cdaf26edcf91bedafdf1663ccb8602005a1a.tar.gz krb5-cfb3cdaf26edcf91bedafdf1663ccb8602005a1a.tar.xz krb5-cfb3cdaf26edcf91bedafdf1663ccb8602005a1a.zip | |
* 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
Diffstat (limited to 'src')
| -rw-r--r-- | src/kadmin/testing/util/ChangeLog | 5 | ||||
| -rw-r--r-- | src/kadmin/testing/util/tcl_kadm5.c | 3 |
2 files changed, 8 insertions, 0 deletions
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 <bjaspan@mit.edu> + + * tcl_kadm5.c (unparse_err): update for new tl_data semantics + [krb5-admin/140] + Mon Oct 21 16:31:35 1996 Barry Jaspan <bjaspan@mit.edu> * 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; } |