r8111 - in /trunk/libquota-perl: CHANGES Quota.pm Quota.xs README afsquota.c contrib/aix_jfs2_class/ contrib/mount-list-qcarg.pl debian/changelog debian/control debian/copyright debian/watch hints/aix_4_1.h include/quotaio_xfs.h test.pl
rmayorga-guest at users.alioth.debian.org
rmayorga-guest at users.alioth.debian.org
Tue Oct 9 04:28:05 UTC 2007
Author: rmayorga-guest
Date: Tue Oct 9 04:28:04 2007
New Revision: 8111
URL: http://svn.debian.org/wsvn/?sc=1&rev=8111
Log:
* New upstream release
* debian/control - Homepage added as a valid field
* debian/copyright updated
Added:
trunk/libquota-perl/contrib/aix_jfs2_class/
- copied from r8110, branches/upstream/libquota-perl/current/contrib/aix_jfs2_class/
Modified:
trunk/libquota-perl/CHANGES
trunk/libquota-perl/Quota.pm
trunk/libquota-perl/Quota.xs
trunk/libquota-perl/README
trunk/libquota-perl/afsquota.c
trunk/libquota-perl/contrib/mount-list-qcarg.pl
trunk/libquota-perl/debian/changelog
trunk/libquota-perl/debian/control
trunk/libquota-perl/debian/copyright
trunk/libquota-perl/debian/watch
trunk/libquota-perl/hints/aix_4_1.h
trunk/libquota-perl/include/quotaio_xfs.h
trunk/libquota-perl/test.pl
Modified: trunk/libquota-perl/CHANGES
URL: http://svn.debian.org/wsvn/trunk/libquota-perl/CHANGES?rev=8111&op=diff
==============================================================================
--- trunk/libquota-perl/CHANGES (original)
+++ trunk/libquota-perl/CHANGES Tue Oct 9 04:28:04 2007
@@ -1,3 +1,15 @@
+Changes in 1.5.2 (October 2007)
+- Added support for new quotactl() parameters in JFS2 on AIX 5.3.
+ Thanks to Joshua Frigerio (joshua at uic.edu) for providing a development
+ account. (Note: also prepared support for JFS2 quota classes; this is
+ yet unfinished and untested. See sub-directory contrib/aix_jfs2_class)
+- Added support for XFS project quotas on request of
+ Sten Spans (sten at blinkenlights.nl); received no feedback it if works.
+ Changed the "isgrp" param to Quota::query() and setqlim() from boolean
+ into an enum: 0:=user, 1:=group, 2:=project quotas.
+- Added a copyright notice to the main module and the manual page on
+ request of the Debian maintainer.
+
Changes in 1.5.1 (July 2005)
- Added new API function rpcauth: use non-default authentication for RPC
Patch submitted by Karol Lassak
Modified: trunk/libquota-perl/Quota.pm
URL: http://svn.debian.org/wsvn/trunk/libquota-perl/Quota.pm?rev=8111&op=diff
==============================================================================
--- trunk/libquota-perl/Quota.pm (original)
+++ trunk/libquota-perl/Quota.pm Tue Oct 9 04:28:04 2007
@@ -1,3 +1,18 @@
+# ------------------------------------------------------------------------ #
+# Quota.pm - Copyright (C) 1995-2007 Tom Zoerner
+# ------------------------------------------------------------------------ #
+# This program is free software: you can redistribute it and/or modify
+# it either under the terms of the Perl Artistic License or the GNU
+# General Public License as published by the Free Software Foundation.
+# (Either version 2 of the GPL, or any later version.)
+# For a copy of these licenses see <http://www.opensource.org/licenses/>.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# Perl Artistic License or GNU General Public License for more details.
+# ------------------------------------------------------------------------ #
+
package Quota;
require Exporter;
@@ -72,6 +87,7 @@
defined($fsupp) && ($fsupp =~ /,VXFS/)) { $ret = "(VXFS)$ret" }
elsif((($fstyp eq "afs") || ($fsname eq "AFS")) &&
($fsupp =~ /,AFS/)) { $ret = "(AFS)$target"; }
+ if (($fstyp eq "jfs2") && ($fsupp =~ /,JFS2/)) { $ret = "(JFS2)$ret" }
last;
}
}
@@ -90,7 +106,7 @@
my($str);
eval {
- if(($! == &EINVAL) || ($! == &ENOTTY) || ($! == &ENOENT))
+ if(($! == &EINVAL) || ($! == &ENOTTY) || ($! == &ENOENT) || ($! == ENOSYS))
{ $str = "No quotas on this system" }
elsif($! == &ENODEV) { $str = "Not a standard file system" }
elsif($! == &EPERM) { $str = "Not privileged" }
@@ -120,7 +136,7 @@
($block_curr, $block_soft, $block_hard, $block_timelimit,
$inode_curr, $inode_soft, $inode_hard, $inode_timelimit) =
- Quota::query($dev [,$uid [,isgrp]]);
+ Quota::query($dev [,$uid [,kind]]);
($block_curr, $block_soft, $block_hard, $block_timelimit,
$inode_curr, $inode_soft, $inode_hard, $inode_timelimit) =
@@ -131,7 +147,7 @@
Quota::rpcauth([$uid [,$gid [,$hostname]]]);
Quota::setqlim($dev, $uid, $block_soft, $block_hard,
- $inode_soft, $inode_hard [,$tlo [,isgrp]]);
+ $inode_soft, $inode_hard [,$tlo [,kind]]);
Quota::sync([$dev]);
@@ -154,7 +170,7 @@
=over 4
-=item I<($bc,$bs,$bh,$bt, $ic,$is,$ih,$it) = Quota::query($dev, $uid, $isgrp)>
+=item I<($bc,$bs,$bh,$bt, $ic,$is,$ih,$it) = Quota::query($dev, $uid, $kind)>
Get current usage and quota limits for a given file system and user.
The user is specified by its numeric uid; defaults to the process'
@@ -187,13 +203,15 @@
systems Quota::query will return undef in that case and
errno will be set to ESRCH.
-When I<$isgrp> is given and set to 1, I<$uid> is taken as gid and
+When I<$kind> is given and set to 1, I<$uid> is taken as gid and
group quotas are queried. This is B<not> supported across RPC and
even locally only on a few architectures (e.g. Linux and other BSD
based Unix variants, OSF/1 and AIX - check the quotactl(2) man page
-on your systems). If unsupported, this flag is ignored.
-
-=item I<Quota::setqlim($dev, $uid, $bs,$bh, $is,$ih, $tlo, $isgrp)>
+on your systems). When I<$kind> is set to 2, project quotas are
+queried; this is currently only supported for XFS. When unsupported,
+this flag is ignored.
+
+=item I<Quota::setqlim($dev, $uid, $bs,$bh, $is,$ih, $tlo, $kind)>
Sets quota limits for the given user. Meanings of I<$dev>, I<$uid>,
I<$bs>, I<$bh>, I<$is> and I<$ih> are the same as in B<Quota::query>.
@@ -206,9 +224,11 @@
More alternatives (i.e. setting a specific time) aren't available in
most implementations.
-When I<$isgrp> is given and set to 1, I<$uid> is taken as gid and
+When I<$kind> is given and set to 1, I<$uid> is taken as gid and
group quota limits are set. This is supported only on a few
-architectures (see above). If unsupported, this flag is ignored.
+architectures (see above).When I<$kind> is set to 2, project quotas
+are modified; this is currently only supported for XFS.
+When unsupported, this flag is ignored.
Note: if you want to set the quota of a particular user to zero, i.e.
no write permission, you must not set all limits to zero, since that
@@ -313,6 +333,8 @@
Note that this function only returns a defined result if you called a
Quota command directly before which returned an error indication.
+=back
+
=head1 RETURN VALUES
Functions that are supposed return lists or scalars, return I<undef> upon
@@ -345,6 +367,13 @@
have contributed to this process; for a complete
list of names please see the CHANGES document.
+The quota module was in the public domain 1995-2001. Since 2001 it is
+licensed under both the Perl Artistic License and version 2 or later of the
+GNU General Public License as published by the Free Software Foundation.
+For a copy of these licenses see <http://www.opensource.org/licenses/>.
+The respective authors of the source code are it's owner in regard to
+copyright.
+
=head1 SEE ALSO
perl(1), edquota(1m),
Modified: trunk/libquota-perl/Quota.xs
URL: http://svn.debian.org/wsvn/trunk/libquota-perl/Quota.xs?rev=8111&op=diff
==============================================================================
--- trunk/libquota-perl/Quota.xs (original)
+++ trunk/libquota-perl/Quota.xs Tue Oct 9 04:28:04 2007
@@ -270,10 +270,10 @@
PROTOTYPES: DISABLE
void
-query(dev,uid=getuid(),isgrp=0)
+query(dev,uid=getuid(),kind=0)
char * dev
int uid
- int isgrp
+ int kind
PPCODE:
{
struct dqblk dqblk;
@@ -289,7 +289,7 @@
#ifndef linux
err = quotactl(Q_XGETQUOTA, dev+5, uid, CADR &xfs_dqblk);
#else
- err = quotactl(QCMD(Q_XGETQUOTA, (isgrp ? GRPQUOTA : USRQUOTA)), dev+5, uid, CADR &xfs_dqblk);
+ err = quotactl(QCMD(Q_XGETQUOTA, ((kind == 2) ? XQM_PRJQUOTA : ((kind == 1) ? XQM_GRPQUOTA : XQM_USRQUOTA))), dev+5, uid, CADR &xfs_dqblk);
#endif
if(!err) {
EXTEND(sp, 8);
@@ -367,16 +367,39 @@
(ioctl(fd, Q_QUOTACTL, &qp) == -1));
#else /* not USE_IOCTL */
#ifdef Q_CTL_V3 /* Linux */
- err = linuxquota_query(dev, uid, isgrp, &dqblk);
+ err = linuxquota_query(dev, uid, (kind != 0), &dqblk);
#else /* not Q_CTL_V3 */
#ifdef Q_CTL_V2
#ifdef AIX
/* AIX quotactl doesn't fail if path does not exist!? */
struct stat st;
- if (stat(dev, &st)) err = 1;
- else
-#endif
- err = quotactl(dev, QCMD(Q_GETQUOTA, (isgrp ? GRPQUOTA : USRQUOTA)), uid, CADR &dqblk);
+#if defined(HAVE_JFS2)
+ if (strncmp(dev, "(JFS2)", 6) == 0) {
+ if (stat(dev + 6, &st)) {
+ err = 1;
+ }
+ else {
+ quota64_t user_quota;
+
+ err = quotactl(dev + 6, QCMD(Q_J2GETQUOTA, ((kind != 0) ? GRPQUOTA : USRQUOTA)),
+ uid, CADR &user_quota);
+ dqblk.dqb_curblocks = user_quota.bused;
+ dqblk.dqb_bsoftlimit = user_quota.bsoft;
+ dqblk.dqb_bhardlimit = user_quota.bhard;
+ dqblk.dqb_ihardlimit = user_quota.ihard;
+ dqblk.dqb_isoftlimit = user_quota.isoft;
+ dqblk.dqb_curinodes = user_quota.iused;
+ dqblk.dqb_btime = user_quota.btime;
+ dqblk.dqb_itime = user_quota.itime;
+ }
+ }
+#endif /* HAVE_JFS2 */
+ else if (stat(dev, &st)) {
+ err = 1;
+ }
+ else
+#endif /* AIX */
+ err = quotactl(dev, QCMD(Q_GETQUOTA, ((kind != 0) ? GRPQUOTA : USRQUOTA)), uid, CADR &dqblk);
#else /* not Q_CTL_V2 */
err = quotactl(Q_GETQUOTA, dev, uid, CADR &dqblk);
#endif /* not Q_CTL_V2 */
@@ -401,7 +424,7 @@
}
int
-setqlim(dev,uid,bs,bh,fs,fh,timelimflag=0,isgrp=0)
+setqlim(dev,uid,bs,bh,fs,fh,timelimflag=0,kind=0)
char * dev
int uid
int bs
@@ -409,7 +432,7 @@
int fs
int fh
int timelimflag
- int isgrp
+ int kind
CODE:
{
struct dqblk dqblk;
@@ -437,7 +460,7 @@
#ifndef linux
RETVAL = quotactl(Q_XSETQLIM, dev+5, uid, CADR &xfs_dqblk);
#else
- RETVAL = quotactl(QCMD(Q_XSETQLIM, (isgrp ? GRPQUOTA : USRQUOTA)), dev+5, uid, CADR &xfs_dqblk);
+ RETVAL = quotactl(QCMD(Q_XSETQLIM, ((kind == 2) ? XQM_PRJQUOTA : ((kind == 1) ? XQM_GRPQUOTA : XQM_USRQUOTA))), dev+5, uid, CADR &xfs_dqblk);
#endif
}
else
@@ -468,6 +491,25 @@
}
else
#endif
+#if defined(HAVE_JFS2)
+ if(strncmp(dev, "(JFS2)", 6) == 0) {
+ quota64_t user_quota;
+
+ RETVAL = quotactl(dev + 6, QCMD(Q_J2GETQUOTA, ((kind != 0) ? GRPQUOTA : USRQUOTA)),
+ uid, CADR &user_quota);
+ if (RETVAL == 0) {
+ user_quota.bsoft = bs;
+ user_quota.bhard = bh;
+ user_quota.btime = timelimflag;
+ user_quota.isoft = fs;
+ user_quota.ihard = fh;
+ user_quota.itime = timelimflag;
+ RETVAL = quotactl(dev + 6, QCMD(Q_J2PUTQUOTA, ((kind != 0) ? GRPQUOTA : USRQUOTA)),
+ uid, CADR &user_quota);
+ }
+ }
+ else
+#endif /* HAVE_JFS2 */
{
dqblk.QS_BSOFT = Q_MUL(bs);
dqblk.QS_BHARD = Q_MUL(bh);
@@ -484,10 +526,10 @@
RETVAL = -1;
#else
#ifdef Q_CTL_V3 /* Linux */
- RETVAL = linuxquota_setqlim (dev, uid, isgrp, &dqblk);
+ RETVAL = linuxquota_setqlim (dev, uid, (kind != 0), &dqblk);
#else
#ifdef Q_CTL_V2
- RETVAL = quotactl (dev, QCMD(Q_SETQUOTA,(isgrp ? GRPQUOTA : USRQUOTA)), uid, CADR &dqblk);
+ RETVAL = quotactl (dev, QCMD(Q_SETQUOTA,((kind != 0) ? GRPQUOTA : USRQUOTA)), uid, CADR &dqblk);
#else
RETVAL = quotactl (Q_SETQLIM, dev, uid, CADR &dqblk);
#endif
@@ -573,6 +615,9 @@
#endif
if(dev == NULL) dev = "/";
#ifdef AIX
+#if defined(HAVE_JFS2)
+ if (strncmp(dev, "(JFS2)", 6) == 0) dev += 6;
+#endif
if (stat(dev, &st)) RETVAL = -1;
else
#endif
@@ -712,11 +757,11 @@
int count, space;
if(mtab != NULL) free(mtab);
- count = mntctl(MCTL_QUERY, sizeof(space), (struct vmount *) &space);
+ count = mntctl(MCTL_QUERY, sizeof(space), (char *) &space);
if (count == 0) {
mtab = (struct vmount *) malloc(space);
if (mtab != NULL) {
- count = mntctl(MCTL_QUERY, space, mtab);
+ count = mntctl(MCTL_QUERY, space, (char *) mtab);
if (count > 0) {
aix_mtab_count = count;
aix_mtab_idx = 0;
@@ -839,10 +884,17 @@
PUSHs(sv_2mortal(newSVpv(cp, strlen(cp))));
switch(vmp->vmt_gfstype) {
- case MNT_AIX: cp = "aix"; break;
case MNT_NFS: cp = "nfs"; break;
case MNT_NFS3: cp = "nfs"; break;
case MNT_JFS: cp = "jfs"; break;
+#if defined(MNT_AIX) && defined(MNT_J2) && (MNT_AIX==MNT_J2)
+ case MNT_J2: cp = "jfs2"; break;
+#else
+#if defined(MNT_J2)
+ case MNT_J2: cp = "jfs2"; break;
+#endif
+ case MNT_AIX: cp = "aix"; break;
+#endif
case 4: cp = "afs"; break;
case MNT_CDROM: cp = "cdrom,ignore"; break;
default: cp = "unknown,ignore"; break;
@@ -883,17 +935,21 @@
#if defined(USE_IOCTL) || defined(QCARG_MNTPT)
strcpy(ret, "mntpt");
#else
+#if defined(HAVE_JFS2)
+ strcpy(ret, "any,JFS2");
+#else
#if defined(AIX) || defined(OSF_QUOTA)
strcpy(ret, "any");
#else
#ifdef Q_CTL_V2
strcpy(ret, "qfile");
#else
+/* this branch applies to Q_CTL_V3 (Linux) too */
#ifdef SGI_XFS
strcpy(ret, "dev,XFS");
#else
-/* this branch applies to Q_CTL_V3 (Linux) too */
strcpy(ret, "dev");
+#endif
#endif
#endif
#endif
@@ -907,3 +963,4 @@
RETVAL = ret;
OUTPUT:
RETVAL
+
Modified: trunk/libquota-perl/README
URL: http://svn.debian.org/wsvn/trunk/libquota-perl/README?rev=8111&op=diff
==============================================================================
--- trunk/libquota-perl/README (original)
+++ trunk/libquota-perl/README Tue Oct 9 04:28:04 2007
@@ -3,8 +3,8 @@
Author: Tom Zoerner (email: tomzo AT nefkom DOT net)
-Version: 1.5.1
-Date: July 2005
+Version: 1.5.2
+Date: October 2007
DSLI-code: Rdcf
- stable release
- support by developer
@@ -22,7 +22,7 @@
VxFS (Veritas File System) on Solaris 2.
Location: http://www.perl.com/CPAN/authors/Tom_Zoerner/
Author: TOMZO (Tom Zoerner)
-License: Same as Perl: Artistic License or GPL;
+License: Same as Perl: Artistic License or GPL version 2 or later;
See also http://www.opensource.org/licenses/
Documentation is in pod format at the end of Quota.pm,
@@ -273,6 +273,13 @@
have contributed to this process; for a complete
list of names please see the CHANGES document.
+ The quota module was in the public domain 1995-2001. Since 2001
+ it is licensed under both the Perl Artistic License and version 2
+ or later of the GNU General Public License as published by the
+ Free Software Foundation. For a copy of these licenses see
+ <http://www.opensource.org/licenses/>. The respective authors
+ of the source code are it's owner in regard to copyright.
+
SEE ALSO
perl(1), edquota(1m), quotactl(2) or quotactl(7I),
mount(1m), mtab(4) or mnttab(4), quotaon(1m), setmntent(3),
Modified: trunk/libquota-perl/afsquota.c
URL: http://svn.debian.org/wsvn/trunk/libquota-perl/afsquota.c?rev=8111&op=diff
==============================================================================
--- trunk/libquota-perl/afsquota.c (original)
+++ trunk/libquota-perl/afsquota.c Tue Oct 9 04:28:04 2007
@@ -1,5 +1,7 @@
/*
* Interface to OpenAFS
+ *
+ * Copyright 1998,2003 Wolfgang Friebel <friebel at ifh.de>
*/
#if defined( __hpux)
Modified: trunk/libquota-perl/contrib/mount-list-qcarg.pl
URL: http://svn.debian.org/wsvn/trunk/libquota-perl/contrib/mount-list-qcarg.pl?rev=8111&op=diff
==============================================================================
--- trunk/libquota-perl/contrib/mount-list-qcarg.pl (original)
+++ trunk/libquota-perl/contrib/mount-list-qcarg.pl Tue Oct 9 04:28:04 2007
@@ -13,6 +13,8 @@
}
Quota::endmntent();
+print Quota::getqcargtype() ."\n\n";
+
foreach (@Mtab)
{
$path = (split(/#/))[2];
Modified: trunk/libquota-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libquota-perl/debian/changelog?rev=8111&op=diff
==============================================================================
--- trunk/libquota-perl/debian/changelog (original)
+++ trunk/libquota-perl/debian/changelog Tue Oct 9 04:28:04 2007
@@ -1,3 +1,18 @@
+libquota-perl (1.5.2+dfsg-1) unstable; urgency=low
+
+ * New upstream release
+ + Added support for new quotactl() parameters in JFS2 on AIX 5.3
+ + Changed the "isgrp" param to Quota::query() and setqlim() from boolean
+ into an enum: 0:=user, 1:=group, 2:=project quotas.
+ * debian/control
+ + Homepage field added
+ * debian/copyright
+ + Update info from upstream copyright
+ * debian/watch
+ + change URL from backpan.cpan.org to www.cpan.org
+
+ -- Rene Mayorga <rmayorga at debian.org.sv> Mon, 08 Oct 2007 21:11:19 -0600
+
libquota-perl (1.5.1+dfsg-1) unstable; urgency=low
[ Rene Maiorga ]
Modified: trunk/libquota-perl/debian/control
URL: http://svn.debian.org/wsvn/trunk/libquota-perl/debian/control?rev=8111&op=diff
==============================================================================
--- trunk/libquota-perl/debian/control (original)
+++ trunk/libquota-perl/debian/control Tue Oct 9 04:28:04 2007
@@ -6,6 +6,7 @@
Uploaders: Rene Mayorga <rmayorga at debian.org.sv>,
Damyan Ivanov <dmn at debian.org>
Standards-Version: 3.7.2
+Homepage: http://search.cpan.org/dist/Quota/
XS-Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libquota-perl/
XS-Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/libquota-perl/
@@ -19,5 +20,3 @@
Mount tables can be parsed with getmntent and paths can be
translated to device files (or whatever the actual quotactl
implementations needs as argument) of the according file system.
- .
- Homepage: http://search.cpan.org/dist/Quota/
Modified: trunk/libquota-perl/debian/copyright
URL: http://svn.debian.org/wsvn/trunk/libquota-perl/debian/copyright?rev=8111&op=diff
==============================================================================
--- trunk/libquota-perl/debian/copyright (original)
+++ trunk/libquota-perl/debian/copyright Tue Oct 9 04:28:04 2007
@@ -7,7 +7,7 @@
Upstream author is: Tom Zoerner (tomzo at nefkom.net)
- Copyrght (c) 1998-2005 Tom Zoerner
+ Copyrght (c) 1995-2007 Tom Zoerner
License: Same as Perl: Artistic License or GPL;
Modified: trunk/libquota-perl/debian/watch
URL: http://svn.debian.org/wsvn/trunk/libquota-perl/debian/watch?rev=8111&op=diff
==============================================================================
--- trunk/libquota-perl/debian/watch (original)
+++ trunk/libquota-perl/debian/watch Tue Oct 9 04:28:04 2007
@@ -1,3 +1,3 @@
version=3
opts="uversionmangle=s/(?=$)/+dfsg/" \
-http://backpan.cpan.org/modules/by-module/Quota/Quota-([\d\.]+)\.tar\.gz debian debian/repack.sh
+http://www.cpan.org/modules/by-module/Quota/Quota-([\d\.]+)\.tar\.gz debian debian/repack.sh
Modified: trunk/libquota-perl/hints/aix_4_1.h
URL: http://svn.debian.org/wsvn/trunk/libquota-perl/hints/aix_4_1.h?rev=8111&op=diff
==============================================================================
--- trunk/libquota-perl/hints/aix_4_1.h (original)
+++ trunk/libquota-perl/hints/aix_4_1.h Tue Oct 9 04:28:04 2007
@@ -20,11 +20,17 @@
#include "include/rquota.h"
#include <jfs/quota.h>
+#include <sys/statfs.h>
#include <sys/mntctl.h>
#include <sys/vmount.h>
#define AIX
#define Q_CTL_V2
+
+#if defined(_AIXVERSION_530)
+#include "j2/j2_quota.h"
+#define HAVE_JFS2
+#endif
#define Q_DIV(X) (X)
#define Q_MUL(X) (X)
Modified: trunk/libquota-perl/include/quotaio_xfs.h
URL: http://svn.debian.org/wsvn/trunk/libquota-perl/include/quotaio_xfs.h?rev=8111&op=diff
==============================================================================
--- trunk/libquota-perl/include/quotaio_xfs.h (original)
+++ trunk/libquota-perl/include/quotaio_xfs.h Tue Oct 9 04:28:04 2007
@@ -36,6 +36,11 @@
#define XQM_CMD(cmd) ( ('X'<<8)+(cmd) )
#define IS_XQM_CMD(cmd) ( ((int)(cmd)>>8) == 'X' )
+
+#define XQM_USRQUOTA 0 /* system call user quota type */
+#define XQM_GRPQUOTA 1 /* system call group quota type */
+#define XQM_PRJQUOTA 2 /* system call project quota type */
+#define XQM_MAXQUOTAS 3
/*
* Disk quota - quotactl(2) commands for XFS Quota Manager (XQM).
Modified: trunk/libquota-perl/test.pl
URL: http://svn.debian.org/wsvn/trunk/libquota-perl/test.pl?rev=8111&op=diff
==============================================================================
--- trunk/libquota-perl/test.pl (original)
+++ trunk/libquota-perl/test.pl Tue Oct 9 04:28:04 2007
@@ -1,4 +1,16 @@
#!../../../perl
+# ------------------------------------------------------------------------ #
+# Interactive test and demo script for the Perl Quota extension module
+#
+# Author: Tom Zoerner 1995-2005
+#
+# This program (test.pl) is in the public domain and can be used and
+# redistributed without restrictions.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+# ------------------------------------------------------------------------ #
use blib;
use Quota;
More information about the Pkg-perl-cvs-commits
mailing list