/usr/lib/scsi/notch 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 65 66 67 68 69 70 71 72 | #!/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 \
{Scsi Notch 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 {notched logical }
set text_list {nnotch activenotch startbound endbound pagenotched}
set text_descriptions {"Number of Notches " "Active Notch" "Starting Boundary " "Ending Boundary " "Mode Pages Notched" }
set switch {-n}
set label_width 21
set text_width 10
generate_textboxes
.pagenotched.text configure -width 20
frame .err_buttons
checkbutton .notched -text "Notched Drive"
checkbutton .logical -text "Logical Notch"
pack .notched .logical -in .err_buttons -side left -padx 3m
pack .err_buttons
pack .nnotch .activenotch .startbound .endbound .pagenotched -pady 10 -anchor w
read_page $argv "-X"
read_modifiable $argv
#New settings are needed since even unchangeable fields may change when the notch is changed.
proc enable_texts {} {
global text_list
foreach x $text_list {
.$x.text configure -state normal
}
}
.buttons1.default configure -command {
enable_texts
read_page $argv "-M"
read_modifiable $argv
}
.buttons1.saved configure -command {
enable_texts
read_page $argv "-S"
read_modifiable $argv
}
.buttons1.current configure -command {
enable_texts
read_page $argv "-X"
read_modifiable $argv
}
.buttons.apply configure -command {
write_page $argv "-X"
enable_texts
read_page $argv "-X"
read_modifiable $argv
}
|