perl-Quota vs quota

[Krzysiek Taraszka]

On Wed, 6 Feb 2002, BartOwl wrote:

> nie wiem czy cos sie ostatnio zmienilo jesli chodzi o quote, ale po
> zmianie kernela na 2.2.20 stare quoty przestaly dzialac :(

kernel dystrybucyjny ?
 
> zeby bylo ciekawiej - upgrejdnelem quote do najswiezszej (cvs), musialem
> zrobic nowe quota.{a,}user, ale z tym jakos poszlo... gorzej, ze
> perl-Quota NIE DZIALA z tym - trzymam quoty userow w postgresie i mam
> skrypcik, ktory wszystko synchronizuje, i tu pojawil sie problem. czy
> ktos moglby rzucic na to okiem?
>
> bo po mojemu, to tak:
> 
> strace quota -v bartowl:
> quotactl(0x1100 /* Q_??? */|USRQUOTA, NULL, 0, {134579392, 3221223900, 134533504, 134574088, 0, 3221223900, 134533492, 134579400}) = -1 EINVAL (Invalid argument)
> getuid()                                = 0
> quotactl(Q_GETQUOTA|USRQUOTA, "/dev/hda5", 0, {1118591, 2654528, 134513576, 1146738, 1198624, 1149426, 1120183, 1305152}) = -1 ESRCH (No such process)
> stat("/usr/aquota.user", {st_mode=S_IFREG|0600, st_size=8192, ...}) = 0
> 
> co ciekawsze - wyswietla dobrze....
> 
> natomiast:
> strace perl -le 'use Quota; print join(",",Quota::query("/dev/hda5",744))'
> quotactl(0xd00 /* Q_??? */|USRQUOTA, "/dev/hda5", 744, {39, 4013083, 4011556, 3221223932, 1159776, 134583064, 134583080, 4021924}) = -1 EINVAL (Invalid argument)
> 
> tyle ze na tym poprzestaje Quota::query() zwraca undef
> 
> rpm -q quota perl-Quota:
> quota-3.01-0.pre9.2
> perl-Quota-1.4.1-1
> 
> uname -r:
> 2.2.20

Krzysiek "dzimi" Taraszka			(dzimi w pld.org.pl)