sub gen_Aranea
{
my $thing = shift;
+ my $dxchan = shift;
+
unless ($thing->{Aranea}) {
my $ref;
if ($ref = $thing->{anodes}) {
- $thing->{a} = join(':', map {"$_->{flags}$_->{call}"} @$ref);
+ $thing->{a} = join(':', map {"$_->{flags}$_->{call}"} @$ref) || '';
}
- if ($ref = $thing->{anodes}) {
- $thing->{n} = join(':', map {"$_->{flags}$_->{call}"} @$ref);
+ if ($ref = $thing->{pnodes}) {
+ $thing->{n} = join(':', map {"$_->{flags}$_->{call}"} @$ref) || '';
}
if ($ref = $thing->{ausers}) {
- $thing->{u} = join(':', map {"$_->{flags}$_->{call}"} @$ref);
+ $thing->{u} = join(':', map {"$_->{flags}$_->{call}"} @$ref) || '';
}
$thing->{Aranea} = Aranea::genmsg($thing, [qw(s a n u)]);
}
+
return $thing->{Aranea};
}
$thing->{'s'} = 'cf';
- my @u = $uref->users;
- if (@u) {
- $thing->{pc16n} = $uref;
- $thing->{pc16u} = [map {Route::User::get($_)} @u];
- return scalar @u;
- }
- return undef;
+ my @u = map {Route::User::get($_)} $uref->users;
+ $thing->{ausers} = \@u;
+ return @u;
}