Gecko [ www.ctm-euromeuble.fr ]

Name	Size	Permission	Date
afpd	3.84 KB	-rwxr-xr-x	2017-01-21 17:44
amavis	176.48 KB	-rwxr-xr-x	2017-01-21 17:44
arpwatch	1.43 KB	-rwxr-xr-x	2017-01-21 17:44
audit	15.59 KB	-rwxr-xr-x	2017-01-21 17:44
automount	5.24 KB	-rwxr-xr-x	2017-01-21 17:44
autorpm	2.25 KB	-rwxr-xr-x	2017-01-21 17:44
barracuda	11.85 KB	-rwxr-xr-x	2017-01-21 17:44
bfd	2.2 KB	-rwxr-xr-x	2017-01-21 17:44
cisco	44.38 KB	-rwxr-xr-x	2016-07-26 19:43
citadel	58.58 KB	-rwxr-xr-x	2017-01-21 17:44
clam-update	6.93 KB	-rwxr-xr-x	2017-01-21 17:44
clamav	6.17 KB	-rwxr-xr-x	2017-01-21 17:44
clamav-milter	4.17 KB	-rwxr-xr-x	2017-01-21 17:44
courier	23.28 KB	-rwxr-xr-x	2017-01-21 17:44
cron	12.58 KB	-rwxr-xr-x	2017-01-21 17:44
denyhosts	1.75 KB	-rwxr-xr-x	2017-01-21 17:44
dhcpd	11 KB	-rwxr-xr-x	2017-01-21 17:44
dirsrv	4.85 KB	-rwxr-xr-x	2017-01-21 17:44
dnssec	4.99 KB	-rwxr-xr-x	2017-01-21 17:44
dovecot	24.72 KB	-rwxr-xr-x	2017-01-21 17:44
dpkg	3.21 KB	-rwxr-xr-x	2017-01-21 17:44
emerge	4.44 KB	-rwxr-xr-x	2017-01-21 17:44
evtapplication	5.92 KB	-rwxr-xr-x	2017-01-21 17:44
evtsecurity	12.7 KB	-rwxr-xr-x	2017-01-21 17:44
evtsystem	14.95 KB	-rwxr-xr-x	2017-01-21 17:44
exim	24.79 KB	-rwxr-xr-x	2017-01-21 17:44
eximstats	1.91 KB	-rwxr-xr-x	2017-01-21 17:44
extreme-networks	10.91 KB	-rwxr-xr-x	2017-01-21 17:44
fail2ban	9.98 KB	-rwxr-xr-x	2017-01-21 17:44
fetchmail	3.53 KB	-rwxr-xr-x	2017-01-21 17:44
freeradius	10.22 KB	-rwxr-xr-x	2017-01-21 17:44
ftpd-messages	7.67 KB	-rwxr-xr-x	2017-01-21 17:44
ftpd-xferlog	6.18 KB	-rwxr-xr-x	2017-01-21 17:44
http	23.73 KB	-rwxr-xr-x	2017-01-21 17:44
http-error	4.22 KB	-rwxr-xr-x	2016-07-26 19:43
identd	5.54 KB	-rwxr-xr-x	2017-01-21 17:44
imapd	11.15 KB	-rwxr-xr-x	2017-01-21 17:44
in.qpopper	4.84 KB	-rwxr-xr-x	2017-01-21 17:44
init	3.48 KB	-rwxr-xr-x	2017-01-21 17:44
ipop3d	4.08 KB	-rwxr-xr-x	2017-01-21 17:44
iptables	14.96 KB	-rwxr-xr-x	2017-01-21 17:44
kernel	10.56 KB	-rwxr-xr-x	2017-01-21 17:44
knockd	2.8 KB	-rwxr-xr-x	2017-01-21 17:44
lvm	3.12 KB	-rwxr-xr-x	2017-01-21 17:44
mailscanner	27.15 KB	-rwxr-xr-x	2017-01-21 17:44
mdadm	4.58 KB	-rwxr-xr-x	2017-01-21 17:44
mod_security2	7.82 KB	-rwxr-xr-x	2017-01-21 17:44
modprobe	4.17 KB	-rwxr-xr-x	2017-01-21 17:44
mountd	4.35 KB	-rwxr-xr-x	2017-01-21 17:44
mysql	4.52 KB	-rwxr-xr-x	2017-01-21 17:44
mysql-mmm	4.84 KB	-rwxr-xr-x	2017-01-21 17:44
named	31.26 KB	-rwxr-xr-x	2017-01-21 17:44
netopia	14.98 KB	-rwxr-xr-x	2017-01-21 17:44
netscreen	20.63 KB	-rwxr-xr-x	2017-01-21 17:44
oidentd	5.47 KB	-rwxr-xr-x	2017-01-21 17:44
omsa	2.59 KB	-rwxr-xr-x	2017-01-21 17:44
openvpn	13.68 KB	-rwxr-xr-x	2017-01-21 17:44
pam	1.86 KB	-rwxr-xr-x	2017-01-21 17:44
pam_pwdb	7.84 KB	-rwxr-xr-x	2017-01-21 17:44
pam_unix	16.03 KB	-rwxr-xr-x	2017-01-21 17:44
php	5.1 KB	-rwxr-xr-x	2017-01-21 17:44
pix	13.29 KB	-rwxr-xr-x	2017-01-21 17:44
pluto	11.97 KB	-rwxr-xr-x	2017-01-21 17:44
pop3	15.18 KB	-rwxr-xr-x	2017-01-21 17:44
portsentry	5 KB	-rwxr-xr-x	2017-01-21 17:44
postfix	241.59 KB	-rwxr-xr-x	2017-01-21 17:44
postgresql	5.39 KB	-rwxr-xr-x	2017-01-21 17:44
pound	3.52 KB	-rwxr-xr-x	2017-01-21 17:44
proftpd-messages	10.6 KB	-rwxr-xr-x	2017-01-21 17:44
puppet	10.37 KB	-rwxr-xr-x	2016-07-26 19:43
pureftpd	8.17 KB	-rwxr-xr-x	2017-01-21 17:44
qmail	5.73 KB	-rwxr-xr-x	2017-01-21 17:44
qmail-pop3d	4.43 KB	-rwxr-xr-x	2017-01-21 17:44
qmail-pop3ds	3.98 KB	-rwxr-xr-x	2017-01-21 17:44
qmail-send	19.63 KB	-rwxr-xr-x	2017-01-21 17:44
qmail-smtpd	56.05 KB	-rwxr-xr-x	2017-01-21 17:44
raid	1.73 KB	-rwxr-xr-x	2017-01-21 17:44
resolver	3.43 KB	-rwxr-xr-x	2017-01-21 17:44
rsnapshot	3.33 KB	-rwxr-xr-x	2017-01-21 17:44
rsyslogd	1.79 KB	-rwxr-xr-x	2016-07-26 19:43
rt314	4.43 KB	-rwxr-xr-x	2017-01-21 17:44
samba	25.63 KB	-rwxr-xr-x	2017-01-21 17:44
saslauthd	4.06 KB	-rwxr-xr-x	2017-01-21 17:44
scsi	3.34 KB	-rwxr-xr-x	2017-01-21 17:44
secure	41.04 KB	-rwxr-xr-x	2017-01-21 17:44
sendmail	92.27 KB	-rwxr-xr-x	2017-01-21 17:44
sendmail-largeboxes	2.51 KB	-rwxr-xr-x	2017-01-21 17:44
shaperd	5.64 KB	-rwxr-xr-x	2017-01-21 17:44
slon	4.61 KB	-rwxr-xr-x	2017-01-21 17:44
smartd	16.1 KB	-rwxr-xr-x	2017-01-21 17:44
sonicwall	25 KB	-rwxr-xr-x	2017-01-21 17:44
spamassassin	7.56 KB	-rwxr-xr-x	2016-07-26 19:43
sshd	30.98 KB	-rwxr-xr-x	2017-01-21 17:44
sshd2	2.02 KB	-rwxr-xr-x	2017-01-21 17:44
sssd	2.45 KB	-rwxr-xr-x	2017-01-21 17:44
stunnel	5.61 KB	-rwxr-xr-x	2016-07-26 19:43
sudo	6.01 KB	-rwxr-xr-x	2017-01-21 17:44
syslog-ng	20.61 KB	-rwxr-xr-x	2017-01-21 17:44
syslogd	1.98 KB	-rwxr-xr-x	2017-01-21 17:44
systemd	7.53 KB	-rwxr-xr-x	2017-01-21 17:44
tac_acc	4.12 KB	-rwxr-xr-x	2017-01-21 17:44
tivoli-smc	4.41 KB	-rwxr-xr-x	2016-07-26 19:43
up2date	4.79 KB	-rwxr-xr-x	2017-01-21 17:44
vdr	8.3 KB	-rwxr-xr-x	2017-01-21 17:44
vpopmail	3.48 KB	-rwxr-xr-x	2017-01-21 17:44
vsftpd	8.28 KB	-rwxr-xr-x	2017-01-21 17:44
windows	16.12 KB	-rwxr-xr-x	2017-01-21 17:44
xntpd	8.59 KB	-rwxr-xr-x	2017-01-21 17:44
yum	2.8 KB	-rwxr-xr-x	2017-01-21 17:44
zypp	2.48 KB	-rwxr-xr-x	2017-01-21 17:44
zz-disk_space	6.02 KB	-rwxr-xr-x	2017-01-21 17:44
zz-fortune	1.69 KB	-rwxr-xr-x	2017-01-21 17:44
zz-lm_sensors	1.82 KB	-rwxr-xr-x	2017-01-21 17:44
zz-network	12.79 KB	-rwxr-xr-x	2017-01-21 17:44
zz-runtime	1.66 KB	-rwxr-xr-x	2017-01-21 17:44
zz-sys	3.01 KB	-rwxr-xr-x	2017-01-21 17:44
zz-zfs	5.91 KB	-rwxr-xr-x	2017-01-21 17:44

