Persistantly Bind Tape Devices in Solaris via Perl

The following script will look for fiber channel tape devices and then configure thedevlinks.tab file with the appropriate information so the tape drives will persistently bind to the same device across reboots on a Solaris server.   This script was tested on Solaris 10.

#!/usr/bin/perl

use strict;

my($junk,$path,$devices,$dev,$file);

my(@devices,@file);

my $date = `date +%m%d%Y`;

$file = `/usr/bin/cp /etc/devlink.tab /etc/devlink.tab.$date`;

@file = `cat /etc/devlink.tab`;

@file = grep !/type=ddi_byte:tape/, @file;

open (FILE,">/etc/devlink.tab.new");

print FILE @file;

close (FILE);

 

@devices = `ls -l /dev/rmt/*cbn|awk {'print \$9 \$11'}`;

open (FILE,">>/etc/devlink.tab.new");

foreach $devices (@devices) {

        chomp($devices);

        ($dev,$path) = split(/\.\.\/\.\./,$devices);

        $dev =~ s/cbn//g;

        $dev =~ s/\/dev\/rmt\///g;

        $path =~ s/:cbn//g;

        ($junk,$path) = split(/st\@/,$path);

        print FILE "type=ddi_byte:tape;addr=$path;\trmt/$dev\\M0\n";

}

close (FILE);

$file = `/usr/bin/mv /etc/devlink.tab.new /etc/devlink.tab`;

exit;