Skip to content

Commit d693578

Browse files
santhosh-vrtssanthosh-vrts
authored
Merge pull request #29 from VeritasOS/vmserver_resource_limits_APIs
Added perl scripts for all GET APIs for VM server credentials and resource limits.
2 parents 76a663e + f3a4799 commit d693578

File tree

8 files changed

+916
-0
lines changed

8 files changed

+916
-0
lines changed

‎snippets/perl/README.md‎

Lines changed: 32 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -80,3 +80,35 @@ no a subscription associated with this asset.
8080

8181
- Example: perl post_nb_asset_cleanup.pl -nbmaster <master_server> -username <username> -password <pass> -filter "workloadType eq 'VMware'" -cleanuptime 2018-06-29T15:58:45.678Z
8282

83+
84+
#### Scripts for NetBackup 8.2 or higher
85+
86+
VM Servers Details:
87+
88+
- Use the following command to obtain the list of all VM servers details from your NetBackup Master server:
89+
- `perl get_vm_servers.pl -nbmaster <master_server> -username <username> -password <password> [-domainname <domain_name>] [-domaintype <domain_type>] [--verbose]`
90+
91+
VM Server Details:
92+
93+
- Use the following command to obtain the VM server details from your NetBackup Master server:
94+
- `perl get_vm_server.pl -nbmaster <master_server> -username <username> -password <password> -servername <servername> [-domainname <domain_name>] [-domaintype <domain_type>] [--verbose]`
95+
96+
NetBackup All Resource Limits:
97+
98+
- Use the following command to obtain the list of all NetBackup resource limits from your NetBackup Master server:
99+
- `perl get_all_resource_limits.pl -nbmaster <master_server> -username <username> -password <password> [-domainname <domain_name>] [-domaintype <domain_type>] [--verbose]`
100+
101+
NetBackup Resource Limits:
102+
103+
- Use the following command to obtain the NetBackup resource limits from your NetBackup Master server:
104+
- `perl get_resource_limits.pl -nbmaster <master_server> -username <username> -password <password> -workloadtype <workloadtype> [-domainname <domain_name>] [-domaintype <domain_type>] [--verbose]`
105+
106+
NetBackup All Resource Limits Templates:
107+
108+
- Use the following command to obtain the list of all NetBackup resource limits templates from your NetBackup Master server:
109+
- `perl get_all_resource_limits_templates.pl -nbmaster <master_server> -username <username> -password <password> [-domainname <domain_name>] [-domaintype <domain_type>] [--verbose]`
110+
111+
NetBackup Resource Limits Template:
112+
113+
- Use the following command to obtain the NetBackup resource limits template from your NetBackup Master server:
114+
- `perl get_resource_limits_template.pl -nbmaster <master_server> -username <username> -password <password> -workloadtype <workloadtype> [-domainname <domain_name>] [-domaintype <domain_type>] [--verbose]`

‎snippets/perl/get_all_resource_limits.pl‎

Lines changed: 62 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,62 @@
1+
#Load module netbackup.pm from current directory
2+
use lib '.';
3+
4+
use netbackup;
5+
use strict;
6+
use warnings;
7+
use Getopt::Long qw(GetOptions);
8+
9+
sub printUsage {
10+
print "\nUsage : perl get_all_resource_limits.pl -nbmaster <master_server> -username <username> -password <password> [-domainname <domain_name>] [-domaintype <domain_type>] [--verbose]\n\n";
11+
die;
12+
}
13+
14+
my $fqdn_hostname;
15+
my $username;
16+
my $password;
17+
my $domainname;
18+
my $domaintype;
19+
my $verbose;
20+
21+
GetOptions(
22+
'nbmaster=s' => \$fqdn_hostname,
23+
'username=s' => \$username,
24+
'password=s' => \$password,
25+
'domainname=s' => \$domainname,
26+
'domaintype=s' => \$domaintype,
27+
'verbose' => \$verbose
28+
) or printUsage();
29+
30+
if (!$fqdn_hostname || !$username || !$password) {
31+
printUsage();
32+
}
33+
34+
if($verbose){
35+
print "\nRecieved the following parameters : \n";
36+
print " FQDN Hostname : $fqdn_hostname\n";
37+
print " Username : $username\n";
38+
print " Password : $password\n";
39+
if ($domainname) {
40+
print " Domain Name : $domainname\n";
41+
}
42+
if ($domaintype) {
43+
print " Domain Type : $domaintype\n";
44+
}
45+
}
46+
47+
print "\n";
48+
my $myToken;
49+
if ($domainname && $domaintype) {
50+
$myToken = netbackup::login($fqdn_hostname, $username, $password, $domainname, $domaintype);
51+
}
52+
else{
53+
$myToken = netbackup::login($fqdn_hostname, $username, $password);
54+
}
55+
56+
my $jsonstring = netbackup::getAllResourceLimits($fqdn_hostname, $myToken);
57+
58+
print "\nNetBackup resource limits for all supported workload types:\n";
59+
netbackup::displayAllResourceLimits($jsonstring);
60+
61+
netbackup::logout($fqdn_hostname, $myToken);
62+
print "\n";

