/*
 * Copyright (c) 2004 Michael Schroeder (mls@suse.de)
 *
 * This program is licensed under the BSD license, read LICENSE.BSD
 * for further information
 */

#include <fcntl.h>
#include <string.h>
#include <rpm/rpmlib.h>
#include <rpm/rpmts.h>
#include <rpm/rpmdb.h>

int main(int argc, char **argv)
{
  FD_t fdo;
  rpmts ts = NULL;
  rpmdbMatchIterator mi;
  Header h;
  int ret = 0;

  char *n;
  char *e;
  char *v;
  char *r;
  char *a = NULL;

  if (argc > 2 && !strcmp(argv[1], "-a"))
    {
      a = argv[2];
      argc -= 2;
      argv += 2;
    }
  if (argc != 2)
    {
      fprintf(stderr, "usage: rpmdumpheader package\n");
      exit(1);
    }
  n = argv[1];
  r = strrchr(n, '-');
  if (r == 0 || r == n)
    {
      fprintf(stderr, "package name must be in n-(e:)v-r format\n");
      exit(1);
    }
  *r++ = 0;
  v = strrchr(n, '-');
  if (v == 0 || v == n)
    {
      fprintf(stderr, "package name must be in n-(e:)v-r format\n");
      exit(1);
    }
  *v++ = 0;
  e = strchr(v, ':');
  if (e)
    {
      char *t;
      *e++ = 0;
      t = e;
      e = v;
      v = t;
    }

  rpmReadConfigFiles(NULL, NULL);

  ts = rpmtsCreate();
  
  mi = rpmtsInitIterator(ts, RPMTAG_NAME, n, 0);
  rpmdbSetIteratorRE(mi, RPMTAG_EPOCH, RPMMIRE_STRCMP, e);
  rpmdbSetIteratorRE(mi, RPMTAG_VERSION, RPMMIRE_STRCMP, v);
  rpmdbSetIteratorRE(mi, RPMTAG_RELEASE, RPMMIRE_STRCMP, r);
  if (a)
    rpmdbSetIteratorRE(mi, RPMTAG_ARCH, RPMMIRE_STRCMP, a);

  if ((h = rpmdbNextIterator(mi)) != NULL)
    {
      fdo = Fopen("-", "w.ufdio");
      headerWrite(fdo, h, HEADER_MAGIC_YES);
    }
  else
    {
      if (e)
	fprintf(stderr, "%s-%s:%s-%s%s%s is not installed\n", n, e, v, r, a ? "." : "", a ? a : "");
      else
	fprintf(stderr, "%s-%s-%s%s%s is not installed\n", n, v, r, a ? "." : "", a ? a : "");
      ret = 1;
    }
  mi = rpmdbFreeIterator(mi);
  ts = rpmtsFree(ts);
  exit(ret);
}