Bug 205463 - Tokens aren't canceled after a successful login.

Bugzilla/Auth/DB.pm

@@ -71,7 +71,7 @@ sub authenticate {
     # Now we know that the user has logged in successfully,
     # so delete any password tokens for them
     require Token;
-    Token::DeletePasswordTokens("user logged in");
+    Token::DeletePasswordTokens($userid, "user_logged_in");
 
     # The user may have had their account disabled
     return (AUTH_DISABLED, $userid, $disabledtext)

Bugzilla/Token.pm

@@ -246,7 +246,7 @@ sub DeletePasswordTokens {
                             "WHERE userid=? AND tokentype='password'");
     $sth->execute($userid);
     while (my $token = $sth->fetchrow_array) {
-        Token::Cancel($token, "user_logged_in");
+        Token::Cancel($token, $reason);
     }
 }
 

Token.pm

@@ -246,7 +246,7 @@ sub DeletePasswordTokens {
                             "WHERE userid=? AND tokentype='password'");
     $sth->execute($userid);
     while (my $token = $sth->fetchrow_array) {
-        Token::Cancel($token, "user_logged_in");
+        Token::Cancel($token, $reason);
     }
 }