smecontribs/smeserver-durep
6
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

initial commit of file from CVS for smeserver-durep on Sat Sep 7 20:21:52 AEST 2024

Browse Source
This commit is contained in:
Trevor Batley
2024-09-07 20:21:52 +10:00
parent b7162f2054
commit ce6f5341b1
30 changed files with 1974 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

452
root/usr/local/bin/durep Executable file
View File

@@ -0,0 +1,452 @@
#!/usr/bin/perl -w
#############################################################################
# durep - Disk Usage Report Generator #
# #
# Copyright (C) 2004 Damian Kramer (psiren@hibernaculum.net) #
# #
# You may distribute this program under the terms of the Artistic License. #
# #
# This program is distributed in the hope that it will be useful, but #
# WITHOUT ANY WARRANTY; without even the implied warranty of #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
# Artistic License for more details. #
#############################################################################
use Getopt::Long;
use File::Basename;
use MLDBM qw(DB_File Storable);
use Fcntl;
use Sys::Hostname;
use POSIX;
use Cwd qw(cwd);
use strict;
our ($version, %options);
our ($root_node, $filesystem_id, @stats);
our ($opt_help, $opt_version, $opt_textdepth, $opt_hidesize, $opt_showdate, $opt_nosort, $opt_quiet);
our ($opt_savefile, $opt_loadfile, $opt_desc, $opt_collate);
our ($opt_files, $opt_onefilesystem, $opt_collapsepath, $opt_excludepath, $opt_coalescefiles);
our ($root_dir, $file_count, $dir_count, $next_id);
our ($TYPE_FILE, $TYPE_DIR, $TYPE_EMPTY, $TYPE_COALESCED, $TYPE_COLLAPSED);
$TYPE_FILE = 0;
$TYPE_DIR = 1;
$TYPE_EMPTY = 2;
$TYPE_COALESCED = 4;
$TYPE_COLLAPSED = 8;
$version = "0.9";
$| = 1;
$SIG{INT} = \&catchError;
%options = ("h|help" => \$opt_help,
"v|version" => \$opt_version,
"td|text-depth=i" => \$opt_textdepth,
"hs|hide-size=s" => \$opt_hidesize,
"sd|show-date" => \$opt_showdate,
"ns|nosort" => \$opt_nosort,
"q|quiet" => \$opt_quiet,
"sf|save-file=s" => \$opt_savefile,
"lf|load-file=s" => \$opt_loadfile,
"d|desc=s" => \$opt_desc,
"c|collate=s" => \$opt_collate,
"f|files" => \$opt_files,
"x|one-file-system" => \$opt_onefilesystem,
"cp|collapse-path=s" => \$opt_collapsepath,
"ep|exclude-path=s" => \$opt_excludepath,
"cf|coalesce-files=s" => \$opt_coalescefiles
);
&usage unless (GetOptions(%options));
&usage if(defined $opt_help);
if(defined $opt_version) {
print "durep version $version\n";
exit 0;
}
## Process options
if($opt_collate) {
collate();
exit 0;
}
$opt_hidesize = processSizeOption($opt_hidesize) if(defined $opt_hidesize);
$opt_coalescefiles = processSizeOption($opt_coalescefiles) if(defined $opt_coalescefiles);
doAbort("Depth must be greater than 0.") if(defined $opt_textdepth && $opt_textdepth < 1);
doAbort("You must specify a save file if you use --quiet.") if(defined $opt_quiet && !defined $opt_savefile);
doAbort("You can't use --load-file and --save-file at the same time.") if(defined $opt_loadfile && defined $opt_savefile);
if($opt_savefile) {
$opt_savefile .= ".ds" unless $opt_savefile =~ /\.ds$/;
}
push @ARGV, "." unless @ARGV;
$root_dir = shift;
chop $root_dir if $root_dir =~ m|./$|; # Remove trailing /
doAbort("`$root_dir' not a valid directory.") unless -d $root_dir;
# Get the absolute pathname rather than relative pathname
$_ = cwd();
chdir($root_dir) or doAbort("Unable to chdir to '$root_dir'.");
$root_dir = cwd();
chdir($_);
if($opt_loadfile) {
tie %{$root_node}, 'MLDBM', "$opt_loadfile", O_RDONLY, 0640 or doAbort("Unable to tie file '$opt_loadfile'.");
}
else {
## Perform scan
$file_count = 0;
$dir_count = 0;
$next_id = 1;
$root_node = {};
if($opt_savefile) {
if(-r $opt_savefile) {
print "Removing existing savefile '$opt_savefile'.\n" unless $opt_quiet;
unlink $opt_savefile;
}
tie %{$root_node}, 'MLDBM', "$opt_savefile", O_CREAT|O_RDWR, 0640 or doAbort("Unable to tie file '$opt_savefile'.");
}
($filesystem_id) = stat $root_dir if defined $opt_onefilesystem;
$root_node->{1} = recursiveScan($root_dir, undef, 1);
my $data;
$data->{FILE_COUNT} = $file_count;
$data->{DIR_COUNT} = $dir_count;
$data->{LAST_UPDATE} = time;
$data->{HOSTNAME} = hostname();
$data->{DESC} = $opt_desc if $opt_desc;
$data->{OPTIONS}->{FILES} = 1 if $opt_files;
$data->{OPTIONS}->{ONEFILESYSTEM} = 1 if $opt_onefilesystem;
$data->{OPTIONS}->{COLLAPSEPATH} = $opt_collapsepath if $opt_collapsepath;
$data->{OPTIONS}->{EXCLUDEPATH} = $opt_excludepath if $opt_excludepath;
$data->{OPTIONS}->{COALESCEFILES} = $opt_coalescefiles if $opt_coalescefiles;
$root_node->{DATA} = $data;
}
# use Data::Dumper;
# print Dumper($root_node);
if(!$opt_quiet) {
printf "[ %s %s (%d files, %d dirs) ]\n", $root_node->{1}->{NAME}, prettyFileSize($root_node->{1}->{SIZE}),
$root_node->{1}->{FCOUNT}, $root_node->{1}->{DCOUNT};
printDir($root_node->{1}, 0);
}
if($opt_savefile || $opt_loadfile) {
untie %{$root_node};
}
exit 0;
## End of program.
sub recursiveScan {
my ($dir, $parent, $store) = @_;
my @children;
my $coalesced_count = 0;
my $coalesced_size = 0;
my $node = {};
my $temp;
my $dirhandle;
$node->{ID} = $next_id++;
if(defined $parent) {
$node->{NAME} = basename($dir);
$node->{PARENT} = $parent;
}
else {
$node->{NAME} = $dir;
}
$node->{SIZE} = 0;
$node->{TYPE} = $TYPE_DIR;
$node->{DCOUNT} = 0;
$node->{FCOUNT} = 0;
if($store) {
$store = 0 if($opt_collapsepath && $dir =~ m/$opt_collapsepath/);
}
$node->{TYPE} &= $TYPE_COLLAPSED unless $store;
opendir($dirhandle, $dir) or warn "Unable to open dir '$dir': $!\n" and return $node;
foreach(readdir($dirhandle)) {
@stats = lstat "$dir/$_" or warn "Unable to lstat '$dir/$_': $!\n" and next;
$node->{MTIME} = $stats[9] if($_ eq ".");
# Skip '.' and '..'
next if(/^\.{1,2}$/);
if(-d _ && ! -l _ && !$opt_files) {
if(! -x _) {
warn "Unable to read directory `$dir/$_'. Skipping.\n";
next;
}
next if($opt_excludepath && "$dir/$_" =~ m/$opt_excludepath/);
next if($opt_onefilesystem && ($stats[0] != $filesystem_id));
$temp = recursiveScan("$dir/$_", $node->{ID}, $store);
$node->{SIZE} += $temp->{SIZE};
if($store) {
$root_node->{$temp->{ID}} = $temp;
push @children, $temp->{ID};
$dir_count++;
$node->{DCOUNT}++;
}
next;
}
if($opt_coalescefiles && $stats[7] < $opt_coalescefiles) {
$coalesced_count++;
$coalesced_size += $stats[7];
}
else {
if($store) {
my $file = {};
$file->{ID} = $next_id++;
$file->{NAME} = $_;
$file->{SIZE} = $stats[7];
$file->{PARENT} = $node->{ID};
$file->{TYPE} = $TYPE_FILE;
$file->{MTIME} = $stats[9];
$root_node->{$file->{ID}} = $file;
push @children, $file->{ID};
}
$node->{SIZE} += $stats[7];
}
$file_count++;
$node->{FCOUNT}++;
}
closedir($dirhandle);
if($coalesced_count) {
if($store) {
my $file = {};
$file->{ID} = $next_id++;
$file->{NAME} = "[COALESCED FILES]";
$file->{SIZE} = $coalesced_size;
$file->{PARENT} = $node->{ID};
$file->{TYPE} = $TYPE_FILE|$TYPE_COALESCED;
$file->{MTIME} = 0;
$file->{FCOUNT} = $coalesced_count;
$root_node->{$file->{ID}} = $file;
push @children, $file->{ID};
}
$node->{SIZE} += $coalesced_size;
}
if(@children) {
$node->{CHILDREN} = \@children;
}
else {
$node->{TYPE} = $TYPE_DIR|$TYPE_EMPTY;
}
# $root_node->{$node->{ID}} = $node;
return $node;
}
sub collate {
my %db;
doAbort("'$opt_collate' is not a valid directory.") unless -d $opt_collate;
tie %db, 'MLDBM', "$opt_collate/durep.cds", O_CREAT|O_RDWR, 0640 or doAbort("Unable to tie file '$opt_collate/durep.cds'");
my @files;
my $next_id = 1;
opendir(DIR, $opt_collate) or doAbort("Unable to open dir '$opt_collate': $!");
foreach(readdir(DIR)) {
# Skip unless a .ds file
next unless(/\.ds$/);
push @files, $_;
}
closedir(DIR);
foreach my $file (sort @files) {
my $id = $next_id++;
my %temp;
tie %temp, 'MLDBM', "$opt_collate/$file", O_RDONLY, 0640 or doAbort("Unable to tie file '$opt_collate/$file'");
my %data = (%{$temp{DATA}});
$data{FILENAME} = $file;
$data{SIZE} = $temp{1}->{SIZE};
$data{ID} = $id;
$data{PATH} = $temp{1}->{NAME};
$db{$id} = \%data;
untie %temp;
}
untie %db;
}
sub printDir {
my ($dir, $indent) = @_;
my @entries;
foreach my $entry (@{$dir->{CHILDREN}}) {
$entry = $root_node->{$entry};
next if(defined $opt_hidesize && $entry->{SIZE} < $opt_hidesize);
my $e = {};
$e->{NAME} = $entry->{NAME};
$e->{SIZE} = $entry->{SIZE};
$e->{TYPE} = $entry->{TYPE};
$e->{MTIME} = $entry->{MTIME};
$e->{CHILDREN} = $entry->{CHILDREN} if $entry->{CHILDREN};
push @entries, $e;
}
@entries = reverse sort sortBySize @entries unless $opt_nosort;
foreach my $entry (@entries) {
my $numofchars;
my $percent = $dir->{SIZE} == 0 ? 0 : ($entry->{SIZE}/$dir->{SIZE})*100;
print " " x $indent;
print prettyFileSize($entry->{SIZE});
$numofchars = int ((30 / 100) * $percent);
printf(" [%s%s] ", "#" x $numofchars, " " x (30-$numofchars));
printf("%6.2f%% ", $percent);
printf("%s ", shortDate($entry->{MTIME})) if $opt_showdate;
printf("%s%s\n", $entry->{NAME}, $entry->{TYPE} & $TYPE_DIR ? "/" : "");
if($entry->{TYPE} & $TYPE_DIR) {
printDir($entry, $indent+1) if(!defined $opt_textdepth || ($opt_textdepth > $indent+1));
}
}
}
sub processSizeOption {
my ($size, $temp);
if($_[0] =~ m/[bBkKmMgG]$/) {
($size, $temp) = $_[0] =~ m/^(.+)([bBkKmMgG])$/;
}
else {
$size = $_[0];
}
unless (defined $size && ($size =~ m/^\d+$/ || $size =~ m/^\d+\.\d+$/)) {
doAbort("Malformed argument: $_[0]");
}
if(defined $temp) {
if($temp =~ m/^[kK]/) {
return $size * 1024;
}
elsif ($temp =~ m/^[mM]/) {
return $size * 1048576;
}
elsif ($temp =~ m/^[mM]/) {
return $size * 1048576 * 1024;
}
return $size;
}
}
sub prettyFileSize {
my $val = $_[0];
my $dtype = "b";
if($val >= 1024) {
$val /= 1024;
$dtype = "K";
}
if($val >= 1024) {
$val /= 1024;
$dtype = "M";
}
if($val >= 1024) {
$val /= 1024;
$dtype = "G";
}
if($dtype eq "b") {
return sprintf("%6d%s", $val, $dtype);
}
else {
return sprintf("%6.1f%s", $val, $dtype);
}
}
sub shortDate {
if($_[0] < (time - 31536000)) {
return POSIX::strftime("%b %e %Y", localtime $_[0]);
}
return POSIX::strftime("%b %e %H:%M", localtime $_[0]);
}
sub sortBySize {
return $a->{SIZE} <=> $b->{SIZE};
}
### End program with error message
sub doAbort {
warn "Error: $_[0]\n";
exit 1;
}
sub catchError {
warn "Program interrupted.\n";
if($opt_savefile || $opt_loadfile) {
untie %{$root_node};
}
exit 1;
}
sub usage {
print <<EOF;
Usage: durep [OPTION(S)] [DIRECTORY]
-h, --help this help
-v, --version show version number
Text Ouput Options:
-td, --text-depth=N limit text report on directories to depth N
-hs, --hide-size=N[bkmg] do not display entries using N Bytes/Kb/Mb/Gb
or less (default Bytes)
-sd, --show-date show modification date
-ns, --nosort do not sort results by size
-q, --quiet do not produce text output
File Options:
-sf, --save-file=<file> save the results of the scan into this file
-lf, --load-file=<file> load the results of a scan from this file
-d, --desc=<description> give description of save file
-c, --collate=<dir> collate save files in dir for web report
Inclusion Options:
-f, --files do not descend into subdirs, only report files
-x, --one-file-system do not traverse file systems
-cp, --collapse-path=<regexp> hide entries below paths that match regexp
-ep, --exclude-path=<regexp> ignore paths that match regexp
-cf, --coalesce-files=N[bkmg] coalesce files less than N Bytes/Kb/Mb/Gb
into one entry (default Bytes)
EOF
exit 0;
}

