kerbtest sample

#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <stdlib.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <netdb.h>
#include <errno.h>
#include <time.h>
#include <poll.h>

#include <krb5.h>
#include <profile.h>
#include <com_err.h>
#include <stdlib.h>
/* #include "../config.h"
#include "kcrap.h"
#include "kcrap_int.h" */



krb5_context context;
profile_t profile;
krb5_keytab keytab;
krb5_principal sprinc;
krb5_ccache ccache;
char realm[160];
int taille;
char tableau[160];
char * inter = tableau;
char **stringpp =&inter;

int main (void) {
  krb5_error_code retval;
  retval = krb5_init_context(&context);
  printf ("fail krb5_init_context %d %d\n", sizeof(krb5_error_code), retval);
  retval = krb5_get_profile(context, &profile);
  printf ("krb5_get_profile %d \n", retval);
  retval = krb5_kt_resolve(context, "/etc/ssh/ssh.keytab", &keytab);
  printf ("krb5_kt_resolve %d \n", retval);
  retval = krb5_sname_to_principal(context, "test-65.iut.univ-paris8.fr", "host", KRB5_NT_SRV_HST, &sprinc);



  retval = krb5_get_host_realm(context,"test-65.iut.univ-paris8.fr",&stringpp);
  printf("krb5_get_host_realm %d\n", retval);
  printf("balllbla%s\n", tableau);
  retval = krb5_parse_name(context,"test-65.iut.univ-paris8.fr@IUT.UNIV-PARIS8.FR",&sprinc);
  retval = krb5_get_default_realm(context, (char **)&realm);
  printf ("krb5_get_default_realm %d\n", retval);
  printf("tableau %s \n", tableau);



  printf ("krb5_parse_name %d\n", retval);
  printf ("krb5_sname_to_principal %d \n", retval);
  retval = krb5_cc_resolve(context, "MEMORY:abeltest", &ccache);
  printf ("krb5_cc_resolve %d \n", retval);
  taille = krb5_princ_realm(context, sprinc)->length;
  printf ("krb5_princ_realm %d \n", taille);

  retval = krb5_unparse_name(context,sprinc,stringpp);
  printf("krb5_unparse_name %d \n",retval);
  printf ("stringpp : %p\n", stringpp);
  printf("%s\n", *stringpp);
  fflush(stdout);
  /* free(stringpp); */


  return EXIT_SUCCESS;
}