cmd/stat/route_node.pl

   1 #
   2 # show a Route::Node thingy
   3 #
   4 # Copyright (c) 2001 Dirk Koopman G1TLH
   5 #
   6 # $Id$
   7 #
   8
   9 my ($self, $line) = @_;
  10 my @list = split /\s+/, $line;                # generate a list of callsigns
  11 @list = ($self->call) if !@list;  # my channel if no callsigns
  12
  13 my $call;
  14 my @out;
  15 foreach $call (@list) {
  16   $call = uc $call;
  17   my $ref = Route::Node::get($call);
  18   if ($ref) {
  19     @out = print_all_fields($self, $ref, "Route::Node Information $call");
  20   } else {
  21     push @out, "Route::User: $call not found";
  22   }
  23   push @out, "" if @list > 1;
  24 }
  25
  26 return (1, @out);