I'm trying to implement quota's using the quota interface for perl. The
problem I'm having is when I execute this code.
#!/usr/bin/perl
use Getopt::Std; use Quota;
getopt("f:s:h:"); die "Usage: $0 -f <filesystem> -s <soft quota> -h <hard quota>\n" if(!$opt_f || !$opt_s || !$opt_h);
open(PASS, "/etc/passwd") or die "Unable to open users file\n"; @array = <PASS>; close(PASS);
$dev = Quota::getqcarg($opt_f) or die "Unable to translate path $opt_f: $!\n";
foreach $i (@array) { $i =~ /(\w+):x:(\d+)/;
unless($2 <= 500) {
($block_curr, $block_soft, $block_hard, $block_timelimit, $inode_curr, $inode_soft, $inode_hard, $inode_timelimit) = Quota::query($dev ,$2);
Quota::setqlim($dev, $2, $opt_s, $opt_h, $inode_soft, $inode_hard, 1) or die "Unable to set quota's: $!\n";
I get this error message. Unable to set quota's: No such file or directory
I'm out of ideas. thanks
Please reduce your indent size, I can hardly read your code
Well on the face of it I am not able to see any problem, Can you just try setting the quota using edquota on command line and see If the quota error is not because of the system
Ram
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