‎snippets/perl/get_all_resource_limits_templates.pl‎

Lines changed: 62 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,62 @@
1+
#Load module netbackup.pm from current directory
2+
use lib '.';
3+
4+
use netbackup;
5+
use strict;
6+
use warnings;
7+
use Getopt::Long qw(GetOptions);
8+
9+
sub printUsage {
10+
print "\nUsage : perl get_all_resource_limits_templates.pl -nbmaster <master_server> -username <username> -password <password> [-domainname <domain_name>] [-domaintype <domain_type>] [--verbose]\n\n";
11+
die;
12+
}
13+
14+
my $fqdn_hostname;
15+
my $username;
16+
my $password;
17+
my $domainname;
18+
my $domaintype;
19+
my $verbose;
20+
21+
GetOptions(
22+
'nbmaster=s' => \$fqdn_hostname,
23+
'username=s' => \$username,
24+
'password=s' => \$password,
25+
'domainname=s' => \$domainname,
26+
'domaintype=s' => \$domaintype,
27+
'verbose' => \$verbose
28+
) or printUsage();
29+
30+
if (!$fqdn_hostname || !$username || !$password) {
31+
printUsage();
32+
}
33+
34+
if($verbose){
35+
print "\nRecieved the following parameters : \n";
36+
print " FQDN Hostname : $fqdn_hostname\n";
37+
print " Username : $username\n";
38+
print " Password : $password\n";
39+
if ($domainname) {
40+
print " Domain Name : $domainname\n";
41+
}
42+
if ($domaintype) {
43+
print " Domain Type : $domaintype\n";
44+
}
45+
}
46+
47+
print "\n";
48+
my $myToken;
49+
if ($domainname && $domaintype) {
50+
$myToken = netbackup::login($fqdn_hostname, $username, $password, $domainname, $domaintype);
51+
}
52+
else{
53+
$myToken = netbackup::login($fqdn_hostname, $username, $password);
54+
}
55+
56+
my $jsonstring = netbackup::getAllResourceLimitsTemplates($fqdn_hostname, $myToken);
57+
58+
print "\nNetBackup resource limits templates for all supported workload types::\n";
59+
netbackup::displayAllResourceLimitsTemplates($jsonstring);
60+
61+
netbackup::logout($fqdn_hostname, $myToken);
62+
print "\n";

‎snippets/perl/get_resource_limits.pl‎

Lines changed: 65 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,65 @@
1+
#Load module netbackup.pm from current directory
2+
use lib '.';
3+
4+
use netbackup;
5+
use strict;
6+
use warnings;
7+
use Getopt::Long qw(GetOptions);
8+
9+
sub printUsage {
10+
print "\nUsage : perl get_resource_limits.pl -nbmaster <master_server> -username <username> -password <password> -workloadtype <workloadtype> [-domainname <domain_name>] [-domaintype <domain_type>] [--verbose]\n\n";
11+
die;
12+
}
13+
14+
my $fqdn_hostname;
15+
my $username;
16+
my $password;
17+
my $workloadtype;
18+
my $domainname;
19+
my $domaintype;
20+
my $verbose;
21+
22+
GetOptions(
23+
'nbmaster=s' => \$fqdn_hostname,
24+
'username=s' => \$username,
25+
'password=s' => \$password,
26+
'workloadtype=s' => \$workloadtype,
27+
'domainname=s' => \$domainname,
28+
'domaintype=s' => \$domaintype,
29+
'verbose' => \$verbose
30+
) or printUsage();
31+
32+
if (!$fqdn_hostname || !$username || !$password || !$workloadtype) {
33+
printUsage();
34+
}
35+
36+
if($verbose){
37+
print "\nRecieved the following parameters : \n";
38+
print " FQDN Hostname : $fqdn_hostname\n";
39+
print " Username : $username\n";
40+
print " Password : $password\n";
41+
print " Workload Type : $workloadtype\n";
42+
if ($domainname) {
43+
print " Domain Name : $domainname\n";
44+
}
45+
if ($domaintype) {
46+
print " Domain Type : $domaintype\n";
47+
}
48+
}
49+
50+
print "\n";
51+
my $myToken;
52+
if ($domainname && $domaintype) {
53+
$myToken = netbackup::login($fqdn_hostname, $username, $password, $domainname, $domaintype);
54+
}
55+
else{
56+
$myToken = netbackup::login($fqdn_hostname, $username, $password);
57+
}
58+
59+
my $jsonstring = netbackup::getResourceLimits($fqdn_hostname, $myToken, $workloadtype);
60+
61+
print "\n Resource limits for a given workload type:\n";
62+
netbackup::displayResourceLimits($jsonstring);
63+
64+
netbackup::logout($fqdn_hostname, $myToken);
65+
print "\n";

