update-web: Synchronize mirrors

[pciids.git] / PciIds / Users.pm

diff --git a/PciIds/Users.pm b/PciIds/Users.pm
index 6c660d2759c78f7f832026ea6219436353d977f3..bf6ced2b2becf4ba9753c4f8991f1013774887be 100644 (file)
--- a/PciIds/Users.pm
+++ b/PciIds/Users.pm
@@ -85,7 +85,7 @@ sub changePasswd( $$$$ ) {
 sub genAuthToken( $$$$$ ) {
        my( $tables, $id, $req, $rights, $name ) = @_;
        unless( defined $rights ) {#Just logged in
-               my $from = $req->connection()->remote_ip();
+               my $from = $req->useragent_ip();
                $tables->setLastLog( $id, $from );
                $rights = $tables->rights( $id );
        }