hjp
/
simple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

added dfree to repository.

This commit is contained in:
hjp 2001-07-16 13:58:03 +00:00
parent b39a4ebfbd
commit 0e5c1c441d
2 changed files with 60 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
quotacheck/GNUmakefile
View File

@ -10,6 +10,7 @@ distclean: clean
rm -f customize rm -f customize
install: $(SBINDIR) $(SBINDIR)/quotacheck $(SBINDIR)/quotastat \ install: $(SBINDIR) $(SBINDIR)/quotacheck $(SBINDIR)/quotastat \
$(SBINDIR)/dfree \
$(SBINDIR)/quotasanitycheck $(MAN8DIR)/quotasanitycheck.8 $(SBINDIR)/quotasanitycheck $(MAN8DIR)/quotasanitycheck.8
%: %.pl customize %: %.pl customize

59
quotacheck/dfree Executable file
View File

@ -0,0 +1,59 @@
#!/usr/bin/perl
#
# dfree - samba helper script for soft quota aware disk free stats
#
# Portability: HP-UX specific.
# send log file to /dev/null unless we want to debug this script.
umask(0077);
open (LOG, ">/dev/null") or die;
print LOG "$< $>\n";
# who am I?
$logname = getpwuid($>);
print LOG "$logname\n";
# where am I?
open (BDF, "/bin/bdf \"${ARGV[0]}\"|") or die;
while (<BDF>) {
chomp;
@x = split;
$thismount = $x[-1];
$total = $x[-5];
$avail = $x[-3];
}
close (BDF);
print LOG "$thismount\n";
open (QUOTA, "/bin/quota -v $logname|") or die;
while(<QUOTA>) {
chomp;
if (m|^/\S+$|) {
$mount = $_;
} elsif (m|^\s+|) {
($usage, $quota) = split;
if ($mount eq $thismount) {
print $quota, " ", $quota - $usage, "\n";
print LOG $quota, $quota - $usage;
exit 0;
}
} elsif (m|/(\S+)\s+(\d+)\s+(\d+)|) {
$mount = $1;
$usage = $2;
$quota = $3;
if ($mount eq $thismount) {
print $quota, " ", $quota - $usage, "\n";
print LOG $quota, $quota - $usage;
exit 0;
}
}
}
close (QUOTA);
print "$total $avail\n";
close (LOG);