Rename

#!/usr/bin/perl
###########################################################################
# $Id$
###########################################################################
# $Log$
#
###########################################################################

###########################################################################
# zz-zfs: Output states of ZFS pools and datasets
#
#       Detail Levels:
#        0: Output list of pools and capacities
#        5: Output full pool status (automatic if any pools are not healthy)
#
###########################################################################

#######################################################
## Copyright 2011 Cloyce D. Spradling
## Covered under the included MIT/X-Consortium License:
##    http://www.opensource.org/licenses/mit-license.php
## All modifications and contributions by other persons to
## this script are assumed to have been donated to the
## Logwatch project and thus assume the above copyright
## and licensing terms.  If you want to make contributions
## under your own copyright or a different license this
## must be explicitly stated in the contribution an the
## Logwatch project reserves the right to not accept such
## contributions.  If you have made significant
## contributions to this script and want to claim
## copyright please contact logwatch-devel@lists.sourceforge.net.
#########################################################

use strict;
use vars qw($logwatch_hostname $DebugCounter);
use POSIX;

# Keep the pipes hot
$| = 1;

$ENV{PRINTING} = "y";

my $debug = $ENV{'LOGWATCH_DEBUG'} || 0;
my $detail = $ENV{'LOGWATCH_DETAIL_LEVEL'} || $ENV{'zfs_detail'} || 0;

