3 ###############################################################################
6 # Author : Chris Koeritz #
7 # Rights : Copyright (C) 2000-$now by Author #
11 # Provides a somewhat stylized directory lister. #
13 ###############################################################################
14 # This program is free software; you can redistribute it and/or modify it #
15 # under the terms of the GNU General Public License as published by the Free #
16 # Software Foundation; either version 2 of the License or (at your option) #
17 # any later version. See: "http://www.gruntose.com/Info/GNU/GPL.html" for a #
18 # version of the License. Please send any updates to "fred@gruntose.com". #
19 ###############################################################################
21 require "filename_helper.pl";
25 local($chewed_line) = "";
27 local($print_list) = "";
29 # if there were no parameters, we make the default listing for the current
32 $print_list = "Current Directory";
35 local(@munged_list) = &patch_name_for_pc(&remove_trailing_slashes(@ARGV));
36 $print_list = "@munged_list";
37 @arg_list = &glob_list(@ARGV);
40 foreach $dir (@arg_list) {
41 $chewed_line = $chewed_line . " \"$dir\"";
44 if ("$chewed_line" eq "") {
45 print "No files matched that path specification.\n";
49 # show the header, now that we know there's something to print.
50 print "[" . $print_list . "]\n\n";
52 ##print "chewed_line is: $chewed_line\n";
54 local($temp_file)=`mktemp "$TMP/zz_frdsumdir.XXXXXX"`;
57 system("ls -lF $chewed_line >$temp_file");
59 ##print "file is: $temp_file\n";
61 # drop the main payload, the list of directory info.
62 system("cat $temp_file");
66 # open the file and process the lines to get file lengths.
67 open(DIRLIST, "<$temp_file");
68 foreach $file_line (<DIRLIST>) {
69 (local $munged = $file_line) =~ s/^[^ ]* *[^ ]* *[^ ]* *[^ ]* *([0-9]+).*$/\1/;
70 # print "munge=$munged\n";
74 unlink($temp_file); # clean up.
76 #print "lens are: $lengths\n";
78 local($total)=$lengths;
79 local($kbytes)=int($total / 102.4) / 10;
80 local($mbytes)=int($kbytes / 102.4) / 10;
83 print "These files occupy $total bytes ($kbytes KB / $mbytes MB).\n";
84 print "Overall Drive Usage (megs):\n";
86 system("df -m $chewed_line >$temp_file");
88 # now eat the file again, but this time to get drive space info.
89 open(DIRLIST, "<$temp_file");
90 local($space_info) = "";
91 local($did_title) = 0; # true if we have printed the title by now.
92 foreach $file_line (<DIRLIST>) {
93 ($space_info = $file_line) =~ s/[^ ]* *([^ ]*) *([^ ]*) *([^ ]*) *([^ ]*) *.*$/\1 \2 \3 \4/;
95 # if the title hasn't been printed yet, we take some of the info out of
96 # the line and use it for the right sense of the last column.
97 print "Total Used Free ";
98 $space_info =~ s/[^ ]* *[^ ]* *[^ ]* *([^ ]*)/\1/;
105 unlink($temp_file); # clean up.
107 print "$space_info\n";