smeserver-durep
-SMEServer Koozali developed git repo for smeserver-durep smecontribs
\ No newline at end of file
+SMEServer Koozali developed git repo for smeserver-durep smecontribs
+
+## Wiki
+"; + + print "
$key | [$length] | [$val] |
Disk Usage Report
+| Path | Description | Size | Dirs | Files | Date | |
|---|---|---|---|---|---|---|
| $host | ||||||
| "; + print " | $e->{PATH} | "; + printf "%s | ", $e->{DESC} || "-"; + printf "%s | ", prettyFileSize($e->{SIZE}); + printf "%s | ", prettyNum($e->{DIR_COUNT}); + printf "%s | ", prettyNum($e->{FILE_COUNT}); + printf "%s | ", prettyDate($e->{LAST_UPDATE}); + print "
| Filesystem | Sized | Used | Available | Use % | Mounted on |
|---|---|---|---|---|---|
| #g'|sed 's#\$# | /g; +print $dflist; + + + print qq{ + |
Disk Usage Report ($data->{HOSTNAME})
+"; + + print "| Size | Percentage | "; + print "Dirs | Files | "; + print "Modified | " if $show_mtime; + print "File | |||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| "; + print prettyFileSize($node->{SIZE}); + print " | "; + print barChart($percent); + printf(" | %4.2f%% | ", $percent); + + if($node->{TYPE} & $TYPE_DIR) { + if($node->{TYPE} & $TYPE_EMPTY) { + print "0 | 0 | "; + printf("%s | ", shortDate($node->{MTIME})) if $show_mtime; + print "$node->{NAME}/ | "; + } + else { + printf("%d | ", $node->{DCOUNT}); + printf("%d | ", $node->{FCOUNT}); + printf("%s | ", shortDate($node->{MTIME})) if $show_mtime; + print "$node->{NAME}/ | "; + } + } + elsif($node->{TYPE} & $TYPE_COALESCED) { + printf "%d | ", $node->{FCOUNT}; + printf("%s | ", shortDate($node->{MTIME})) if $show_mtime; + print "$node->{NAME} | "; + } + else { + print ""; + printf(" | %s | ", shortDate($node->{MTIME})) if $show_mtime; + print "$node->{NAME} | "; + } + print "||
";
+ if($percent) {
+ $rv .= "
";
+ }
+ else {
+ $rv .= " ";
+ }
+ $rv .= "
";
+ return $rv;
+}
+
+# Generates a human readable file size string
+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("%d%s", $val, $dtype);
+ }
+ else {
+ return sprintf("%.1f%s", $val, $dtype);
+ }
+}
+
+
+sub prettyDate {
+ return POSIX::strftime("%T %a %b %e %Y", localtime $_[0]);
+}
+
+sub shortDate {
+ if($_[0] < (time - 31536000)) {
+ return POSIX::strftime("%b %e %Y", localtime $_[0]);
+ }
+ return POSIX::strftime("%b %e %H:%M", localtime $_[0]);
+}
+
+sub prettyNum {
+ my $r = reverse shift;
+ $r =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
+ return scalar reverse $r;
+}
+
+sub sortBySize {
+ return $a->{SIZE} <=> $b->{SIZE};
+}
+
+sub sortByDate {
+ return $a->{LAST_UPDATE} <=> $b->{LAST_UPDATE};
+}
+
+sub sortByPath {
+ return $a->{PATH} cmp $b->{PATH};
+}
+
+sub loadCollateFile {
+ my $dir = shift;
+ my %db;
+ my $r;
+ tie %db, 'MLDBM', "$dir/durep.cds", O_RDONLY, 0640 or errorPage();
+
+ foreach my $key (keys %db) {
+ $r->{$key} = \%{$db{$key}};
+ }
+ untie %db;
+ return $r;
+}
+
+sub sortCollateFile {
+ my $hash = shift;
+ my $r;
+ foreach my $key (keys %{$hash}) {
+ my $hostname = $hash->{$key}->{HOSTNAME};
+ push @{$r->{$hostname}}, \%{$hash->{$key}};
+ }
+ return $r;
+}
+
+
+sub errorPage {
+ print "Content-type: text/html\n\n";
+ print qq{
+
+
+
+Durep encountered an error!
+Please check that you have collated the files and that the permissions on them are correct.
+ + +}; +exit 0; +} diff --git a/root/etc/e-smith/web/panels/manager/html/durep/style.css b/root/etc/e-smith/web/panels/manager/html/durep/style.css new file mode 100644 index 0000000..46b03d4 --- /dev/null +++ b/root/etc/e-smith/web/panels/manager/html/durep/style.css @@ -0,0 +1,125 @@ +a:hover { + background-color: #DDDDDD; +} + +body { + text-align: center; + background-color: #ffffff; +} + +div.tbar { + text-align: left; + width: 100%; + background-color: #EEEEEE; + border-top: solid 1px #DDDDDD; + border-bottom: solid 1px #DDDDDD; +} + +div.bbar { + text-align: left; + width: 100%; + background-color: #EEEEEE; + border-top: solid 1px #DDDDDD; + border-bottom: solid 1px #DDDDDD; +} + +div.bbar * { + font-size: 90%; +} + +div.options { + text-align: left; + margin: 2em; + background-color: #EEEEEE; + border: solid 1px #DDDDDD; +} + +.light { + background-color: #ffffff; + } + +.mid { + background-color: #f6f6f6; +} + +.dark { + background-color: #f0f0f0; +} + +.tbar table { + width: 100%; + padding-left: 2pt; + font-weight: bold; +} + +.bbar table { + width: 100%; + padding-left: 2pt; +} + +table.list { + margin: 2em 0px; + border: solid 1px #CCCCCC; + margin-left: auto; + margin-right: auto; +} + +table.list td { + text-align: left; + padding: 2px 5px; +} + +table.list th { + text-align: left; + padding: 2px 5px; + text-align: left; + background-color: #DDDDDD; +} + +table.report { + margin: 2em 0px; + border: solid 1px #CCCCCC; + text-align: left; + margin-left: auto; + margin-right: auto; +} + +table.report td { + padding: 2px 5px; +} + +table.report th { + padding: 2px 5px; + text-align: left; + background-color: #DDDDDD; +} + +.graph { + padding: 0px; + background-color: #eeeeee; + width: 200px; + height: 15px; +} + +th.right { + text-align: right; +} + +td.right { + text-align: right; +} + +span.dir { + font-weight: bold; +} + +span.empty { + color: #006600; + font-weight: bold; +} + +span.coalesced { + color: #880000; + font-weight: bold; +} + diff --git a/root/etc/e-smith/web/panels/user/html/durep b/root/etc/e-smith/web/panels/user/html/durep new file mode 120000 index 0000000..ce314cb --- /dev/null +++ b/root/etc/e-smith/web/panels/user/html/durep @@ -0,0 +1 @@ +/etc/e-smith/web/panels/manager/html/durep \ No newline at end of file diff --git a/root/usr/local/bin/durep b/root/usr/local/bin/durep new file mode 100755 index 0000000..95210c2 --- /dev/null +++ b/root/usr/local/bin/durep @@ -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 <+ %= dumper $c->current_route +
+ % } + +
+ % if ( stash 'error' ) {
+
+% end
diff --git a/root/var/lib/durep/.gitignore b/root/var/lib/durep/.gitignore
new file mode 100644
index 0000000..e69de29
diff --git a/root/var/www/.gitignore b/root/var/www/.gitignore
new file mode 100644
index 0000000..e69de29
diff --git a/smeserver-durep.spec b/smeserver-durep.spec
new file mode 100644
index 0000000..fd0faef
--- /dev/null
+++ b/smeserver-durep.spec
@@ -0,0 +1,151 @@
+# $Id: smeserver-durep.spec,v 1.15 2024/03/01 15:05:04 brianr Exp $
+# Authority: unnilennnium
+# Name: JP Pialasse
+
+%define name smeserver-durep
+Name: %{name}
+%define version 1.5.0
+Version: %{version}
+%define release 18
+Release: %{release}%{?dist}
+License: GPL
+Source: %{name}-%{version}.tar.xz
+
+
+BuildRoot: /var/tmp/%{name}-%{version}-buildroot
+BuildRequires: e-smith-devtools
+BuildArch: noarch
+Group: Networking/Daemons
+Summary: DUREP - Graphic Report for Disk Usage
+Requires: perl(Data::Dumper)
+Requires: perl(MLDBM) >= 1.21-4
+Obsoletes: smeserver-durep-saco
+Obsoletes: e-smith-durep
+
+AutoReqProv: no
+
+%changelog
+* Sat Sep 07 2024 cvs2git.sh aka Brian Read
+ %= $c->render_to_string(inline => stash 'error')
+
+ %}
+
+ %= $c->render_to_string(inline => $modul)
+
+