* 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

diff --git a/src/kadmin/testing/util/ChangeLog b/src/kadmin/testing/util/ChangeLog
index 50414d6dcafd53f0ca0f6ef7431339cbb526fc51..1682ef750e1259e6eed4b9a1b8a7e1b30ae1a310 100644 (file)
--- 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 cad3a93adf212393238c5f8c87d5731f5f3e61d4..533b3b7fb79f6c6b2b347928c4a4007fa31af2eb 100644 (file)
--- 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;
 }