‎snippets/perl/get_resource_limits_template.pl‎

Lines changed: 65 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,65 @@
1+
#Load module netbackup.pm from current directory
2+
use lib '.';
3+
4+
use netbackup;
5+
use strict;
6+
use warnings;
7+
use Getopt::Long qw(GetOptions);
8+
9+
sub printUsage {
10+
print "\nUsage : perl get_resource_limits_template.pl -nbmaster <master_server> -username <username> -password <password> -workloadtype <workloadtype> [-domainname <domain_name>] [-domaintype <domain_type>] [--verbose]\n\n";
11+
die;
12+
}
13+
14+
my $fqdn_hostname;
15+
my $username;
16+
my $password;
17+
my $workloadtype;
18+
my $domainname;
19+
my $domaintype;
20+
my $verbose;
21+
22+
GetOptions(
23+
'nbmaster=s' => \$fqdn_hostname,
24+
'username=s' => \$username,
25+
'password=s' => \$password,
26+
'workloadtype=s' => \$workloadtype,
27+
'domainname=s' => \$domainname,
28+
'domaintype=s' => \$domaintype,
29+
'verbose' => \$verbose
30+
) or printUsage();
31+
32+
if (!$fqdn_hostname || !$username || !$password || !$workloadtype) {
33+
printUsage();
34+
}
35+
36+
if($verbose){
37+
print "\nRecieved the following parameters : \n";
38+
print " FQDN Hostname : $fqdn_hostname\n";
39+
print " Username : $username\n";
40+
print " Password : $password\n";
41+
print " Workload Type : $workloadtype\n";
42+
if ($domainname) {
43+
print " Domain Name : $domainname\n";
44+
}
45+
if ($domaintype) {
46+
print " Domain Type : $domaintype\n";
47+
}
48+
}
49+
50+
print "\n";
51+
my $myToken;
52+
if ($domainname && $domaintype) {
53+
$myToken = netbackup::login($fqdn_hostname, $username, $password, $domainname, $domaintype);
54+
}
55+
else{
56+
$myToken = netbackup::login($fqdn_hostname, $username, $password);
57+
}
58+
59+
my $jsonstring = netbackup::getResourceLimitsTemplate($fqdn_hostname, $myToken, $workloadtype);
60+
61+
print "\n Resource limits template for a given workload type:\n";
62+
netbackup::displayResourceLimitsTemplate($jsonstring);
63+
64+
netbackup::logout($fqdn_hostname, $myToken);
65+
print "\n";

‎snippets/perl/get_vm_server.pl‎

Lines changed: 65 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,65 @@
1+
#Load module netbackup.pm from current directory
2+
use lib '.';
3+
4+
use netbackup;
5+
use strict;
6+
use warnings;
7+
use Getopt::Long qw(GetOptions);
8+
9+
sub printUsage {
10+
print "\nUsage : perl get_vm_server.pl -nbmaster <master_server> -username <username> -password <password> -servername <servername> [-domainname <domain_name>] [-domaintype <domain_type>] [--verbose]\n\n";
11+
die;
12+
}
13+
14+
my $fqdn_hostname;
15+
my $username;
16+
my $password;
17+
my $servername;
18+
my $domainname;
19+
my $domaintype;
20+
my $verbose;
21+
22+
GetOptions(
23+
'nbmaster=s' => \$fqdn_hostname,
24+
'username=s' => \$username,
25+
'password=s' => \$password,
26+
'servername=s' => \$servername,
27+
'domainname=s' => \$domainname,
28+
'domaintype=s' => \$domaintype,
29+
'verbose' => \$verbose
30+
) or printUsage();
31+
32+
if (!$fqdn_hostname || !$username || !$password || !$servername) {
33+
printUsage();
34+
}
35+
36+
if($verbose){
37+
print "\nRecieved the following parameters : \n";
38+
print " FQDN Hostname : $fqdn_hostname\n";
39+
print " Username : $username\n";
40+
print " Password : $password\n";
41+
print " Servername : $servername\n";
42+
if ($domainname) {
43+
print " Domain Name : $domainname\n";
44+
}
45+
if ($domaintype) {
46+
print " Domain Type : $domaintype\n";
47+
}
48+
}
49+
50+
print "\n";
51+
my $myToken;
52+
if ($domainname && $domaintype) {
53+
$myToken = netbackup::login($fqdn_hostname, $username, $password, $domainname, $domaintype);
54+
}
55+
else{
56+
$myToken = netbackup::login($fqdn_hostname, $username, $password);
57+
}
58+
59+
my $jsonstring = netbackup::getVM_Server($fqdn_hostname, $myToken, $servername);
60+
61+
print "\nVM Server:\n";
62+
netbackup::displayVM_Server($jsonstring);
63+
64+
netbackup::logout($fqdn_hostname, $myToken);
65+
print "\n";

0 commit comments

Comments
 (0)