Remove stray semicolon.
[oweals/opkg-lede.git] / libopkg / opkg_conf.c
1 /* opkg_conf.c - the opkg package management system
2
3    Copyright (C) 2009 Ubiq Technologies <graham.gower@gmail.com>
4
5    Carl D. Worth
6    Copyright (C) 2001 University of Southern California
7
8    This program is free software; you can redistribute it and/or
9    modify it under the terms of the GNU General Public License as
10    published by the Free Software Foundation; either version 2, or (at
11    your option) any later version.
12
13    This program is distributed in the hope that it will be useful, but
14    WITHOUT ANY WARRANTY; without even the implied warranty of
15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16    General Public License for more details.
17 */
18
19 #include "config.h"
20
21 #include <stdio.h>
22 #include <sys/types.h>
23 #include <sys/stat.h>
24 #include <fcntl.h>
25 #include <glob.h>
26 #include <unistd.h>
27
28 #include "opkg_conf.h"
29 #include "pkg_vec.h"
30 #include "pkg.h"
31 #include "xregex.h"
32 #include "sprintf_alloc.h"
33 #include "opkg_message.h"
34 #include "file_util.h"
35 #include "opkg_defines.h"
36 #include "libbb/libbb.h"
37
38 static int lock_fd;
39 static char *lock_file = NULL;
40
41 static opkg_conf_t _conf;
42 opkg_conf_t *conf = &_conf;
43
44 /*
45  * Config file options
46  */
47 opkg_option_t options[] = {
48           { "cache", OPKG_OPT_TYPE_STRING, &_conf.cache},
49           { "force_defaults", OPKG_OPT_TYPE_BOOL, &_conf.force_defaults },
50           { "force_maintainer", OPKG_OPT_TYPE_BOOL, &_conf.force_maintainer },
51           { "force_depends", OPKG_OPT_TYPE_BOOL, &_conf.force_depends },
52           { "force_overwrite", OPKG_OPT_TYPE_BOOL, &_conf.force_overwrite },
53           { "force_downgrade", OPKG_OPT_TYPE_BOOL, &_conf.force_downgrade },
54           { "force_reinstall", OPKG_OPT_TYPE_BOOL, &_conf.force_reinstall },
55           { "force_space", OPKG_OPT_TYPE_BOOL, &_conf.force_space },
56           { "check_signature", OPKG_OPT_TYPE_BOOL, &_conf.check_signature },
57           { "ftp_proxy", OPKG_OPT_TYPE_STRING, &_conf.ftp_proxy },
58           { "http_proxy", OPKG_OPT_TYPE_STRING, &_conf.http_proxy },
59           { "no_proxy", OPKG_OPT_TYPE_STRING, &_conf.no_proxy },
60           { "test", OPKG_OPT_TYPE_BOOL, &_conf.noaction },
61           { "noaction", OPKG_OPT_TYPE_BOOL, &_conf.noaction },
62           { "download_only", OPKG_OPT_TYPE_BOOL, &_conf.download_only },
63           { "nodeps", OPKG_OPT_TYPE_BOOL, &_conf.nodeps },
64           { "offline_root", OPKG_OPT_TYPE_STRING, &_conf.offline_root },
65           { "proxy_passwd", OPKG_OPT_TYPE_STRING, &_conf.proxy_passwd },
66           { "proxy_user", OPKG_OPT_TYPE_STRING, &_conf.proxy_user },
67           { "query-all", OPKG_OPT_TYPE_BOOL, &_conf.query_all },
68           { "tmp_dir", OPKG_OPT_TYPE_STRING, &_conf.tmp_dir },
69           { "verbosity", OPKG_OPT_TYPE_INT, &_conf.verbosity },
70 #if defined(HAVE_OPENSSL)
71           { "signature_ca_file", OPKG_OPT_TYPE_STRING, &_conf.signature_ca_file },
72           { "signature_ca_path", OPKG_OPT_TYPE_STRING, &_conf.signature_ca_path },
73 #endif
74 #if defined(HAVE_PATHFINDER)
75           { "check_x509_path", OPKG_OPT_TYPE_BOOL, &_conf.check_x509_path },
76 #endif
77 #if defined(HAVE_SSLCURL) && defined(HAVE_CURL)
78           { "ssl_engine", OPKG_OPT_TYPE_STRING, &_conf.ssl_engine },
79           { "ssl_cert", OPKG_OPT_TYPE_STRING, &_conf.ssl_cert },
80           { "ssl_cert_type", OPKG_OPT_TYPE_STRING, &_conf.ssl_cert_type },
81           { "ssl_key", OPKG_OPT_TYPE_STRING, &_conf.ssl_key },
82           { "ssl_key_type", OPKG_OPT_TYPE_STRING, &_conf.ssl_key_type },
83           { "ssl_key_passwd", OPKG_OPT_TYPE_STRING, &_conf.ssl_key_passwd },
84           { "ssl_ca_file", OPKG_OPT_TYPE_STRING, &_conf.ssl_ca_file },
85           { "ssl_ca_path", OPKG_OPT_TYPE_STRING, &_conf.ssl_ca_path },
86           { "ssl_dont_verify_peer", OPKG_OPT_TYPE_BOOL, &_conf.ssl_dont_verify_peer },
87 #endif
88           { NULL, 0, NULL }
89 };
90
91 static int
92 resolve_pkg_dest_list(nv_pair_list_t *nv_pair_list)
93 {
94      nv_pair_list_elt_t *iter;
95      nv_pair_t *nv_pair;
96      pkg_dest_t *dest;
97      char *root_dir;
98
99      for (iter = nv_pair_list_first(nv_pair_list); iter;
100                      iter = nv_pair_list_next(nv_pair_list, iter)) {
101           nv_pair = (nv_pair_t *)iter->data;
102
103           if (conf->offline_root) {
104                sprintf_alloc(&root_dir, "%s%s", conf->offline_root, nv_pair->value);
105           } else {
106                root_dir = xstrdup(nv_pair->value);
107           }
108
109           dest = pkg_dest_list_append(&conf->pkg_dest_list, nv_pair->name, root_dir, conf->lists_dir);
110           free(root_dir);
111
112           if (conf->default_dest == NULL)
113                conf->default_dest = dest;
114
115           if (conf->dest_str && !strcmp(dest->name, conf->dest_str)) {
116                conf->default_dest = dest;
117                conf->restrict_to_default_dest = 1;
118           }
119      }
120
121      if (conf->dest_str && !conf->restrict_to_default_dest) {
122           opkg_msg(ERROR, "Unknown dest name: `%s'.\n", conf->dest_str);
123           return -1;
124      }
125
126      return 0;
127 }
128
129 static int
130 opkg_conf_set_option(const char *name, const char *value)
131 {
132      int i = 0;
133
134      while (options[i].name) {
135           if (strcmp(options[i].name, name) == 0) {
136                switch (options[i].type) {
137                case OPKG_OPT_TYPE_BOOL:
138                     if (*(int *)options[i].value) {
139                             opkg_msg(ERROR, "Duplicate boolean option %s, "
140                                 "leaving this option on.\n", name);
141                             return 0;
142                     }
143                     *((int * const)options[i].value) = 1;
144                     return 0;
145                case OPKG_OPT_TYPE_INT:
146                     if (value) {
147                             if (*(int *)options[i].value) {
148                                     opkg_msg(ERROR, "Duplicate option %s, "
149                                         "using first seen value \"%d\".\n",
150                                         name, *((int *)options[i].value));
151                                     return 0;
152                             }
153                          *((int * const)options[i].value) = atoi(value);
154                          return 0;
155                     } else {
156                          opkg_msg(ERROR, "Option %s needs an argument\n",
157                                 name);
158                          return -1;
159                     }
160                case OPKG_OPT_TYPE_STRING:
161                     if (value) {
162                             if (*(char **)options[i].value) {
163                                     opkg_msg(ERROR, "Duplicate option %s, "
164                                         "using first seen value \"%s\".\n",
165                                         name, *((char **)options[i].value));
166                                     return 0;
167                             }
168                          *((char ** const)options[i].value) = xstrdup(value);
169                          return 0;
170                     } else {
171                          opkg_msg(ERROR, "Option %s needs an argument\n",
172                                 name);
173                          return -1;
174                     }
175                }
176           }
177           i++;
178      }
179
180      opkg_msg(ERROR, "Unrecognized option: %s=%s\n", name, value);
181      return -1;
182 }
183
184 static int
185 opkg_conf_parse_file(const char *filename,
186                                 pkg_src_list_t *pkg_src_list,
187                                 nv_pair_list_t *tmp_dest_nv_pair_list)
188 {
189      int line_num = 0;
190      int err = 0;
191      FILE *file;
192      regex_t valid_line_re, comment_re;
193 #define regmatch_size 12
194      regmatch_t regmatch[regmatch_size];
195
196      file = fopen(filename, "r");
197      if (file == NULL) {
198           opkg_perror(ERROR, "Failed to open %s", filename);
199           err = -1;
200           goto err0;
201      }
202
203      opkg_msg(INFO, "Loading conf file %s.\n", filename);
204
205      err = xregcomp(&comment_re,
206                     "^[[:space:]]*(#.*|[[:space:]]*)$",
207                     REG_EXTENDED);
208      if (err)
209           goto err1;
210
211      err = xregcomp(&valid_line_re,
212                      "^[[:space:]]*(\"([^\"]*)\"|([^[:space:]]*))"
213                      "[[:space:]]*(\"([^\"]*)\"|([^[:space:]]*))"
214                      "[[:space:]]*(\"([^\"]*)\"|([^[:space:]]*))"
215                      "([[:space:]]+([^[:space:]]+))?[[:space:]]*$",
216                      REG_EXTENDED);
217      if (err)
218           goto err2;
219
220      while(1) {
221           char *line;
222           char *type, *name, *value, *extra;
223
224           line_num++;
225
226           line = file_read_line_alloc(file);
227           if (line == NULL)
228                break;
229
230           if (regexec(&comment_re, line, 0, 0, 0) == 0)
231                goto NEXT_LINE;
232
233           if (regexec(&valid_line_re, line, regmatch_size, regmatch, 0) == REG_NOMATCH) {
234                opkg_msg(ERROR, "%s:%d: Ignoring invalid line: `%s'\n",
235                        filename, line_num, line);
236                goto NEXT_LINE;
237           }
238
239           /* This has to be so ugly to deal with optional quotation marks */
240           if (regmatch[2].rm_so > 0) {
241                type = xstrndup(line + regmatch[2].rm_so,
242                               regmatch[2].rm_eo - regmatch[2].rm_so);
243           } else {
244                type = xstrndup(line + regmatch[3].rm_so,
245                               regmatch[3].rm_eo - regmatch[3].rm_so);
246           }
247
248           if (regmatch[5].rm_so > 0) {
249                name = xstrndup(line + regmatch[5].rm_so,
250                               regmatch[5].rm_eo - regmatch[5].rm_so);
251           } else {
252                name = xstrndup(line + regmatch[6].rm_so,
253                               regmatch[6].rm_eo - regmatch[6].rm_so);
254           }
255
256           if (regmatch[8].rm_so > 0) {
257                value = xstrndup(line + regmatch[8].rm_so,
258                                regmatch[8].rm_eo - regmatch[8].rm_so);
259           } else {
260                value = xstrndup(line + regmatch[9].rm_so,
261                                regmatch[9].rm_eo - regmatch[9].rm_so);
262           }
263
264           extra = NULL;
265           if (regmatch[11].rm_so > 0) {
266                extra = xstrndup (line + regmatch[11].rm_so,
267                                 regmatch[11].rm_eo - regmatch[11].rm_so);
268           }
269
270           /* We use the tmp_dest_nv_pair_list below instead of
271              conf->pkg_dest_list because we might encounter an
272              offline_root option later and that would invalidate the
273              directories we would have computed in
274              pkg_dest_list_init. (We do a similar thing with
275              tmp_src_nv_pair_list for sake of symmetry.) */
276           if (strcmp(type, "option") == 0) {
277                opkg_conf_set_option(name, value);
278           } else if (strcmp(type, "src") == 0) {
279                if (!nv_pair_list_find((nv_pair_list_t*) pkg_src_list, name)) {
280                     pkg_src_list_append (pkg_src_list, name, value, extra, 0);
281                } else {
282                     opkg_msg(ERROR, "Duplicate src declaration (%s %s). "
283                                     "Skipping.\n", name, value);
284                }
285           } else if (strcmp(type, "src/gz") == 0) {
286                if (!nv_pair_list_find((nv_pair_list_t*) pkg_src_list, name)) {
287                     pkg_src_list_append (pkg_src_list, name, value, extra, 1);
288                } else {
289                     opkg_msg(ERROR, "Duplicate src declaration (%s %s). "
290                                    "Skipping.\n", name, value);
291                }
292           } else if (strcmp(type, "dest") == 0) {
293                nv_pair_list_append(tmp_dest_nv_pair_list, name, value);
294           } else if (strcmp(type, "lists_dir") == 0) {
295                conf->lists_dir = xstrdup(value);
296           } else if (strcmp(type, "arch") == 0) {
297                opkg_msg(INFO, "Supported arch %s priority (%s)\n", name, value);
298                if (!value) {
299                     opkg_msg(NOTICE, "No priority given for architecture %s,"
300                                    "defaulting to 10\n", name);
301                     value = xstrdup("10");
302                }
303                nv_pair_list_append(&conf->arch_list, name, value);
304           } else {
305                opkg_msg(ERROR, "%s:%d: Ignoring invalid line: `%s'\n",
306                        filename, line_num, line);
307           }
308
309           free(type);
310           free(name);
311           free(value);
312           if (extra)
313                free(extra);
314
315 NEXT_LINE:
316           free(line);
317      }
318
319      regfree(&valid_line_re);
320 err2:
321      regfree(&comment_re);
322 err1:
323      if (fclose(file) == EOF) {
324           opkg_perror(ERROR, "Couldn't close %s", filename);
325           err = -1;
326      }
327 err0:
328      return err;
329 }
330
331 int
332 opkg_conf_write_status_files(void)
333 {
334      pkg_dest_list_elt_t *iter;
335      pkg_dest_t *dest;
336      pkg_vec_t *all;
337      pkg_t *pkg;
338      int i, ret = 0;
339
340      if (conf->noaction)
341           return 0;
342
343      list_for_each_entry(iter, &conf->pkg_dest_list.head, node) {
344           dest = (pkg_dest_t *)iter->data;
345
346           dest->status_fp = fopen(dest->status_file_name, "w");
347           if (dest->status_fp == NULL && errno != EROFS) {
348                opkg_perror(ERROR, "Can't open status file %s",
349                     dest->status_file_name);
350                ret = -1;
351           }
352      }
353
354      all = pkg_vec_alloc();
355      pkg_hash_fetch_available(all);
356
357      for(i = 0; i < all->len; i++) {
358           pkg = all->pkgs[i];
359           /* We don't need most uninstalled packages in the status file */
360           if (pkg->state_status == SS_NOT_INSTALLED
361               && (pkg->state_want == SW_UNKNOWN
362                   || (pkg->state_want == SW_DEINSTALL
363                           && pkg->state_flag != SF_HOLD)
364                   || pkg->state_want == SW_PURGE)) {
365                continue;
366           }
367           if (pkg->dest == NULL) {
368                opkg_msg(ERROR, "Internal error: package %s has a NULL dest\n",
369                        pkg->name);
370                continue;
371           }
372           if (pkg->dest->status_fp)
373                pkg_print_status(pkg, pkg->dest->status_fp);
374      }
375
376      pkg_vec_free(all);
377
378      list_for_each_entry(iter, &conf->pkg_dest_list.head, node) {
379           dest = (pkg_dest_t *)iter->data;
380           if (dest->status_fp && fclose(dest->status_fp) == EOF) {
381                opkg_perror(ERROR, "Couldn't close %s", dest->status_file_name);
382                ret = -1;
383           }
384      }
385
386      return ret;
387 }
388
389
390 char *
391 root_filename_alloc(char *filename)
392 {
393         char *root_filename;
394         sprintf_alloc(&root_filename, "%s%s",
395                 (conf->offline_root ? conf->offline_root : ""), filename);
396         return root_filename;
397 }
398
399 static int
400 glob_errfunc(const char *epath, int eerrno)
401 {
402         if (eerrno == ENOENT)
403                 /* If leading dir does not exist, we get GLOB_NOMATCH. */
404                 return 0;
405
406         opkg_msg(ERROR, "glob failed for %s: %s\n", epath, strerror(eerrno));
407         return 0;
408 }
409
410 int
411 opkg_conf_init(void)
412 {
413         int i, glob_ret;
414         char *tmp, *tmp_dir_base, **tmp_val;
415         nv_pair_list_t tmp_dest_nv_pair_list;
416         glob_t globbuf;
417         char *etc_opkg_conf_pattern;
418
419         conf->restrict_to_default_dest = 0;
420         conf->default_dest = NULL;
421 #if defined(HAVE_PATHFINDER)
422         conf->check_x509_path = 1;
423 #endif
424
425         pkg_src_list_init(&conf->pkg_src_list);
426         pkg_dest_list_init(&conf->pkg_dest_list);
427         nv_pair_list_init(&conf->arch_list);
428         nv_pair_list_init(&tmp_dest_nv_pair_list);
429
430         if (!conf->offline_root)
431                 conf->offline_root = xstrdup(getenv("OFFLINE_ROOT"));
432
433         if (conf->conf_file) {
434                 struct stat st;
435                 if (stat(conf->conf_file, &st) == -1) {
436                         opkg_perror(ERROR, "Couldn't stat %s", conf->conf_file);
437                         goto err0;
438                 }
439                 if (opkg_conf_parse_file(conf->conf_file,
440                                 &conf->pkg_src_list, &tmp_dest_nv_pair_list))
441                         goto err1;
442         }
443
444         if (conf->offline_root)
445                 sprintf_alloc(&etc_opkg_conf_pattern, "%s/etc/opkg/*.conf", conf->offline_root);
446         else {
447                 const char *conf_file_dir = getenv("OPKG_CONF_DIR");
448                 if (conf_file_dir == NULL)
449                         conf_file_dir = OPKG_CONF_DEFAULT_CONF_FILE_DIR;
450                         sprintf_alloc(&etc_opkg_conf_pattern, "%s/*.conf", conf_file_dir);
451         }
452
453         memset(&globbuf, 0, sizeof(globbuf));
454         glob_ret = glob(etc_opkg_conf_pattern, 0, glob_errfunc, &globbuf);
455         if (glob_ret && glob_ret != GLOB_NOMATCH) {
456                 free(etc_opkg_conf_pattern);
457                 globfree(&globbuf);
458                 goto err1;
459         }
460
461         free(etc_opkg_conf_pattern);
462
463         for (i = 0; i < globbuf.gl_pathc; i++) {
464                 if (globbuf.gl_pathv[i])
465                         if (conf->conf_file &&
466                                         !strcmp(conf->conf_file, globbuf.gl_pathv[i]))
467                                 continue;
468                 if ( opkg_conf_parse_file(globbuf.gl_pathv[i],
469                         &conf->pkg_src_list, &tmp_dest_nv_pair_list)<0) {
470                         globfree(&globbuf);
471                         goto err1;
472                 }
473         }
474
475         globfree(&globbuf);
476
477         if (conf->offline_root)
478                 sprintf_alloc (&lock_file, "%s/%s", conf->offline_root, OPKGLOCKFILE);
479         else
480                 sprintf_alloc (&lock_file, "%s", OPKGLOCKFILE);
481
482         lock_fd = creat(lock_file, S_IRUSR | S_IWUSR | S_IRGRP);
483         if (lock_fd == -1) {
484                 opkg_perror(ERROR, "Could not create lock file %s", lock_file);
485                 goto err2;
486         }
487
488         if (lockf(lock_fd, F_TLOCK, (off_t)0) == -1) {
489                 opkg_perror(ERROR, "Could not lock %s", lock_file);
490                 if (close(lock_fd) == -1)
491                         opkg_perror(ERROR, "Couldn't close descriptor %d (%s)",
492                                 lock_fd, lock_file);
493                 goto err2;
494         }
495
496         if (conf->tmp_dir)
497                 tmp_dir_base = conf->tmp_dir;
498         else
499                 tmp_dir_base = getenv("TMPDIR");
500
501         sprintf_alloc(&tmp, "%s/%s",
502                 tmp_dir_base ? tmp_dir_base : OPKG_CONF_DEFAULT_TMP_DIR_BASE,
503                 OPKG_CONF_TMP_DIR_SUFFIX);
504         if (conf->tmp_dir)
505                 free(conf->tmp_dir);
506         conf->tmp_dir = mkdtemp(tmp);
507         if (conf->tmp_dir == NULL) {
508                 opkg_perror(ERROR, "Creating temp dir %s failed", tmp);
509                 goto err3;
510         }
511
512         pkg_hash_init();
513         hash_table_init("file-hash", &conf->file_hash, OPKG_CONF_DEFAULT_HASH_LEN);
514         hash_table_init("obs-file-hash", &conf->obs_file_hash, OPKG_CONF_DEFAULT_HASH_LEN/16);
515
516         if (conf->lists_dir == NULL)
517                 conf->lists_dir = xstrdup(OPKG_CONF_LISTS_DIR);
518
519         if (conf->offline_root) {
520                 sprintf_alloc(&tmp, "%s/%s", conf->offline_root, conf->lists_dir);
521                 free(conf->lists_dir);
522                 conf->lists_dir = tmp;
523         }
524
525         /* if no architectures were defined, then default all, noarch, and host architecture */
526         if (nv_pair_list_empty(&conf->arch_list)) {
527                 nv_pair_list_append(&conf->arch_list, "all", "1");
528                 nv_pair_list_append(&conf->arch_list, "noarch", "1");
529                 nv_pair_list_append(&conf->arch_list, HOST_CPU_STR, "10");
530         }
531
532         /* Even if there is no conf file, we'll need at least one dest. */
533         if (nv_pair_list_empty(&tmp_dest_nv_pair_list)) {
534         nv_pair_list_append(&tmp_dest_nv_pair_list,
535                         OPKG_CONF_DEFAULT_DEST_NAME,
536                         OPKG_CONF_DEFAULT_DEST_ROOT_DIR);
537         }
538
539         if (resolve_pkg_dest_list(&tmp_dest_nv_pair_list))
540                 goto err4;
541
542         nv_pair_list_deinit(&tmp_dest_nv_pair_list);
543
544         return 0;
545
546
547 err4:
548         free(conf->lists_dir);
549
550         pkg_hash_deinit();
551         hash_table_deinit(&conf->file_hash);
552         hash_table_deinit(&conf->obs_file_hash);
553
554         if (rmdir(conf->tmp_dir) == -1)
555                 opkg_perror(ERROR, "Couldn't remove dir %s", conf->tmp_dir);
556 err3:
557         if (lockf(lock_fd, F_ULOCK, (off_t)0) == -1)
558                 opkg_perror(ERROR, "Couldn't unlock %s", lock_file);
559
560         if (close(lock_fd) == -1)
561                 opkg_perror(ERROR, "Couldn't close descriptor %d (%s)",
562                                 lock_fd, lock_file);
563         if (unlink(lock_file) == -1)
564                 opkg_perror(ERROR, "Couldn't unlink %s", lock_file);
565 err2:
566         free(lock_file);
567 err1:
568         pkg_src_list_deinit(&conf->pkg_src_list);
569         pkg_dest_list_deinit(&conf->pkg_dest_list);
570         nv_pair_list_deinit(&conf->arch_list);
571
572         for (i=0; options[i].name; i++) {
573                 if (options[i].type == OPKG_OPT_TYPE_STRING) {
574                         tmp_val = (char **)options[i].value;
575                         if (*tmp_val) {
576                                 free(*tmp_val);
577                                 *tmp_val = NULL;
578                         }
579                 }
580         }
581 err0:
582         nv_pair_list_deinit(&tmp_dest_nv_pair_list);
583         if (conf->dest_str)
584                 free(conf->dest_str);
585         if (conf->conf_file)
586                 free(conf->conf_file);
587
588         return -1;
589 }
590
591 void
592 opkg_conf_deinit(void)
593 {
594         int i;
595         char **tmp;
596
597         rm_r(conf->tmp_dir);
598
599         free(conf->lists_dir);
600
601         if (conf->dest_str)
602                 free(conf->dest_str);
603
604         if (conf->conf_file)
605                 free(conf->conf_file);
606
607         pkg_src_list_deinit(&conf->pkg_src_list);
608         pkg_dest_list_deinit(&conf->pkg_dest_list);
609         nv_pair_list_deinit(&conf->arch_list);
610
611         for (i=0; options[i].name; i++) {
612                 if (options[i].type == OPKG_OPT_TYPE_STRING) {
613                         tmp = (char **)options[i].value;
614                         if (*tmp) {
615                                 free(*tmp);
616                                 *tmp = NULL;
617                         }
618                 }
619         }
620
621         if (conf->verbosity >= DEBUG) {
622                 hash_print_stats(&conf->pkg_hash);
623                 hash_print_stats(&conf->file_hash);
624                 hash_print_stats(&conf->obs_file_hash);
625         }
626
627         pkg_hash_deinit();
628         hash_table_deinit(&conf->file_hash);
629         hash_table_deinit(&conf->obs_file_hash);
630
631         if (lockf(lock_fd, F_ULOCK, (off_t)0) == -1)
632                 opkg_perror(ERROR, "Couldn't unlock %s", lock_file);
633
634         if (close(lock_fd) == -1)
635                 opkg_perror(ERROR, "Couldn't close descriptor %d (%s)",
636                                 lock_fd, lock_file);
637
638         if (unlink(lock_file) == -1)
639                 opkg_perror(ERROR, "Couldn't unlink %s", lock_file);
640
641         free(lock_file);
642 }