use Thingy::RouteFilter;
use Spot;
-use vars qw(@ISA $update_interval);
+use vars qw(@ISA);
@ISA = qw(Thingy Thingy::RouteFilter);
-$update_interval = 30 * 60; # the interval between 'cf' updates for an interface
-
sub gen_Aranea
{
my $thing = 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)]);
}
$thing->{'s'} = 'cf';
- my @u = $uref->users;
- if (@u) {
- $thing->{ausers} = [map {Route::User::get($_)} @u];
- return scalar @u;
- }
- return undef;
+ my @u = map {Route::User::get($_)} $uref->users;
+ $thing->{ausers} = \@u;
+ return @u;
}