my ($os_name, $host, $os_release, $version, $machine) = POSIX::uname();

# Check to see if we should even be looking at this...
$host =~ s/\..*//;  # Trim domain (if any)
if ($ENV{'LOGWATCH_ONLY_HOSTNAME'} && ($logwatch_hostname ne $host)) {
  exit 0;
}

my $pathto_zpool = $ENV{'pathto_zpool'} || '/usr/sbin/zpool';
my $pathto_zfs   = $ENV{'pathto_zfs'}   || '/usr/sbin/zfs';
my $summary_only = $ENV{'summary_only'} || ($detail < 5);
my $detail_only  = $ENV{'detail_only'}  || 0;

if (!-x $pathto_zpool) {
   # Doesn't support ZFS
   exit 0;
}

if ( $debug >= 5 ) {
    print STDERR "\n\nDEBUG: Inside zz-zfs\n\n";
    $DebugCounter = 1;
}

my @pools = ();
my %poolinfo = ();
my %counts = ( 'mounted'    => 0,
               'filesystem' => 0,
               'snapshot'   => 0,
               'volume'     => 0,
             );
my $total_pools = 0;

# Table for converting things to kibibytes
my %units = ( 'P' => 1024 * 1024 * 1024 * 1024,
              'T' => 1024 * 1024 * 1024,
              'G' => 1024 * 1024,
              'M' => 1024,
              'K' => 1,
            );
