Subject: ANNOUNCE: Quota extension module
From: [email-masked] (Tom Zoerner)
Date: 12 Oct 1995 15:26:59 GMT
Newsgroups: comp.lang.perl.announce,comp.lang.perl.misc

New: Quota extension module for Perl5
---- --------------------------------

Version:   0.1a  (alpha)
DSLI-code: adcf
Supported: SunOS 4.1.3, HP-UX 9.0, IRIX 5.3
Location:  ftp://franz.ww.tu-berlin.de/pub/authors/id/TOMZO/Quota-0.1a.tar.gz
Author:    TOMZO  Tom Zoerner <[email-masked]>
Copyright: none / Public Domain

This small module provides access to and utilities for disk quotas.
In detail, the quotactl(2) syscall is used to query or set quotas on
the local host, or RPC to send a query to a remote host. A "getdev"
function is provided which uses getmntent(3) to translate paths to the
block device of the according file system.

-tom
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

query(dev[,uid])
	get current quota and limits for given filesystem and user.

setqlim(dev,uid,bs,bh,fs,fh[,tlo])
	set quota limits for given user (block soft/hard, inode soft/hard)
	tlo decides if timelimit is set to "NOT STARTED" (0,default) or
	"7.0 days" (1)

sync()
	have the kernel update the quota file on disk

rpcquery(host,path[,uid])
	query quotas on a remote host via RPC call.

getdev([$path])
	Get the block device for the filesystem of the given path or "."

setmntent()
	Open mtab file. If already open, automatically closed before.

getmntent()
	returns next entry in mtab or undef.

endmntent()
	close mtab file, if open. Always returns undef.

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-