73     krb5_context context;  in main()  local
87     ret = krb5_init_context(&context);  in main()
91     ret = krb5_openlog(context, "hpropd", &fac);  in main()
94     krb5_set_warn_dest(context, fac);  in main()
100 	krb5_set_default_realm(context, local_realm);  in main()
118 	database = hdb_default_db(context);  in main()
144 	    mini_inetd (krb5_getportbyname (context, "hprop", "tcp",  in main()
149 	    krb5_err(context, 1, errno, "getpeername");  in main()
158 	krb5_log(context, fac, 0, "Connection from %s", addr_name);  in main()
160 	ret = krb5_kt_register(context, &hdb_kt_ops);  in main()
162 	    krb5_err(context, 1, ret, "krb5_kt_register");  in main()
165 	    ret = krb5_kt_resolve(context, ktname, &keytab);  in main()
167 		krb5_err (context, 1, ret, "krb5_kt_resolve %s", ktname);  in main()
169 	    ret = krb5_kt_default (context, &keytab);  in main()
171 		krb5_err (context, 1, ret, "krb5_kt_default");  in main()
174 	ret = krb5_recvauth(context, &ac, &sock, HPROP_VERSION, NULL,  in main()
177 	    krb5_err(context, 1, ret, "krb5_recvauth");  in main()
179 	ret = krb5_unparse_name(context, ticket->server, &server);  in main()
181 	    krb5_err(context, 1, ret, "krb5_unparse_name");  in main()
183 	    krb5_errx(context, 1, "ticket not for hprop (%s)", server);  in main()
186 	krb5_free_ticket (context, ticket);  in main()
188 	ret = krb5_auth_con_getauthenticator(context, ac, &authent);  in main()
190 	    krb5_err(context, 1, ret, "krb5_auth_con_getauthenticator");  in main()
192 	ret = krb5_make_principal(context, &c1, NULL, "kadmin", "hprop", NULL);  in main()
194 	    krb5_err(context, 1, ret, "krb5_make_principal");  in main()
195 	_krb5_principalname2krb5_principal(context, &c2,  in main()
197 	if(!krb5_principal_compare(context, c1, c2)) {  in main()
199 	    ret = krb5_unparse_name(context, c2, &s);  in main()
202 	    krb5_errx(context, 1, "Unauthorized connection from %s", s);  in main()
204 	krb5_free_principal(context, c1);  in main()
205 	krb5_free_principal(context, c2);  in main()
207 	ret = krb5_kt_close(context, keytab);  in main()
209 	    krb5_err(context, 1, ret, "krb5_kt_close");  in main()
215 	ret = hdb_create(context, &db, tmp_db);  in main()
217 	    krb5_err(context, 1, ret, "hdb_create(%s)", tmp_db);  in main()
218 	ret = db->hdb_open(context, db, O_RDWR | O_CREAT | O_TRUNC, 0600);  in main()
220 	    krb5_err(context, 1, ret, "hdb_open(%s)", tmp_db);  in main()
229 	    ret = krb5_read_message(context, &sock, &data);  in main()
231 		krb5_err(context, 1, ret, "krb5_read_message");  in main()
233 	    ret = krb5_read_priv_message(context, ac, &sock, &data);  in main()
235 		krb5_err(context, 1, ret, "krb5_read_priv_message");  in main()
242 		krb5_write_priv_message(context, ac, &sock, &data);  in main()
245 		ret = db->hdb_close(context, db);  in main()
247 		    krb5_err(context, 1, ret, "db_close");  in main()
248 		ret = db->hdb_rename(context, db, database);  in main()
250 		    krb5_err(context, 1, ret, "db_rename");  in main()
255 	ret = hdb_value2entry(context, &data, &entry.entry);  in main()
258 	    krb5_err(context, 1, ret, "hdb_value2entry");  in main()
260 	    hdb_print_entry(context, db, &entry, stdout);  in main()
262 	    ret = db->hdb_store(context, db, 0, &entry);  in main()
265 		ret = krb5_unparse_name(context, entry.entry.principal, &s);  in main()
268 		krb5_warnx(context, "Entry exists: %s", s);  in main()
271 		krb5_err(context, 1, ret, "db_store");  in main()
275 	hdb_free_entry(context, &entry);  in main()
278 	krb5_log(context, fac, 0, "Received %d principals", nprincs);  in main()