projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix ^ convertion in command mode dx
[spider.git]
/
perl
/
Thingy
/
Rt.pm
diff --git
a/perl/Thingy/Rt.pm
b/perl/Thingy/Rt.pm
index 362904d01cac4b311eb2679e379f0afbea16f25e..bdc4bf41de4415d27d5b05517d34de5ecf1f1643 100644
(file)
--- a/
perl/Thingy/Rt.pm
+++ b/
perl/Thingy/Rt.pm
@@
-24,11
+24,9
@@
use Thingy;
use Thingy::RouteFilter;
use Spot;
use Thingy::RouteFilter;
use Spot;
-use vars qw(@ISA
$update_interval
);
+use vars qw(@ISA);
@ISA = qw(Thingy Thingy::RouteFilter);
@ISA = qw(Thingy Thingy::RouteFilter);
-$update_interval = 30 * 60; # the interval between 'cf' updates for an interface
-
sub gen_Aranea
{
my $thing = shift;
sub gen_Aranea
{
my $thing = shift;
@@
-37,13
+35,13
@@
sub gen_Aranea
unless ($thing->{Aranea}) {
my $ref;
if ($ref = $thing->{anodes}) {
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->{
a
nodes}) {
- $thing->{n} = join(':', map {"$_->{flags}$_->{call}"} @$ref);
+ if ($ref = $thing->{
p
nodes}) {
+ $thing->{n} = join(':', map {"$_->{flags}$_->{call}"} @$ref)
|| ''
;
}
if ($ref = $thing->{ausers}) {
}
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->{Aranea} = Aranea::genmsg($thing, [qw(s a n u)]);
}
@@
-238,12
+236,9
@@
sub copy_pc16_data
$thing->{'s'} = 'cf';
$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;
}
}