I think it would be worth putting some basic templates of perl scripts within the documentation. I'm sure this could be done better, however it certainly works. For those that want a template perl script for the data broker, here is one. This adds support for cascaded vault, which isnt natively supported in the GUI. You can only inject labels with fan out using the GUI.
This will do the following:
- Inject labels into daily, weekly, monthly snapshots at source
- Perform snapmirror update to destination system
- The vault schedule on the destination NetApp can then happily use the labels for longer term retention.
- I never bothered to do the vault update as well in the script, just stagger the vault schedule far enough in advance for the first mirror to complete
#!/usr/bin/perl
# SRM Management 01 Volumes Perl Post Backup Script
# Modifies snapmirror-labels in cascade situation
# SnapCenter only supports fan out and won't add labels at source
# Job is ran from data broker job as root so ensure owner and permissions are set to allow root access
# Connect to console of databroker and enable diag account to create script files and directories
# Cascade update is done outside of this script by cron destination cluster
# Jobs need to be adequately staggered to allow mirror update to complete before hand
# Pre-reqs for this script to run successfully are commented below
# Data broker needs the following lines added to /etc/apt/sources.list
#
# echo "deb http://deb.debian.org/debian stretch main" | sudo tee -a /etc/apt/sources.list
# echo "deb-src http://deb.debian.org/debian stretch main" | sudo tee -a /etc/apt/sources.list
#
# Run the following lines in sequence to install OpenSSH module into perl environment
# Data broker requires internet access for these commands run run
# sudo apt-get update -y
# sudo apt-get install -y apt-utils
# sudo apt-get install -y libnet-openssh-perl
# sudo cpan -f install Net::OpenSSH
#
# Amayacitta Gill - Simplify IT
use strict;
use warnings;
use Net::OpenSSH;
# Grab the time and place in variable for log file
my @now = localtime();
my $timestamp = sprintf("%04d%02d%02d%02d%02d%02d",
$now[5]+1900, $now[4]+1, $now[3],
$now[2], $now[1], $now[0]);
# Environment variable will be set by SnapCentre to pickup PRE or POST jobs through this script
# These will not work until data broker 1.0.1D2 (or later) check the below URL for availability
# Until then this script will end up running twice as POST_BACKUP is always shown for the BACKUP_PHASE env variable
# https://mysupport.netapp.com/products/netapp_databroker/1.0.1D2/index.html
# Use if statement to run PRE or POST according
# $ENV{'BACKUP_PHASE'} = 'PRE_BACKUP';
# $ENV{'BACKUP_PHASE') = 'POST_BACKUP';
# Variables
# If a password contains an @ symbol the symbol must be preceded by a \ otherwise it's mistaken as an array
my $timeout = "60";
my $postlogfilename = "post_srm_mgmt_01_volumes$timestamp.log";
my $sourcehostname = "DC1PNETAPP01.xxx.xxx";
my $sourceusername = "snapcentre";
my $sourcepassword = "xxxxx";
my $desthostname = "DC3PNETAPP01.xxx.xxx";
my $destusername = "snapcentre";
my $destpassword = "xxxxx";
my $smupdate = "snapmirror update *srm_mgmt_01*";
my $daily = "vol snapshot modify -volume *srm_mgmt_01* -snapshot *daily* -snapmirror-label daily -vserver DC1VSVM01";
my $weekly = "vol snapshot modify -volume *srm_mgmt_01* -snapshot *weekly* -snapmirror-label weekly -vserver DC1VSVM01";
my $monthly = "vol snapshot modify -volume *srm_mgmt_01* -snapshot *monthly* -snapmirror-label monthly -vserver DC1VSVM01";
# Test code for BACKUP_NAME as this is empty on PRE and populated on POST
# On testing this variable is not populated for either job runs!
# If BACKUP_NAME is not empty or failed then run post-backup code
#if ($ENV{'BACKUP_NAME'} ne '' && ne 'BACKUP_FAILED') {
# Run only when the BACKUP_PHASE is POST
if ($ENV{BACKUP_PHASE} = 'POST_BACKUP') {
# Start Logging
open (STDOUT, "| tee -ai /home/scripts/logs/$postlogfilename");
# Display current BACKUP_BAME variable and user script is running as for debugging
print "Running Post-Backup Code...\n";
print "BACKUP_NAME is $ENV{'BACKUP_NAME'}\n";
print "This script is running as user ";
print scalar getpwuid $<;
print "\n\n";
# Source connection details for OpenSSH Perl Module with error check
my $sourcessh = Net::OpenSSH->new(
$sourcehostname,
user => $sourceusername,
password => $sourcepassword,
timeout => $timeout,
master_opts => [ -o => "StrictHostKeyChecking=no" ]
);
$sourcessh->error and die "Unable to connect to remote host: " . $sourcessh->error;
# Modify source snapshots with snapmirror labels these are to be used later for vault cascade
# Comment out labels that are not required
$sourcessh->system("$daily");
#$sourcessh->system("$weekly");
#$sourcessh->system("$monthly");
# Start snapmirror update so vault cascade has updated label
# Destination connection details for OpenSSH Perl Module with error check
my $destssh = Net::OpenSSH->new(
$desthostname,
user => $destusername,
password => $destpassword,
timeout => $timeout,
master_opts => [ -o => "StrictHostKeyChecking=no" ]
);
$destssh->error and die "Unable to connect to remote host: " . $destssh->error;
# Run comamnds based on variables above
# Will perform snap mirror update to destination
print "Perforning snapmirror update of volumes...\n";
$destssh->system("$smupdate");
# Remove logs older than 30 days
print "Removing log files older than 30 days...\n";
system("find /home/scripts/logs/post** -type f -mtime +30 -print -exec rm {} '\;'");
}
Enjoy!
