3 # Determine the Verndor of a device
8 # Disks: SEAGATE SAMSUNG
9 # Cdroms: TOSHIBA PHILIPS
17 # <4>scsi_vendor tape 1
19 # <5>scsi_vendor dsik 1
20 # <6>scsi_vendor disk 1
22 # <7>scsi_vendor disk 2
28 set x = ( `grep '^ ' /proc/scsi/scsi | cut -c3-18` )
32 if ( "$o" == 'Vendor:' ) set v = $i ;
33 if ( "$o" == 'Type:' && "$i" == 'Sequenti' ) set s = ( $s $v );
34 if ( "$o" == 'Type:' && "$i" == 'CD-ROM' ) set c = ( $c $v );
35 if ( "$o" == 'Type:' && "$i" == 'Direct-A' ) set d = ( $d $v );
46 if ( $1 == disk ) then
52 if ( $1 == tape ) then
59 if ( $1 == disk && $#d >= $2 ) then
62 if ( $1 == cd && $#c >= $2 ) then
65 if ( $1 == tape && $#s >= $2 ) then
71 if ( "$v" == "$3" ) then