Files
heimdal/kuser/klist.c
Johan Danielsson f1db719a8a Use kuser_locl.h
git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@1311 ec53bebd-3082-4978-b11e-865c3cabbd6b
1997-03-08 10:46:03 +00:00

73 lines
1.3 KiB
C

#include "kuser_locl.h"
char*
stime(time_t t)
{
static char s[128];
strcpy(s, ctime(&t)+ 4);
s[15] = 0;
return s;
}
int
main (int argc, char **argv)
{
krb5_error_code err;
krb5_context context;
krb5_ccache ccache;
krb5_principal principal;
krb5_cc_cursor cursor;
krb5_creds creds;
char *str;
err = krb5_init_context (&context);
if (err)
abort ();
err = krb5_cc_default (context, &ccache);
if (err)
abort ();
err = krb5_cc_get_principal (context, ccache, &principal);
if (err)
abort ();
err = krb5_unparse_name (context, principal, &str);
if (err)
abort ();
printf ("\tPrincipal: %s\n\n", str);
free (str);
err = krb5_cc_start_seq_get (context, ccache, &cursor);
if (err)
abort ();
while (krb5_cc_next_cred (context,
ccache,
&creds,
&cursor) == 0) {
printf ("%s ", stime(creds.times.authtime));
printf ("%s ", stime(creds.times.endtime));
err = krb5_unparse_name (context, creds.server, &str);
if (err)
abort ();
printf ("%s\n", str);
free (str);
}
err = krb5_cc_end_seq_get (context, ccache, &cursor);
if (err)
return err;
err = krb5_cc_close (context, ccache);
if (err)
abort ();
krb5_free_principal (principal);
krb5_free_context (context);
return 0;
}