From 9efe7f0abf07614cd89f58d07d94feac3efad520 Mon Sep 17 00:00:00 2001
From: Ken Raeburn <raeburn@mit.edu>
Date: Thu, 8 Nov 1990 13:47:50 +0000
Subject: [PATCH] Added routines to write authdata structures

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@1423 dc483132-0cff-0310-8789-dd5450dbe970
---
 src/lib/krb5/ccache/stdio/scc_write.c | 36 +++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/src/lib/krb5/ccache/stdio/scc_write.c b/src/lib/krb5/ccache/stdio/scc_write.c
index 901fec571..e180437cc 100644
--- a/src/lib/krb5/ccache/stdio/scc_write.c
+++ b/src/lib/krb5/ccache/stdio/scc_write.c
@@ -223,3 +223,39 @@ krb5_scc_store_flags(id, f)
 {
      return krb5_scc_write(id, (char *) f, sizeof(krb5_flags));
 }
+
+krb5_error_code
+krb5_scc_store_authdata(id, a)
+    krb5_ccache id;
+    krb5_authdata **a;
+{
+    krb5_error_code ret;
+    krb5_authdata **temp;
+    krb5_int32 i, length=0;
+
+    if (a != NULL) {
+        for (temp=a; *temp; temp++)
+            length++;
+    }
+
+    ret = krb5_scc_store_int32(id, &length);
+    CHECK(ret);
+    for (i=0; i<length; i++) {
+        ret = krb5_scc_store_authdatum (id, a[i]);
+        CHECK(ret);
+    }
+    return KRB5_OK;
+}
+
+krb5_error_code
+krb5_scc_store_authdatum (id, a)
+    krb5_ccache id;
+    krb5_authdata *a;
+{
+    krb5_error_code ret;
+    ret = krb5_scc_store_ui_2(id, &a->ad_type);
+    CHECK(ret);
+    ret = krb5_scc_store_int32(id, &a->length);
+    CHECK(ret);
+    return krb5_scc_write(id, a->contents, a->length);
+}
-- 
2.26.2