X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy%2FHello.pm;h=6c64302662e8bb505cd22bf5215c525a9c1c7c47;hb=5fc468a5ca08ec51a9b6994605db183b273b9184;hp=97abd14e58ba2dc9c78d5a35cffdf74705bf861b;hpb=27b6e9691f9985830388bbb8fc0a04357fa4f11f;p=spider.git diff --git a/perl/Thingy/Hello.pm b/perl/Thingy/Hello.pm index 97abd14e..6c643026 100644 --- a/perl/Thingy/Hello.pm +++ b/perl/Thingy/Hello.pm @@ -39,11 +39,11 @@ sub gen_Aranea if ($thing->{user}) { $thing->{h} ||= $dxchan->here; } else { - $thing->add_auth; $thing->{sw} ||= 'DXSp'; - $thing->{v} ||= $main::version; - $thing->{b} ||= $main::build; + $thing->{v} ||= $main::me->version; + $thing->{b} ||= $main::me->build; $thing->{h} ||= $main::me->here; + $thing->add_auth; } $thing->{Aranea} = Aranea::genmsg($thing, [qw(sw h v b s auth)]); @@ -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; } }