Yeah, I tried that it works fine. I dont know it's probably something
stupid. Even though it throws that error it will adjust the first person
in the passwd files quota, but no one after that. I've even changed the
script to just deal with one person at a time and I get the same error
but it's successful.
Thanks
>>> Ramprasad <[EMAIL PROTECTED]> 07/17/03 09:44AM >>>
Joe Stuart wrote:
> 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]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
