From efe48552bc8fa3abe096cd06350aa197cf4f6bb3 Mon Sep 17 00:00:00 2001
From: Mark Buechler <mark.buechler@gmail.com>
Date: Wed, 16 Sep 2009 18:25:40 +0000
Subject: [PATCH] - Adds read only flag support to assignDeviceToGroup() and  
 replaceDeviceInGroup().

git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@1101 d57e44dd-8a1f-0410-8b47-8ef2f437770f
---
 scstadmin/scst-0.7.4/lib/SCST/SCST.pm | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/scstadmin/scst-0.7.4/lib/SCST/SCST.pm b/scstadmin/scst-0.7.4/lib/SCST/SCST.pm
index 60586c71f..ffce6842f 100644
--- a/scstadmin/scst-0.7.4/lib/SCST/SCST.pm
+++ b/scstadmin/scst-0.7.4/lib/SCST/SCST.pm
@@ -52,7 +52,7 @@ $IOTYPE_PHYSICAL    = 100;
 $IOTYPE_VIRTUAL     = 101;
 $IOTYPE_PERFORMANCE = 102;
 
-$VERSION = 0.8.1;
+$VERSION = 0.8.2;
 
 my $_SCST_MIN_MAJOR_   = 1;
 my $_SCST_MIN_MINOR_   = 0;
@@ -874,6 +874,9 @@ sub assignDeviceToGroup {
 	my $device = shift;
 	my $group = shift;
 	my $lun = shift;
+	my $readOnly = shift;
+
+	$readOnly = 'READ_ONLY' if (defined($readOnly) && $readOnly);
 
 	if (!$self->groupExists($group)) {
 		$self->{'error'} = "assignDeviceToGroup(): Group '$group' does not exist";
@@ -886,7 +889,7 @@ sub assignDeviceToGroup {
 		return 2;
 	}
 
-	my $cmd = "add $device $lun\n";
+	my $cmd = "add $device $lun $readOnly\n";
 
 	my $rc = $self->group_private($group, $_SCST_DEVICES_IO_, $cmd);
 
@@ -908,6 +911,9 @@ sub replaceDeviceInGroup {
 	my $newDevice = shift;
 	my $group = shift;
 	my $lun = shift;
+	my $readOnly = shift;
+
+	$readOnly = 'READ_ONLY' if (defined($readOnly) && $readOnly);
 
 	if (!$self->groupExists($group)) {
 		$self->{'error'} = "replaceDeviceInGroup(): Group '$group' does not exist";
@@ -920,7 +926,7 @@ sub replaceDeviceInGroup {
 		return 2;
 	}
 
-	my $cmd = "replace $newDevice $lun\n";
+	my $cmd = "replace $newDevice $lun $readOnly\n";
 
 	my $rc = $self->group_private($group, $_SCST_DEVICES_IO_, $cmd);
 
@@ -1413,7 +1419,7 @@ Assigns the specified device to the specified security group. Returns
 0 upon success, 1 if unsuccessfull and 2 if the device has already
 been assigned to the specified security group.
 
-Arguments: (string) $device, (string) $group, (int) $lun
+Arguments: (string) $device, (string) $group, (int) $lun [, (bool) $rd_only]
 
 Returns: (int) $success
 
@@ -1424,7 +1430,7 @@ 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
+Arguments: (string) $newDevice, (string) $group, (int) $lun [, (bool) $rd_only]
 
 Returns (int) $success