/*
 * Copyright (C) 2008  Kristian Høgsberg <krh@redhat.com>
 * Copyright (C) 2008  Red Hat, Inc
 * Copyright (C) 2009, 2011-2012, 2014  J. Ali Harlow <ali@juiblex.co.uk>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License along
 * with this program; if not, write to the Free Software Foundation, Inc.,
 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 */

#define _GNU_SOURCE

#include "config.h"

#include <stdlib.h>
#include <stddef.h>
#include <stdio.h>
#include <stdint.h>
#include <string.h>
#include <sys/stat.h>
#include <unistd.h>
#include <fcntl.h>
#include <dirent.h>
#include <limits.h>
#ifdef MSWIN_API
#include <windows.h>
#include <shlwapi.h>
#endif
#ifdef HAVE_CURL
#include <curl/curl.h>
#endif
#if !defined(HAVE_CURL) && !defined(MSWIN_API)
#include <ctype.h>
#endif
#include <fnmatch.h>
#include <errno.h>
#include <getopt.h>
#include "razor.h"

static const char system_repo_filename[] = "system.rzdb";
static const char next_repo_filename[] = "system-next.rzdb";
static const char rawhide_repo_filename[] = "rawhide.rzdb";
static const char *install_root = "";
static const char *repo_filename = system_repo_filename;
static const char *yum_url;

#ifndef FALSE
#define FALSE 0
#endif

#ifndef TRUE
#define TRUE (!FALSE)
#endif

#define ARRAY_SIZE(a) (sizeof(a) / sizeof((a)[0]))

static int
update_packages(struct razor_transaction *trans,
		struct razor_install_iterator *ii, struct razor_set *system,
		struct razor_set *next, struct razor_atomic *atomic,
		struct razor_relocations *relocations,
		enum razor_stage_type stage);
static int
update_system(struct razor_root *root, struct razor_relocations *relocations,
	      struct razor_transaction *trans, struct razor_set *next,
	      const char *verb);

static int command_help(int argc, char * const argv[]);

struct razor_option {
	char *name;
	int has_arg;
	int val;
	char *description;
	char *arg_description;
};

static void
razor_usage(const char *command, int n_options, struct razor_option *options,
	    const char *parameter_string)
{
	int i, help_printed = FALSE;
	char buf[19];

	printf("Usage: razor %s [options] %s\n", command, parameter_string);
	printf("(Specify the --help global option for a list of other "
	       "help options)\n");
	printf("\nOptions:\n");

	for(i = 0; i < n_options; i++) {
		if (!help_printed && strcmp(options[i].name, "help") > 0) {
			printf("  --help              "
			       "Show this help message and exit\n");
			help_printed = TRUE;
		}

		if (options[i].has_arg != no_argument)
			snprintf(buf, sizeof(buf), "%s=%s", options[i].name,
				 options[i].arg_description);
		else
			strncpy(buf, options[i].name, sizeof(buf));
		buf[18] = '\0';

		printf("  --%-18s%s\n", buf, options[i].description);
	}

	if (!help_printed)
		printf("  --help              "
		       "Show this help message and exit\n");
}

/**
 * razor_getopt:
 *
 *
 * Returns: The next option found or -2 on handled or -1 on error
 *          or 0 on end of option list.
 **/
static int
razor_getopt(int argc, char * const argv[], int n_options,
	     struct razor_option *options, const char *parameter_string,
	     const char **arg)
{
	int i, opt, do_help = 0, retval;
	struct option *longopts;

	longopts = calloc((n_options + 2), sizeof(*longopts));

	for(i = 0; i < n_options; i++) {
		longopts[i].name = options[i].name;
		longopts[i].has_arg = options[i].has_arg;
		longopts[i].flag = &retval;
		longopts[i].val = options[i].val;
	}

	longopts[i].name = "help";
	longopts[i].has_arg = no_argument;
	longopts[i].flag = &do_help;
	longopts[i].val = TRUE;

	opterr = 0;

	opt = getopt_long(argc, argv, "+", longopts, NULL);

	switch (opt)
	{
		case 0:
			if (do_help) {
				razor_usage(argv[0], n_options, options,
					    parameter_string);
				retval = -2;
			} else if (arg)
				*arg = optarg;
			break;

		case -1:
			retval = 0;
			break;

		default:
			razor_usage(argv[0], n_options, options,
				    parameter_string);
			retval = -1;
	}

	free(longopts);
	return retval;
}

static struct razor_package_iterator *
create_iterator_from_argv(struct razor_set *set, int argc, char * const argv[])
{
	struct razor_package_query *query;
	struct razor_package_iterator *iter;
	struct razor_package *package;
	const char *name, *pattern;
	int i, count;

	if (argc == 0)
		return razor_package_iterator_create(set);

	query = razor_package_query_create(set);

	for (i = 0; i < argc; i++) {
		iter = razor_package_iterator_create(set);
		pattern = argv[i];
		count = 0;
		while (razor_package_iterator_next(iter, &package,
						   RAZOR_DETAIL_NAME, &name,
						   RAZOR_DETAIL_LAST)) {
			if (fnmatch(pattern, name, 0) != 0)
				continue;

			razor_package_query_add_package(query, package);
			count++;
		}
		razor_package_iterator_destroy(iter);

		if (count == 0)
			fprintf(stderr,
				"no package matches \"%s\"\n", pattern);
	}

	return razor_package_query_finish(query);
}

#define LIST_PACKAGES_ONLY_NAMES 0x01

static void
list_packages(struct razor_package_iterator *iter, uint32_t flags)
{
	struct razor_package *package;
	const char *name, *version, *arch;

	while (razor_package_iterator_next(iter, &package,
					   RAZOR_DETAIL_NAME, &name,
					   RAZOR_DETAIL_VERSION, &version,
					   RAZOR_DETAIL_ARCH, &arch,
					   RAZOR_DETAIL_LAST)) {
		if (flags & LIST_PACKAGES_ONLY_NAMES)
			printf("%s\n", name);
		else
			printf("%s-%s.%s\n", name, version, arch);
	}
}

static int
command_list(int argc, char * const argv[])
{
	int opt;
	struct razor_package_iterator *pi;
	struct razor_error *error = NULL;
	struct razor_set *set;
	uint32_t flags = 0;
	enum {
		opt_only_names = 1,
	};
	static struct razor_option options[] = {
		{ .name = "only-names", .has_arg = no_argument,
		  .val = opt_only_names,
		  .description = "Only list package names" },
	};

	do {
		opt = razor_getopt(argc, argv, ARRAY_SIZE(options), options,
				   "pattern ...", NULL);
		switch (opt) {
			case -2:
				return 0;
			case -1:
				return 1;
			case opt_only_names:
				flags |= LIST_PACKAGES_ONLY_NAMES;
				break;
		}
	} while (opt);

	set = razor_root_open_read_only(install_root, &error);
	if (set == NULL) {
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
		return 1;
	}

	pi = create_iterator_from_argv(set, argc - optind, argv + optind);
	list_packages(pi, flags);
	razor_package_iterator_destroy(pi);
	razor_set_unref(set);

	return 0;
}

