/usr/lib/scsi/verify is in scsitools 0.12-2.2ubuntu1.
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 | #!/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 \
{Verify 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 { eer per dte dcr }
set text_list { ver_retry ver_corrspan ver_recoverytime}
set text_descriptions {"Verify Retry Count " "Verify Correction Span (bits) " "Verify Recovery Time Limit (ms) " }
set switch {-V}
set label_width 30
set text_width 10
frame .err_buttons
frame .f1
frame .f3
generate_textboxes
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 .eer .per .dte .dcr -in .err_buttons -side left -padx 3m
pack .err_buttons
pack .ver_retry .ver_corrspan .ver_recoverytime -in .f1 -pady 10 -anchor w
pack .f1 -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
|