/usr/lib/scsi/error is in scsitools 0.12-3ubuntu1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | #!/usr/bin/wish -f
# Copyright 1993 Yggdrasil Computing, Incorporated
# You may copy this file according to the terms and conditions of version 2
# of the GNU General Public License as published by the Free Software
# Foundation.
frame .h
label .h.info -bitmap info -bg pink
message .h.message -width 400 -bg pink -text \
{Read-Write Error Recovery Page configuration.}
pack .h.info .h.message -padx 10 -side left
pack .h -pady 10
source /usr/lib/scsi/generic
# Here we set the bits that depend upon the menu we are in
set button_list { awre arre tb rc eer per dte dcr }
set text_list { readretry corrspan headoffset datastrobe writeretry recoverytime}
set text_descriptions {"Read Retry Count " "Correction Span (bits) " "Head Offset Count " "Data Strobe Offset Count " "Write Retry Count " "Recovery Time Limit (ms)" }
set switch {-e}
set label_width 25
set text_width 10
frame .err_buttons
frame .col1
frame .col2
frame .col3
frame .col4
frame .f1
frame .f2
frame .f3
generate_textboxes
checkbutton .awre -text "AWRE"
checkbutton .arre -text "ARRE"
checkbutton .tb -text "TB"
checkbutton .rc -text "RC"
checkbutton .eer -text "EER" -command { check_trykey }
checkbutton .per -text "PER" -command { check_trykey }
checkbutton .dte -text "DTE" -command { check_trykey }
checkbutton .dcr -text "DCR" -command { check_trykey }
pack .awre .eer -in .col1
pack .arre .per -in .col2
pack .tb .dte -in .col3
pack .rc .dcr -in .col4
pack .col1 .col2 .col3 .col4 -in .err_buttons -side left -padx 3m
pack .err_buttons
pack .readretry .corrspan .headoffset -in .f1 -pady 10 -anchor w
pack .datastrobe .writeretry .recoverytime -in .f2 -pady 10 -anchor w
pack .f1 .f2 -in .f3 -side left -padx 3m -pady 3m
pack .f3 -padx 3m -pady 3m
proc check_trykey { } {
global eer
global per
global dte
global dcr
set valid { 1 1 0 0 1 1 1 1 1 0 0 0 1 0 1 0 }
set r1 0
if { $eer == 1 } then { set r1 [expr $r1+8]}
if { $per == 1 } then { set r1 [expr $r1+4]}
if { $dte == 1 } then { set r1 [expr $r1+2]}
if { $dcr == 1 } then { set r1 [expr $r1+1]}
if { [ string compare [lindex $valid $r1] "0" ] == 0} then { .buttons.apply configure -state disabled } else { .buttons.apply configure -state normal }
}
read_page $argv "-X"
read_modifiable $argv
check_trykey
|