projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add in last config time
[spider.git]
/
perl
/
Thingy
/
Rt.pm
diff --git
a/perl/Thingy/Rt.pm
b/perl/Thingy/Rt.pm
index 4b533445a68ee42e1ce5dba88c80e473b86d33cc..362904d01cac4b311eb2679e379f0afbea16f25e 100644
(file)
--- a/
perl/Thingy/Rt.pm
+++ b/
perl/Thingy/Rt.pm
@@
-24,12
+24,16
@@
use Thingy;
use Thingy::RouteFilter;
use Spot;
use Thingy::RouteFilter;
use Spot;
-use vars qw(@ISA);
+use vars qw(@ISA
$update_interval
);
@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;
+ my $dxchan = shift;
+
unless ($thing->{Aranea}) {
my $ref;
if ($ref = $thing->{anodes}) {
unless ($thing->{Aranea}) {
my $ref;
if ($ref = $thing->{anodes}) {
@@
-43,6
+47,7
@@
sub gen_Aranea
}
$thing->{Aranea} = Aranea::genmsg($thing, [qw(s a n u)]);
}
}
$thing->{Aranea} = Aranea::genmsg($thing, [qw(s a n u)]);
}
+
return $thing->{Aranea};
}
return $thing->{Aranea};
}
@@
-235,8
+240,7
@@
sub copy_pc16_data
my @u = $uref->users;
if (@u) {
my @u = $uref->users;
if (@u) {
- $thing->{pc16n} = $uref;
- $thing->{pc16u} = [map {Route::User::get($_)} @u];
+ $thing->{ausers} = [map {Route::User::get($_)} @u];
return scalar @u;
}
return undef;
return scalar @u;
}
return undef;