review comments

snippets/perl/storageAPI/delete_disk_pool.pl

@@ -2,7 +2,7 @@
 use lib"../.";
 
 use gateway;
-use storage;
+use storageAPI::storage;
 use Getopt::Long qw(GetOptions);
 sub printUsage {
   print "\nUsage : perl delete_disk_pool.pl -nbmaster <master_server> -username <username> -password <password> -dpid <disk pool id> [-domainname <domain_name>] [-domaintype <domain_type>]\n\n";

snippets/perl/storageAPI/delete_storage_server.pl

@@ -2,7 +2,7 @@
 use lib"../.";
 
 use gateway;
-use storage;
+use storageAPI::storage;
 use Getopt::Long qw(GetOptions);
 sub printUsage {
   print "\nUsage : perl delete_storage_server.pl -nbmaster <master_server> -username <username> -password <password> -stsid <Storage server id> [-domainname <domain_name>] [-domaintype <domain_type>]\n\n";

snippets/perl/storageAPI/delete_storage_unit.pl

@@ -2,7 +2,7 @@
 use lib"../.";
 
 use gateway;
-use storage;
+use storageAPI::storage;
 use Getopt::Long qw(GetOptions);
 sub printUsage {
   print "\nUsage : perl delete_storage_unit.pl -nbmaster <master_server> -username <username> -password <password> -stu_name <Storage unit name> [-domainname <domain_name>] [-domaintype <domain_type>]\n\n";

snippets/perl/storageAPI/get_disk_pool.pl

@@ -2,7 +2,7 @@
 use lib"../.";
 
 use gateway;
-use storage;
+use storageAPI::storage;
 use Getopt::Long qw(GetOptions);
 sub printUsage {
   print "\nUsage : perl get_disk_pool.pl -nbmaster <master_server> -username <username> -password <password> [-domainname <domain_name>] [-domaintype <domain_type>]\n\n";

snippets/perl/storageAPI/get_disk_pool_by_id.pl

@@ -2,7 +2,7 @@
 use lib"../.";
 
 use gateway;
-use storage;
+use storageAPI::storage;
 use Getopt::Long qw(GetOptions);
 sub printUsage {
   print "\nUsage : perl get_disk_pool_by_id.pl -nbmaster <master_server> -username <username> -password <password> -dpid <disk pool id> [-domainname <domain_name>] [-domaintype <domain_type>]\n\n";

snippets/perl/storageAPI/get_storage_server.pl

@@ -2,7 +2,7 @@
 use lib"../.";
 
 use gateway;
-use storage;
+use storageAPI::storage;
 use Getopt::Long qw(GetOptions);
 sub printUsage {
   print "\nUsage : perl get_storage_server.pl -nbmaster <master_server> -username <username> -password <password> -payload <payload file path> [-domainname <domain_name>] [-domaintype <domain_type>]\n\n";

snippets/perl/storageAPI/get_storage_server_by_id.pl

@@ -2,7 +2,7 @@
 use lib"../.";
 
 use gateway;
-use storage;
+use storageAPI::storage;
 use Getopt::Long qw(GetOptions);
 sub printUsage {
   print "\nUsage : perl get_storage_server_by_id.pl -nbmaster <master_server> -username <username> -password <password> -stsid <Storage server id> [-domainname <domain_name>] [-domaintype <domain_type>]\n\n";

snippets/perl/storageAPI/get_storage_unit.pl

@@ -1,8 +1,8 @@
 #Load module netbackup.pm from current directory
-use lib"../.";
 
+use lib"../.";
 use gateway;
-use storage;
+use storageAPI::storage;
 use Getopt::Long qw(GetOptions);
 sub printUsage {
   print "\nUsage : perl get_storage_unit.pl -nbmaster <master_server> -username <username> -password <password> [-domainname <domain_name>] [-domaintype <domain_type>]\n\n";

snippets/perl/storageAPI/get_storage_unit_by_id.pl

@@ -2,7 +2,7 @@
 use lib"../.";
 
 use gateway;
-use storage;
+use storageAPI::storage;
 use Getopt::Long qw(GetOptions);
 sub printUsage {
   print "\nUsage : perl get_storage_unit_by_id.pl -nbmaster <master_server> -username <username> -password <password> -stu_name <Storage unit name> [-domainname <domain_name>] [-domaintype <domain_type>]\n\n";

snippets/perl/storageAPI/patch_disk_pool.pl

@@ -2,7 +2,7 @@
 use lib"../.";
 
 use gateway;
-use storage;
+use storageAPI::storage;
 use Getopt::Long qw(GetOptions);
 sub printUsage {
   print "\nUsage : perl patch_disk_pool.pl -nbmaster <master_server> -username <username> -password <password> -payload <payload file path> -dpid <disk pool id> [-domainname <domain_name>] [-domaintype <domain_type>]\n\n";

snippets/perl/storageAPI/patch_storage_server.pl

@@ -2,7 +2,7 @@
 use lib"../.";
 
 use gateway;
-use storage;
+use storageAPI::storage;
 use Getopt::Long qw(GetOptions);
 sub printUsage {
   print "\nUsage : perl patch_storage_server.pl -nbmaster <master_server> -username <username> -password <password> -payload <payload file path> -stsid <Storage server id> [-domainname <domain_name>] [-domaintype <domain_type>]\n\n";

snippets/perl/storageAPI/patch_storage_unit.pl

@@ -2,7 +2,7 @@
 use lib"../.";
 
 use gateway;
-use storage;
+use storageAPI::storage;
 use Getopt::Long qw(GetOptions);
 sub printUsage {
   print "\nUsage : perl patch_storage_unit.pl -nbmaster <master_server> -username <username> -password <password> -payload <payload file path> -stu_name <stu name>[-domainname <domain_name>] [-domaintype <domain_type>]\n\n";

snippets/perl/storageAPI/post_disk_pool.pl

@@ -2,7 +2,7 @@
 use lib"../.";
 
 use gateway;
-use storage;
+use storageAPI::storage;
 use Getopt::Long qw(GetOptions);
 sub printUsage {
   print "\nUsage : perl post_disk_pool.pl -nbmaster <master_server> -username <username> -password <password> -payload <payload file path> -dpid <disk pool id> [-domainname <domain_name>] [-domaintype <domain_type>]\n\n";

snippets/perl/storageAPI/post_storage_server.pl

@@ -2,7 +2,7 @@
 use lib"../.";
 
 use gateway;
-use storage;
+use storageAPI::storage;
 use Getopt::Long qw(GetOptions);
 sub printUsage {
   print "\nUsage : perl post_storage_server.pl -nbmaster <master_server> -username <username> -password <password> -payload <payload file path> [-domainname <domain_name>] [-domaintype <domain_type>]\n\n";

snippets/perl/storageAPI/post_storage_unit.pl

@@ -2,7 +2,7 @@
 use lib"../.";
 
 use gateway;
-use storage;
+use storageAPI::storage;
 use Getopt::Long qw(GetOptions);
 sub printUsage {
   print "\nUsage : perl post_storage_unit.pl -nbmaster <master_server> -username <username> -password <password> -payload <payload file path> [-domainname <domain_name>] [-domaintype <domain_type>]\n\n";