remove unneeded stuff anymore

5 files changed, 0 insertions, 703 deletions

diff --git a/grpmi/grpmi.pl b/grpmi/grpmi.pl
deleted file mode 100755
index d72a4615..00000000
--- a/grpmi/grpmi.pl
+++ /dev/null
@@ -1,219 +0,0 @@
-#!/usr/bin/perl
-#*****************************************************************************
-# 
-#  Copyright (c) 2002 Guillaume Cottenceau (gc at mandrakesoft dot com)
-# 
-#  This program is free software; you can redistribute it and/or modify
-#  it under the terms of the GNU General Public License version 2, as
-#  published by the Free Software Foundation.
-# 
-#  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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-# 
-#*****************************************************************************
-
-use strict;
-use MDK::Common;
-
-use curl_download;
-use grpmi_rpm;
-
-use lib qw(/usr/lib/libDrakX);
-use ugtk2 qw(:all);
-$::isStandalone = 1;
-
-@ARGV or die "usage: ", basename($0), " [--no-verify-rpm] <[-noupgrade] PACKAGE>...\n";
-
-c::bind_textdomain_codeset('grpmi', 'UTF8');
-sub translate {
-    my ($s) = @_;
-    my $r = $s ? c::dgettext('grpmi', $s) : '';
-    c::set_tagged_utf8($r);
-    $r;
-}
-sub sprintf_fixutf8 {
-    my $need_upgrade;
-    $need_upgrade |= to_bool(c::is_tagged_utf8($_)) + 1 foreach @_;
-    if ($need_upgrade == 3) { c::upgrade_utf8($_) foreach @_ };
-    sprintf shift, @_;
-}
-sub N {
-    my $s = shift @_; my $t = translate($s);
-    sprintf_fixutf8 $t, @_;
-}
-sub utf8ize { c::set_tagged_utf8($_[0]); $_[0] }
-sub mexit { ugtk2::exit(undef, @_) }
-
-sub interactive_msg {
-    my ($title, $contents, $yesno) = @_;
-    my $d = ugtk2->new($title);
-    my $lines; $lines++ while $contents =~ /\n/g;
-    my $l = Gtk2::Label->new($contents);
-    gtkadd($d->{window},
-	   gtkpack_(Gtk2::VBox->new(0,5),
-		    1, $lines > 20 ? gtkset_size_request(create_scrolled_window($l), 300, 300) : $l,
-		    0, gtkpack(create_hbox(),
-	       ref($yesno) eq 'ARRAY' ? map {
-		       my $label = $_;
-		       gtksignal_connect(Gtk2::Button->new($label), clicked => sub { $d->{retval} = $label; Gtk2->main_quit })
-		   } @$yesno
-	       : $yesno ? (gtksignal_connect(Gtk2::Button->new(N("Yes")), clicked => sub { $d->{retval} = 1; Gtk2->main_quit }),
-			   gtksignal_connect(Gtk2::Button->new(N("No")), clicked => sub { $d->{retval} = 0; Gtk2->main_quit }))
-	       : gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => sub { Gtk2->main_quit })
-			      )));
-    $l->set_justify('left');
-    $d->main;
-    return $d->{retval};
-}
-
-$> and interactive_msg(N("Error..."),
-		       N("You need to be root to install packages, sorry.")), mexit -1;
-
-grpmi_rpm::init_rcstuff() and interactive_msg(N("RPM initialization error"),
-					      N("The initialization of config files of RPM was not possible, sorry.")), mexit -1;
-
-$ENV{HOME} ||= '/root';
-my @grpmi_config = map { chomp_($_) } cat_("$ENV{HOME}/.grpmi");
-
-my $mainw = ugtk2->new('grpmi');
-my $label = Gtk2::Label->new(N("Initializing..."));
-my $progressbar = gtkset_size_request(Gtk2::ProgressBar->new, 400, 0);
-gtkadd($mainw->{window}, gtkpack(gtkadd(create_vbox(), $label, $progressbar)));
-$mainw->{rwindow}->set_position('center');
-$mainw->sync;
-
-my $exitstatus = -1;
-my $forced_exitstatus;
-
-
-# -=-=-=---=-=-=---=-=-=-- download potential URL's, and verify signatures -=-=-=---=-=-=--
-
-my $cache_location = '/var/cache/urpmi/rpms';
-my $url_regexp = '^http://|^https://|^ftp://';
-my $nb_downloads = int(grep { m,$url_regexp, } @ARGV);
-my $download_progress;
-
-foreach my $arg (@ARGV) {
-    if ($arg =~ m,$url_regexp,) {
-	$download_progress++;
-	my $url = $arg;
-	$arg = "$cache_location/" . basename($url);
-      retry_download:
-	$label->set(N("Downloading package `%s' (%s/%s)...", basename($url), $download_progress, $nb_downloads));
-	select(undef, undef, undef, 0.1); $mainw->flush;  #- hackish :-(
-	my $res = utf8ize(curl_download::download($url, $cache_location,
-						  sub { $_[0] and $progressbar->set_fraction($_[1]/$_[0]); $mainw->flush }));
-	if ($res) {
-	    my $results = interactive_msg(N("Error during download"),
-N("There was an error downloading package:
-
-%s
-
-Error: %s
-Do you want to continue (skipping this package)?", $url, $res),
-					  [ N("Yes"), N("No"), N("Retry download") ]);
-	    $results eq N("No") and goto cleanup;
-	    $results eq N("Retry download") and goto retry_download;
-	    $arg = "-skipped&$arg&";
-	}
-    }
-
-}
-
-
-# -=-=-=---=-=-=---=-=-=-- verify signatures -=-=-=---=-=-=--
-
-if (!member('--no-verify-rpm', @ARGV)) {
-    my $yes_to_all;
-    foreach my $arg (@ARGV) {
-	if ($arg !~ /^-/) {
-	    if (-f $arg) {
-		$yes_to_all and next;
-		$label->set(N("Verifying signature of `%s'...", basename($arg))); $mainw->flush;
-		if (my $res = utf8ize(grpmi_rpm::verify_sig($arg))) {
-		    my $results = interactive_msg(N("Signature verification error"),
-N("The signature of the package `%s' is not correct:
-
-%s
-Do you want to install it anyway?",
-		                          basename($arg), $res),
-					  [ N("Yes"), N("Yes to all"), N("No") ]);
-		    $results eq N("No") and $arg = "-skipped&$arg&";
-		    $results eq N("Yes to all") and $yes_to_all = 1;
-		}
-	    } else {
-		interactive_msg(N("File error"),
-N("The following file is not valid:
-
-%s
-
-Do you want to continue anyway (skipping this package)?",
-			        $arg), 1) or goto cleanup;
-		$arg = "-skipped&$arg&";
-	    }
-	}
-    }
-}
-
-
-# -=-=-=---=-=-=---=-=-=-- install packages -=-=-=---=-=-=---=-=-=-
-
-if (grep { /^[^-]/ } @ARGV) {
-    $label->set(N("Preparing packages for installation...")); $mainw->flush;
-    my $nb_installs = int(grep { /^[^-]/ } @ARGV);
-    my $install_progress;
-
-    sub install_packages_callback {
-	my ($msg) = @_;
-	my $retval;
-	my %actions = ( 'conflicts' => sub {
-			    interactive_msg(N("Conflicts detected"),
-N("Conflicts were detected:
-%s
-
-Install aborted.",
-					      utf8ize(join("\n", split(/\|/, $1)))));
-			    $forced_exitstatus = -1;
-			    return 1;
-					},
-			'inst-start' => sub { $install_progress++;
-					      $label->set(N("Installing package `%s' (%s/%s)...", $1, $install_progress, $nb_installs));
-					      $mainw->flush },
-			'inst-progress' => sub {
-			    $1 =~ /(\d+) (\d+)/;
-			    $progressbar->set_fraction($1/$2); $mainw->flush
-			},
-		      );
-	$msg =~ /^$_ (.*)/ and return &{$actions{$_}} foreach keys %actions;
-	print STDERR "unknown msg:<$msg>\n";
-	return 0;
-    }
-    
-    my $res = chomp_(utf8ize(grpmi_rpm::install_packages(\&install_packages_callback, @ARGV)));
-    if ($res) {
-	interactive_msg(N("Problems occurred during installation"), N("There was an error during packages installation:\n\n%s", $res));
-	goto cleanup;
-    }
-}
-
-# -=-=-=---=-=-=---=-=-=-- cleanup -=-=-=---=-=-=--
-$exitstatus = 0;
-cleanup:
-if (!member('noclearcache', @grpmi_config)) {
-    my @toclean = map { s/^-skipped&([^&]+)&$/$1/; if_(/^\Q$cache_location/, $_) } @ARGV;
-    if (@toclean && ($forced_exitstatus || $exitstatus)) {
-	interactive_msg(N("Cleanup"),
-N("Cleanup question: there was an error during installation, do you want to
-remove the %d downloaded package(s)?
-(they are located in %s)", scalar(@toclean), $cache_location), 1) or goto exiting;
-    }
-    unlink @toclean;
-}
-exiting:
-mexit($forced_exitstatus || $exitstatus);
diff --git a/grpmi/rpm/Makefile b/grpmi/rpm/Makefile
deleted file mode 100644
index 3bf1b972..00000000
--- a/grpmi/rpm/Makefile
+++ /dev/null
@@ -1,13 +0,0 @@
-.PHONY: clean
-
-grpmi_rpm: %: %.xs
-	test -e Makefile_c || perl Makefile.PL INSTALLDIRS=$(INSTALLDIRS)
-	$(MAKE) -f Makefile_c
-
-install:
-	test -e Makefile_c || perl Makefile.PL INSTALLDIRS=$(INSTALLDIRS)
-	$(MAKE) -f Makefile_c install
-
-clean:
-	test ! -e Makefile_c || $(MAKE) -f Makefile_c clean
-	rm -f *~ *.o
diff --git a/grpmi/rpm/Makefile.PL b/grpmi/rpm/Makefile.PL
deleted file mode 100644
index b5022502..00000000
--- a/grpmi/rpm/Makefile.PL
+++ /dev/null
@@ -1,52 +0,0 @@
-use ExtUtils::MakeMaker;
-use Config;
-
-my $rpm_cflags = '-I/usr/include/rpm';
-my $rpm_libs   = '-lrpm -lrpmdb -lrpmio -lpopt';
-
-ccompile('#include <rpm/rpmlib.h>
-          #include <rpm/misc.h>
-         ',
-	 'rpmdb db;',
-	 $rpm_cflags,
-	 $rpm_libs)
-  or
-  die_('rpm devel environment is needed');
-
-
-WriteMakefile(
-    'NAME'         => 'grpmi_rpm',
-    'LIBS'         => [ $rpm_libs ],
-    'VERSION_FROM' => 'grpmi_rpm.pm', # finds VERSION
-    'OBJECT'       => 'grpmi_rpm.o',
-    'INC'          => $rpm_cflags,
-    'OPTIMIZE'     => '-O2 -Wall -Werror -g',
-    'MAKEFILE'     => 'Makefile_c',
-);
-
-
-
-
-# Taken from Makefile.PL from Gtk-Perl
-sub ccompile {
-	my ($headers, $main, $cflags, $libs) = @_;
-	my $fname = "temctest";
-	my $r;
-	chomp($cflags, $libs);
-	open(CTEST, ">$fname.c") || return 0;
-	print CTEST <<"EOTEST";
-$headers
-
-int main (int argc, char* argv[]) {
-$main;
-}
-EOTEST
-	close(CTEST);
-	$r = system("$Config{cc} -o $fname $fname.c $cflags $libs 2>/dev/null 1>/dev/null");
-	warn("RUNNING: $Config{cc} -o $fname $fname.c $cflags $libs\n") if $ENV{VERBOSE};
-	unlink($fname, "$fname.c");
-	return $r == 0;
-}
-
-sub chomp_ { my @l = map { my $l = $_; chomp $l; $l } @_; wantarray ? @l : $l[0] }
-sub die_ { die "\n   **ERROR**: @_\n\n" }
diff --git a/grpmi/rpm/grpmi_rpm.pm b/grpmi/rpm/grpmi_rpm.pm
deleted file mode 100644
index 91d15a6b..00000000
--- a/grpmi/rpm/grpmi_rpm.pm
+++ /dev/null
@@ -1,14 +0,0 @@
-package grpmi_rpm;
-
-use strict;
-use vars qw($VERSION @ISA);
-
-require DynaLoader;
-
-@ISA = qw(DynaLoader);
-$VERSION = '1.0';
-
-bootstrap grpmi_rpm $VERSION;
-
-1;
-
diff --git a/grpmi/rpm/grpmi_rpm.xs b/grpmi/rpm/grpmi_rpm.xs
deleted file mode 100644
index 72b4de28..00000000
--- a/grpmi/rpm/grpmi_rpm.xs
+++ /dev/null
@@ -1,405 +0,0 @@
-/* -*- c -*-
- *
- * Copyright (c) 2002 Guillaume Cottenceau (gc at mandrakesoft dot com)
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License version 2, as
- * published by the Free Software Foundation.
- *
- * 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- *
- ******************************************************************************/
-
-#ifndef _GNU_SOURCE
-#define _GNU_SOURCE
-#endif
-
-#include <unistd.h>
-#include <stdlib.h>
-#include <stdio.h>
-#include <string.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <errno.h>
-#include <stdarg.h>
-#include <langinfo.h>
-#include <iconv.h>
-
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-
-#undef Fflush
-#undef Mkdir
-#undef Stat
-#include <rpm/rpmlib.h>
-#include <rpm/misc.h>
-
-#include <libintl.h>
-#undef _
-#define _(arg) dgettext("grpmi", arg)
-
-#define streq !strcmp
-
-char * my_asprintf(char *msg, ...)
-{
-	char * out;
-	va_list args;
-	va_start(args, msg);
-	if (vasprintf(&out, msg, args) == -1)
-		out = "";
-	va_end(args);
-	return out;
-}
-
-
-char * init_rcstuff_(void)
-{
-	char * rpmrc;
-	
-	rpmrc = getenv("RPMRC_FILE");
-	if (rpmrc && !*rpmrc)
-		rpmrc = NULL;
-	if (rpmReadConfigFiles(rpmrc, NULL))
-		return _("Couldn't read RPM config files");
-
-	return "";
-}
-
-
-/* bad bad bad.. duplicated code from gi/perl-install/c/stuff.xs */
-char* std_to_utf8(char* s)
-{
-  iconv_t cd = iconv_open("UTF-8", nl_langinfo(CODESET));
-  char* retval = s;
-  if (cd != (iconv_t) (-1)) {
-      size_t s_len = strlen(retval);
-      /* the maximum expansion when converting happens when converting
-	 tscii to utf-8; each tscii char can become up to 4 unicode chars
-	 and each one of those unicode chars can be 3 bytes long */
-      char *buf = alloca(4 * 3 * s_len);
-      {
-	  char *ptr = buf;
-	  size_t ptr_len = 4 * 3 * s_len;
-	  if ((iconv(cd, &s, &s_len, &ptr, &ptr_len)) != (size_t) (-1)) {
-	      *ptr = 0;
-	      retval = buf;
-	  }
-      }
-      iconv_close(cd);
-  }
-  return strdup(retval);
-}
-
-/* these are in rpmlib but not in rpmlib.h */
-int readLead(FD_t fd, struct rpmlead *lead);
-int rpmReadSignature(FD_t fd, Header *header, short sig_type);
-
-char * verify_sig_(char * file)
-{
-	struct rpmlead lead;
-	Header sig;
-	HeaderIterator sigIter;
-	const void *ptr;
-	int_32 tag, type, count;
-	char result[8*BUFSIZ];
-	FD_t fd, ofd;
-	int i;
-	const char *tmpfile = NULL;
-	unsigned char buffer[8192];
-	int gpg_sig = 0;
-
-	fd = fdOpen(file, O_RDONLY, 0);
-	if (fdFileno(fd) < 0) {
-		return _("Couldn't open file\n");
-	}
-	memset(&lead, 0, sizeof(lead));
-	if (readLead(fd, &lead)) {
-		return _("Could not read lead bytes\n");
-	}
-	if (lead.major == 1) {
-		return _("RPM version of package doesn't support signatures\n");
-	}
-
-	i = rpmReadSignature(fd, &sig, lead.signature_type);
-	if (i != RPMRC_OK && i != RPMRC_BADSIZE) {
-		return _("Could not read signature block (`rpmReadSignature' failed)\n");
-	}
-	if (!sig) {
-		return _("No signatures\n");
-	}
-
-	if (makeTempFile(NULL, &tmpfile, &ofd))
-		return _("`makeTempFile' failed!\n");
-
-	while ((i = fdRead(fd, buffer, sizeof(buffer))) != 0) {
-		if (i == -1) {
-			fdClose(ofd);
-			fdClose(fd);
-			unlink(tmpfile);
-			return _("Error reading file\n");
-		}
-		if (fdWrite(ofd, buffer, i) < 0) {
-			fdClose(ofd);
-			fdClose(fd);
-			unlink(tmpfile);
-			return _("Error writing temp file\n");
-		}
-	}
-	fdClose(fd);
-	fdClose(ofd);
-		  
-	for (sigIter = headerInitIterator(sig); headerNextIterator(sigIter, &tag, &type, &ptr, &count); ptr = headerFreeData(ptr, type)) {
-		switch (tag) {
-		case RPMSIGTAG_PGP5: case RPMSIGTAG_PGP: case RPMSIGTAG_GPG:
-			gpg_sig = 1;
-		case RPMSIGTAG_LEMD5_2:	case RPMSIGTAG_LEMD5_1: case RPMSIGTAG_MD5:
-		case RPMSIGTAG_SIZE:
-			break;
-		default:
-			continue;
-		}
-
-		i = rpmVerifySignature(tmpfile, tag, ptr, count, result);
-		if (i != RPMSIG_OK) {
-			unlink(tmpfile);
-			return std_to_utf8(result);
-		}
-	}
-	unlink(tmpfile);
-	if (!gpg_sig)
-		return _("No GPG signature in package\n");
-	else
-		return "";
-}
-
-
-void rpmError_callback_empty(void) {}
-
-int rpmError_callback_data;
-void rpmError_callback(void) {
-	if (rpmErrorCode() != RPMERR_UNLINK && rpmErrorCode() != RPMERR_RMDIR) {
-		write(rpmError_callback_data, rpmErrorString(), strlen(rpmErrorString()));
-	}
-}
-
-SV * install_packages_callback_data = NULL;
-int install_packages_callback(char * msg, ...) __attribute__ ((format (printf, 1, 2)));
-int install_packages_callback(char * msg, ...)
-{
-        int i;
-	char * out;
-	dSP;
-
-	va_list args;
-	va_start(args, msg);
-	if (vasprintf(&out, msg, args) == -1)
-		out = "";
-	va_end(args);
-
-	if (!SvROK(install_packages_callback_data))
-		return 0;
-	ENTER;
-	SAVETMPS;
-	PUSHMARK(SP);
-  	XPUSHs(sv_2mortal(newSVpv(out, 0)));
-  	PUTBACK;
-	free(out);
-  	i = call_sv(install_packages_callback_data, G_SCALAR);
-        SPAGAIN;
-        if (i != 1)
-		croak("Big trouble\n");
-	else
-		i = POPi;
-  	PUTBACK;
-	FREETMPS;
-	LEAVE;
-	return i;
-}
-
-char * install_packages_(char ** packages)
-{
-	void * rpmRunTransactions_callback(const void * h, const rpmCallbackType what, const unsigned long amount, const unsigned long total, const void * pkgKey, void * data) {
-		static FD_t fd;
-		
-		switch (what) {
-		case RPMCALLBACK_INST_OPEN_FILE:
-			return fd = fdOpen(pkgKey, O_RDONLY, 0);
-		case RPMCALLBACK_INST_CLOSE_FILE:
-			fdClose(fd);
-			break;
-		case RPMCALLBACK_INST_START:
-			install_packages_callback("inst-start %s", basename(pkgKey));
-			break;
-		case RPMCALLBACK_INST_PROGRESS:
-			install_packages_callback("inst-progress %ld %ld", amount, total);
-			break;
-		default:
-			break;
-		}
-		return NULL;
-	}
-	char * returnmsg;
-	rpmdb db;
-	rpmTransactionSet rpmdep;
-	rpmDependencyConflict conflicts;
-	int num_conflicts;
-	rpmProblemSet probs = NULL;
-	char ** pkg;
-	int noupgrade = 0;
-
-	if (rpmdbOpen("", &db, O_RDWR, 0644)) {
-		if (rpmErrorCode() == RPMERR_DBOPEN)
-			return _("Couldn't open RPM DB for writing (not superuser?)");
-		else
-			return _("Couldn't open RPM DB for writing");
-	}
-
-	if (!(rpmdep = rpmtransCreateSet(db, NULL))) {
-		returnmsg = _("Couldn't start transaction");
-		goto install_packages_cleanup;
-	}
-
-	for (pkg = packages; pkg && *pkg; pkg++) {
-		if (streq(*pkg, "-noupgrade")) 
-			noupgrade = 1;
-		else {
-			Header h;
-			int isSource, major;
-			char *file = *pkg;
-			char *LocalName = basename(file);
-			FD_t fd;
-
-			if (file[0] == '-')
-				continue;
-
-			fd = fdOpen(file, O_RDONLY, 0);
-			if (fdFileno(fd) < 0) {
-				returnmsg = my_asprintf(_("Can't open package `%s'\n"), LocalName);
-				goto install_packages_cleanup;
-			}
-			switch (rpmReadPackageHeader(fd, &h, &isSource, &major, NULL)) {
-			case 1:
-				returnmsg = my_asprintf(_("Package `%s' is corrupted\n"), LocalName);
-				goto install_packages_cleanup;
-			default:
-				returnmsg = my_asprintf(_("Package `%s' can't be installed\n"), LocalName);
-				goto install_packages_cleanup;
-			case 0:
-				rpmtransAddPackage(rpmdep, h, NULL, file, !noupgrade, NULL);
-			}
-			fdClose(fd);
-			noupgrade = 0;
-		}
-	}
-
-	if (rpmdepCheck(rpmdep, &conflicts, &num_conflicts)) {
-		returnmsg = _("Error while checking dependencies");
-		goto install_packages_cleanup;
-	}
-	if (conflicts) {
-		int i;
-		char * conflict_msg = strdup("conflicts ");
-		for (i=0; i<num_conflicts; i++) {
-			char * msg1, * msg2;
-			char sense = '\0';
-			if (conflicts[i].needsFlags & RPMSENSE_SENSEMASK) {
-				if (conflicts[i].needsFlags & RPMSENSE_LESS)    sense = '<';
-				if (conflicts[i].needsFlags & RPMSENSE_GREATER) sense = '>';
-				if (conflicts[i].needsFlags & RPMSENSE_EQUAL)   sense = '=';
-				if (conflicts[i].needsFlags & RPMSENSE_SERIAL)  sense = 'S';
-			}
-			if (sense != '\0')
-				msg1 = my_asprintf("%s %c %s", conflicts[i].needsName, sense, conflicts[i].needsVersion);
-			else
-				msg1 = strdup(conflicts[i].needsName);
-			msg2 = my_asprintf("%s %s %s-%s-%s",
-					  msg1,
-					  (conflicts[i].sense == RPMDEP_SENSE_REQUIRES) ? _("is needed by") : _("conflicts with"),
-					  conflicts[i].byName, conflicts[i].byVersion, conflicts[i].byRelease);
-			free(msg1);
-			msg1 = my_asprintf("%s|%s", conflict_msg, msg2);
-			free(msg2);
-			free(conflict_msg);
-			conflict_msg = msg1;
-		}
-		if (install_packages_callback(conflict_msg)) {
-			free(conflict_msg);
-			returnmsg = "";
-			goto install_packages_cleanup;
-		}
-		free(conflict_msg);
-		rpmdepFreeConflicts(conflicts, num_conflicts);
-	}
-
-	if (rpmdepOrder(rpmdep)) {
-		returnmsg = _("Error while checking dependencies 2");
-		goto install_packages_cleanup;
-	}
-	if (rpmRunTransactions(rpmdep, rpmRunTransactions_callback, NULL, NULL, &probs, 0, 0)) {
-		char * msg;
-		int i;
-		returnmsg = strdup(_("Problems occurred during installation:\n"));
-		for (i = 0; i < probs->numProblems; i++) {
-			const char * thispb = rpmProblemString(&(probs->probs[i]));
-			msg = my_asprintf("%s%s\n", returnmsg, thispb);
-			free(returnmsg);
-			returnmsg = msg;
-		}
-		goto install_packages_cleanup;
-	}
-    
-	rpmdbClose(db);
-	return "";
-      
- install_packages_cleanup: 
-	rpmdbClose(db);
-	return returnmsg;
-}
-
-
-/************************** Gateway to Perl ****************************/
-
-MODULE = grpmi_rpm		PACKAGE = grpmi_rpm
-PROTOTYPES : DISABLE
-
-char *
-init_rcstuff()
-        CODE:
-                RETVAL = init_rcstuff_();
-        OUTPUT:
-                RETVAL
-
-char *
-verify_sig(pkg)
-char * pkg
-	CODE:
-                RETVAL = verify_sig_(pkg);
-        OUTPUT:
-                RETVAL
-
-char *
-install_packages(callback, ...)
-SV * callback
-	PREINIT:
-		int i;
-                char ** pkgs;
-	CODE:
-		install_packages_callback_data = callback;
-		pkgs = malloc(sizeof(char *) * items);
-                for (i=1; i<items; i++)
-			pkgs[i-1] = SvPV_nolen(ST(i));
-		pkgs[items-1] = NULL;
-                RETVAL = install_packages_(pkgs);
-		free(pkgs);
-		callback = NULL;
-        OUTPUT:
-                RETVAL
-