2 # the show/files command, list bulls, files and areas
4 # The equivalent of LS in other words
6 # Copyright (c) 1999 Dirk Koopman G1TLH
11 my ($self, $line) = @_;
12 my @f = split /\s+/, $line;
13 my $root = "$main::root/packclus";
27 opendir(DIR, $root) or return (1, $self->msg('e3', 'show/files', $f[0]));
28 @file = sort readdir(DIR);
43 $slot[$flag] = sprintf("%-10.10s %7.7s %s", $_, $size, cldatetime($d[9]));
45 if ($flag == 0 && @slot >= 2) {
46 push @out, "$slot[0] $slot[1]";
49 push @out, $slot[0] if $flag;