1 files changed, 33 insertions, 4 deletions

diff --git a/lib/MGA/Advisories.pm b/lib/MGA/Advisories.pm
index 482bf43..0cf72d3 100644
--- a/lib/MGA/Advisories.pm
+++ b/lib/MGA/Advisories.pm
@@ -70,6 +70,16 @@ sub init_bz {
     $bz{proxy} = XMLRPC::Lite->proxy(
         $config->{bugzilla_url} . "xmlrpc.cgi"
     );
+    if ($config->{bugzilla_tokenfile} && -f glob($config->{bugzilla_tokenfile})) {
+        if (open(my $fh, '<', glob($config->{bugzilla_tokenfile}))) {
+            while (my $row = <$fh>) {
+                chomp($bz{token} = $row);
+                last;
+            }
+            close $fh;
+        }
+    }
+
     #$bz{proxy}->import(+trace => 'debug');
 
     return 1;
@@ -106,13 +116,25 @@ sub call_bz {
 }
 
 sub login_bz {
+    my ($login, $password);
     if ($config->{bugzilla_login} && $config->{bugzilla_password}) {
-        my $password = $config->{bugzilla_password};
+        $login = $config->{bugzilla_login};
+        $password = $config->{bugzilla_password};
+    } elsif ($config->{mode} eq 'qa') {
+        print "Please enter your bugzilla user name (email address): ";
+        chomp($login = <STDIN>);
+        print "Please now enter your bugzilla password: ";
+        ReadMode('noecho');
+        chomp($password = <STDIN>);
+        ReadMode(0);        # back to normal
+        print "\n";
+    }
+
+    if ($login && $password) {
         if ( $password =~ /^file:\/\// ) {
             if (open(my $fh, '<:encoding(UTF-8)', substr $password, 7)) {
                 while (my $row = <$fh>) {
-                    chomp $row;
-                    $password = $row;
+                    chomp($password = $row);
                     last;
                 }
                 close $fh;
@@ -124,13 +146,20 @@ sub login_bz {
         my $soapresult = $bz{proxy}->call(
             'User.login',
             {
-                login => $config->{bugzilla_login},
+                login => $login,
                 password => $password,
                 remember => 1
             }
         );
         if ($soapresult->result && $soapresult->result->{token}) {
             $bz{token} = $soapresult->result->{token};
+            if ($config->{bugzilla_tokenfile}) {
+                if (open(my $fh, '>', glob($config->{bugzilla_tokenfile}))) {
+                    print $fh $bz{token};
+                    close $fh;
+                    chmod 0600, glob($config->{bugzilla_tokenfile});
+                }
+            }
         }
         return 1 unless $soapresult->fault;
     }