static void
list_package_properties(struct razor_set *set,
			struct razor_package *package, uint32_t type)
{
	struct razor_property_iterator *pi;
	struct razor_property *property;
	const char *name, *version;
	uint32_t flags;

	pi = razor_property_iterator_create(set, package);
	while (razor_property_iterator_next(pi, &property,
					    &name, &flags, &version)) {
		if ((flags & RAZOR_PROPERTY_TYPE_MASK) != type)
			continue;
		printf("%s", name);
		if (version[0] != '\0')
			printf(" %s %s",
			       razor_property_relation_to_string(property),
			       version);

		if (flags & ~(RAZOR_PROPERTY_RELATION_MASK | RAZOR_PROPERTY_TYPE_MASK)) {
			printf(" [");
			if (flags & RAZOR_PROPERTY_PRE)
				printf(" pre");
			if (flags & RAZOR_PROPERTY_POST)
				printf(" post");
			if (flags & RAZOR_PROPERTY_PREUN)
				printf(" preun");
			if (flags & RAZOR_PROPERTY_POSTUN)
				printf(" postun");
			printf(" ]");
		}
		printf("\n");
	}
	razor_property_iterator_destroy(pi);
}

static int
list_properties(int argc, char * const argv[], uint32_t type)
{
	struct razor_set *set;
	struct razor_error *error = NULL;
	struct razor_package *package;
	struct razor_package_iterator *pi;
	const char *name, *version, *arch;

	switch (razor_getopt(argc, argv, 0, NULL, "pattern ...", NULL)) {
		case -2:
			return 0;
		case -1:
			return 1;
	}

	set = razor_root_open_read_only(install_root, &error);
	if (set == NULL) {
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
		return 1;
	}

	pi = create_iterator_from_argv(set, argc - optind, argv + optind);
	while (razor_package_iterator_next(pi, &package,
					   RAZOR_DETAIL_NAME, &name,
					   RAZOR_DETAIL_VERSION, &version,
					   RAZOR_DETAIL_ARCH, &arch,
					   RAZOR_DETAIL_LAST))
		list_package_properties(set, package, type);
	razor_package_iterator_destroy(pi);
	razor_set_unref(set);

	return 0;
}

static int
command_list_requires(int argc, char * const argv[])
{
	return list_properties(argc, argv, RAZOR_PROPERTY_REQUIRES);
}

static int
command_list_provides(int argc, char * const argv[])
{
	return list_properties(argc, argv, RAZOR_PROPERTY_PROVIDES);
}

static int
command_list_obsoletes(int argc, char * const argv[])
{
	return list_properties(argc, argv, RAZOR_PROPERTY_OBSOLETES);
}

static int
command_list_conflicts(int argc, char * const argv[])
{
	return list_properties(argc, argv, RAZOR_PROPERTY_CONFLICTS);
}

static int
command_list_scripts(int argc, char * const argv[])
{
	struct razor_set *set;
	struct razor_error *error = NULL;
	struct razor_package *package;
	struct razor_package_iterator *pi;
	const char *preunprog, *preun, *postunprog, *postun;

	switch (razor_getopt(argc, argv, 0, NULL, "pattern ...", NULL)) {
		case -2:
			return 0;
		case -1:
			return 1;
	}

	set = razor_root_open_read_only(install_root, &error);
	if (set == NULL) {
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
		return 1;
	}

	pi = create_iterator_from_argv(set, argc - optind, argv + optind);
	while (razor_package_iterator_next(pi, &package,
					   RAZOR_DETAIL_PREUNPROG, &preunprog,
					   RAZOR_DETAIL_PREUN, &preun,
					   RAZOR_DETAIL_POSTUNPROG, &postunprog,
					   RAZOR_DETAIL_POSTUN, &postun,
					   RAZOR_DETAIL_LAST)) {
		if (preun && *preun) {
			printf("preuninstall scriptlet");
			if (preunprog && *preunprog)
				printf(" (using %s)",preunprog);
			printf(":\n%s\n",preun);
		}
		if (postun && *postun) {
			printf("postuninstall scriptlet");
			if (postunprog && *postunprog)
				printf(" (using %s)",postunprog);
			printf(":\n%s\n",postun);
		}
	}
	razor_package_iterator_destroy(pi);
	razor_set_unref(set);

	return 0;
}

static int
command_list_files(int argc, char * const argv[])
{
	struct razor_error *error = NULL;
	struct razor_set *set;

	switch (razor_getopt(argc, argv, 0, NULL, "[pattern]", NULL)) {
		case -2:
			return 0;
		case -1:
			return 1;
	}

	if (argc - optind > 1) {
		razor_usage(argv[0], 0, NULL, "[pattern]");
		return 1;
	}

	set = razor_root_open_read_only(install_root, &error);
	if (set == NULL) {
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
		return 1;
	}

	razor_set_list_files(set, argv[optind]);
	razor_set_unref(set);

	return 0;
}

static int
command_list_file_packages(int argc, char * const argv[])
{
	struct razor_error *error = NULL;
	struct razor_set *set;
	struct razor_package_iterator *pi;

	switch (razor_getopt(argc, argv, 0, NULL, "pattern", NULL)) {
		case -2:
			return 0;
		case -1:
			return 1;
	}

	if (argc - optind != 1) {
		razor_usage(argv[0], 0, NULL, "pattern");
		return 1;
	}

	set = razor_root_open_read_only(install_root, &error);
	if (set == NULL) {
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
		return 1;
	}

	pi = razor_package_iterator_create_for_file(set, argv[optind]);
	list_packages(pi, 0);
	razor_package_iterator_destroy(pi);

	razor_set_unref(set);

	return 0;
}

static int
command_list_package_files(int argc, char * const argv[])
{
	struct razor_error *error = NULL;
	struct razor_set *set;
	struct razor_package_iterator *pi;
	struct razor_package *package;
	const char *name, *version, *arch;

	switch (razor_getopt(argc, argv, 0, NULL, "pattern ...", NULL)) {
		case -2:
			return 0;
		case -1:
			return 1;
	}

	set = razor_root_open_read_only(install_root, &error);
	if (set == NULL) {
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
		return 1;
	}

	pi = create_iterator_from_argv(set, argc - optind, argv + optind);
	while (razor_package_iterator_next(pi, &package,
					   RAZOR_DETAIL_NAME, &name,
					   RAZOR_DETAIL_VERSION, &version,
					   RAZOR_DETAIL_ARCH, &arch,
					   RAZOR_DETAIL_LAST))
		razor_set_list_package_files(set, package);
	razor_package_iterator_destroy(pi);

	razor_set_unref(set);

	return 0;
}

