quota's

[Joe Stuart]

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

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]