cmd/show/buddy.pl

   1 #
   2 # show your buddies
   3 #
   4 # Copyright (c) 2006 - Dirk Koopman G1TLH
   5 #
   6 #
   7 #
   8
   9 my ($self) = @_;
  10 my $buddies = $self->user->buddies || [];
  11 my @out;
  12 my @l;
  13
  14 foreach my $call (@$buddies) {
  15         if (@l >= 5) {
  16                 push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
  17                 @l = ();
  18         }
  19         push @l, $call;
  20 }
  21 push @l, "" while @l < 5;
  22 push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
  23 return (1, @out);