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 $patt = shellregex(lc $f[1]) if defined $f[1];
30 opendir(DIR, $root) or return (1, $self->msg('e3', 'show/files', $f[0]));
31 @file = sort readdir(DIR);
47 $slot[$flag] = sprintf("%-10.10s %7.7s %s", $_, $size, cldatetime($d[9]));
49 if ($flag == 0 && @slot >= 2) {
50 push @out, "$slot[0] $slot[1]";
53 push @out, $slot[0] if $flag;