static int
list_property_packages(const char *ref_name,
		       const char *ref_version,
		       uint32_t type)
{
	struct razor_error *error = NULL;
	struct razor_set *set;
	struct razor_property *property;
	struct razor_property_iterator *prop_iter;
	struct razor_package_iterator *pkg_iter;
	const char *name, *version;
	uint32_t flags;

	set = razor_root_open_read_only(install_root, &error);
	if (set == NULL) {
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
		return 1;
	}

	prop_iter = razor_property_iterator_create(set, NULL);
	while (razor_property_iterator_next(prop_iter, &property,
					    &name, &flags, &version)) {
		if (strcmp(ref_name, name) != 0)
			continue;
		if (ref_version &&
		    (flags & RAZOR_PROPERTY_RELATION_MASK) == RAZOR_PROPERTY_EQUAL &&
		    strcmp(ref_version, version) != 0)
			continue;
		if ((flags & RAZOR_PROPERTY_TYPE_MASK) != type)
			continue;

		pkg_iter =
			razor_package_iterator_create_for_property(set,
								   property);
		list_packages(pkg_iter, 0);
		razor_package_iterator_destroy(pkg_iter);
	}
	razor_property_iterator_destroy(prop_iter);

	razor_set_unref(set);

	return 0;
}

static int
command_what_requires(int argc, char * const argv[])
{
	switch (razor_getopt(argc, argv, 0, NULL, "name [version-release]",
			     NULL)) {
		case -2:
			return 0;
		case -1:
			return 1;
	}

	if (argc - optind < 1 || argc - optind > 2) {
		razor_usage(argv[0], 0, NULL, "name [version-release]");
		return 1;
	}

	return list_property_packages(argv[optind], argv[optind + 1],
				      RAZOR_PROPERTY_REQUIRES);
}

static int
command_what_provides(int argc, char * const argv[])
{
	switch (razor_getopt(argc, argv, 0, NULL, "name [version-release]",
			     NULL)) {
		case -2:
			return 0;
		case -1:
			return 1;
	}

	if (argc - optind < 1 || argc - optind > 2) {
		razor_usage(argv[0], 0, NULL, "name [version-release]");
		return 1;
	}

	return list_property_packages(argv[optind], argv[optind + 1],
				      RAZOR_PROPERTY_PROVIDES);
}

#ifndef HAVE_CURL
static int
download_local(const char *url, const char *file)
{
	FILE *wfp, *rfp;
	char buffer[256], *ptr, *local;
	size_t nb, n;

	local = razor_path_from_url(url);

	if (local == NULL) {
		fprintf(stderr,
			"%s: download manually (curl not available)\n",
			file);
		return -1;
	} else {
		rfp = fopen(local, "rb");
		if (rfp == NULL) {
			perror(local);
			free(local);
			return -1;
		}

		wfp = fopen(file, "wb");
		if (wfp == NULL) {
			perror(file);
			fclose(rfp);
			free(local);
			return -1;
		}

		while((nb = fread(buffer, 1, sizeof(buffer), rfp)) > 0) {
			ptr = buffer;
			while (nb > 0 && (n = fwrite(ptr, 1, nb, wfp)) > 0) {
				ptr += n;
				nb -= n;
			}

			if (nb != 0) {
				perror(file);
				fclose(wfp);
				fclose(rfp);
				unlink(file);
				free(local);
				return -1;
			}
		}

		if (ferror(rfp)) {
			perror(local);
			fclose(wfp);
			fclose(rfp);
			unlink(file);
			free(local);
			return -1;
		}

		fclose(wfp);
		fclose(rfp);
		free(local);
		return 0;
	}
}
#endif /* !HAVE_CURL */

#ifdef HAVE_CURL
static int
show_progress(void *clientp,
	      double dltotal, double dlnow, double ultotal, double ulnow)
{
	const char *file = clientp;

	if (!dlnow < dltotal)
		fprintf(stderr, "\rdownloading %s, %dkB/%dkB",
			file, (int) dlnow / 1024, (int) dltotal / 1024);

	return 0;
}

static int
download_with_curl(const char *url, const char *file)
{
	FILE *fp;
	CURL *curl;
	char error[256];
	CURLcode res;
	long response;

	curl = curl_easy_init();
	if (curl == NULL) {
		fprintf(stderr,
			"%s: download manually (curl failed)\n", file);
		return -1;
	}

	curl_easy_setopt(curl, CURLOPT_ERRORBUFFER, error);
	curl_easy_setopt(curl, CURLOPT_NOPROGRESS, 0);
	curl_easy_setopt(curl, CURLOPT_PROGRESSFUNCTION, show_progress);
	curl_easy_setopt(curl, CURLOPT_PROGRESSDATA, file);

	fp = fopen(file, "wb");
	if (fp == NULL) {
		perror(file);
		return -1;
	}
	curl_easy_setopt(curl, CURLOPT_WRITEDATA, fp);
	curl_easy_setopt(curl, CURLOPT_URL, url);
	res = curl_easy_perform(curl);
	fclose(fp);
	if (res != CURLE_OK) {
		fprintf(stderr, "curl error: %s\n", error);
		unlink(file);
		return -1;
	}
	res = curl_easy_getinfo(curl,
				CURLINFO_RESPONSE_CODE, &response);
	if (res != CURLE_OK) {
		fprintf(stderr, "curl error: %s\n", error);
		unlink(file);
		return -1;
	}
	if (response != 200) {
		fprintf(stderr, " - failed %ld\n", response);
		unlink(file);
		return -1;
	}
	fprintf(stderr, "\n");
	curl_easy_cleanup(curl);

	return 0;
}
#endif	/* HAVE_CURL */

static int
download_if_missing(const char *url, const char *file)
{
	struct stat buf;

	if (stat(file, &buf) >= 0)
		return 0;

#ifndef HAVE_CURL
	return download_local(url, file);
#else
	return download_with_curl(url, file);
#endif
}

#define YUM_URL "http://download.fedora.redhat.com" \
	"/pub/fedora/linux/development/i386/os"

