X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy%2FRt.pm;h=6207635aac912ba03f071aa493d9c4a88c5a1fce;hb=4f2b8661933ee3e3ccda2596d30485d98dd18ecb;hp=bc6228b112b9c568149ea3ca78d3260366445875;hpb=e2e4dadc448747744dacc0eb8d99ee950529a9b3;p=spider.git diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm index bc6228b1..6207635a 100644 --- a/perl/Thingy/Rt.pm +++ b/perl/Thingy/Rt.pm @@ -158,23 +158,6 @@ sub handle_cf return $thing; } -# -# copy out the PC16 data for a node into the -# pc16n and u slots if there are any users -# -sub copy_node_pc16_data -{ - my $thing = shift; - my $uref = shift; - - my @u = $uref->users; - if (@u) { - $thing->{pc16n} = $uref; - $thing->{pc16u} = [map {Route::User::get($_)} @u]; - return scalar @u; - } - return undef; -} sub _add_user { @@ -210,7 +193,7 @@ sub _upd_user_rec # info whenever a node connects and also periodically. # -sub new_lcf +sub new_cf { my $pkg = shift; my $thing = $pkg->SUPER::new(@_); @@ -240,6 +223,25 @@ sub new_lcf return $thing; } +# +# copy out the PC16 data for a node into the +# pc16n and u slots if there are any users +# +sub copy_pc16_data +{ + my $thing = shift; + my $uref = shift; + + $thing->{'s'} = 'cf'; + + my @u = $uref->users; + if (@u) { + $thing->{pc16n} = $uref; + $thing->{pc16u} = [map {Route::User::get($_)} @u]; + return scalar @u; + } + return undef; +}