added type and show/files

[spider.git] / cmd / show / files.pl

diff --git a/cmd/show/files.pl b/cmd/show/files.pl
new file mode 100644 (file)
index 0000000..68526a4
--- /dev/null
+++ b/cmd/show/files.pl
@@ -0,0 +1,52 @@
+#
+# the show/files command, list bulls, files and areas 
+#
+# The equivalent of LS in other words
+#
+# Copyright (c) 1999 Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+my ($self, $line) = @_;
+my @f = split /\s+/, $line;
+my $root = "$main::root/packclus";
+my @out;
+my @file;
+my @d;
+my @slot;
+
+if (@f) {
+       my $fn = lc $f[0];
+       $fn =~ s/\\/\//og;
+       $fn =~ s/\.//og;
+       $fn =~ s/^\///og;
+       $root = "$root/$fn";
+}
+
+opendir(DIR, $root) or         return (1, $self->msg('e3', 'show/files', $f[0]));
+@file = sort readdir(DIR);
+closedir(DIR);
+
+my $flag = 0;
+for (@file) {
+       next if /^\./;
+       my $fn = "$root/$_";
+       my $size;
+       
+       @d = stat($fn);
+       if (-d $fn) {
+               $size = "DIR";
+       } else {
+               $size = $d[7]
+       }
+       $slot[$flag] = sprintf("%-10.10s %7.7s %s", $_, $size, cldatetime($d[9]));
+       $flag ^= 1;
+       if ($flag == 0 && @slot >= 2) {
+               push @out, "$slot[0] $slot[1]";
+       }
+}
+push @out, $slot[0] if $flag;
+return (1, @out);
+
+