- Fix really stupid mistake where config commits were using same path
[mirror/scst/.git] / scstadmin / SCST / SCST.pm
index 153fefb..f591b59 100644 (file)
@@ -33,9 +33,6 @@ my $_SCST_VERSION_IO_    = $_SCST_DIR_.'/version';
 my $_SCST_USERS_IO_      = 'names';
 my $_SCST_DEVICES_IO_    = 'devices';
 
-my @_AVAILABLE_OPTIONS_  = ('WRITE_THROUGH', 'O_DIRECT', 'READ_ONLY',
-                           'NULLIO', 'NV_CACHE', 'BLOCKIO');
-
 use vars qw(@ISA @EXPORT $VERSION $CDROM_TYPE $CHANGER_TYPE $DISK_TYPE $VDISK_TYPE
             $VCDROM_TYPE $DISKPERF_TYPE $MODISK_TYPE $MODISKPERF_TYPE $TAPE_TYPE
             $TAPEPERF_TYPE $PROCESSOR_TYPE $IOTYPE_PHYSICAL $IOTYPE_VIRTUAL
@@ -57,7 +54,7 @@ $IOTYPE_PHYSICAL    = 100;
 $IOTYPE_VIRTUAL     = 101;
 $IOTYPE_PERFORMANCE = 102;
 
-$VERSION = 0.7;
+$VERSION = 0.7.2;
 
 my $_SCST_MIN_MAJOR_   = 0;
 my $_SCST_MIN_MINOR_   = 9;
@@ -87,6 +84,18 @@ my %_TYPE_MAP_ = ('dev_cdrom' => $CDROM_TYPE,
                  'dev_tape_perf' => $TAPEPERF_TYPE,
                  'dev_processor' => $PROCESSOR_TYPE);
 
+my %_REVERSE_MAP_ = ($CDROM_TYPE => 'dev_cdrom',
+                    $CHANGER_TYPE => 'dev_changer',
+                    $DISK_TYPE => 'dev_disk',
+                    $VDISK_TYPE => 'vdisk',
+                    $VCDROM_TYPE => 'vcdrom',
+                    $DISKPERF_TYPE => 'dev_disk_perf',
+                    $MODISK_TYPE => 'dev_modisk',
+                    $MODISKPERF_TYPE => 'dev_modisk_perf',
+                    $TAPE_TYPE => 'dev_tape',
+                    $TAPEPERF_TYPE => 'dev_tape_perf',
+                    $PROCESSOR_TYPE => 'dev_processor');
+
 my %_IO_TYPES_ = ($CDROM_TYPE => $IOTYPE_PHYSICAL,
                  $CHANGER_TYPE => $IOTYPE_PHYSICAL,
                  $DISK_TYPE => $IOTYPE_PHYSICAL,
@@ -99,6 +108,16 @@ my %_IO_TYPES_ = ($CDROM_TYPE => $IOTYPE_PHYSICAL,
                  $TAPEPERF_TYPE => $IOTYPE_PERFORMANCE,
                  $PROCESSOR_TYPE => $IOTYPE_PHYSICAL);
 
+my %_HANDLER_ALIASES_ = ('vdisk_blk' => 'vdisk');
+
+my %_AVAILABLE_OPTIONS_ = ('WRITE_THROUGH' => 'WRITE_THROUGH',
+                          'O_DIRECT'      => 'O_DIRECT',
+                          'READ_ONLY'     => 'READ_ONLY',
+                          'NULLIO'        => 'NULLIO',
+                          'NV_CACHE'      => 'NV_CACHE',
+                          'BLOCKIO'       => 'BLOCKIO',
+                          'BIO'           => 'BLOCKIO');
+
 sub new {
        my $this = shift;
        my $debug = shift;
@@ -321,6 +340,8 @@ sub devices {
                }
 
                my($vname, $handler) = split(/\s+/, $line);
+
+               $handler = $_HANDLER_ALIASES_{$handler} if ($_HANDLER_ALIASES_{$handler});
                $devices{$vname} = $_TYPE_MAP_{$handler};
        }
 
@@ -349,8 +370,8 @@ sub handlerDevices {
        my $io = new IO::File $handler_io, O_RDONLY;
 
        if (!$io) {
-               $self->{'error'} = "handlerDevices(): Failed to open handler IO $handler_io";
-               return undef;
+               print "WARNING: handlerDevices(): Failed to open handler IO $handler_io, assuming disabled.\n";
+               return \%devices; # Return an empty hash
        }
 
        while (my $line = <$io>) {
@@ -413,9 +434,12 @@ sub openDevice {
        my $options = shift;
        my $blocksize = shift;
        my $handler_io = $_IO_MAP_{$handler};
+       my $valid_opts;
+
+       ($options, $valid_opts) = $self->checkOptions($options);
 
-       if ($self->checkOptions($options)) {
-               $self->{'error'} = "openDevice(): Invalid options '$options' given for device $device";
+       if (!$valid_opts) {
+               $self->{'error'} = "openDevice(): Invalid option(s) '$options' given for device $device";
                return $TRUE;
        }
 
@@ -630,6 +654,7 @@ sub clearUsers {
 sub handlerExists {
        my $self = shift;
        my $handler = shift;
+
        my $handlers = $self->handlers();
 
        foreach my $_handler (@{$handlers}) {
@@ -753,24 +778,25 @@ sub assignDeviceToHandler {
        my $device = shift;
        my $handler = shift;
        my $handler_io = $_IO_MAP_{$handler};
+       my $_handler = $_REVERSE_MAP_{$handler};
 
        if (!$handler_io) {
                $self->{'error'} = "assignDeviceToHandler(): Failed to open handler IO $handler_io or ".
-                 "handler $handler invalid";
+                 "handler $_handler($handler) invalid";
                return $TRUE;
        }
 
        if (!$self->handlerExists($handler)) {
-               $self->{'error'} = "assignDeviceToHandler(): Handler $handler does not exist";
+               $self->{'error'} = "assignDeviceToHandler(): Handler $_handler does not exist";
                return $TRUE;
        }
 
-       if ($self->handlerDeviceExists($device, $handler)) {
-               $self->{'error'} = "assignDeviceToHandler(): Device $device is already assigned to handler $handler";
+       if ($self->handlerDeviceExists($handler, $device)) {
+               $self->{'error'} = "assignDeviceToHandler(): Device $device is already assigned to handler $_handler";
                return 2;
        }
 
-       my $cmd = "assign $device $handler\n";
+       my $cmd = "assign $device $_handler\n";
 
        my $rc = $self->scst_private($cmd);
 
@@ -781,7 +807,7 @@ sub assignDeviceToHandler {
 
        if ($rc) {
                $self->{'error'} = "assignDeviceToHandler(): An error occured while assigning device $device ".
-                 "to handler $handler. See dmesg/kernel log for more information.";
+                 "to handler $_handler. See dmesg/kernel log for more information.";
        }
 
        return $rc;
@@ -850,8 +876,8 @@ sub handler_private {
        my $io = new IO::File $handler_io, O_WRONLY;
 
        if (!$io) {
-               $self->{'error'} = "SCST/SCST.pm: Failed to open handler IO $handler_io";
-               return $TRUE;
+               print "WARNING: SCST/SCST.pm: Failed to open handler IO $handler_io, assuming disabled.\n";
+               return $FALSE;
        }
 
        if ($self->{'debug'}) {
@@ -914,16 +940,19 @@ sub group_private {
 sub checkOptions {
        my $self = shift;
        my $options = shift;
+       my $o_string;
 
-       return if (!$options);
+       return undef, $TRUE if (!$options);
 
        foreach my $option (split(/\s+/, $options)) {
-               foreach my $avail (@_AVAILABLE_OPTIONS_) {
-                       return $FALSE if ($avail eq $option);
-               }
+               my $map = $_AVAILABLE_OPTIONS_{$option};
+               return undef, $FALSE if (!$map);
+               $o_string .= ",$map";
        }
 
-       return $TRUE;
+       $o_string =~ s/^\,//;
+
+       return $o_string, $TRUE;
 }
 
 sub errorString {