view release on metacpan or  search on metacpan

lib/Compellent/CompCU.pm  view on Meta::CPAN

=back 8

=cut

sub storagetype_show{
    my $self=shift;
    my $arguments=shift;
    my @command_parameters=qw(csv diskfolder index name pagesize pagesizeblocks redundancy spaceallocated spaceallocatedblocks spaceused spaceusedblocks txt xml);
    my $s="storagetype show".build_command($arguments,\@command_parameters);
    my $c=$self->{command};
    $c=~s/COMMAND/$s/; 
    execute_show($c,$arguments->{success},$arguments->{output});
}

=head3 system restart

Restarts Storage Center.

=over 8

Takes three parameters. Only 'success' is required.

=item *

simultaneous - Optional. If set then both controllers on a dual-controlled system will be restarted simulataneously.
The default is restart them in sequence starting with the leader controller.

=item *

success - A scalar reference which will be either set to true or false based on 
the success/failure of the command.

=item *

output - Optional. An array reference to hold the CompCU output. 

=back 8

=cut

sub system_restart{
    my $self=shift;
    my $arguments=shift;
    my @command_parameters=qw(simultaneous);
    my $s="system restart".build_command($arguments,\@command_parameters);
    my $c=$self->{command};
    $c=~s/COMMAND/$s/; 
    execute($c,$arguments->{success},$arguments->{output});
}

=head3 system show

Retrieves the Storage Center management configuration information.

=over 8

Takes 13 parameters. Two are required.

=item *

backupmailserver - Optional. String to specify a back up mail server IP on which to filter.

=item *

csv - Optional. String to set a filename in which to store csv formatted output.

=item *

mailserver - Optional. String to set a mail server IP to filter on.

=item *

managementip - Optional. String to specify a Storage Center IP address to filter on.

=item *

name - Optional. String to specify a Storage Center name to filter on.

=item *

operationmode - Optional. String to specify an operation mode to filter on.
Allowed values are "Install", "Maintenance", "Normal", or "PreProduction".

=item *

portsbalanced - Optional. String to specify a Ports Balanced status to filter on.
Allowed values are "Yes" or "No".

=item *

serialnumber - Optional. String to specifu a Storage Center serial number to filter on.

=item *

txt - Optional. String secifying a filename to store output.

=item *

version - Optional. String to specify a four part Storage Center version to filter on.

=item *

xml - Optional. String to specify a filename to store xml formatted output in.

=item *

success - A scalar reference which will be either set to true or false based on 
the success/failure of the command.

=item *

output - An array reference to hold the CompCU output. 

=back 8

=cut

sub system_show{
    my $self=shift;
    my $arguments=shift;
    my @command_parameters=qw(backupmailserver csv mailserver managementip name operationmode portsbalanced serialnumber txt version xml);
    my $s="system show".build_command($arguments,\@command_parameters);
    my $c=$self->{command};
    $c=~s/COMMAND/$s/; 
    execute_show($c,$arguments->{success},$arguments->{output});
}

=head3 system shutdown

Shuts Storage Center down.

=over 8

Takes two parameters. Only 'success' is required.

=item *

success - A scalar reference which will be either set to true or false based on 
the success/failure of the command.

=item *

output - Optional. An array reference to hold the CompCU output. 

=back 8

=cut

sub system_shutdown{
    my $self=shift;
    my $arguments=shift;
    my @command_parameters=qw();
    my $s="system shutdown".build_command($arguments,\@command_parameters);
    my $c=$self->{command};
    $c=~s/COMMAND/$s/; 
    execute($c,$arguments->{success},$arguments->{output});
}


=head3 user create

Creates a new Storage Enter user account.

=over 8

Takes 10 parameters. Four are required.

=item *

email - Optional. String to specify the user's email address.

=item *

notes - Optional. String stating some notes on the user to be created.

=item *

password - String to set the user's password.

=item *