Sample unsetup.pl script for a custom signature
The following is the sample
unsetup.pl script for a custom signature:
\#!/opt/VRTSsfmh/bin/perl
BEGIN { @INC = ("/opt/VRTSsfmh/lib/modules"); }
use VRTS::AddOnInfo;
use File::Copy;
require File::Spec;
my $install_dir = VRTS::Paths::get_path("InstallDir");
my $sigdir = File::Spec->catfile($install_dir,"lib","signatures");
my $pcregutil = File::Spec->catfile($install_dir,"bin","pcreg");
\# Creating array of signature files name and signature name
@signature_files = ("UnUsedVolumes.pl");
@signature_names = ("PC_VXVM_UNUSED_VOLUMES");
\# Remove script on CS
if ( VRTS::AddOnInfo::is_CS() )
{
foreach $signame (@signature_names)
{
print "Remove signature $signame\n";
system("$pcregutil --id $signame");
}
}
\# Remove signature from signature directory
foreach $sigfilename (@signature_files)
{
print "Remove script $sigfilename\n";
my $sigfile = File::Spec->catfile($sigdir,$sigfilename);
File::Path::rmtree("$sigfile");
}
exit(0);
More Information
Related information