FM / quota

/usr/share/usermin/quota

Name	Size	Mode	Actions
images/	-	0755	rm
lang/	-	0755	rm
ulang/	-	0755	rm
CHANGELOG	289	0644	edit dl rm
config-ALL-linux	838	0644	edit dl rm
config-freebsd	747	0644	edit dl rm
config-hpux	488	0644	edit dl rm
config-macos	747	0644	edit dl rm
config-netbsd	747	0644	edit dl rm
config-openbsd	747	0644	edit dl rm
config-solaris	488	0644	edit dl rm
config-unixware	488	0644	edit dl rm
config.info	991	0644	edit dl rm
config.info.ca	1194	0755	edit dl rm
config.info.nl	1119	0755	edit dl rm
config.info.no	1132	0644	edit dl rm
freebsd-lib.pl	11232	0755	edit dl rm
hpux-lib.pl	6542	0755	edit dl rm
index.cgi	2273	0755	edit dl rm
index.cgi.old	2068	0755	edit dl rm
linux-lib.pl	28097	0755	edit dl rm
macos-lib.pl	9509	0755	edit dl rm
module.info	446	0644	edit dl rm
module.info.ar	0	0644	edit dl rm
module.info.ar.auto	195	0644	edit dl rm
module.info.bg	0	0644	edit dl rm
module.info.bg.auto	240	0644	edit dl rm
module.info.ca	23	0644	edit dl rm
module.info.ca.auto	142	0644	edit dl rm
module.info.cs	35	0644	edit dl rm
module.info.cs.auto	132	0644	edit dl rm
module.info.da	0	0644	edit dl rm
module.info.da.auto	130	0644	edit dl rm
module.info.de	147	0644	edit dl rm
module.info.el	0	0644	edit dl rm
module.info.el.auto	295	0644	edit dl rm
module.info.es	0	0644	edit dl rm
module.info.es.auto	153	0644	edit dl rm
module.info.eu	0	0644	edit dl rm
module.info.eu.auto	129	0644	edit dl rm
module.info.fa	0	0644	edit dl rm
module.info.fa.auto	230	0644	edit dl rm
module.info.fi	0	0644	edit dl rm
module.info.fi.auto	166	0644	edit dl rm
module.info.fr	27	0644	edit dl rm
module.info.hr	0	0644	edit dl rm
module.info.hr.auto	142	0644	edit dl rm
module.info.hu	30	0644	edit dl rm
module.info.hu.auto	134	0644	edit dl rm
module.info.it	0	0644	edit dl rm
module.info.it.auto	141	0644	edit dl rm
module.info.ja	0	0644	edit dl rm
module.info.ja.auto	211	0644	edit dl rm
module.info.ko	0	0644	edit dl rm
module.info.ko.auto	146	0644	edit dl rm
module.info.ms	0	0644	edit dl rm
module.info.ms.auto	130	0644	edit dl rm
module.info.nl	23	0644	edit dl rm
module.info.no	20	0644	edit dl rm
module.info.no.auto	106	0644	edit dl rm
module.info.pl	34	0644	edit dl rm
module.info.pl.auto	137	0644	edit dl rm
module.info.pt	0	0644	edit dl rm
module.info.pt.auto	155	0644	edit dl rm
module.info.pt_BR	0	0644	edit dl rm
module.info.pt_BR.auto	164	0644	edit dl rm
module.info.ru	36	0644	edit dl rm
module.info.ru.auto	212	0644	edit dl rm
module.info.sk	0	0644	edit dl rm
module.info.sk.auto	163	0644	edit dl rm
module.info.sv	0	0644	edit dl rm
module.info.sv.auto	132	0644	edit dl rm
module.info.tr	0	0644	edit dl rm
module.info.tr.auto	165	0644	edit dl rm
module.info.uk	0	0644	edit dl rm
module.info.uk.auto	234	0644	edit dl rm
module.info.zh	0	0644	edit dl rm
module.info.zh.auto	130	0644	edit dl rm
module.info.zh_TW	0	0644	edit dl rm
module.info.zh_TW.auto	139	0644	edit dl rm
netbsd-lib.pl	11232	0755	edit dl rm
old-quota-lib.pl	550	0755	edit dl rm
openbsd-lib.pl	11232	0755	edit dl rm
quota-lib.pl	15121	0755	edit dl rm
solaris-lib.pl	8239	0755	edit dl rm
system_info.pl	866	0644	edit dl rm
unixware-lib.pl	6664	0755	edit dl rm

Edit: /usr/share/usermin/quota/unixware-lib.pl (6664B)

# unixware-lib.pl
# Quota functions for UnixWare 7

