From f4fd2e96d56ed980113fddfd969587681eb414cf Mon Sep 17 00:00:00 2001 From: minima Date: Thu, 24 Feb 2005 10:10:06 +0000 Subject: [PATCH] fix per_minute handling use the correct module name for _upd_user_rec --- perl/Aranea.pm | 8 +++----- perl/Thingy/Hello.pm | 2 +- 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/perl/Aranea.pm b/perl/Aranea.pm index a82c53c1..5dec124c 100644 --- 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 97abd14e..a23bb438 100644 --- 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; -- 2.43.0