X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy%2FHello.pm;h=aa51de1c539ba7fce04fbf08b2d70e0605e1e047;hb=4a537d5ee952ce14ac88ebe07e4f015155b576ee;hp=9c6a539f8255f39569574019bbbb504a28c906f0;hpb=7f15868bb42d0fd790dd41a886fc14127f4cf41c;p=spider.git diff --git a/perl/Thingy/Hello.pm b/perl/Thingy/Hello.pm index 9c6a539f..aa51de1c 100644 --- a/perl/Thingy/Hello.pm +++ b/perl/Thingy/Hello.pm @@ -90,7 +90,7 @@ sub handle $thing->send($dxchan); # broadcast our configuration to the world - $thing = Thingy::Rt->new_lcf; + $thing = Thingy::Rt->new_cf; $thing->broadcast; } } @@ -114,14 +114,14 @@ 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 @ref, $nref->add($user, $thing->{v} || 0, $thing->{h} || 0); push @{$thing->{pc19n}}, @ref if @ref; do $_->np(1) for @ref; } else { $thing->{pc16n} = $nref; - push @ref, $nref->add_user($user, $thing->{h}); + push @ref, $nref->add_user($user, $thing->{h} || 0); $thing->{pc16u} = \@ref if @ref; } }