pakfire: Drop old key import mechanism

[ipfire-2.x.git] / src / pakfire / lib / functions.pl

diff --git a/src/pakfire/lib/functions.pl b/src/pakfire/lib/functions.pl
index 0bf702e5b0f5618c15348f95910313dba9949d3c..c97d4254dc8aa17578e3533208db7015fb88bacc 100644 (file)
--- a/src/pakfire/lib/functions.pl
+++ b/src/pakfire/lib/functions.pl
@@ -33,9 +33,6 @@ use Net::Ping;
 
 package Pakfire;
 
-# GPG Keys
-my $myid = "179740DC4D8C47DC63C099C74BDE364C64D96617";         # Our own gpg-key paks@ipfire.org
-
 # A small color-hash :D
 my %color;
        $color{'normal'}      = "\033[0m"; 
@@ -899,19 +896,6 @@ sub senduuid {
        }
 }
 
-sub checkcryptodb {
-       logger("CRYPTO INFO: Checking GnuPG Database");
-       system("gpg --fingerprint $myid >/dev/null");
-       return if ($? == 0);
-
-       message("CRYPTO WARN: The GnuPG isn't configured correctly. Trying now to fix this.");
-       message("CRYPTO WARN: It's normal to see this on first execution.");
-       message("CRYPTO WARN: If this message is being shown repeatedly, check if time and date are set correctly, and if IPFire can connect via port 11371 TCP.");
-
-       my $command = "gpg --keyserver pgp.ipfire.org --always-trust --status-fd 2";
-       system("$command --recv-key $myid >> $Conf::logdir/gnupg-database.log 2>&1");
-}
-
 sub callback {
    my ($data, $response, $protocol) = @_;
    $final_data .= $data;