static int
command_import_yum(int argc, char * const argv[])
{
	int retval;
	struct razor_set *set;
	struct razor_atomic *atomic;
	char buffer[512];

	switch (razor_getopt(argc, argv, 0, NULL, "", NULL)) {
		case -2:
			return 0;
		case -1:
			return 1;
	}

	if (argc - optind > 0) {
		razor_usage(argv[0], 0, NULL, "");
		return 1;
	}

	printf("downloading from '%s'.\n", yum_url);
	snprintf(buffer, sizeof buffer,
		 "%s/repodata/primary.xml.gz", yum_url);
	if (download_if_missing(buffer, "primary.xml.gz") < 0)
		return -1;
	snprintf(buffer, sizeof buffer,
		 "%s/repodata/filelists.xml.gz", yum_url);
	if (download_if_missing(buffer, "filelists.xml.gz") < 0)
		return -1;

	set = razor_set_create_from_yum();
	if (set == NULL)
		return 1;
	atomic = razor_atomic_open("Yum import repository");
	razor_set_write(set, atomic, rawhide_repo_filename, RAZOR_SECTION_ALL);
	retval = razor_atomic_commit(atomic);
	razor_set_unref(set);
	if (retval)
		fprintf(stderr, "%s\n", razor_atomic_get_error_msg(atomic));
	else
		printf("wrote %s\n", rawhide_repo_filename);
	razor_atomic_destroy(atomic);

	return retval;
}

#if HAVE_RPMLIB
static int
command_import_rpmdb(int argc, char * const argv[])
{
	struct razor_set *set;
	struct razor_root *root;
	struct razor_error *error = NULL;
	struct razor_atomic *atomic;
	int retval;

	switch (razor_getopt(argc, argv, 0, NULL, "", NULL)) {
		case -2:
			return 0;
		case -1:
			return 1;
	}

	if (argc - optind > 0) {
		razor_usage(argv[0], 0, NULL, "");
		return 1;
	}

	root = razor_root_open(install_root, &error);
	if (root == NULL) {
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
		return 1;
	}

	set = razor_set_create_from_rpmdb();
	if (set == NULL)
		return 1;

	atomic = razor_atomic_open("Import RPM database");

	retval = razor_root_update(root, set, atomic);

	if (retval)
		fprintf(stderr, "%s\n", razor_atomic_get_error_msg(atomic));

	razor_atomic_destroy(atomic);

	razor_root_close(root);

	return retval;
}
#endif

static int
mark_packages_for_update(struct razor_transaction *trans,
			 struct razor_set *set, const char *pattern)
{
	struct razor_package_iterator *pi;
	struct razor_package *package;
	const char *name;
	int matches = 0;

	pi = razor_package_iterator_create(set);
	while (razor_package_iterator_next(pi, &package,
					   RAZOR_DETAIL_NAME, &name,
					   RAZOR_DETAIL_LAST)) {
		if (pattern && fnmatch(pattern, name, 0) == 0) {
			razor_transaction_update_package(trans, package);
			matches++;
		}
	}
	razor_package_iterator_destroy(pi);

	return matches;
}

static int
mark_packages_for_removal(struct razor_transaction *trans,
			  struct razor_set *set, const char *pattern)
{
	struct razor_package_iterator *pi;
	struct razor_package *package;
	const char *name;
	int matches = 0;

	pi = razor_package_iterator_create(set);
	while (razor_package_iterator_next(pi, &package,
					   RAZOR_DETAIL_NAME, &name,
					   RAZOR_DETAIL_LAST)) {
		if (pattern && fnmatch(pattern, name, 0) == 0) {
			razor_transaction_remove_package(trans, package);
			matches++;
		}
	}
	razor_package_iterator_destroy(pi);

	return matches;
}

static int
command_remove(int argc, char * const argv[])
{
	struct razor_set *system, *upstream, *next;
	struct razor_transaction *trans;
	struct razor_error *error = NULL;
	struct razor_root *root;
	int i, retval;

	switch (razor_getopt(argc, argv, 0, NULL, "pattern ...", NULL)) {
		case -2:
			return 0;
		case -1:
			return 1;
	}

	root = razor_root_open(install_root, &error);
	if (root == NULL) {
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
		return 1;
	}

	system = razor_root_get_system_set(root);
	upstream = razor_set_create_without_root();
	trans = razor_transaction_create(system, upstream);
	razor_set_unref(upstream);
	for (i = optind; i < argc; i++) {
		if (mark_packages_for_removal(trans, system, argv[i]) == 0) {
			fprintf(stderr, "no match for %s\n", argv[i]);
			razor_transaction_destroy(trans);
			razor_root_close(root);
			return 1;
		}
	}

	razor_transaction_resolve(trans);
	retval = razor_transaction_describe(trans);
	if (retval) {
		razor_transaction_destroy(trans);
		razor_root_close(root);
		return 1;
	}

	next = razor_transaction_commit(trans);

	retval = update_system(root, NULL, trans, next, "Remove");

	razor_transaction_destroy(trans);
	razor_root_close(root);
	razor_set_unref(next);

	return retval;
}

static void
print_diff(enum razor_diff_action action,
	   struct razor_package *package,
	   const char *name,
	   const char *version,
	   const char *arch,
	   void *data)
{
	if (action == RAZOR_DIFF_ACTION_ADD)
		printf("install %s-%s.%s\n", name, version, arch);
	if (action == RAZOR_DIFF_ACTION_REMOVE)
		printf("remove %s-%s.%s\n", name, version, arch);
}

static int
command_diff(int argc, char * const argv[])
{
	struct razor_error *error = NULL;
	struct razor_set *set, *updated;

	switch (razor_getopt(argc, argv, 0, NULL, "", NULL)) {
		case -2:
			return 0;
		case -1:
			return 1;
	}

	if (argc - optind > 0) {
		razor_usage(argv[0], 0, NULL, "");
		return 1;
	}

	set = razor_root_open_read_only(install_root, &error);
	if (set)
		updated = razor_set_open(rawhide_repo_filename, 0, &error);
	else
		updated = NULL;
	if (updated == NULL) {
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
		if (set)
			razor_set_unref(set);
		return 1;
	}

	razor_set_diff(set, updated, print_diff, NULL);

	razor_set_unref(set);
	razor_set_unref(updated);

	return 0;
}

