From: minima <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;