From 49dc49c2aa3add023418a43e592479bc26d3857e Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 21 Aug 2003 09:27:25 +0000
Subject: added some log when importing pbukey block and when key id have been
 found.

---
 perl-install/install_any.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index a4e9bc4ec..6a0dbb38c 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -509,6 +509,7 @@ sub install_urpmi {
 		URPM::compare_pubkeys($k, $kv) == 0 and $id = $kv->{id}, last;
 	    }
 	    unless ($id) {
+		log::l("importing pubkey block");
 		URPM::import_pubkey(block => $k->{block}, db => $db);
 		$packages->parse_pubkeys(db => $db);
 		foreach my $kv (values %{$packages->{keys} || {}}) {
@@ -516,7 +517,10 @@ sub install_urpmi {
 		}
 	    }
 	    #- the key has been found, take care of it for the given medium.
-	    $id and $medium->{key_ids}{$id} = undef;
+	    if ($id) {
+		log::l("found key id=$id for medium $medium->{descr}");
+		$medium->{key_ids}{$id} = undef;
+	    }
 	}
     }
 
-- 
cgit v1.2.1