fix per_minute handling

use the correct module name for _upd_user_rec

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index a82c53c1ece032b2664b0f10c6fe0bd1a09bd541..5dec124c42f708dcbd3ad75e31deec70f11d6afd 100644 (file)
--- a/perl/Aranea.pm
+++ b/perl/Aranea.pm
@@ -148,7 +148,7 @@ sub normal
 # periodic processing (every second)
 #
 
-my $lastmin = 0;
+my $lastmin = time;
 
 sub process
 {
@@ -160,10 +160,8 @@ sub process
                $daystart = $main::systime - ($main::systime % 86400);
        }
        if ($main::systime >= $lastmin + 60) {
-               if ($lastmin) {
-                       per_minute();
-                       $lastmin = $main::systime;
-               }
+               per_minute();
+               $lastmin = $main::systime;
        }
 }
 

diff --git a/perl/Thingy/Hello.pm b/perl/Thingy/Hello.pm
index 97abd14e58ba2dc9c78d5a35cffdf74705bf861b..a23bb43877e1a35b4cac86449d3e07987cf4070f 100644 (file)
--- a/perl/Thingy/Hello.pm
+++ b/perl/Thingy/Hello.pm
@@ -114,7 +114,7 @@ sub handle
                my $ur = Route::get($user);
                unless ($ur) {
                        my @ref;
-                       my $uref = DXUser->get_current($user) || Thingy::Hello::_upd_user_rec($user, $origin)->put;
+                       my $uref = DXUser->get_current($user) || Thingy::Rt::_upd_user_rec($user, $origin)->put;
                        if ($uref->is_node || $uref->is_aranea) {
                            push @ref, $nref->add($user, $thing->{v}, $thing->{h});
                                push @{$thing->{pc19n}}, @ref if @ref;