This Perl script lists all users on a specified volume with user space restrictions.

It uses the Virtual File Services (Originally called Virtual File Services for NetWare) which were ported over to Linux. The SDK for this API set can be downloaded from http://developer.novell.com/wiki/index.php/Virtual_File_Services_for_NetWare.

The objective of the tool is to delete a specified Linux NSS Pool Snapshot using XML as specified in the VFS for NetWare specification. It is intended to be used as a sample script for developers that may want to use the VFS API set to view and manage storage.

How to Use the file:

linuxBrowseUserSpaceRestrictions.pl is a Perl script. So Perl must be installed and running on the Linux server that this file is being loaded on. NSS must be installed to get the VFS support.

To run the perl script type:

perl linuxBrowseUserSpaceRestrictions.pl VOLUME_NAME

where VOLUME_NAME is the name of an NSS volume.

Example: perl linuxBrowseUserSpaceRestrictions.pl VOL1

Sample output:

seek:/a # cp /zoom/a/linuxBrowseUserSpaceRestrictions.pl .
seek:/a # perl linuxBrowseUserSpaceRestrictions.pl NSS1
file is now open
File Name:  </_admin/Manage_NSS/manage.cmd
Request Sent: <virtualIO><datastream name="command"/></virtualIO><nssRequest><userSpaceRestrictions><browse><volumeName>NSS1</volumeName><allUsers/></browse></userSpaceRestrictions></nssRequest>
<nssReply>
<userSpaceRestrictions>
<browse>
<userList>
<user>
<id>00000003-0000-0000-00-00-000000000000</id>
<userName>[Supervisor]</userName>
<noQuota/>
<spaceUsed>13676544</spaceUsed>
</user>
<user>
<id>16eaa6cb-2923-456e-1a-8f-cba6ea162329</id>
<userName>Internet Organizational Person.Organization.ZZ</userName>
<fullyRestricted/>
<spaceUsed>0</spaceUsed>
</user>
<user>
<id>2d61c9e0-2989-4b87-30-a7-e0c9612d8929</id>
<userName>User.Organization.ZZ</userName>
<noQuota/>
<spaceUsed>4096</spaceUsed>
</user>
<user>
<id>9d443b88-337c-455d-12-b2-883b449d7c33</id>
<userName>Dynamic Group.Organization.ZZ</userName>
<quota>89202688</quota>
<spaceUsed>0</spaceUsed>
</user>
<user>
<id>f529612e-c499-4a4d-1d-87-2e6129f599c4</id>
<userName>Person.Organization.ZZ</userName>
<quota>92094464</quota>
<spaceUsed>0</spaceUsed>
</user>
</userList>
<result value="0"><description>zOK</description></result>
</browse>
</userSpaceRestrictions>
<result value="0"><description>zOK</description></result>
</nssReply>