This Perl script creates a snapshot (snapName) of a (pool) and designates another pool (snapPoolName)
as a snapshot data repository.

This script has been designed to be run on NetWare.

The API set can be downloaded from http://developer.novell.com/wiki/index.php/Virtual_File_Services_for_NetWare.

The Perl script requires the name of an NSS pool, a storage pool, and the name of the new snapshot
as input. It requires that NSS be installed and an NSS pool be present.

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:

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

To run the perl script type:

perl NWAddPoolSnapshot.pl POOL_NAME SNAP_STORAGE_POOL SNAP_NAME <enter>

Where POOL_NAME is the name of the pool to create a snapshot of.

Where SNAP_STORAGE_POOL is the name of the pool that will store the snapshot data.

And where SNAP_NAME is the name of the new snapshot pool.

Example:

perl NWAddPoolSnapshot.pl NSSPOOL NSSStoragePOOL NSSPOOL_SNAP <enter>

Sample output:

file is now open.
File Name:  <_ADMIN:ManageNSS/manage.cmd
Request Sent: <virtualIO><datastream name=\"command\"/></virtualIO><nssRequest><pool><addPoolSnapshot><poolName>$poolName</poolName><snapPoolName>$snapPoolName</snapPoolName><snapName>$snapName</snapName></addPoolSnapshot></pool></nssRequest>

<nssReply>
<pool>
<addPoolSnapshot>
<result value="0"><description>success</description></result>
</addPoolSnapshot>
</pool>
<result value="0"><description>zOK</description></result>

</nssReply>