From: minima Date: Thu, 24 Feb 2005 10:10:06 +0000 (+0000) Subject: fix per_minute handling X-Git-Tag: R_1_52~146 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=f4fd2e96d56ed980113fddfd969587681eb414cf;p=spider.git fix per_minute handling use the correct module name for _upd_user_rec --- 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;