static int
command_import_rpms(int argc, char * const argv[])
{
	DIR *dir;
	struct dirent *de;
	struct razor_importer *importer;
	struct razor_set *set;
	struct razor_rpm *rpm;
	struct razor_error *error=NULL;
	struct razor_atomic *atomic;
	int len, imported_count = 0;
	char filename[256];
	const char *dirname;
	int retval;

	switch (razor_getopt(argc, argv, 0, NULL, "dir", NULL)) {
		case -2:
			return 0;
		case -1:
			return 1;
	}

	if (argc - optind != 1) {
		razor_usage(argv[0], 0, NULL, "dir");
		return 1;
	}

	dirname = argv[optind];

	dir = opendir(dirname);
	if (dir == NULL) {
		fprintf(stderr, "couldn't read dir %s\n", dirname);
		return -1;
	}

	importer = razor_importer_create();

	while (de = readdir(dir), de != NULL) {
		len = strlen(de->d_name);
		if (len < 5 || strcmp(de->d_name + len - 4, ".rpm") != 0)
			continue;
		snprintf(filename, sizeof filename,
			 "%s/%s", dirname, de->d_name);
		rpm = razor_rpm_open(filename, &error);
		if (rpm == NULL) {
			fprintf(stderr, "%s\n", razor_error_get_msg(error));
			razor_error_free(error);
			error=NULL;
			continue;
		}
		if (razor_importer_add_rpm(importer, rpm)) {
			fprintf(stderr, "couldn't import %s\n", filename);
			break;
		}
		razor_rpm_close(rpm);

		printf("\rimporting %d", ++imported_count);
		fflush(stdout);
	}

	if (de != NULL) {
		razor_importer_destroy(importer);
		return -1;
	}

	printf("\nsaving\n");
	set = razor_importer_finish(importer);

	atomic = razor_atomic_open("Update system database");
	razor_set_write(set, atomic, repo_filename, RAZOR_SECTION_ALL);
	razor_set_unref(set);
	retval = razor_atomic_commit(atomic);
	if (retval)
		fprintf(stderr, "%s\n", razor_atomic_get_error_msg(atomic));
	else
		printf("wrote %s\n", repo_filename);
	razor_atomic_destroy(atomic);

	return retval;
}

static char *
rpm_filename(const char *name, const char *version, const char *arch)
{
 	const char *v;
 
 	/* Skip epoch */
	v = strchr(version, ':');
 	if (v != NULL)
 		v = v + 1;
 	else
		v = version;

	return razor_concat(name, "-", v, ".", arch, ".rpm", NULL);
}

static int
download_packages(struct razor_set *system, struct razor_set *next)
{
	struct razor_install_iterator *ii;
	struct razor_package *package;
	enum razor_install_action action;
	const char *name, *version, *arch;
	char *file, *url, *s;
	int errors = 0, count;

	ii = razor_set_create_install_iterator(system, next);
	while (razor_install_iterator_next(ii, &package, &action, &count)) {
		if (action != RAZOR_INSTALL_ACTION_ADD)
			continue;

		razor_package_get_details(next, package,
					  RAZOR_DETAIL_NAME, &name,
					  RAZOR_DETAIL_VERSION, &version,
					  RAZOR_DETAIL_ARCH, &arch,
					  RAZOR_DETAIL_LAST);
		
		s = rpm_filename(name, version, arch);
		url = razor_concat(yum_url, "/Packages/", s, NULL);
		file = razor_concat("rpms/", s, NULL);
		free(s);
		if (download_if_missing(url, file) < 0)
			errors++;
		free(file);
		free(url);
	}
	razor_install_iterator_destroy(ii);

	if (errors > 0) {
		fprintf(stderr, "failed to download %d packages\n", errors);
                return -1;
        }

	return 0;
}

static struct razor_set *
relocate_packages(struct razor_set *set, struct razor_atomic *atomic,
		  struct razor_relocations *relocations)
{
	int i;
	struct razor_importer *importer;
	struct razor_property_iterator *prop_iter;
	struct razor_package_iterator *pkg_iter;
 	struct razor_file_iterator *file_iter;
 	struct razor_package *package;
	struct razor_property *property;
	struct razor_rpm *rpm;
	struct razor_error *error=NULL;
	const char *name, *version, *arch, *summary, *desc, *url, *license;
	const char *preunprog, *preun, *postunprog, *postun;
	const char *install_prefix;
	const char *const *prefixes;
	char *file, *s;
	uint32_t flags;

	importer = razor_importer_create();
	pkg_iter = razor_package_iterator_create(set);

	while (razor_package_iterator_next(pkg_iter, &package,
					   RAZOR_DETAIL_NAME, &name,
					   RAZOR_DETAIL_VERSION, &version,
					   RAZOR_DETAIL_ARCH, &arch,
					   RAZOR_DETAIL_SUMMARY, &summary,
					   RAZOR_DETAIL_DESCRIPTION, &desc,
					   RAZOR_DETAIL_URL, &url,
					   RAZOR_DETAIL_LICENSE, &license,
					   RAZOR_DETAIL_PREUNPROG, &preunprog,
					   RAZOR_DETAIL_PREUN, &preun,
					   RAZOR_DETAIL_POSTUNPROG, &postunprog,
					   RAZOR_DETAIL_POSTUN, &postun,
					   RAZOR_DETAIL_LAST)) {
		s = rpm_filename(name, version, arch);
		file = razor_concat("rpms/", s, NULL);
		free(s);
		rpm = razor_rpm_open(file, &error);
		free(file);
		if (rpm == NULL) {
			razor_atomic_propagate_error(atomic, error, NULL);
			razor_error_free(error);
			razor_package_iterator_destroy(pkg_iter);
			razor_importer_destroy(importer);
			return NULL;
		}

		razor_relocations_set_rpm(relocations, rpm);

		razor_importer_begin_package(importer, name, version, arch);
		razor_importer_add_details(importer,
					   summary, desc, url, license);

		razor_rpm_get_details(rpm, RAZOR_DETAIL_PREFIXES, &prefixes,
				      RAZOR_DETAIL_LAST);
		for (i = 0; prefixes && prefixes[i]; i++) {
			install_prefix = razor_relocations_apply(relocations,
								 prefixes[i]);
			razor_importer_add_install_prefix(importer,
							  install_prefix);
		}

		razor_rpm_close(rpm);

		prop_iter = razor_property_iterator_create(set, package);
		while (razor_property_iterator_next(prop_iter, &property,
						    &name, &flags, &version))
			razor_importer_add_property(importer,
						    name, flags, version);
		razor_property_iterator_destroy(prop_iter);

		file_iter = razor_file_iterator_create(set, package, 0);
		while (razor_file_iterator_next(file_iter, &name)) {
			name = razor_relocations_apply(relocations, name);
			razor_importer_add_file(importer, name);
		}
		razor_file_iterator_destroy(file_iter);

		razor_importer_add_script(importer, RAZOR_PROPERTY_PREUN,
					  preunprog, preun);
		razor_importer_add_script(importer, RAZOR_PROPERTY_POSTUN,
					  postunprog, postun);

		razor_importer_finish_package(importer);
	}

	razor_package_iterator_destroy(pkg_iter);
	return razor_importer_finish(importer);
}

static int
install_package(struct razor_transaction *trans, struct razor_set *set,
		struct razor_atomic *atomic, struct razor_package *package,
		struct razor_relocations *relocations, int install_count,
		enum razor_stage_type stage)
{
	int retval;
	const char *name, *version, *arch;
	char *file, *s;
	struct razor_rpm *rpm;
	struct razor_error *error=NULL;

