4 # Peter Dufault, Joerg Wunsch. All rights reserved.
6 # Redistribution and use in source and binary forms, with or without
7 # modification, are permitted provided that the following conditions
9 # 1. Redistributions of source code must retain the above copyright
10 # notice, this list of conditions and the following disclaimer.
11 # 2. Redistributions in binary form must reproduce the above copyright
12 # notice, this list of conditions and the following disclaimer in the
13 # documentation and/or other materials provided with the distribution.
15 # THIS SOFTWARE IS PROVIDED BY THE AUTHORS AND CONTRIBUTORS ``AS IS'' AND
16 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18 # ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE
19 # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21 # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23 # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31 # Read and decode a SCSI disk's primary or grown defect list.
36 die "usage: scsi-defects raw-device-name [Glist|Plist]\n";
44 &usage if $#ARGV < 0 || $#ARGV > 1;
46 $ENV{'PATH'} = "/bin:/usr/bin:/sbin:/usr/sbin";
50 # generic device name given?
51 if ($dev =~ /^[so]d\d+$/) { $dev = "/dev/r${dev}.ctl"; }
54 # Select what you want to read. PList include the primary defect list
55 # from the factory. GList is grown defects only.
58 if ($ARGV[1] =~ /^[Gg]/) { $glist = 1; $plist = 0; }
59 elsif ($ARGV[1] =~ /^[Pp]/) { $glist = 0; $plist = 1; }
62 $glist = 1; $plist = 0;
65 open(PIPE, "scsi -f $dev " .
66 "-c '{ Op code} 37 0 0:3 v:1 v:1 5:3 0 0 0 0 4:i2 0' $plist $glist " .
67 "-i 4 '{ stuff } *i2 { Defect list length } i2' |") ||
68 die "Cannot pipe to scsi(8)\n";
73 print "There are no defects (in this list).\n";
77 print "There are " . $amnt / 8 . " defects in this list.\n";
81 open(PIPE, "scsi -f $dev " .
82 "-c '{ Op code} 37 0 0:3 v:1 v:1 5:3 0 0 0 0 v:i2 0' $plist $glist " .
83 "$amnt -i $amnt - |") ||
84 die "Cannot pipe to scsi(8)\n";
86 read(PIPE, $buf, 4); # defect list header
88 print "cylinder head sector\n";
90 while(read(PIPE, $buf, 8)) {
91 ($cylhi, $cyllo, $head, $sec) = unpack("CnCN", $buf);
92 printf "%8u %4u %6u\n", $cylhi*65536+$cyllo, $head, $sec;