This perl script pings an inactive Epoch to prevent it from being removed. 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 add a trustee to a file 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:

To run the perl script type:

perl NWPingEpoch.pl VOLUME_NAME <enter>

Where VOLUME_NAME is the name of the NSS volume where the active EFL Epoch is to be stopped.

Example:

perl NWPingEpoch.pl VOL1 <enter>

Sample output:

perl NWPingEpoch.pl NSS1 file is now open </_admin/Manage_NSS/Volume/NSS1/FileEvents.xml <nssRequest><fileEventList><listEpochs/></fileEventList></nssRequest> 
<nssReply> 
<fileEventList> 
<listEpochs> 
<activeEpochs>
 <epoch value="999b2e58-8ee7-01db-80-00-7d12a3031248"/>
 </activeEpochs> 
<usedEpochs> 
<epoch value="999b2e58-8ee7-01db-80-00-7d12a3031248"/>
 </usedEpochs> 
<result value="0"><description>success</description></result>
 </listEpochs> 
</fileEventList> 
</nssReply>

Choose an epoch and type in the complete 37 letter code including dashes.

999b2e58-8ee7-01db-80-00-7d12a3031248 
 </_admin/Manage_NSS/Volume/NSS1/FileEvents.xml <nssRequest><fileEventList>
<pingEpoch epochNumber="999b2e58-8ee7-01db-80-00-7d12a3031248"/></fileEventList></nssRequest>
 <nssReply>
 <fileEventList>
 <pingEpoch> 
<epoch value="999b2e58-8ee7-01db-80-00-7d12a3031248"/>
 <result value="0"><description>success</description></result> 
</pingEpoch> 
</fileEventList>
 </nssReply>