	razor_package_get_details(set, package,
				  RAZOR_DETAIL_NAME, &name,
				  RAZOR_DETAIL_VERSION, &version,
				  RAZOR_DETAIL_ARCH, &arch,
				  RAZOR_DETAIL_LAST);

	if (stage & RAZOR_STAGE_SCRIPTS_PRE)
		printf("install %s-%s\n", name, version);

	s = rpm_filename(name, version, arch);
	file = razor_concat("rpms/", s, NULL);
	free(s);
	rpm = razor_rpm_open(file, &error);
	free(file);
	if (rpm == NULL) {
		razor_atomic_propagate_error(atomic, error, NULL);
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
		return -1;
	}
	if (relocations)
		razor_rpm_set_relocations(rpm, relocations);
	razor_transaction_fixup_package(trans, package, rpm);
	retval = razor_rpm_install(rpm, atomic, install_root, install_count,
				   stage);
	if (retval < 0) {
		s = rpm_filename(name, version, arch);
		fprintf(stderr, "%s: %s\n", s,
			razor_atomic_get_error_msg(atomic));
		free(s);
	}
	razor_rpm_close(rpm);
	return retval;
}

/*
 * Returns 0 on success, -1 on failure and 1 if a RAZOR_INSTALL_ACTION_COMMIT
 * is met (in which case the action is consumed).
 */
static int
update_packages(struct razor_transaction *trans,
		struct razor_install_iterator *ii, struct razor_set *system,
		struct razor_set *next, struct razor_atomic *atomic,
		struct razor_relocations *relocations,
		enum razor_stage_type stage)
{
	struct razor_package *package;
	enum razor_install_action action;
	int retval = 0, count;

	while (!retval && razor_install_iterator_next(ii, &package, &action,
						      &count)) {
		if (action == RAZOR_INSTALL_ACTION_ADD) {
			if (install_package(trans, next, atomic, package,
					    relocations, count, stage))
				retval = -1;
		} else if (action == RAZOR_INSTALL_ACTION_REMOVE) {
			if (razor_package_remove(system, next, atomic, package,
						 install_root, count, stage))
				retval = -1;
		} else if (action == RAZOR_INSTALL_ACTION_COMMIT)
				retval = 1;
	}

	return retval;
}

static int
update_system(struct razor_root *root, struct razor_relocations *relocations,
	      struct razor_transaction *trans, struct razor_set *next,
	      const char *verb)
{
	struct razor_set *system, *set;
	struct razor_atomic *atomic;
	struct razor_install_iterator *ii;
	int r, retval = 0;
	char *description;
	size_t pos;

	description = razor_concat(verb, " packages", NULL);

	system = razor_set_ref(razor_root_get_system_set(root));

	ii = razor_set_create_install_iterator(system, next);

	do {
		pos = razor_install_iterator_tell(ii);

		atomic = razor_atomic_open(description);

		r = update_packages(trans, ii, system, next, atomic,
				    relocations, RAZOR_STAGE_SCRIPTS_PRE);
		if (r < 0) {
			fprintf(stderr, "%s aborted\n", verb);
			retval = r;
		} else {
			razor_install_iterator_seek(ii, pos);
			r = update_packages(trans, ii, system, next, atomic,
					    relocations, RAZOR_STAGE_FILES);

			if (r == 1) {
				set = razor_install_iterator_commit_set(ii);
				razor_root_update(root, set, atomic);
				razor_set_unref(set);
			} else if (r == 0)
				razor_root_update(root, next, atomic);

			retval = razor_atomic_commit(atomic);
			if (retval)
				fprintf(stderr, "%s\n",
					razor_atomic_get_error_msg(atomic));
			else {
				razor_install_iterator_seek(ii, pos);
				update_packages(trans, ii, system, next,
						atomic, relocations,
						RAZOR_STAGE_SCRIPTS_POST);
			}
		}

		razor_atomic_destroy(atomic);
	} while(!retval && r == 1);

	razor_set_unref(system);

	free(description);

	return retval;
}

static int
command_install_or_update(int argc, char * const argv[], int do_update)
{
	struct razor_relocations *relocations = NULL;
	struct razor_set *system, *upstream, *next, *set;
	struct razor_transaction *trans;
	struct razor_error *error = NULL;
	struct razor_atomic *atomic;
	struct razor_root *root;
	int opt, i, retval = 0, len, dependencies = 1;
	char *oldpath;
	const char *arg;
	enum {
		opt_no_dependencies = 1,
		opt_relocate = 2,
	};
	static struct razor_option options[] = {
		{ .name = "no-dependencies", .has_arg = no_argument,
		  .val = opt_no_dependencies,
		  .description = "Do not verify package dependencies" },
		{ .name = "relocate", .has_arg = required_argument,
		  .val = opt_relocate,
		  .description = "Relocate files from path OLD to NEW",
		  .arg_description = "OLD=NEW" },
	};

	do {
		opt = razor_getopt(argc, argv, ARRAY_SIZE(options), options,
				   "rpm ...", &arg);
		switch (opt) {
			case -2:
				return 0;
			case -1:
				return 1;
			case opt_no_dependencies:
				dependencies = 0;
				break;
			case opt_relocate:
				if (strchr(arg, '=') == NULL) {
					razor_usage(argv[0],
						    ARRAY_SIZE(options),
						    options, "rpm ...");
					return 1;
				}
				len = strchr(arg, '=') - arg;
				oldpath = malloc(len + 1);
				strncpy(oldpath, arg, len);
				oldpath[len] = '\0';
				if (!relocations)
				       relocations = razor_relocations_create();
				razor_relocations_add(relocations, oldpath,
						      arg + len + 1);
				free(oldpath);
				break;
		}
	} while (opt);

	upstream = razor_set_open(rawhide_repo_filename, 0, &error);
	if (upstream == NULL) {
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
		return 1;
	}

	if (do_update)
		atomic = razor_atomic_open("Update packages");
	else
		atomic = razor_atomic_open("Install packages");

	if (relocations) {
		set = relocate_packages(upstream, atomic, relocations);
		if (set == NULL) {
			fprintf(stderr, "%s\n",
				razor_atomic_get_error_msg(atomic));
			razor_atomic_destroy(atomic);
			razor_set_unref(upstream);
			return 1;
		}
		razor_set_unref(upstream);
		upstream = set;
	}

	root = razor_root_open(install_root, &error);
	if (root == NULL) {
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
		razor_atomic_destroy(atomic);
		razor_set_unref(upstream);
		if (relocations)
			razor_relocations_destroy(relocations);
		return 1;
	}

	system = razor_root_get_system_set(root);
	trans = razor_transaction_create(system, upstream);

	if (optind == argc && do_update)
		razor_transaction_update_all(trans);
	for (i = optind; i < argc; i++) {
		if (do_update &&
		    mark_packages_for_update(trans, system, argv[i]))
			continue;
		if (mark_packages_for_update(trans, upstream, argv[i]) == 0) {
			fprintf(stderr, "no package matched %s\n", argv[i]);
			razor_transaction_destroy(trans);
			razor_root_close(root);
			razor_set_unref(upstream);
			razor_atomic_destroy(atomic);
			if (relocations)
				razor_relocations_destroy(relocations);
			return 1;
		}
	}

	if (dependencies) {
		razor_transaction_resolve(trans);
		if (razor_transaction_describe(trans) > 0) {
			razor_transaction_destroy(trans);
			razor_set_unref(upstream);
			razor_root_close(root);
			razor_atomic_destroy(atomic);
			if (relocations)
				razor_relocations_destroy(relocations);
			return 1;
		}
	}

	if (razor_atomic_create_dir(atomic, "rpms",
				    S_IRWXU | S_IRWXG | S_IRWXO) ||
	    razor_atomic_commit(atomic)) {
		fprintf(stderr, "%s\n", razor_atomic_get_error_msg(atomic));
		razor_transaction_destroy(trans);
		razor_set_unref(upstream);
		razor_root_close(root);
		razor_atomic_destroy(atomic);
		if (relocations)
			razor_relocations_destroy(relocations);
		return 1;
	}

	razor_atomic_destroy(atomic);

	next = razor_transaction_commit(trans);

	if (download_packages(system, next) < 0) {
		razor_set_unref(next);
		razor_transaction_destroy(trans);
		razor_set_unref(upstream);
		razor_root_close(root);
		if (relocations)
			razor_relocations_destroy(relocations);
                return 1;
        }

	retval = update_system(root, relocations, trans, next,
			       do_update ? "Update" : "Install");

	razor_set_unref(upstream);
	razor_root_close(root);

	razor_transaction_destroy(trans);
	if (relocations)
		razor_relocations_destroy(relocations);

	razor_set_unref(next);

	return retval;
}

