mirror of
https://github.com/webmin/webmin.git
synced 2026-02-03 06:03:28 +00:00
23 lines
502 B
Perl
Executable File
23 lines
502 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# edgrace.pl
|
|
# Run by edquota to edit the grace times for some filesystem
|
|
|
|
$no_acl_check++;
|
|
$0 =~ /^(\S+)\//;
|
|
chdir($1);
|
|
require './quota-lib.pl';
|
|
$fs = $ENV{'QUOTA_FILESYS'};
|
|
$bt = $ENV{'QUOTA_BTIME'};
|
|
$bu = $ENV{'QUOTA_BUNITS'};
|
|
$ft = $ENV{'QUOTA_FTIME'};
|
|
$fu = $ENV{'QUOTA_FUNITS'};
|
|
$f = $ARGV[0];
|
|
|
|
open(FILE, "<".$f);
|
|
while(<FILE>) { $qdata .= $_; }
|
|
close(FILE);
|
|
$nqdata = &edit_grace_file($qdata, $fs, $bt, $bu, $ft, $fu);
|
|
open(FILE, ">$f");
|
|
print FILE $nqdata;
|
|
close(FILE);
|