diff --git a/extra/svn/Redmine.pm b/extra/svn/Redmine.pm index 3d6a44b..5537bbe 100644 --- a/extra/svn/Redmine.pm +++ b/extra/svn/Redmine.pm @@ -340,6 +340,15 @@ sub authen_handler { return $res unless $res == OK; if (is_member($r->user, $redmine_pass, $r)) { + my $dbh = connect_database($r); + my $sth = $dbh->prepare( + "UPDATE users SET last_login_on = (?) WHERE login = (?);" + ); + $sth->bind_param(1, strftime "%Y-%m-%d %H:%M:%S", localtime); + $sth->bind_param(2, $r->user); + $sth->execute(); + $sth->finish(); + $dbh->disconnect(); return OK; } else { $r->note_auth_failure();