From ac971e04258b708240a12468bfeb1e0b6fdd2e30 Mon Sep 17 00:00:00 2001 From: amulet1 Date: Wed, 29 Jan 2025 15:40:52 -0500 Subject: [PATCH] Added support for Veeam snapshots --- PureStoragePlugin.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/PureStoragePlugin.pm b/PureStoragePlugin.pm index 410ad5f..aaef57d 100644 --- a/PureStoragePlugin.pm +++ b/PureStoragePlugin.pm @@ -197,7 +197,7 @@ sub purestorage_name_prefix { $value = $scfg->{ $pkey }; if ( defined( $value ) ) { $prefix .= $value; - die "Error:: Invalid \"$pkey\" parameter value \"$value\"\n" if $prefix !~ m/^\w([\w-]*\w)?((\/|::)(\w[\w-]*)?)?$/; + die "Error :: Invalid \"$pkey\" parameter value \"$value\"\n" if $prefix !~ m/^\w([\w-]*\w)?((\/|::)(\w[\w-]*)?)?$/; } $scfg->{ $ckey } = $prefix; @@ -211,10 +211,11 @@ sub purestorage_name { my $name = length( $volname ) ? purestorage_name_prefix( $scfg ) . $volname : ''; if ( length( $snapname ) ) { - - # $snapname =~ s/_/-/g; + my $snap = $snapname; + $snap =~ s/^(veeam_)/veeam-/; # s/_/-/g; + $snap = 'snap-' . $snap unless defined $1; $name .= '.' if $name ne ''; - $name .= 'snap-' . $snapname; + $name .= $snap; } print 'Debug :: purestorage_name ::',