- my ($call, $reason) = @_;
- my $hops = get_hops(21);
- $reason = "Gone." if !$reason;
- return "PC21^$call^$reason^$hops^";
+ my @out;
+ while (@_) {
+ my $node = shift;
+ my $hops = get_hops(21);
+ my $call = $node->call;
+ push @out, "PC21^$call^Gone^$hops^";
+ }
+ return @out;