mirror of
https://github.com/webmin/webmin.git
synced 2026-02-07 07:52:13 +00:00
24 lines
514 B
Perl
Executable File
24 lines
514 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# edquota.pl
|
|
# Run by edquota to edit some user's quota
|
|
|
|
$no_acl_check++;
|
|
$0 =~ /^(\S+)\//;
|
|
chdir($1);
|
|
require './quota-lib.pl';
|
|
$u = $ENV{'QUOTA_USER'};
|
|
$fs = $ENV{'QUOTA_FILESYS'};
|
|
$sb = $ENV{'QUOTA_SBLOCKS'};
|
|
$hb = $ENV{'QUOTA_HBLOCKS'};
|
|
$sf = $ENV{'QUOTA_SFILES'};
|
|
$hf = $ENV{'QUOTA_HFILES'};
|
|
$f = $ARGV[0];
|
|
|
|
open(FILE, "<".$f);
|
|
while(<FILE>) { $qdata .= $_; }
|
|
close(FILE);
|
|
$nqdata = &edit_quota_file($qdata, $fs, $sb, $hb, $sf, $hf);
|
|
open(FILE, ">".$f);
|
|
print FILE $nqdata;
|
|
close(FILE);
|