git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@841 ec53bebd-3082-4978-b11e-865c3cabbd6b
		
			
				
	
	
		
			50 lines
		
	
	
		
			968 B
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			50 lines
		
	
	
		
			968 B
		
	
	
	
		
			C
		
	
	
	
	
	
#include <stdio.h>
 | 
						|
#include "krb5.h"
 | 
						|
#include "config_file.h"
 | 
						|
 | 
						|
int main(int argc, char **argv)
 | 
						|
{
 | 
						|
  krb5_error_code err;
 | 
						|
  krb5_context context;
 | 
						|
  krb5_ccache  ccache;
 | 
						|
  krb5_creds   cred, out_cred;
 | 
						|
#if 0
 | 
						|
  k5_cfile *cf;
 | 
						|
  char *p;
 | 
						|
  krb5_parse_config_file(&cf, "krb5.conf");
 | 
						|
  krb5_get_config_tag(cf, "realms ATHENA.MIT.EDU v4_instance_convert mit", &p);
 | 
						|
#endif
 | 
						|
 | 
						|
  err = krb5_init_context (&context);
 | 
						|
  if (err)
 | 
						|
    abort ();
 | 
						|
 | 
						|
  err = krb5_cc_default (context, &ccache);
 | 
						|
  if (err)
 | 
						|
    abort ();
 | 
						|
 | 
						|
  err = krb5_build_principal (context,
 | 
						|
			      &cred.server,
 | 
						|
			      strlen("x-dce.pdc.kth.se"),
 | 
						|
			      "x-dce.pdc.kth.se",
 | 
						|
			      "host",
 | 
						|
			      "sisyphus.pdc.kth.se",
 | 
						|
			      NULL);
 | 
						|
  if (err)
 | 
						|
    abort ();
 | 
						|
  cred.server->type = KRB5_NT_SRV_HST;
 | 
						|
  cred.times.endtime = time (NULL) + 4711;
 | 
						|
 | 
						|
  err = krb5_get_credentials (context,
 | 
						|
			      0,
 | 
						|
			      ccache,
 | 
						|
			      &cred,
 | 
						|
			      &out_cred);
 | 
						|
  if (err)
 | 
						|
    abort ();
 | 
						|
 | 
						|
  krb5_free_context ();
 | 
						|
 | 
						|
  return 0;
 | 
						|
}
 |