my $unit_re = '['.join('', keys %units).']';

# Discover the pools
open POOLS, '-|', $pathto_zpool, qw(list -H -o name,size,allocated,free,dedupratio,capacity,health) or die "Error running 'zpool list': $!\n";
while(<POOLS>) {
   chomp;
   my ($name, $size, $used, $avail, $dedup, $cap, $health) = split(/\s+/);
   next unless $name ne '';
   $size = convert_to_kb($size);
   $used = convert_to_kb($used);
   $avail = convert_to_kb($avail);
   print STDERR "\nPOOLS: \"$_\" name=\"$name\" size=$size used=$used avail=$avail dedup=$dedup cap=\"$cap\" health=\"$health\"\n" if ($debug);
   push @pools, [ $name, $size, $used, $avail, $dedup, $cap, $health ];
}
close(POOLS);

exit 0 unless @pools;   # Nothing to do?

# Read filesystem information for each pool
foreach my $type (qw( filesystem volume snapshot ) ) {
   foreach my $pool (map { $_->[0] } @pools) {
      open POOLINFO, '-|', $pathto_zfs, qw(list -H -t), $type, qw(-o name,referenced,available,mountpoint -r), $pool or die "Error running 'zfs list': $!\n";
      while(<POOLINFO>) {
         next if /no datasets available/i;
         chomp;
         my ($name, $used, $avail, $mountpoint) = split(/\s+/);
         next unless $name ne '';
         $used = convert_to_kb($used);
         $avail = convert_to_kb($avail);
         print STDERR "\nPOOLINFO: \"$_\" name=\"$name\" used=$used avail=$avail mountpoint=\"$mountpoint\"\n" if ($debug);
         push @{$poolinfo{$pool}->{$type}}, [ $name, $used, $avail, $mountpoint ];
         $counts{$type}++;
         $counts{'mounted'}++ if ($type eq 'filesystem' && $mountpoint ne 'none');
      }
      close(POOLINFO)
   }
}

print "Total ZFS pools:   ".(@pools+0)."\n";
print "Total filesystems: $counts{'filesystem'} ($counts{'mounted'} mounted)\n";
print "Total snapshots:   $counts{'snapshot'}\n";
print "Total volumes:     $counts{'volume'}\n";

if (!$detail_only) {
   my $pool_format = "%2s%-15s  %-10s  %-10s  %-10s  %-10s  %s\n";
   print "\n------------------- ZFS Pool Summary -------------------\n\n";
   printf $pool_format, '', 'Pool Name', 'Size (MiB)', 'Used (MiB)', 'Free (MiB)', 'Dedup', '';
   foreach my $poolref (@pools) {
      my ($name, $size, $used, $avail, $dedup, $cap, $health) = @{$poolref};
      my $badflag = ($health eq 'ONLINE') ? '' : '!!';
      $detail = 1000 if $badflag ne '';	# Show status if something's wrong
      printf $pool_format, $badflag, $name, convert_to_mb($size, 10), convert_to_mb($used, 10), convert_to_mb($avail, 10), $dedup, $cap;
   }
   print "\n--------------------------------------------------------\n\n";
}

if (!$summary_only || $detail > 999) {
   print "\n------------------- ZFS Pool Status -------------------\n\n";
   foreach my $pool (map { $_->[0] } @pools) {
      system $pathto_zpool, 'status', $pool;
   }
   print "\n-------------------------------------------------------\n\n";
}

sub convert_to_kb {
   my ($val) = @_;

my ($num, $unit) = ($val =~ /([\.\d]+)\s*($unit_re)?/io);
   return 0 if $num eq '';
   $unit = uc($unit);

return $num * $units{$unit};
}

sub convert_to_mb {
   my ($kb, $width) = @_;
   $width = 0 unless defined($width);

$kb /= 1024;
   $kb = int(($kb * 10) + 0.5) / 10;

return sprintf '%*.1f', $width, $kb;
}

# vi: shiftwidth=3 tabstop=3 syntax=perl et