Bug 1192688 - non-schema changes

1 files changed, 5 insertions, 2 deletions

diff --git a/Bugzilla/User/APIKey.pm b/Bugzilla/User/APIKey.pm
index c37cccb92..d89203e68 100644
--- a/Bugzilla/User/APIKey.pm
+++ b/Bugzilla/User/APIKey.pm
@@ -13,7 +13,7 @@ use strict;
 use parent qw(Bugzilla::Object);
 
 use Bugzilla::User;
-use Bugzilla::Util qw(generate_random_password trim);
+use Bugzilla::Util qw(generate_random_password trim remote_ip);
 use Bugzilla::Error;
 
 #####################################################################
@@ -29,9 +29,10 @@ use constant DB_COLUMNS     => qw(
     description
     revoked
     last_used
+    last_used_ip
 );
 
-use constant UPDATE_COLUMNS => qw(description revoked last_used);
+use constant UPDATE_COLUMNS => qw(description revoked last_used last_used_ip);
 use constant VALIDATORS     => {
     api_key     => \&_check_api_key,
     app_id      => \&_check_app_id,
@@ -55,6 +56,7 @@ sub app_id        { return $_[0]->{app_id}      }
 sub description   { return $_[0]->{description} }
 sub revoked       { return $_[0]->{revoked}     }
 sub last_used     { return $_[0]->{last_used}   }
+sub last_used_ip  { return $_[0]->{last_used_ip}   }
 
 # Helpers
 sub user {
@@ -68,6 +70,7 @@ sub update_last_used {
     my $timestamp = shift
         || Bugzilla->dbh->selectrow_array('SELECT LOCALTIMESTAMP(0)');
     $self->set('last_used', $timestamp);
+    $self->set('last_used_ip', remote_ip());
     $self->update;
 }