From a8f0afeb50ed5f9bd67ee4128fbf283222445e9e Mon Sep 17 00:00:00 2001
From: Bart Van Assche <bvanassche@acm.org>
Date: Thu, 4 Jan 2018 04:15:11 +0000
Subject: [PATCH] scstadmin: Add the -dumpAttrs command line option

git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@7321 d57e44dd-8a1f-0410-8b47-8ef2f437770f
---
 scstadmin/scstadmin.sysfs/scstadmin | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/scstadmin/scstadmin.sysfs/scstadmin b/scstadmin/scstadmin.sysfs/scstadmin
index 48c4fa90d..540d371e3 100755
--- a/scstadmin/scstadmin.sysfs/scstadmin
+++ b/scstadmin/scstadmin.sysfs/scstadmin
@@ -259,6 +259,7 @@ BEGIN {
 }
 
 use SCST::SCST 1.0.0;
+use Data::Dumper;
 use Getopt::Long;
 use IO::File;
 use IO::Dir;
@@ -383,6 +384,7 @@ sub getArgs {
 	my $show_usage;
 	my $nonkey;
 	my $force;
+	my $dumpAttrs;
 
 	my $p = new Getopt::Long::Parser;
 
@@ -483,6 +485,7 @@ sub getArgs {
 			    'noprompt'		=> \$_NOPROMPT_,
 			    'cont_on_err'       => \$_CONT_ON_ERR_,
 			    'force'		=> \$force,
+			    'dumpAttrs'		=> \$dumpAttrs,
 			    'debug'             => \$_DEBUG_))
 	{
 		exit 1;
@@ -823,6 +826,7 @@ sub getArgs {
 
 		nonkey				=> $nonkey,
 		force				=> $force,
+		dumpAttrs			=> $dumpAttrs,
 	    );
 	return \%args;
 }
@@ -932,6 +936,7 @@ sub main {
 
 	my $nonkey			= $args->{nonkey};
 	my $force			= $args->{force};
+	my $dumpAttrs			= $args->{dumpAttrs};
 
 	$SCST = new SCST::SCST($_DEBUG_);
 
@@ -1326,6 +1331,18 @@ sub main {
 			print "\t-> Done.\n";
 			last SWITCH;
 		};
+		defined($dumpAttrs) && do {
+			print "SCST attributes:\n";
+			print Dumper($SCST->scstAttributes());
+			foreach my $handler (sort keys %{$CURRENT{'handler'}}) {
+				my $devices = $CURRENT{'handler'}->{$handler};
+				foreach my $device (sort @{$devices}) {
+					print "Device $device attributes:\n";
+					print Dumper($SCST->deviceAttributes($device));
+				}
+			}
+			last SWITCH;
+		};
 
 		if (!$all_good) {
 			print "No valid operations specified.\n";