# quotas_init()
sub quotas_init
{
return undef;
}

# quotas_supported()
# Returns 1 for user quotas, 2 for group quotas or 3 for both
sub quotas_supported
{
return 1;
}

# free_space(filesystem)
# Returns an array containing  btotal, bfree, ftotal, ffree
sub free_space
{
local($out);
$out = &backquote_command("df -t ".quotemeta($_[0]));
$out =~ /(\d+) blocks\s+(\d+) files\n.*\s+(\d+) blocks\s+(\d+) files/;
return ($3, $1, $4, $2);
}

# quota_can(&mnttab, &fstab)
# Can this filesystem type support quotas?
#  0 = No quota support (or not turned on in /etc/fstab)
#  1 = User quotas only
#  2 = Group quotas only
#  3 = User and group quotas
sub quota_can
{
return $_[0]->[2] eq "ufs" || $_[0]->[2] eq "vxfs" ? 1 : 0;
}

# quota_now(&mnttab, &fstab)
# Are quotas currently active?
#  0 = Not active
#  1 = User quotas active
#  2 = Group quotas active
#  3 = Both active
sub quota_now
{
return $_[0]->[3] =~ /,quota/ || $_[0]->[3] =~ /^quota/ ? 1 : 0;
}

# filesystem_users(filesystem)
# Fills the array %user with information about all users with quotas
# on this filesystem. This may not be all users on the system..
sub filesystem_users
{
local($rep, @rep, $n, %hasu, $u);
$rep = &backquote_command("$config{'user_repquota_command'} ".
			  quotemeta($_[0])." 2>&1");
if ($?) { return -1; }
setpwent();
while(@uinfo = getpwent()) {
	$hasu{$uinfo[0]}++;
	}
endpwent() if ($gconfig{'os_type'} ne 'hpux');
@rep = split(/\n/, $rep); @rep = @rep[3..$#rep];
for($n=0; $n<@rep; $n++) {
	if ($rep[$n] =~ /(\S+)\s+..\s+(\d+)\s+(\d+)\s+(\d+).*(\d+)\s+(\d+)\s+(\d+)/ || $rep[$n] =~ /(\S+)\s+..(.{7})(.{7})(.{7}).{13}(.{7})(.{7})(.{7})/) {
		$user{$n,'user'} = $1;
		$user{$n,'ublocks'} = int($2);
		$user{$n,'sblocks'} = int($3);
		$user{$n,'hblocks'} = int($4);
		$user{$n,'ufiles'} = int($5);
		$user{$n,'sfiles'} = int($6);
		$user{$n,'hfiles'} = int($7);
		$user{$n,'user'} =~ s/^#//g;
		if ($user{$n,'user'} !~ /^\d+$/ && !$hasu{$user{$n,'user'}}) {
			# Username was truncated! Try to find him..
			foreach $u (keys %hasu) {
				if (substr($u, 0, length($user{$n,'user'})) eq
				    $user{$n,'user'}) {
					# found him..
					$user{$n,'user'} = $u;
					last;
					}
				}
			}
		}
	}
return $n;
}

# edit_quota_file(data, filesys, sblocks, hblocks, sfiles, hfiles)
sub edit_quota_file
{
local($rv, $line);
foreach $line (split(/\n/, $_[0])) {
	if ($line =~ /^fs (\S+) blocks $soft = (\d+), hard = (\d+)$ inodes $soft = (\d+), hard = (\d+)$$/ && $1 eq $_[1]) {
		# found line to change
		$line = "fs $_[1] blocks (soft = $_[2], hard = $_[3]) inodes (soft = $_[4], hard = $_[5])";
		}
	$rv .= "$line\n";
	}
return $rv;
}

# quotaon(filesystem, mode)
# Activate quotas and create quota file for some filesystem. The mode can
# be 1 for user only, 2 for group only or 3 for user and group
sub quotaon
{
return if (&is_readonly_mode());
local($qf, $out);
$qf = "$_[0]/quotas";
if (!(-r $qf)) {
	&open_tempfile(QUOTAFILE, ">$qf", 0, 1);
	&close_tempfile(QUOTAFILE);
	&set_ownership_permissions(undef, undef, 0600, $qf);
	}
$out = &backquote_logged("$config{'user_quotaon_command'} ".
			 quotemeta($_[0])." 2>&1");
if ($?) { return $out; }
return undef;
}

# quotaoff(filesystem, mode)
# Turn off quotas for some filesystem
sub quotaoff
{
return if (&is_readonly_mode());
local($out);
$out = &backquote_logged("$config{'user_quotaoff_command'} ".
			 quotemeta($_[0])." 2>&1");
if ($?) { return $out; }
return undef;
}

# quotacheck(filesystem, mode)
# Runs quotacheck on some filesystem
sub quotacheck
{
$out = &backquote_logged("$config{'quotacheck_command'} ".quotemeta($_[0]).
			 " 2>&1");
if ($?) { return $out; }
return undef;
}

# copy_user_quota(user, [user]+)
# Copy the quotas for some user to many others
sub copy_user_quota
{
for($i=1; $i<@_; $i++) {
	$out = &backquote_logged("$config{'user_copy_command'} ".
				quotemeta($_[0])." ".quotemeta($_[$i])." 2>&1");
	if ($?) { return $out; }
	}
return undef;
}

# user_filesystems(user)
# Fills the array %filesys with details of all filesystems some user has
# quotas on
sub user_filesystems
{
local($n, $_);
open(QUOTA, "$config{'user_quota_command'} ".quotemeta($_[0])." |");
$n=0; while(<QUOTA>) {
	chop;
	if (/^(Disk|Filesystem)/) { next; }
	if (/^(\S+)$/) {
		# Bogus wrapped line!
		$filesys{$n,'filesys'} = $1;
		<QUOTA> =~ /^.{13}(.{7})(.{7})(.{7}).{12}(.{7})(.{7})(.{7})/;
		$filesys{$n,'ublocks'} = int($1);
		$filesys{$n,'sblocks'} = int($2);
		$filesys{$n,'hblocks'} = int($3);
		$filesys{$n,'ufiles'} = int($4);
		$filesys{$n,'sfiles'} = int($5);
		$filesys{$n,'hfiles'} = int($6);
		$n++;
		}
	elsif (/^(.{13})(.{7})(.{7})(.{7}).{12}(.{7})(.{7})(.{7})/) {
		$filesys{$n,'filesys'} = $1;
		$filesys{$n,'ublocks'} = int($2);
		$filesys{$n,'sblocks'} = int($3);
		$filesys{$n,'hblocks'} = int($4);
		$filesys{$n,'ufiles'} = int($5);
		$filesys{$n,'sfiles'} = int($6);
		$filesys{$n,'hfiles'} = int($7);
		$filesys{$n,'filesys'} =~ s/\s+$//g;
		$n++;
		}
	}
close(QUOTA);
return $n;
}

# get_user_grace(filesystem)
# Returns an array containing  btime, bunits, ftime, funits
# The units can be 0=sec, 1=min, 2=hour, 3=day, 4=week, 5=month
sub get_user_grace
{
local(@rv);
$ENV{'EDITOR'} = $ENV{'VISUAL'} = "cat";
open(GRACE, "$config{'user_grace_command'} |");
while(<GRACE>) {
	if (/^fs (\S+) blocks time limit = ([0-9\.]+) (\S+), files time limit = ([0-9\.]+) (\S+)/ && $1 eq $_[0]) {
		if ($2 == 0) { push(@rv, 0, 0); }
		else { push(@rv, $2, $name_to_unit{$3}); }
		if ($4 == 0) { push(@rv, 0, 0); }
		else { push(@rv, $4, $name_to_unit{$5}); }
		}
	}
close(GRACE);
return @rv;
}

# default_grace()
# Returns 0 if grace time can be 0, 1 if zero grace means default
sub default_grace
{
return 1;
}

# edit_grace_file(data, filesystem, btime, bunits, ftime, funits)
sub edit_grace_file
{
local($rv, $line);
foreach $line (split(/\n/, $_[0])) {
	if ($line =~ /^fs (\S+) blocks time limit = ([0-9\.]+) (\S+), files time limit = ([0-9\.]+) (\S+)/ && $1 eq $_[1]) {
		# replace this line
		$line = "fs $_[1] blocks time limit = $_[2] $unit_to_name{$_[3]}, files time limit = $_[4] $unit_to_name{$_[5]}";
		}
	$rv .= "$line\n";
	}
return $rv;
}

# grace_units()
# Returns an array of possible units for grace periods
sub grace_units
{
return ($text{'grace_seconds'}, $text{'grace_minutes'}, $text{'grace_hours'},
	$text{'grace_days'}, $text{'grace_weeks'}, $text{'grace_months'});
}

%name_to_unit = ( "sec", 0, "secs", 0,
		  "min", 1, "mins", 1,
		  "hour", 2, "hours", 2,
		  "day", 3, "days", 3,
		  "week", 4, "weeks", 4,
		  "month", 5, "months", 5
		);
foreach $k (keys %name_to_unit) {
	$unit_to_name{$name_to_unit{$k}} = $k;
	}

cmd: