add some krb5_{set,clear}_error_string

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

lib/krb5/verify_krb5_conf.c

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 1999 Kungliga Tekniska H<>gskolan
+ * Copyright (c) 1999 - 2001 Kungliga Tekniska H<>gskolan
  * (Royal Institute of Technology, Stockholm, Sweden). 
  * All rights reserved. 
  *
@@ -60,15 +60,18 @@ usage (int ret)
 int
 main(int argc, char **argv)
 {
+    krb5_context context;
     const char *config_file = NULL;
     krb5_error_code ret;
     krb5_config_section *tmp_cf;
-    unsigned lineno;
-    char *error_message;
     int optind = 0;
 
     setprogname (argv[0]);
 
+    ret = krb5_init_context(&context);
+    if (ret)
+	errx (1, "krb5_init_context failed");
+
     if(getarg(args, sizeof(args) / sizeof(args[0]), argc, argv, &optind))
 	usage(1);
     
@@ -93,10 +96,9 @@ main(int argc, char **argv)
 	usage (1);
     }
     
-    ret = krb5_config_parse_file_debug (config_file, &tmp_cf, &lineno,
-					&error_message);
+    ret = krb5_config_parse_file (context, config_file, &tmp_cf);
     if (ret == 0)
 	return 0;
-    fprintf (stderr, "%s:%u: %s\n", config_file, lineno, error_message);
+    krb5_warn (context, ret, "krb5_config_parse_file");
     return 1;
 }