X7ROOT File Manager
Current Path:
/usr/libexec/usermin/quota
usr
/
libexec
/
usermin
/
quota
/
📁
..
📄
CHANGELOG
(289 B)
📄
config-ALL-linux
(838 B)
📄
config-freebsd
(747 B)
📄
config-hpux
(488 B)
📄
config-macos
(747 B)
📄
config-netbsd
(747 B)
📄
config-openbsd
(747 B)
📄
config-solaris
(488 B)
📄
config-unixware
(488 B)
📄
config.info
(991 B)
📄
config.info.ca
(1.17 KB)
📄
config.info.nl
(1.09 KB)
📄
config.info.no
(1.11 KB)
📄
freebsd-lib.pl
(10.71 KB)
📄
hpux-lib.pl
(6.26 KB)
📁
images
📄
index.cgi
(2.22 KB)
📄
index.cgi.old
(2.02 KB)
📁
lang
📄
linux-lib.pl
(27 KB)
📄
macos-lib.pl
(9 KB)
📄
module.info
(446 B)
📄
module.info.af
(0 B)
📄
module.info.af.auto
(135 B)
📄
module.info.ar
(0 B)
📄
module.info.ar.auto
(195 B)
📄
module.info.be
(0 B)
📄
module.info.be.auto
(225 B)
📄
module.info.bg
(0 B)
📄
module.info.bg.auto
(240 B)
📄
module.info.ca
(23 B)
📄
module.info.ca.auto
(142 B)
📄
module.info.cs
(35 B)
📄
module.info.cs.auto
(132 B)
📄
module.info.da
(0 B)
📄
module.info.da.auto
(130 B)
📄
module.info.de
(147 B)
📄
module.info.el
(0 B)
📄
module.info.el.auto
(295 B)
📄
module.info.es
(0 B)
📄
module.info.es.auto
(153 B)
📄
module.info.eu
(0 B)
📄
module.info.eu.auto
(129 B)
📄
module.info.fa
(0 B)
📄
module.info.fa.auto
(230 B)
📄
module.info.fi
(0 B)
📄
module.info.fi.auto
(166 B)
📄
module.info.fr
(27 B)
📄
module.info.he
(0 B)
📄
module.info.he.auto
(192 B)
📄
module.info.hr
(0 B)
📄
module.info.hr.auto
(142 B)
📄
module.info.hu
(30 B)
📄
module.info.hu.auto
(134 B)
📄
module.info.it
(0 B)
📄
module.info.it.auto
(141 B)
📄
module.info.ja
(0 B)
📄
module.info.ja.auto
(211 B)
📄
module.info.ko
(0 B)
📄
module.info.ko.auto
(146 B)
📄
module.info.lt
(0 B)
📄
module.info.lt.auto
(141 B)
📄
module.info.lv
(0 B)
📄
module.info.lv.auto
(136 B)
📄
module.info.ms
(0 B)
📄
module.info.ms.auto
(130 B)
📄
module.info.mt
(0 B)
📄
module.info.mt.auto
(157 B)
📄
module.info.nl
(23 B)
📄
module.info.no
(20 B)
📄
module.info.no.auto
(106 B)
📄
module.info.pl
(34 B)
📄
module.info.pl.auto
(137 B)
📄
module.info.pt
(0 B)
📄
module.info.pt.auto
(155 B)
📄
module.info.pt_BR
(0 B)
📄
module.info.pt_BR.auto
(164 B)
📄
module.info.ro
(0 B)
📄
module.info.ro.auto
(152 B)
📄
module.info.ru
(36 B)
📄
module.info.ru.auto
(212 B)
📄
module.info.sk
(0 B)
📄
module.info.sk.auto
(163 B)
📄
module.info.sl
(0 B)
📄
module.info.sl.auto
(140 B)
📄
module.info.sv
(0 B)
📄
module.info.sv.auto
(132 B)
📄
module.info.th
(0 B)
📄
module.info.th.auto
(229 B)
📄
module.info.tr
(0 B)
📄
module.info.tr.auto
(165 B)
📄
module.info.uk
(0 B)
📄
module.info.uk.auto
(234 B)
📄
module.info.ur
(0 B)
📄
module.info.ur.auto
(195 B)
📄
module.info.vi
(0 B)
📄
module.info.vi.auto
(193 B)
📄
module.info.zh
(0 B)
📄
module.info.zh.auto
(130 B)
📄
module.info.zh_TW
(0 B)
📄
module.info.zh_TW.auto
(139 B)
📄
netbsd-lib.pl
(10.71 KB)
📄
old-quota-lib.pl
(550 B)
📄
openbsd-lib.pl
(10.71 KB)
📄
quota-lib.pl
(14.96 KB)
📄
solaris-lib.pl
(7.85 KB)
📄
system_info.pl
(820 B)
📁
ulang
📄
unixware-lib.pl
(6.4 KB)
Editing: freebsd-lib.pl
# openbsd-lib.pl # Quota functions for openbsd # 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 3; } # free_space(filesystem) # Returns an array containing btotal, bfree, ftotal, ffree sub free_space { local(@out, @rv); my $oldsize = $ENV{'BLOCKSIZE'}; $ENV{'BLOCKSIZE'} = 512; my $out = &backquote_command("df -i ".quotemeta($_[0])); $ENV{'BLOCKSIZE'} = $oldsize; if ($out =~ /Mounted on\n\S+\s+(\d+)\s+\d+\s+(\d+)\s+\S+\s+(\d+)\s+(\d+)/) { return ($1, $2, $3+$4, $4); } return ( ); } # 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 ($_[1]->[3] =~ /userquota/ ? 1 : 0) + ($_[1]->[3] =~ /groupquota/ ? 2 : 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/ ? 3 : 0; } # quotaon(filesystem, mode) # Activate quotas and create quota files 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($out, $qf, @qfile, $flags); if ($_[1]%2 == 1) { # turn on user quotas $qf = "$_[0]/quota.user"; if (!(-r $qf)) { &open_tempfile(QUOTAFILE, ">$qf", 0, 1); &close_tempfile(QUOTAFILE); &set_ownership_permissions(undef, undef, 0600, $qf); &system_logged("$config{'quotacheck_command'} $_[0]"); } $out = &backquote_logged("$config{'user_quotaon_command'} $_[0] 2>&1"); if ($?) { return $out; } } if ($_[1] > 1) { # turn on group quotas $qf = "$_[0]/quota.group"; if (!(-r $qf)) { &open_tempfile(QUOTAFILE, ">$qf", 0, 1); &close_tempfile(QUOTAFILE); &set_ownership_permissions(undef, undef, 0600, $qf); &system_logged("$config{'quotacheck_command'} $_[0]"); } $out = &backquote_logged("$config{'group_quotaon_command'} $_[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); if ($_[1]%2 == 1) { $out = &backquote_logged("$config{'user_quotaoff_command'} $_[0] 2>&1"); if ($?) { return $out; } } if ($_[1] > 1) { $out = &backquote_logged("$config{'group_quotaoff_command'} $_[0] 2>&1"); if ($?) { return $out; } } return undef; } # user_filesystems(user) # Fills the array %filesys with details of all filesystem some user has # quotas on sub user_filesystems { local($n, $_, %mtab); open(QUOTA, "$config{'user_quota_command'} ".quotemeta($_[0])." |"); $n=0; while(<QUOTA>) { chop; if (/^(Disk|\s+Filesystem)/) { next; } if (/^(\S+)$/) { # Bogus wrapped line $filesys{$n,'filesys'} = $1; local $nl = <QUOTA>; $nl =~ /^\s+(\S+)\s+(\S+)\s+(\S+)(.{8}\s+)(\S+)\s+(\S+)\s+(\S+)(.*)/ || $nl =~ /^.{15}(.{8}).(.{7})(.{8}).{8}(.{8}).(.{7})(.{8})/; $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 (/^\s*(\S+)\s+(\S+)\s+(\S+)\s+(\S+)(.{8}\s+)(\S+)\s+(\S+)\s+(\S+)(.*)/ || /^(.{15})(.{8}).(.{7})(.{8}).{8}(.{8}).(.{7})(.{8})/) { $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'} = $1; $filesys{$n,'filesys'} =~ s/^\s+//g; $n++; } } close(QUOTA); return $n; } # group_filesystems(group) # Fills the array %filesys with details of all filesystem some group has # quotas on sub group_filesystems { local($n, $_, %mtab); open(QUOTA, "$config{'group_quota_command'} ".quotemeta($_[0])." |"); $n=0; while(<QUOTA>) { chop; if (/^(Disk|\s+Filesystem)/) { next; } if (/^(\S+)$/) { # Bogus wrapped line $filesys{$n,'filesys'} = $1; local $nl = <QUOTA>; $nl =~ /^\s+(\S+)\s+(\S+)\s+(\S+)(.{8}\s+)(\S+)\s+(\S+)\s+(\S+)(.*)/ || $nl =~ /^.{15}(.{8}).(.{7})(.{8}).{8}(.{8}).(.{7})(.{8})/; $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 (/^\s*(\S+)\s+(\S+)\s+(\S+)\s+(\S+)(.{8}\s+)(\S+)\s+(\S+)\s+(\S+)(.*)/ || /^(.{15})(.{8}).(.{7})(.{8}).{8}(.{8}).(.{7})(.{8})/) { $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'} = $1; $filesys{$n,'filesys'} =~ s/^\s+//g; $n++; } } close(QUOTA); return $n; } # 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, $what); $rep = `$config{'user_repquota_command'} $_[0] 2>&1`; if ($?) { return -1; } @rep = split(/\n/, $rep); @rep = grep { !/^root\s/ } @rep[3..$#rep]; for($n=0; $n<@rep; $n++) { if ($rep[$n] =~ /(\S+)\s*[\-\+]{2}\s+(\d+)\s+(\d+)\s+(\d+)\s(.{0,15})\s(\d+)\s+(\d+)\s+(\d+)(.*)/ || $rep[$n] =~ /(\S+)\s+..(.{8})(.{8})(.{8})(.{7})(.{8})(.{8})(.{8})(.*)/) { $user{$n,'user'} = $1; $user{$n,'ublocks'} = int($2); $user{$n,'sblocks'} = int($3); $user{$n,'hblocks'} = int($4); $user{$n,'gblocks'} = $5; $user{$n,'ufiles'} = int($6); $user{$n,'sfiles'} = int($7); $user{$n,'hfiles'} = int($8); $user{$n,'gfiles'} = $9; $user{$n,'gblocks'} = &trunc_space($user{$n,'gblocks'}); $user{$n,'gfiles'} = &trunc_space($user{$n,'gfiles'}); } } return $n; } # filesystem_groups(filesystem) # Fills the array %group with information about all groups with quotas # on this filesystem. This may not be all groups on the system.. sub filesystem_groups { local($rep, @rep, $n, $what); $rep = `$config{'group_repquota_command'} $_[0] 2>&1`; if ($?) { return -1; } @rep = split(/\n/, $rep); @rep = @rep[3..$#rep]; for($n=0; $n<@rep; $n++) { if ($rep[$n] =~ /(\S+)\s*[\-\+]{2}\s+(\d+)\s+(\d+)\s+(\d+)\s(.{0,15})\s(\d+)\s+(\d+)\s+(\d+)(.*)/ || $rep[$n] =~ /(\S+)\s+..(.{8})(.{8})(.{8})(.{7})(.{8})(.{8})(.{8})/) { $group{$n,'group'} = $1; $group{$n,'ublocks'} = int($2); $group{$n,'sblocks'} = int($3); $group{$n,'hblocks'} = int($4); $group{$n,'gblocks'} = $5; $group{$n,'ufiles'} = int($6); $group{$n,'sfiles'} = int($7); $group{$n,'hfiles'} = int($8); $group{$n,'gfiles'} = $9; $group{$n,'gblocks'} = &trunc_space($group{$n,'gblocks'}); $group{$n,'gfiles'} = &trunc_space($group{$n,'gfiles'}); } } return $n; } # edit_quota_file(data, filesys, sblocks, hblocks, sfiles, hfiles) sub edit_quota_file { local($rv, $line, %mtab, @m); @line = split(/\n/, $_[0]); for($i=0; $i<@line; $i++) { if ($line[$i] =~ /^(\S+): (blocks|kbytes) in use: (\d+), limits \(soft = (\d+), hard = (\d+)\)$/ && $1 eq $_[1]) { # found lines to change, old style $rv .= "$1: $2 in use: $3, limits (soft = $_[2], hard = $_[3])\n"; $line[++$i] =~ /^\s*inodes in use: (\d+), limits \(soft = (\d+), hard = (\d+)\)$/; $rv .= "\tinodes in use: $1, limits (soft = $_[4], hard = $_[5])\n"; } elsif ($line[$i] =~ /^(\S+): in use: (\d+)k, limits \(soft = (\d+)k, hard = (\d+)k\)$/ && $1 eq $_[1]) { # found lines to change, new style $rv .= "$1: in use: ${2}k, limits (soft = $_[2]k, hard = $_[3]k)\n"; $line[++$i] =~ /^\s*inodes in use: (\d+), limits \(soft = (\d+), hard = (\d+)\)$/; $rv .= "\tinodes in use: $1, limits (soft = $_[4], hard = $_[5])\n"; } else { $rv .= "$line[$i]\n"; } } return $rv; } # quotacheck(filesystem, mode) # Runs quotacheck on some filesystem sub quotacheck { $out = &backquote_logged("$config{'quotacheck_command'} $_[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; } # copy_group_quota(group, [group]+) # Copy the quotas for some group to many others sub copy_group_quota { for($i=1; $i<@_; $i++) { $out = &backquote_logged("$config{'group_copy_command'} ". quotemeta($_[0])." ".quotemeta($_[$i])." 2>&1"); if ($?) { return $out; } } return undef; } # default_grace() # Returns 0 if grace time can be 0, 1 if zero grace means default sub default_grace { return 0; } # get_user_grace(filesystem) # Returns an array containing btime, bunits, ftime, funits # The units can be 0=sec, 1=min, 2=hour, 3=day sub get_user_grace { local(@rv, %mtab, @m); $ENV{'EDITOR'} = $ENV{'VISUAL'} = "cat"; open(GRACE, "$config{'user_grace_command'} $_[0] |"); while(<GRACE>) { if (/^(\S+): block grace period: (\d+) (\S+), file grace period: (\d+) (\S+)/ && $1 eq $_[0]) { @rv = ($2, $name_to_unit{$3}, $4, $name_to_unit{$5}); } } close(GRACE); return @rv; } # get_group_grace(filesystem) # Returns an array containing btime, bunits, ftime, funits # The units can be 0=sec, 1=min, 2=hour, 3=day sub get_group_grace { local(@rv, %mtab, @m); $ENV{'EDITOR'} = $ENV{'VISUAL'} = "cat"; open(GRACE, "$config{'group_grace_command'} $_[0] |"); while(<GRACE>) { if (/^(\S+): block grace period: (\d+) (\S+), file grace period: (\d+) (\S+)/ && $1 eq $_[0]) { @rv = ($2, $name_to_unit{$3}, $4, $name_to_unit{$5}); } } close(GRACE); return @rv; } # edit_grace_file(data, filesystem, btime, bunits, ftime, funits) sub edit_grace_file { local($rv, $line, @m, %mtab); foreach $line (split(/\n/, $_[0])) { if ($line =~ /^(\S+): block grace period: (\d+) (\S+), file grace period: (\d+) (\S+)/ && $1 eq $_[1]) { # replace this line $line = "$1: block grace period: $_[2] $unit_to_name{$_[3]}, file grace period: $_[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'}); } # fs_block_size(dir, device, filesystem) # Returns the size of blocks on some filesystem, or undef if unknown. # Always 512 because the ENV setting above forces this. sub fs_block_size { return 512; } # quota_block_size(dir, device, filesystem) # Always returns 1024, as that's the block size BSD appears to use sub quota_block_size { return 1024; } %name_to_unit = ( "second", 0, "seconds", 0, "minute", 1, "minutes", 1, "hour", 2, "hours", 2, "day", 3, "days", 3, ); foreach $k (keys %name_to_unit) { $unit_to_name{$name_to_unit{$k}} = $k; } 1;
Upload File
Create Folder