static int
command_update(int argc, char * const argv[])
{
	return command_install_or_update(argc, argv, 1);
}

static int
command_install(int argc, char * const argv[])
{
	return command_install_or_update(argc, argv, 0);
}

static int
command_init(int argc, char * const argv[])
{
	int retval;
	struct razor_error *error = NULL;

	switch (razor_getopt(argc, argv, 0, NULL, "", NULL)) {
		case -2:
			return 0;
		case -1:
			return 1;
	}

	if (argc - optind > 0) {
		razor_usage(argv[0], 0, NULL, "");
		return 1;
	}

	retval = razor_root_create(install_root, &error);
	if (retval) {
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
	} else
		printf("Created install root\n");

	return retval;
}

static int
command_download(int argc, char * const argv[])
{
	struct razor_error *error = NULL;
	struct razor_atomic *atomic;
	struct razor_set *set;
	struct razor_package_iterator *pi;
	struct razor_package *package;
	const char *pattern, *name, *version, *arch;
	char url[256], file[256];
	int matches = 0;

	switch (razor_getopt(argc, argv, 0, NULL, "[pattern]", NULL)) {
		case -2:
			return 0;
		case -1:
			return 1;
	}

	if (argc - optind > 1) {
		razor_usage(argv[0], 0, NULL, "[pattern]");
		return 1;
	}

	pattern = argv[optind];

	set = razor_set_open(rawhide_repo_filename, 0, &error);
	if (set == NULL) {
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
		return 1;
	}

	atomic = razor_atomic_open("Download packages");

	if (razor_atomic_create_dir(atomic, "rpms", 
				    S_IRWXU | S_IRWXG | S_IRWXO)) {
		fprintf(stderr, "%s\n", razor_atomic_get_error_msg(atomic));
		razor_atomic_destroy(atomic);
		return 1;
	}

	if (razor_atomic_commit(atomic)) {
		fprintf(stderr, "%s\n", razor_atomic_get_error_msg(atomic));
		razor_atomic_destroy(atomic);
		return 1;
	}
	razor_atomic_destroy(atomic);

	pi = razor_package_iterator_create(set);
	while (razor_package_iterator_next(pi, &package,
					   RAZOR_DETAIL_NAME, &name,
					   RAZOR_DETAIL_VERSION, &version,
					   RAZOR_DETAIL_ARCH, &arch,
					   RAZOR_DETAIL_LAST)) {
		if (pattern && fnmatch(pattern, name, 0) != 0)
			continue;

		matches++;
		snprintf(url, sizeof url,
			 "%s/Packages/%s-%s.%s.rpm",
			 yum_url, name, version, arch);
		snprintf(file, sizeof file,
			 "rpms/%s-%s.%s.rpm", name, version, arch);
		download_if_missing(url, file);
	}
	razor_package_iterator_destroy(pi);
	razor_set_unref(set);

	if (matches == 0)
		fprintf(stderr, "no packages matched \"%s\"\n", pattern);
	else if (matches == 1)
		fprintf(stderr, "downloaded 1 package\n");
	else
		fprintf(stderr, "downloaded %d packages\n", matches);

	return 0;
}

static int
command_info(int argc, char * const argv[])
{
	struct razor_error *error = NULL;
	struct razor_set *set;
	struct razor_package_iterator *pi;
	struct razor_package *package;
	const char *pattern, *name, *version, *arch;
	const char *summary, *description, *url, *license;

	switch (razor_getopt(argc, argv, 0, NULL, "[pattern]", NULL)) {
		case -2:
			return 0;
		case -1:
			return 1;
	}

	if (argc - optind > 1) {
		razor_usage(argv[0], 0, NULL, "[pattern]");
		return 1;
	}

	pattern = argv[optind];

	set = razor_root_open_read_only(install_root, &error);
	if (set == NULL) {
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
		return 1;
	}

	pi = razor_package_iterator_create(set);
	while (razor_package_iterator_next(pi, &package,
					   RAZOR_DETAIL_NAME, &name,
					   RAZOR_DETAIL_VERSION, &version,
					   RAZOR_DETAIL_ARCH, &arch,
					   RAZOR_DETAIL_LAST)) {
		if (pattern && fnmatch(pattern, name, 0) != 0)
			continue;

		razor_package_get_details (set, package,
					   RAZOR_DETAIL_SUMMARY, &summary,
					   RAZOR_DETAIL_DESCRIPTION, &description,
					   RAZOR_DETAIL_URL, &url,
					   RAZOR_DETAIL_LICENSE, &license,
					   RAZOR_DETAIL_LAST);

		printf ("Name:        %s\n", name);
		printf ("Arch:        %s\n", arch);
		printf ("Version:     %s\n", version);
		printf ("URL:         %s\n", url);
		printf ("License:     %s\n", license);
		printf ("Summary:     %s\n", summary);
		printf ("Description:\n");
		printf ("%s\n", description);
		printf ("\n");
	}
	razor_package_iterator_destroy(pi);
	razor_set_unref(set);

	return 0;
}

#define SEARCH_MAX 256

static int
command_search(int argc, char * const argv[])
{
	struct razor_error *error = NULL;
	struct razor_set *set;
	struct razor_package_iterator *pi;
	struct razor_package *package;
	char pattern[SEARCH_MAX];
	const char *name, *version, *arch;
	const char *summary, *description, *url, *license;

	switch (razor_getopt(argc, argv, 0, NULL, "pattern", NULL)) {
		case -2:
			return 0;
		case -1:
			return 1;
	}

	if (argc != 2) {
		razor_usage(argv[0], 0, NULL, "pattern");
		return 1;
	}

	snprintf(pattern, sizeof pattern, "*%s*", argv[1]);

	set = razor_set_open(rawhide_repo_filename, 0, &error);
	if (set == NULL) {
		fprintf(stderr, "%s\n", razor_error_get_msg(error));
		razor_error_free(error);
		return 1;
	}

	pi = razor_package_iterator_create(set);
	while (razor_package_iterator_next(pi, &package,
					   RAZOR_DETAIL_NAME, &name,
					   RAZOR_DETAIL_VERSION, &version,
					   RAZOR_DETAIL_ARCH, &arch,
					   RAZOR_DETAIL_SUMMARY, &summary,
					   RAZOR_DETAIL_DESCRIPTION, &description,
					   RAZOR_DETAIL_URL, &url,
					   RAZOR_DETAIL_LICENSE, &license,
					   RAZOR_DETAIL_LAST)) {
		if (!fnmatch(pattern, name, FNM_CASEFOLD) ||
		    !fnmatch(pattern, url, FNM_CASEFOLD) ||
		    !fnmatch(pattern, summary, FNM_CASEFOLD) ||
		    !fnmatch(pattern, description, FNM_CASEFOLD))
			printf("%s-%s.%s: %s\n", name, version, arch, summary);
	}
	razor_package_iterator_destroy(pi);
	razor_set_unref(set);

	return 0;
}

static struct {
	const char *name;
	const char *description;
	int (*func)(int argc, char * const argv[]);
} razor_commands[] = {
	{ "diff", "Show diff between two package sets", command_diff },
	{ "download", "Download packages", command_download },
	{ "help", "List available commands", command_help },
#if HAVE_RPMLIB
	{ "import-rpmdb", "Import the system rpm database",
	  command_import_rpmdb },
#endif
	{ "import-rpms", "Import rpms from the given directory",
	  command_import_rpms },
	{ "import-yum", "Import yum metadata files", command_import_yum },
	{ "info", "Display package details", command_info },
	{ "init", "Init razor root", command_init },
	{ "install", "Install rpm", command_install },
	{ "list", "List all packages", command_list },
	{ "list-conflicts", "List all conflicts for the given package",
	  command_list_conflicts },
	{ "list-file-packages", "List packages owning file",
	  command_list_file_packages },
	{ "list-files", "List files for package set", command_list_files },
	{ "list-obsoletes", "List all obsoletes for the given package",
	  command_list_obsoletes },
	{ "list-package-files", "List files in package",
	  command_list_package_files },
	{ "list-provides", "List all provides for the given package",
	  command_list_provides },
	{ "list-requires", "List all requires for the given package",
	  command_list_requires },
	{ "list-scripts", "List all scripts for the given package",
	  command_list_scripts },
	{ "remove", "Remove specified packages", command_remove },
	{ "search", "Search package details", command_search },
	{ "update", "Update all or specified packages", command_update },
	{ "what-provides", "List the packages that have the given provides",
	  command_what_provides },
	{ "what-requires", "List the packages that have the given requires",
	  command_what_requires },
};

static int
command_help(int argc, char * const argv[])
{
	int i;

	printf("Available commands:\n");
	for (i = 0; i < ARRAY_SIZE(razor_commands); i++)
		printf("  %-20s%s\n",
		       razor_commands[i].name, razor_commands[i].description);
	printf("\nType \"razor --help\" for help about global options\n"
	       "or \"razor <command> --help\" for help about a particular "
	       "command's options.\n");

	return 0;
}

int
main(int argc, char *argv[])
{
	char *repo, *root;
	int i, opt, main_optind;
	int do_help_commands = 0;
	enum {
		opt_database = 1,
		opt_help,
		opt_help_commands,
		opt_root,
		opt_url,
	};
	struct option options[] = {
		{ .name = "database", .has_arg = required_argument,
		  .val = opt_database },
		{ .name = "help", .has_arg = no_argument, .val = opt_help },
		{ .name = "help-commands", .has_arg = no_argument,
		  .flag = &do_help_commands, .val = TRUE },
		{ .name = "root", .has_arg = required_argument,
		  .val = opt_root },
		{ .name = "url", .has_arg = required_argument, .val = opt_url },
		{ 0, }
	};

	repo = getenv("RAZOR_REPO");
	if (repo != NULL)
		repo_filename = repo;

	root = getenv("RAZOR_ROOT");
	if (root != NULL)
		install_root = root;

	yum_url = getenv("YUM_URL");
	if (yum_url == NULL)
		yum_url = YUM_URL;

	if (getenv("RAZOR_NO_ROOT_NAME_CHECKS"))
		razor_disable_root_name_checks(1);

	optind = 1;
	opterr = 0;

	while ((opt = getopt_long(argc, argv, "+", options, NULL)) != -1) {
		switch (opt) {
			case opt_database:
				razor_set_database_path(optarg);
				break;
			case opt_help:
			default:
				printf("Usage: razor [global-options] command "
				       "[command-options-and-arguments]\n\n");
				printf("Options:\n");
				printf("  --help              "
				       "Show this help message and exit\n");
				printf("  --help-commands     List commands\n");
				printf("  --database=PATH     "
				       "Use alternative database\n");
				printf("  --root=ROOT         "
				       "Use ROOT as top level directory\n");
				printf("  --url=URL           "
				       "Use URL as upstream repository\n");
				return opt != opt_help;
			case opt_root:
				install_root = optarg;
				break;
			case opt_url:
				yum_url = optarg;
				break;
			case 0:
				break;
		}
	}

	main_optind = optind;
	optind = 1;

	if (do_help_commands || argc - main_optind < 1) {
		command_help(argc - main_optind, argv + main_optind);
		return 1;
	}

	for (i = 0; i < ARRAY_SIZE(razor_commands); i++)
		if (strcmp(razor_commands[i].name, argv[main_optind]) == 0)
			return razor_commands[i].func(argc - main_optind,
						      argv + main_optind);

	command_help(argc - main_optind, argv + main_optind);
	return 1;
}