projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix format string error in gen_DXProt
[spider.git]
/
perl
/
Thingy
/
Rt.pm
diff --git
a/perl/Thingy/Rt.pm
b/perl/Thingy/Rt.pm
index 4b533445a68ee42e1ce5dba88c80e473b86d33cc..bdc4bf41de4415d27d5b05517d34de5ecf1f1643 100644
(file)
--- a/
perl/Thingy/Rt.pm
+++ b/
perl/Thingy/Rt.pm
@@
-30,19
+30,22
@@
use vars qw(@ISA);
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}) {
- $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)]);
}
+
return $thing->{Aranea};
}
return $thing->{Aranea};
}
@@
-233,13
+236,9
@@
sub copy_pc16_data
$thing->{'s'} = 'cf';
$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;
}
}