kinit now builds and works on some machines

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@302 ec53bebd-3082-4978-b11e-865c3cabbd6b

kinit.c

@@ -0,0 +1,44 @@
+#include <stdio.h>
+#include <krb5.h>
+
+int
+main (int argc, char **argv)
+{
+  krb5_error_code err;
+  krb5_context context;
+  krb5_ccache  ccache;
+  krb5_principal principal;
+  krb5_creds cred;
+
+  err = krb5_init_context (&context);
+  if (err)
+    abort ();
+
+  err = krb5_cc_default (context, &ccache);
+  if (err)
+    abort ();
+
+  err = krb5_parse_name (context, argv[1], &principal);
+  if (err)
+    abort ();
+
+  err = krb5_cc_initialize (context, ccache, principal);
+  if (err)
+    abort ();
+
+  cred.client = principal;
+  cred.times.endtime = time (NULL) + 4711;
+
+  err = krb5_get_in_tkt_with_password (context,
+				       0,
+				       NULL,
+				       NULL,
+				       NULL,
+				       NULL,
+				       ccache,
+				       &cred,
+				       NULL);
+  if (err)
+    abort ();
+  return 0;
+}