290
root/usr/local/man/man1/durep.1 Normal file
View File

@@ -0,0 +1,290 @@
.\" Automatically generated by Pod::Man version 1.15
.\" Fri Nov 26 12:13:59 2004
.\"
.\" Standard preamble:
.\" ======================================================================
.de Sh \" Subsection heading
.br
.if t .Sp
.ne 5
.PP
\fB\\$1\fR
.PP
..
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Ip \" List item
.br
.ie \\n(.$>=3 .ne \\$3
.el .ne 3
.IP "\\$1" \\$2
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings. \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote. | will give a
.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used
.\" to do unbreakable dashes and therefore won't be available. \*(C` and
.\" \*(C' expand to `' in nroff, nothing in troff, for use with C<>
.tr \(*W-|\(bv\*(Tr
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
. ds -- \(*W-
. ds PI pi
. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
. ds L" ""
. ds R" ""
. ds C` ""
. ds C' ""
'br\}
.el\{\
. ds -- \|\(em\|
. ds PI \(*p
. ds L" ``
. ds R" ''
'br\}
.\"
.\" If the F register is turned on, we'll generate index entries on stderr
.\" for titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and
.\" index entries marked with X<> in POD. Of course, you'll have to process
.\" the output yourself in some meaningful fashion.
.if \nF \{\
. de IX
. tm Index:\\$1\t\\n%\t"\\$2"
..
. nr % 0
. rr F
.\}
.\"
.\" For nroff, turn off justification. Always turn off hyphenation; it
.\" makes way too many mistakes in technical documents.
.hy 0
.if n .na
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
.bd B 3
. \" fudge factors for nroff and troff
.if n \{\
. ds #H 0
. ds #V .8m
. ds #F .3m
. ds #[ \f1
. ds #] \fP
.\}
.if t \{\
. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
. ds #V .6m
. ds #F 0
. ds #[ \&
. ds #] \&
.\}
. \" simple accents for nroff and troff
.if n \{\
. ds ' \&
. ds ` \&
. ds ^ \&
. ds , \&
. ds ~ ~
. ds /
.\}
.if t \{\
. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
. \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
. \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
. \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
. ds : e
. ds 8 ss
. ds o a
. ds d- d\h'-1'\(ga
. ds D- D\h'-1'\(hy
. ds th \o'bp'
. ds Th \o'LP'
. ds ae ae
. ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ======================================================================
.\"
.IX Title "DUREP 1"
.TH DUREP 1 "durep version " "2004-09-05" "Disk Usage Report Generator"
.UC
.SH "NAME"
durep \- disk usage report generator
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
durep [\s-1OPTIONS\s0]... [\s-1DIRECTORY\s0]
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
\&\fBdurep\fR creates disk usage reports with bar graphs, allowing one to
easily deduce which directories are using the most space. Although
\&\fBdurep\fR can produce text output similar to du, its real power lies in
the ability to store reports in a file, which can then be viewed as a
web page with the supplied cgi script.
.SH "OPTIONS"
.IX Header "OPTIONS"
Options are groubed into three distinct sections.
.Sh "Text Output Options"
.IX Subsection "Text Output Options"
These options are for controlling the text report output.
.Ip "\fB\-td, \-\-text-depth\fR=\fIN\fR" 7
.IX Item "-td, --text-depth=N"
Limit text report on directories to depth \fIN\fR. No directories below
this level will be shown in the report.
.Ip "\fB \-hs, \-\-hide-size\fR=\fIN[bkmg]\fR" 7
.IX Item " -hs, --hide-size=N[bkmg]"
Do not display entries using \fIN\fR Bytes/Kb/Mb/Gb or less (default
Bytes). This is to reduce clutter in the reports. It allows you to
remove small files from the text report.
.Ip "\fB \-sd, \-\-show-date\fR" 7
.IX Item " -sd, --show-date"
Display the modification date of the file or directory in the report.
.Ip "\fB\-ns, \-\-nosort\fR" 7
.IX Item "-ns, --nosort"
Do not sort results by size. Leaves results in the order in which they
were scanned, which is highly dependant on the filesystem.
.Ip "\fB\-q, \-\-quiet\fR" 7
.IX Item "-q, --quiet"
Do not produce text output. This stops the creation of a text report,
and is useful when you are only interested in generating a save-file
for use with the web report.
.Sh "File Options"
.IX Subsection "File Options"
These options control load and save files.
.Ip "\fB\-sf, \-\-save-file\fR=\fI\s-1FILE\s0\fR" 7
.IX Item "-sf, --save-file=FILE"
Save the results of the scan into this file. This can be loaded for a
text report, but is generally used by the cgi script to display web
reports. The filename should end in \fI.ds\fR (it is appended if it does
not).
.Ip "\fB\-lf, \-\-load-file\fR=\fI\s-1FILE\s0\fR" 7
.IX Item "-lf, --load-file=FILE"
Load the results of a scan from this file. This takes the place of
scanning a directory. Inclusion options (described below) will not
take effect if this option is used.
.Ip "\fB\-d, \-\-desc\fR=\fI\s-1DESCRIPTION\s0\fR" 7
.IX Item "-d, --desc=DESCRIPTION"
Give a description to be stored in the save-file. This is displayed on
the web report summary page.
.Ip "\fB\-c, \-\-collate=\fR=\fI\s-1DIR\s0\fR" 7
.IX Item "-c, --collate==DIR"
Collate the save-files in the given directory. This creates a
\&\fIdurep.cds\fR file, which is used by the cgi script to manage and
display save-files. See \fBWeb Reports\fR section below for more detail.
.Sh "Inclusion Options"
.IX Subsection "Inclusion Options"
These options control which directories and files should be included in the report.
.Ip "\fB\-f, \-\-files\fR" 7
.IX Item "-f, --files"
Do not descend into sub-directories, only report files.
.Ip "\fB\-x, \-\-one-file-system\fR" 7
.IX Item "-x, --one-file-system"
Do not traverse file systems. This is similar to the \fB\-x\fR option for
du, allowing easy checking of an entire filesystem such as /.
.Ip "\fB\-cp, \-\-collapse-path=\fR\fI\s-1PATTERN\s0\fR" 7
.IX Item "-cp, --collapse-path=PATTERN"
Hide entries below paths that match \fI\s-1PATTERN\s0\fR. This allows you to
conceal the contents of certain directories in the report. You may
wish perhaps to show home directories in a report but not show their
content in which case you could use the option \f(CW\*(C`\-cp
\&'/home'\*(C'\fR.
.Ip "\fB\-ep, \-\-exclude-path\fR=\fI\s-1PATTERN\s0\fR" 7
.IX Item "-ep, --exclude-path=PATTERN"
Ignore paths that match \fI\s-1PATTERN\s0\fR. This works in a smilar manner to
\&\f(CW\*(C`\-cp\*(C'\fR above, except it excludes the directory from the scan itself.
.Ip "\fB\-cf, \-\-coalesce-files=\fR=\fIN[bkmg]\fR" 7
.IX Item "-cf, --coalesce-files==N[bkmg]"
Coalesces entries for files below the given size into one entry. This
is useful for reducing clutter in reports.
.SH "WEB REPORTS"
.IX Header "WEB REPORTS"
Since version 0.9, durep no longer directly generates html files for
its web reports. It now uses a cgi script that reads data from
save-files. The script will handle multiple save-files, potentially
from multiple hosts, so you can consolidate your reports into one
place. Copying save-files from other hosts is left as an exercise for
the reader.
.PP
It is necessary to collate the save-files before viewing them via the
cgi script. This process creates the file \f(CW\*(C`durep.cds\*(C'\fR which contains
metadata about all of the save-files. From this a summary page is
shown where you can choose which report you wish to view. The
collation must be done any time a save-file is added or overwritten.
.PP
The cgi-script has some configurable variables at the top. These tell
the script where to look for the css file and the graphic used for the
bar graphs. There are also options to set whether the modification
date, and/or the options used to create the save-file should be
shown. These are both set to 1 by default.
.PP
As always, you should take care when installing the cgi script. I've
done my best, but I make no guarantees about its security. It would
probably be unwise to allow this script to be accessed from the
internet at large.
.SH "EXAMPLES"
.IX Header "EXAMPLES"
.Ip "1." 3
\&\fBdurep \-td 2\fR
.Sp
This would print the directory tree starting from the current
directory to depth 2.
.Ip "2." 3
\&\fBdurep \-f /var/spool/mail\fR
.Sp
This might be useful for keeping a check on the mail directory. The
\&\f(CW\*(C`\-f\*(C'\fR switch tells durep to just scan files and not descend into
directories.
.Ip "3." 3
\&\fBdurep \-x \-cp \*(L"/(etc|usr/share)\*(R" \-ep \*(L"/var\*(R" \-sf /var/lib/durep/root.ds /\fR
.Sp
This more complicated version does the following. It scans the root
filesystem only, collapses the contents of any paths begining \fI/etc\fR
or \fI/usr/share\fR and skips the contents of the \fI/var\fR directory. It
saves the output of this report into the file
\&\fI/var/lib/durep/root.ds\fR. No text report is produced.
.Ip "4." 3
\&\fBdurep \-lf /var/lib/durep/root.ds \-hs 1m\fR
.Sp
This reads the save-file \fI/var/lib/durep/root.ds\fR and produces a text
report from it, hiding any files below 1 megabyte.
.Ip "5." 3
\&\fBdurep \-c /var/lib/durep\fR
.Sp
This collates any save-files in \fI/var/lib/durep\fR.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
\&\fIdu\fR\|(1), \fIperl\fR\|(1)
.SH "AUTHOR"
.IX Header "AUTHOR"
Damian Kramer <psiren@hibernaculum.net>