mirrors/scst
1
0
Fork 0
mirror of https://github.com/SCST-project/scst.git synced 2026-05-17 10:41:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Added support for new move and replace commands with moveUser()

Browse Source 
and replaceDeviceInGroup() and increased the min. SCST supported
  version to 1.0.2.



git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@1098 d57e44dd-8a1f-0410-8b47-8ef2f437770f
This commit is contained in:
Mark Buechler
2009-09-16 18:05:06 +00:00
parent 0fd6551230
commit 2afac68fa6
1 changed files with 103 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

107
scstadmin/scst-0.7.4/lib/SCST/SCST.pm
View File

@@ -52,11 +52,11 @@ $IOTYPE_PHYSICAL = 100;
$IOTYPE_VIRTUAL = 101;
$IOTYPE_PERFORMANCE = 102;
$VERSION = 0.7.9;
$VERSION = 0.8.0;
my $_SCST_MIN_MAJOR_ = 0;
my $_SCST_MIN_MINOR_ = 9;
my $_SCST_MIN_RELEASE_ = 6;
my $_SCST_MIN_MAJOR_ = 1;
my $_SCST_MIN_MINOR_ = 0;
my $_SCST_MIN_RELEASE_ = 2;
my %_IO_MAP_ = ($CDROM_TYPE => $_SCST_CDROM_IO_,
$CHANGER_TYPE => $_SCST_CHANGER_IO_,
@@ -679,6 +679,49 @@ sub removeUser {
return $rc;
}
sub moveUser {
my $self = shift;
my $user = shift;
my $fromGroup = shift;
my $toGroup = shift;
if (!$self->groupExists($fromGroup)) {
$self->{'error'} = "moveUser(): Group '$fromGroup' does not exist";
return 1;
}
if (!$self->groupExists($toGroup)) {
$self->{'error'} = "moveUser(): Group '$toGroup' does not exist";
return 1;
}
if (!$self->userExists($user, $fromGroup)) {
$self->{'error'} = "addUser(): User '$user' doesn't exist in group '$fromGroup'";
return 1;
}
if ($self->userExists($user, $toGroup)) {
$self->{'error'} = "addUser(): User '$user' already exists in group '$toGroup'";
return 2;
}
my $cmd = "move $user $toGroup\n";
my $rc = $self->group_private($fromGroup, $_SCST_USERS_IO_, $cmd);
return 0 if ($self->{'debug'});
return $rc if ($rc);
$rc = !$self->userExists($user, $toGroup);
if ($rc) {
$self->{'error'} = "addUser(): An error occured while moving user '$user' from group '$fromGroup' ".
"to group '$toGroup'. See dmesg/kernel log for more information.";
}
return $rc;
}
sub clearUsers {
my $self = shift;
my $group = shift;
@@ -827,6 +870,40 @@ sub assignDeviceToGroup {
return $rc;
}
sub replaceDeviceInGroup {
my $self = shift;
my $newDevice = shift;
my $group = shift;
my $lun = shift;
if (!$self->groupExists($group)) {
$self->{'error'} = "replaceDeviceInGroup(): Group '$group' does not exist";
return 1;
}
if ($self->groupDeviceExists($newDevice, $group, $lun)) {
$self->{'error'} = "replaceDeviceInGroup(): Device '$newDevice' is already ".
"assigned to group '$group'";
return 2;
}
my $cmd = "replace $newDevice $lun\n";
my $rc = $self->group_private($group, $_SCST_DEVICES_IO_, $cmd);
return 0 if ($self->{'debug'});
return $rc if ($rc);
$rc = !$self->groupDeviceExists($newDevice, $group, $lun);
if ($rc) {
$self->{'error'} = "replaceDeviceInGroup(): An error occured while replacing lun '$lun' with ".
" device '$newDevice' in group '$group'. See dmesg/kernel log for more information.";
}
return $rc;
}
sub assignDeviceToHandler {
my $self = shift;
my $device = shift;
@@ -1236,6 +1313,17 @@ Arguments: (string) $user, (string) $group
Returns: (int) $success
=item SCST::SCST->moveUser();
Moves a user from one group to another. Both groups must be defined
and user must already exist in the first group. Returns 0 upon
success, 1 if unsuccessfull and 2 if the user already exists in the
second group.
Arguments: (string) $user, (string) $fromGroup, (string) $toGroup
Returns: (int) $success
=item SCST::SCST->clearUsers();
Removes all users from the specified security group. Returns 0 upon
@@ -1291,6 +1379,17 @@ Arguments: (string) $device, (string) $group, (int) $lun
Returns: (int) $success
=item SCST::SCST->replaceDeviceInGroup();
Replaces an already assigned device to the specified lun in a
specified security group with $newDevice. Returns 0 upon success, 1
if unsuccessfull and 2 if the device has already been assigned to
the specified security group.
Arguments: (string) $newDevice, (string) $group, (int) $lun
Returns (int) $success
=item SCST::SCST->assignDeviceToHandler();
Assigns specified device to specified handler. Returns 0 upon success,