Your message dated Fri, 24 Jan 2025 01:55:22 +0100 with message-id <z5lk-shn-rmkp...@per.namespace.at> and subject line Re: Bug#655323: (no subject) has caused the Debian Bug report #655323, regarding Please split out tk_scsiformat into its own package so we dont pull in X server on the server to be marked as done.
This means that you claim that the problem has been dealt with. If this is not the case it is now your responsibility to reopen the Bug report if necessary, and/or fix the problem forthwith. (NB: If you are a system administrator and have no idea what this message is talking about, this may indicate a serious mail system misconfiguration somewhere. Please contact ow...@bugs.debian.org immediately.) -- 655323: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=655323 Debian Bug Tracking System Contact ow...@bugs.debian.org with problems
--- Begin Message ---Package: scsitools Source: scsitools: Please split out tk_scsiformat into its own package so we dont pull in X server on the server. Version: 0.12-2.1 Severity: wishlist Tags: patch User: ubuntu-de...@lists.ubuntu.com Usertags: origin-ubuntu precise ubuntu-patch -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA256 Dear Maintainer, In Ubuntu we split out tk_scsiformat into its own package so server not installed X, so we can save disk space and keep system simple The attacheddd patch was applied to achieve the following: * Merge from Debian testing. Remaining changes: - debian/control, debian/rules: Split out tk_scsiformat into its own package so we dont pull in X server on the server. (LP: #552622) Thanks for considering the patch. - -- System Information: Debian Release: wheezy/sid APT prefers oneiric-updates APT policy: (500, 'oneiric-updates'), (500, 'oneiric-security'), (500, 'oneiric') Architecture: amd64 (x86_64) Kernel: Linux 3.0.0-14-generic (SMP w/2 CPU cores) Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8) Shell: /bin/sh linked to /bin/dash -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.11 (GNU/Linux) iQIcBAEBCAAGBQJPDCcXAAoJELmHbrCQs2xbT18P/203PtcIp/k9REKPG/0AvYsC PqSCGxiIaPRW+CZopMld2Z0MyfUmd50KpuhqImTgR3dE5yFSbvizY/YKXRckgvwG XAtJW6E3acIlaLJSPDCdpTkPOKU0iUdQkNIdw4r0F/FDxFeHBreB1uUkrJxqr/mK Acu2A7TcXGDTRCAfrYvEnd4rLY+DUo2SVh/9YT4exWJh00lTeRnV5OtXrny0bbKO n0Y1h5LOF9qd61RSyAADYIwnZaLv7gtQaxwP0cQx4S2xyozblZ/EIp/LjdD/YxK1 6spcbgdc2vakT5oSJpmTKWw+w0XiaAQK00PUuvADSoJjBVLajmJ4QWfilSoxgGh5 rWAHkBY6IHAbaNVJ6CNCpb6vILAXVdyaAZgS/gnyBSDxouE3DH9J9PFtRx+73Tmr NY+esEndwqS409/NEd9NazBp/gRBCjS5aEz4dDmBhh9eWHQGXUuPbndXGwyTLi62 ocrL820szEKSp8uacoyO4bnYrNy5TEXKXo8zFFeARmMaXIXPN90NtSy82B/wbM5a Vr0cRnhE1rHxi76QnT4RJwkWneQfTqKlrNh75mUIGvOfqmLAFnnP6+kMrjQ2qRxd u+p/fqMQOxKwtKrhp4fAC5Px5FseR9YtBvAk1+YdDxzYre8KJazI7gqKDUF9AKQD dIDIg9oECmsH6EUPKaOn =n0F1 -----END PGP SIGNATURE-----diff -Nru scsitools-0.12/debian/changelog scsitools-0.12/debian/changelog diff -Nru scsitools-0.12/debian/control scsitools-0.12/debian/control --- scsitools-0.12/debian/control 2011-01-11 04:53:41.000000000 +0700 +++ scsitools-0.12/debian/control 2011-12-20 11:23:26.000000000 +0700 @@ -9,6 +10,23 @@ Architecture: any Depends: ${shlibs:Depends}, util-linux (>= 2.11b-3), sg3-utils (>= 1.24), ${misc:Depends} Conflicts: hwtools (<< 0.6) +Description: Collection of tools for SCSI hardware management + This package is a collection of tools for manipulating SCSI hardware: + . + scsiinfo: displays SCSI drive low-level information and modifies SCSI + drive settings, + scsidev: makes permanent SCSI LUN -> devicename connections, + scsifmt: low-level SCSI formatter, + sraw: benchmarks raw SCSI I/O rates bypassing the buffer cache, + scsi-spin: program to manually spin up and down a SCSI device. + . + Beware that, to be used properly, these tools require some knowledge of + what they're doing as they can cause damage to your system. + +Package: scsitools-gui +Architecture: any +Depends: ${shlibs:Depends}, util-linux (>= 2.11b-3), sg3-utils (>= 1.24), ${misc:Depends}, scsitools +Conflicts: hwtools (<< 0.6) Recommends: tk8.4 | wish Description: Collection of tools for SCSI hardware management This package is a collection of tools for manipulating SCSI hardware: @@ -22,3 +40,5 @@ . Beware that, to be used properly, these tools require some knowledge of what they're doing as they can cause damage to your system. + . + This package contains the graphical front-end for scsitools diff -Nru scsitools-0.12/debian/rules scsitools-0.12/debian/rules --- scsitools-0.12/debian/rules 2011-01-22 04:39:27.000000000 +0700 +++ scsitools-0.12/debian/rules 2011-12-20 11:23:26.000000000 +0700 @@ -6,6 +6,7 @@ #architecture := $(shell dpkg-architecture -qDEB_HOST_ARCH) p = scsitools +gui = scsitools-gui include /usr/share/quilt/quilt.make @@ -59,6 +60,12 @@ cp -a debian/README.scsi-spin debian/$(p)/usr/share/doc/scsitools/README.scsi-spin cp -a debian/kernel-source-2.2.14.espfix debian/$(p)/usr/share/doc/scsitools/ + # gui + mkdir -p debian/$(gui)/usr/sbin + mv debian/$(p)/usr/sbin/tk* debian/${gui}/usr/sbin + mkdir -p debian/${gui}/usr/share/man/man8 + cp scsiinfo/man8/tk_scsiformat.8 debian/${gui}/usr/share/man/man8 + binary-indep: # There are no architecture-independent files to be uploaded # generated by this package. If there were any they would be @@ -70,7 +77,7 @@ dh_installdebconf dh_installdocs scsidev/scsi.alias dh_installman scsiinfo/man8/scsiinfo.8 scsiinfo/man8/scsiformat.8 \ - scsiinfo/man8/tk_scsiformat.8 scsiinfo/man8/scsi-config.8 \ + scsiinfo/man8/scsi-config.8 \ scsidev/scsidev.8 \ rescan-scsi-bus/rescan-scsi-bus.8 \ sraw/sraw.8 debian/scsi-spin.8 diff -Nru scsitools-0.12/debian/scsi-tools-gui/usr/sbin/tk_scsiformat scsitools-0.12/debian/scsi-tools-gui/usr/sbin/tk_scsiformat --- scsitools-0.12/debian/scsi-tools-gui/usr/sbin/tk_scsiformat 1970-01-01 07:00:00.000000000 +0700 +++ scsitools-0.12/debian/scsi-tools-gui/usr/sbin/tk_scsiformat 2011-06-14 04:15:53.000000000 +0700 @@ -0,0 +1,1238 @@ +#!/bin/sh +# the next lines restarts using wish or abort with a message \ +type wish > /dev/null 2>&1 && exec wish -f "$0" "$@" || \ +echo "no /usr/bin/wish found: please install a tk8.x package." && exit 1 +#!/usr/bin/wish -f +# Based in parts on scsi-config by: +# Copyright 1993 Yggdrasil Computing, Incorporated +# Copyright 1997 Michael Weller (eow...@exp-math.uni-essen.de) +# 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. + +# This variable is set if WE issued a format command. Only when set, we will +# issue an mkfs command if a format completes. +set format_initiator 0 + +set textwidth 28 +set winwidth 64 +set butwidth 18 +set butwidth2 25 +set sdevice $argv +set par_fov "-o" +set par_inter "0" +set par_query "" +set par_estim 600 +set par_initpat "" +set par_initmode "none" +set par_defform "-d" +set par_erase "" +set par_defects "" +set par_partstyle "-fdos" +set par_parttype "-y83" +set par_partmin "99999" +set par_geomdetect "" +set par_heads "64" +set par_sectors "32" +set par_mkfs "mke2fs -m0 -q <DEVICE>1" + +set par_mkfsnames [list \ + "None" \ + "Ext2 (standard)" \ + "Ext2 (no reserved blocks)" \ + "DOS-FAT (1K clusters, up to 32MB)" \ + "DOS-FAT (2K clusters, up to 64MB)" \ + "DOS-FAT (4K clusters, up to 128MB)" \ + "DOS-FAT (8K clusters), up to 256MB)" \ + "DOS-FAT (16K clusters, up to 512MB)" \ + ] +# Value for None is not a valid command at all: +set par_mkfscmds [list \ + "<DEVICE>1" \ + "mke2fs -q <DEVICE>1" \ + "mke2fs -m0 -q <DEVICE>1" \ + "mkdosfs -s2 <DEVICE>1" \ + "mkdosfs -s4 <DEVICE>1" \ + "mkdosfs -s8 <DEVICE>1" \ + "mkdosfs -s16 <DEVICE>1" \ + "mkdosfs -s32 <DEVICE>1" \ + ] +set vars2save [list par_fov par_inter par_query par_estim par_initpat par_initmode \ + par_defform par_erase par_partstyle par_parttype par_partmin par_geomdetect par_heads \ + par_sectors par_disprim par_nvram par_discert par_stop par_mkfs\ + ] + +set whoami [exec whoami] + +proc save_var {fd var} { + upvar #0 $var myval + puts $fd "set $var \"$myval\"" +} + +proc change_fov {} { + global par_fov + + if { [string compare $par_fov -o] != 0 } then { + if { [winfo exists .init_win] == 1 } then { + destroy .init_win + } + .f_opt.col1.init configure -state disabled + .f_opt.col1.disprim configure -state disabled + .f_opt.col1.nvram configure -state disabled + .f_opt.col2.discert configure -state disabled + .f_opt.col2.stop configure -state disabled + } else { + .f_opt.col1.init configure -state normal + .f_opt.col1.disprim configure -state normal + .f_opt.col1.nvram configure -state normal + .f_opt.col2.discert configure -state normal + .f_opt.col2.stop configure -state normal + } +} + +proc simple {} { + global par_inter par_fov par_erase par_defform par_defects par_query + + set par_inter "0" + set par_fov "" + set par_erase "" + change_fov + if { [winfo exists .defs_win] == 1 } { + destroy .defs_win + } + set par_defform "-d" + set par_defects "" + set par_query "-b" + block_change $par_query +} + +proc change_partmin {} { + global par_partmin + + if { [string compare $par_partmin ""] == 0} then { + set par_partmin 0 + } + .f_def.part.menu entryconfigure 9 -label "Maximal Partition Size ${par_partmin}MB" +} + +proc change_geom {geomdetect heads sectors} { + if { [string compare $geomdetect "-G"] == 0} then { + .f_def.part.menu entryconfigure 8 -label \ + "Disk Geometry is ${heads} Heads and ${sectors} Sectors" + } else { + .f_def.part.menu entryconfigure 8 -label "Autodetect Disk Geometry" + } +} + +proc change_mkfs {} { + global par_mkfscmds par_mkfs + + if { [lsearch -exact $par_mkfscmds "$par_mkfs"] >= 0 } then { + set label "Other" + } else { + set label "Other ($par_mkfs)" + } + .f_def.part.menu.mkfs entryconfigure [expr [llength $par_mkfscmds] + 2] -label "$label" +} + +proc bind_eedit {w} { + bind $w <Key-Delete> { + %W select clear + %W delete insert insert + } + bind $w <Key-BackSpace> { + %W select clear + %W delete [expr [%W index insert] - 1] \ + [expr [%W index insert] - 1] + } + bind $w <Key-Left> { + %W select clear + %W icursor [expr [%W index insert] - 1] + } + bind $w <Key-Right> { + %W select clear + %W icursor [expr [%W index insert] + 1] + } + bind $w <Button-2> { + catch { + %W insert insert [selection get] + } + } +} + +proc bind_entry {w} { + bind_eedit $w + bind $w <Key> { + if { [ string length [%W get] ] < 5 } { + if { [ string first %A "0123456789" ] >= 0 } then { + %W insert insert %A + } + } + } + bind $w <Control-Key> {set x 1} + bind $w <Meta-Key> {set x 1} + bind $w <Alt-Key> {set x 1} + bind $w <Control-Meta-Key> {set x 1} + bind $w <Control-Alt-Key> {set x 1} + bind $w <Meta-Alt-Control-Key> {set x 1} + bind $w <Button-2> { + catch { + set sel [selection get] + regsub -all "\[^0-9\]" $sel "" sel2 + %W insert insert $sel2 + %W delete 5 end + } + } +} + +proc bind_text {w} { + bind $w <Control-Key> {set x 1} + bind $w <Meta-Key> {set x 1} + bind $w <Alt-Key> {set x 1} + bind $w <Control-Meta-Key> {set x 1} + bind $w <Control-Alt-Key> {set x 1} + bind $w <Meta-Alt-Control-Key> {set x 1} + bind $w <Key-Delete> { + %W delete insert {insert + 1 chars} + %W yview -pickplace insert + } + bind $w <Key-BackSpace> { + %W delete {insert - 1 chars} insert + %W yview -pickplace insert + } + bind $w <Key-Left> { + %W mark set insert {insert - 1 chars} + %W yview -pickplace insert + } + bind $w <Key-Right> { + %W mark set insert {insert + 1 chars} + %W yview -pickplace insert + } + bind $w <Key-Up> { + %W mark set insert {insert - 1 lines} + %W yview -pickplace insert + } + bind $w <Key-Down> { + %W mark set insert {insert + 1 lines} + %W yview -pickplace insert + } +} + +proc block_change { block } { + if { [ string compare $block "-b" ] == 0 } then { + .f_block.f_estim configure -foreground black + .f_block.f_estim.t configure -state normal + .f_block.f_estim.t configure -background white + } else { + .f_block.f_estim configure -foreground gray70 + .f_block.f_estim.t configure -state disabled + .f_block.f_estim.t configure -background bisque + } +} + +proc copyrights {} { + global butwidth butwidth2 + if { [winfo exists .version] == 1 } { + raise .version + return; + } + toplevel .version + wm title .version "TkScsiformat Version Information" + wm group . + frame .version.header + label .version.header.label -bitmap info -bg pink + message .version.header.message -width 400 -bg pink -text \ + "Version Information." + + pack .version.header.label .version.header.message -side left -padx 15 + message .version.copy0 -width 400 -background yellow -justify center -text \ + { This is version 1.0, 20th Aug 1997 of tk_scsiformat.} + pack .version.header .version.copy0\ + -side top -pady 10 -padx 15 + + message .version.copy1 -width 400 -background green -justify left -text\ + {Copyright 1993 Yggdrasil Computing, Incorporated. +Copyright 1997 Michael Weller (eow...@exp-math.uni-essen.de).} + + message .version.copy2 -width 400 -justify center -text {This configuration\ + script may be copied and modified according to the terms and conditions\ + of version 2 of the GNU General Public License as published by the\ + Free Software Foundation (Cambridge, Massachusetts),\ + provided that this notice is not removed. + + This script was originally the control panel from the Yggdrasil\ + distribution. Eric Youngdale thought it looked pretty keen, and it was easy\ + to adapt, so he used it as the basis for the SCSI configuration manager.\ + + The configuration manager was extended by Michael Weller, and finally \ + this utility was written and based on it. + + Well, honestly, not more than ten or twenty lines are copied from scsi-config. \ + Thus repeating the copyrights above is probably not required. This is released \ + under GPL nevertheless, though. +} + + + button .version.dismiss -text "Dismiss" -activebackground green \ + -command {destroy .version} -width $butwidth2 + pack .version.copy1 .version.copy2 .version.dismiss\ + -side top -pady 10 -padx 15 + + tkwait window .version +} + +proc enter_init {} { + global butwidth2 par_initpat par_initmode textwidth winwidth + global my_initmode + + set my_initmode ${par_initmode} + + if { [winfo exists .init_win] == 1 } { + raise .init_win + return; + } + toplevel .init_win + wm title .init_win "Initialization of Logical Blocks" + wm group . + + frame .init_win.header + label .init_win.header.label -bitmap questhead -bg pink + message .init_win.header.message -width 400 -bg pink -text \ + "Initialization Pattern for the Logical Blocks." + + pack .init_win.header.label .init_win.header.message \ + -side left -padx 15 + pack .init_win.header -side top -pady 10 -padx 15 + + frame .init_win.row1 + frame .init_win.row2 + radiobutton .init_win.row1.log -text "of each logical block" \ + -variable my_initmode -value "-L" -width $textwidth + radiobutton .init_win.row1.phy -text "of each physical block" \ + -variable my_initmode -value "-P" -width $textwidth + radiobutton .init_win.row2.def -text "Don't write them anywhere" \ + -variable my_initmode -value "none" -width $textwidth + + pack .init_win.row1.log .init_win.row1.phy \ + -side left -pady 5 -padx 15 -ipadx 2 -pady 2 + pack .init_win.row2.def \ + -side left -pady 5 -padx 15 -ipadx 2 -pady 2 + + label .init_win.mess1 -width $winwidth -text \ + "Write the corresponding logical block number in the first 4 bytes:" + pack .init_win.mess1 -side top -pady 5 -padx 15 + pack .init_win.row1 -side top -pady 5 -padx 15 + pack .init_win.row2 -side top -pady 5 -padx 15 + + label .init_win.mess2 -width $winwidth -text \ + "Enter an (optional) sequence of hexnumbers to fill the blocks with:" + pack .init_win.mess2 -side top -pady 5 -padx 15 + + frame .init_win.frame + scrollbar .init_win.frame.yscroll -relief sunken \ + -command ".init_win.frame.page yview" + text .init_win.frame.page -width $winwidth -background white -relief sunken \ + -borderwidth 2 -height 8 -wrap char -exportselection 1 \ + -yscrollcommand ".init_win.frame.yscroll set" + .init_win.frame.page insert 1.0 $par_initpat + pack .init_win.frame.yscroll -side right -fill y + pack .init_win.frame.page -side top -expand 1 -fill both + + bind .init_win.frame.page <Key> { + if { [ string first %A " 0123456789abcdefgABCDEF" ] >= 0 } then { + .init_win.frame.page insert insert [string toupper %A] + .init_win.frame.page yview -pickplace insert + } + if { [ string first %A " " ] >= 0 } then { + .init_win.frame.page insert insert "\x0a" + .init_win.frame.page yview -pickplace insert + } + } + bind .init_win.frame.page <Button-2> { + catch { + set sel [string toupper [selection get]] + regsub -all "\[^ 0123456789ABCDEF\x0a\]" $sel "" sel2 + %W insert insert $sel2 + } + } + bind_text .init_win.frame.page + pack .init_win.frame -side top -pady 5 -padx 15 + frame .init_win.f_bot + button .init_win.f_bot.ok -text "Ok" \ + -activebackground green -command { + set par_initpat [ .init_win.frame.page get 1.0 end ] + set par_initmode $my_initmode + destroy .init_win + } -width $butwidth2 + button .init_win.f_bot.dismiss -text "Abort" \ + -activebackground red -activeforeground white \ + -command {destroy .init_win} -width $butwidth2 + pack .init_win.f_bot.ok .init_win.f_bot.dismiss \ + -side left -pady 15 -padx 15 -ipadx 2 -pady 2 + + pack .init_win.f_bot -side top -pady 10 -padx 15 + + tkwait window .init_win +} + +proc set_msg { form } { + switch -- $form { + -D { .defs_win.mess3 configure -text \ + {Enter defects in the format <integer>:<integer>:<integer> with three numbers \ + for cylinder, head, physical sector. Specifying sector -1 marks the whole \ + track as defect. You may preceed numbers with 0x or 0 for hexadecimal or \ + octal representation } + } + -B { .defs_win.mess3 configure -text \ + {Enter defects in the format <integer>:<integer>:<integer> with three numbers \ + for cylinder, head, bytes from index. This marks that number of bytes from \ + the index mark as bad. Specifying -1 marks the whole \ + track as defect. You may preceed numbers with 0x or 0 for hexadecimal or \ + octal representation } + } + -d { .defs_win.mess3 configure -text \ + {Enter defects in the format <integer> where <integer> is the number of the \ + defect logical block. You may preceed numbers with 0x or 0 for hexadecimal or \ + octal representation } + } + } +} + +proc enter_defs {} { + global butwidth2 par_defform par_defects textwidth winwidth + global my_defform + + set my_defform $par_defform + if { [winfo exists .defs_win] == 1 } { + raise .defs_win + return; + } + toplevel .defs_win + wm title .defs_win "Manual Defects Addition" + wm group . + frame .defs_win.header + label .defs_win.header.label -bitmap questhead -bg pink + message .defs_win.header.message -width 400 -bg pink -text \ + "Defects to be added manually." + + pack .defs_win.header.label .defs_win.header.message \ + -side left -padx 15 + pack .defs_win.header -side top -pady 10 -padx 15 + + frame .defs_win.row1 + frame .defs_win.row2 + radiobutton .defs_win.row1.phy -text "By Physical Sectors" \ + -variable my_defform -value "-D" -width $textwidth -command { set_msg $my_defform } + radiobutton .defs_win.row1.byt -text "By Bytes from Index" \ + -variable my_defform -value "-B" -width $textwidth -command { set_msg $my_defform } + radiobutton .defs_win.row2.def -text "By Logical Block Numbers" \ + -variable my_defform -value "-d" -width $textwidth -command { set_msg $my_defform } + + pack .defs_win.row1.phy .defs_win.row1.byt \ + -side left -pady 5 -padx 15 -ipadx 2 -pady 2 + pack .defs_win.row2.def \ + -side left -pady 5 -padx 15 -ipadx 2 -pady 2 + + label .defs_win.mess1 -width $winwidth -text \ + "Select the format in which you want to enter the defects:" + pack .defs_win.mess1 -side top -pady 5 -padx 15 + pack .defs_win.row1 -side top -pady 5 -padx 15 + pack .defs_win.row2 -side top -pady 5 -padx 15 + + label .defs_win.mess2 -width $winwidth -text \ + "Enter an (optional) sequence of of defects:" + pack .defs_win.mess2 -side top -pady 5 -padx 15 + + frame .defs_win.frame + scrollbar .defs_win.frame.yscroll -relief sunken \ + -command ".defs_win.frame.page yview" + text .defs_win.frame.page -width $winwidth -background white -relief sunken \ + -borderwidth 2 -height 8 -wrap char -exportselection 1 \ + -yscrollcommand ".defs_win.frame.yscroll set" + .defs_win.frame.page insert 1.0 $par_defects + pack .defs_win.frame.yscroll -side right -fill y + pack .defs_win.frame.page -side top -expand 1 -fill both + + bind .defs_win.frame.page <Key> { + if { [ string first %A " 0123456789abcdefgABCDEF:-" ] >= 0 } then { + .defs_win.frame.page insert insert [string toupper %A] + } + if { [ string compare %A " " ] == 0 } then { + .defs_win.frame.page insert insert "\x0a" + } + if { [ string first %A "xX" ] >= 0 } then { + .defs_win.frame.page insert insert "x" + } + .defs_win.frame.page yview -pickplace insert + } + bind .defs_win.frame.page <Button-2> { + catch { + set sel [string toupper [selection get]] + regsub -all "\[^ 0123456789ABCDEFX:\x0a-\]" $sel "" sel2 + regsub -all "X" $sel2 "x" sel + %W insert insert $sel + } + } + bind_text .defs_win.frame.page + pack .defs_win.frame -side top -pady 5 -padx 15 + + message .defs_win.mess3 -justify center -text "X" -background green \ + -aspect 800 + + set_msg $my_defform + + pack .defs_win.mess3 -side top -pady 5 -padx 15 + + frame .defs_win.f_bot + button .defs_win.f_bot.ok -text "Ok" \ + -activebackground green -command { + set par_defects [ .defs_win.frame.page get 1.0 end ] + set par_defform $my_defform + destroy .defs_win + } -width $butwidth2 + button .defs_win.f_bot.dismiss -text "Abort" \ + -activebackground red -activeforeground white \ + -command {destroy .defs_win} -width $butwidth2 + pack .defs_win.f_bot.ok .defs_win.f_bot.dismiss \ + -side left -pady 15 -padx 15 -ipadx 2 -pady 2 + + pack .defs_win.f_bot -side top -pady 10 -padx 15 + + tkwait window .defs_win +} + +proc handle_trans {w ontop} { + wm transient $w $ontop + wm withdraw $w + update idletasks + set x [expr [winfo screenwidth $w]/2 - [winfo reqwidth $w]/2 \ + - [winfo vrootx [winfo parent $w]]] + set y [expr [winfo screenheight $w]/2 - [winfo reqheight $w]/2 \ + - [winfo vrooty [winfo parent $w]]] + wm geom $w +$x+$y + wm deiconify $w + + set oldFocus [focus] + grab $w + focus $w + + tkwait window $w + if { [string compare $ontop "."] != 0 } then { + grab $ontop + } + focus $oldFocus +} + +proc post_partsize {} { + global butwidth2 par_partmin + + toplevel .partsize + frame .partsize.f_bot + wm title .partsize "Maximal partition size" + wm group . + frame .partsize.header + label .partsize.header.label -bitmap questhead -bg pink + message .partsize.header.message -width 400 -bg pink -text \ + "Maximal partition size." + + pack .partsize.header.label .partsize.header.message \ + -side left -padx 15 + pack .partsize.header -side top -pady 10 -padx 15 + + message .partsize.expl -bg green -width 400 -text \ + "Enter the maximal partition size in Megabyte. If it is zero, \ + no partition is created and the partition table is left empty. \ + Otherwise a partition of this size is created as primary \ + partition 1. If the size does not fit the partition is made as \ + large as possible." + + pack .partsize.expl -side top -pady 10 -padx 15 + + label .partsize.f_inter -text "Maximal partition size in MB: " + entry .partsize.f_inter.t -width 5 -background white -relief sunken -borderwidth 2 \ + -exportselection 1 + .partsize.f_inter.t insert 0 $par_partmin + bind_entry .partsize.f_inter.t + place .partsize.f_inter.t -in .partsize.f_inter -anchor e -relx 1.0 -rely 0.5 + + pack .partsize.f_inter -side top -pady 20 -padx 15 + + button .partsize.f_bot.ok -text "Ok" \ + -activebackground green -command { + set par_partmin [ .partsize.f_inter.t get ] + change_partmin + destroy .partsize + } -width $butwidth2 + button .partsize.f_bot.dismiss -text "Abort" \ + -activebackground red -activeforeground white \ + -command {destroy .partsize} -width $butwidth2 + pack .partsize.f_bot.ok .partsize.f_bot.dismiss \ + -side left -pady 15 -padx 15 -ipadx 2 -pady 2 + + pack .partsize.f_bot -side top -pady 10 -padx 15 + + handle_trans .partsize . +} + +proc change_geodet { geodet } { + if { [ string compare $geodet "-G" ] == 0 } then { + .geom.hese.heads configure -foreground black + .geom.hese.heads.t configure -state normal + .geom.hese.heads.t configure -background white + .geom.hese.sectors configure -foreground black + .geom.hese.sectors.t configure -state normal + .geom.hese.sectors.t configure -background white + } else { + .geom.hese.heads configure -foreground gray70 + .geom.hese.heads.t configure -state disabled + .geom.hese.heads.t configure -background bisque + .geom.hese.sectors configure -foreground gray70 + .geom.hese.sectors.t configure -state disabled + .geom.hese.sectors.t configure -background bisque + } +} + +proc post_geom {} { + global winwidth butwidth2 par_geomdetect par_heads par_sectors textwidth + global my_geomdetect + + set my_geomdetect $par_geomdetect + + toplevel .geom + frame .geom.f_bot + wm title .geom "Disk Drive Geometry" + wm group . + frame .geom.header + label .geom.header.label -bitmap questhead -bg pink + message .geom.header.message -width 400 -bg pink -text \ + "Disk Drive Geometry." + + pack .geom.header.label .geom.header.message \ + -side left -padx 15 + pack .geom.header -side top -pady 10 -padx 15 + + message .geom.expl -bg green -width 400 -text \ + "Enter the geometry of the disk. Not the real one, but the one \ + DOS will see, s.t. the partition table can be build in a way that \ + DOS and other OS's will be able to handle it. Generally, linux \ + device drivers report the setting back which the corresponding adapters \ + use under DOS. If this fails, 64 heads and 32 are usually used. " + + pack .geom.expl -side top -pady 10 -padx 15 + + checkbutton .geom.auto -variable my_geomdetect -onvalue "" -offvalue "-G" \ + -text " Query Geometry from Scsidriver " -command {change_geodet $my_geomdetect} + + pack .geom.auto -side top -pady 20 -padx 15 + + frame .geom.hese + + label .geom.hese.heads -text "Heads: " + entry .geom.hese.heads.t -width 5 -background white -relief sunken -borderwidth 2 \ + -exportselection 1 + .geom.hese.heads.t insert 0 $par_heads + bind_entry .geom.hese.heads.t + place .geom.hese.heads.t -in .geom.hese.heads -anchor e -relx 1.0 -rely 0.5 + + label .geom.hese.sectors -text "Sectors: " + entry .geom.hese.sectors.t -width 5 -background white -relief sunken -borderwidth 2 \ + -exportselection 1 + .geom.hese.sectors.t insert 0 $par_sectors + bind_entry .geom.hese.sectors.t + place .geom.hese.sectors.t -in .geom.hese.sectors -anchor e -relx 1.0 -rely 0.5 + + pack .geom.hese.heads .geom.hese.sectors -side left -pady 15 -padx 15 + pack .geom.hese -side top + change_geodet $my_geomdetect + + button .geom.f_bot.ok -text "Ok" \ + -activebackground green -command { + set par_heads [ .geom.hese.heads.t get ] + set par_sectors [ .geom.hese.sectors.t get ] + set par_geomdetect $my_geomdetect + change_geom $par_geomdetect $par_heads $par_sectors + destroy .geom + } -width $butwidth2 + button .geom.f_bot.dismiss -text "Abort" \ + -activebackground red -activeforeground white \ + -command {destroy .geom} -width $butwidth2 + pack .geom.f_bot.ok .geom.f_bot.dismiss \ + -side left -pady 15 -padx 15 -ipadx 2 -pady 2 + + pack .geom.f_bot -side top -pady 10 -padx 15 + + handle_trans .geom . +} + +proc post_mkfs {} { + global butwidth2 par_mkfs + + toplevel .mkfs + frame .mkfs.f_bot + wm title .mkfs "Make FileSystem Command" + wm group . + frame .mkfs.header + label .mkfs.header.label -bitmap questhead -bg pink + message .mkfs.header.message -width 400 -bg pink -text \ + "Make FileSystem Command." + + pack .mkfs.header.label .mkfs.header.message \ + -side left -padx 15 + pack .mkfs.header -side top -pady 10 -padx 15 + + message .mkfs.expl -bg green -width 400 -text \ + "Enter a command to execute to make a filesystem on the freshly created partition.\ + The string <DEVICE> in the string will be replaced by the name of disk device\ + being formatted. Generally you'll have to use <DEVICE>1 to refer to the first\ + partition." + + pack .mkfs.expl -side top -pady 10 -padx 15 + + frame .mkfs.f_inter + scrollbar .mkfs.f_inter.s -relief sunken -orient horiz -command \ + ".mkfs.f_inter.t xview" + entry .mkfs.f_inter.t -background white -relief sunken -borderwidth 2 \ + -exportselection 1 -xscrollcommand ".mkfs.f_inter.s set" + .mkfs.f_inter.t insert 0 $par_mkfs + + bind_eedit .mkfs.f_inter.t + bind .mkfs.f_inter.t <Key-KP_Enter> { .mkfs.f_bot.ok invoke } + bind .mkfs.f_inter.t <Key-Return> { .mkfs.f_bot.ok invoke } + + pack .mkfs.f_inter.t .mkfs.f_inter.s -side top -fill both -expand yes + pack .mkfs.f_inter -side top -pady 20 -padx 15 -fill both -expand yes + + button .mkfs.f_bot.ok -text "Ok" \ + -activebackground green -command { + set par_mkfs [ .mkfs.f_inter.t get ] + change_mkfs + destroy .mkfs + } -width $butwidth2 + button .mkfs.f_bot.dismiss -text "Abort" \ + -activebackground red -activeforeground white \ + -command {destroy .mkfs} -width $butwidth2 + pack .mkfs.f_bot.ok .mkfs.f_bot.dismiss \ + -side left -pady 15 -padx 15 -ipadx 2 -pady 2 + + pack .mkfs.f_bot -side top -pady 10 -padx 15 + + handle_trans .mkfs . +} + +proc set_rands {} { + set tworands [exec /usr/lib/scsi/tworands] + .conf.equa.sol delete 0 end + .conf.equa.a configure -state normal + .conf.equa.b configure -state normal + .conf.equa.a delete 0 end + .conf.equa.b delete 0 end + .conf.equa.a insert 0 [lindex $tworands 0] + .conf.equa.b insert 0 [lindex $tworands 1] + .conf.equa.a configure -state disabled + .conf.equa.b configure -state disabled +} + +proc query_format {} { + global winwidth butwidth2 textwidth format_cmd sdevice par_fov par_inter par_query \ + par_estim par_initpat par_initmode par_defform par_defects par_erase par_partstyle \ + par_parttype par_partmin par_geomdetect par_heads par_sectors par_disprim par_nvram \ + par_discert par_stop + + + toplevel .conf + frame .conf.f_bot + wm title .conf "Format Confirmation Request" + wm group . + frame .conf.header + label .conf.header.label -bitmap warning -bg pink + message .conf.header.message -width 400 -bg pink -text \ + "Format Confirmation Request." + + pack .conf.header.label .conf.header.message \ + -side left -padx 15 + pack .conf.header -side top -pady 10 -padx 15 + + message .conf.expl -bg red -fg white -width 400 -justify center -text \ +"Formatting will erase all data on $sdevice, regardless on which \ +partition, and there will be NO way to recover your data. + +Therefore, please check now if you really want to format this device. \ +To ensure that your are really with me and know what you do, please \ +answer the simple question below." + + pack .conf.expl -side top -pady 10 -padx 15 + + frame .conf.equa + + entry .conf.equa.a -width 3 -relief sunken -borderwidth 2 -state disabled + label .conf.equa.times -text "*" + entry .conf.equa.b -width 3 -relief sunken -borderwidth 2 -state disabled + label .conf.equa.equa -text "=" + entry .conf.equa.sol -width 5 -background white -relief sunken -borderwidth 2 \ + -exportselection 1 + bind_entry .conf.equa.sol + set_rands + + pack .conf.equa.a .conf.equa.times .conf.equa.b .conf.equa.equa .conf.equa.sol \ + -side left -pady 10 -padx 3 + pack .conf.equa -side top + + message .conf.result -bg red -fg white -aspect 900 -text "Wrong! Please retry or bail out!" + + frame .conf.space + pack .conf.space -side top -pady 8 + + button .conf.f_bot.ok -text "Confirm" \ + -activebackground yellow -command { + if { [expr [.conf.equa.a get] * [.conf.equa.b get]] == [.conf.equa.sol get] } then { + destroy .conf + do_format $format_cmd + } else { + set_rands + pack .conf.result -after .conf.equa -side top -pady 2 -padx 15 + } + } -width $butwidth2 + button .conf.f_bot.show -text "Show ScsiFormat Command" \ + -activebackground green -command { + show_format "$format_cmd $sdevice" + } -width $butwidth2 + + pack .conf.f_bot.ok .conf.f_bot.show -side left -pady 15 -padx 15 -ipadx 2 -pady 2 + + button .conf.dismiss -text "Bail Out" \ + -activebackground red -activeforeground white \ + -command {destroy .conf} -width $butwidth2 + + pack .conf.f_bot -side top -padx 15 + pack .conf.dismiss -side top -pady 10 + + set format_cmd "/usr/sbin/scsiformat $par_erase -i$par_inter" + + regsub -all "\x0a" [string trim $par_defects] " " tmpstr + regsub -all " +" $tmpstr "," tmpstr + if { [string length $tmpstr] > 0 } then { + append format_cmd " $par_defform$tmpstr" + } + if { [string compare $par_partstyle "none"] != 0 } then { + append format_cmd " $par_partstyle $par_parttype -M$par_partmin" + } + if { [string compare $par_geomdetect "-G"] == 0 } then { + append format_cmd " $par_geomdetect${par_heads}x$par_sectors" + } + if { [string compare $par_fov "-o"] == 0} then { + append format_cmd " $par_fov" + if { [string compare $par_initmode "none"] != 0 } then { + append format_cmd " $par_initmode" + } + regsub -all "\[ \x0a\]" [string trim $par_initpat] "" tmpstr + if { [string length $tmpstr] > 0 } then { + append format_cmd " -I$tmpstr" + } + append format_cmd " $par_discert $par_disprim $par_stop $par_nvram" + } + if { [string compare $par_query "-b"] == 0 } then { + append format_cmd " -b$par_estim" + } + #trim unneccessary spaces: + regsub -all " +" [string trim $format_cmd] " " format_cmd + handle_trans .conf . +} + +proc show_format {cmd} { + global winwidth butwidth2 textwidth + + toplevel .showcmd + frame .showcmd.f_bot + wm title .showcmd "Show ScsiFormat Command" + wm group . + frame .showcmd.header + label .showcmd.header.label -bitmap info -bg pink + message .showcmd.header.message -width 400 -bg pink -text \ + "Show ScsiFormat Command." + + pack .showcmd.header.label .showcmd.header.message \ + -side left -padx 15 + pack .showcmd.header -side top -pady 10 -padx 15 + + message .showcmd.expl -width 400 -text \ + "This is the command which will perform the scsi low level format you requested:" + pack .showcmd.expl -side top -pady 10 -padx 15 + + message .showcmd.cmd -width 400 -text $cmd -relief sunken + pack .showcmd.cmd -side top -pady 10 -padx 15 + + button .showcmd.dismiss -text "Dismiss" \ + -activebackground red -activeforeground white \ + -command {destroy .showcmd} -width $butwidth2 + + pack .showcmd.dismiss -side top -pady 10 + + handle_trans .showcmd .conf +} + +proc do_format {fcmd} { + global par_query par_estim sdevice + global winwidth butwidth2 textwidth + global check_cmd format_initiator + + set security "-F'Ene Mene Meck, und Du bist weg!'" + append fcmd " $security -t0 -X $sdevice" + + if { [catch {exec sh -c "$fcmd" >& /var/run/scsiformat.[pid] } err] != 0 } then { + set fd [open /var/run/scsiformat.[pid] r] + set err "$err\x0a[read $fd]" + close $fd + exec rm /var/run/scsiformat.[pid] + show_err scsiformat $err + return; + } + exec rm /var/run/scsiformat.[pid] + set format_initiator 1 + show_busy +} + +proc show_err {cmd msg} { + global winwidth butwidth2 textwidth + + if { [winfo exists .error] == 1 } { + .error.msg configure -text $msg + raise .error + tkwait window .error + return; + } + toplevel .error + frame .error.f_bot + wm title .error "ScsiFormat Error" + wm group . + frame .error.header + label .error.header.label -bitmap error -bg pink + message .error.header.message -width 400 -bg pink -text \ + "Show $cmd Error Message." + + pack .error.header.label .error.header.message \ + -side left -padx 15 + pack .error.header -side top -pady 10 -padx 15 + + message .error.expl -width 600 -text \ + "$cmd returned the following error message:" + pack .error.expl -side top -pady 10 -padx 15 + + message .error.msg -width 600 -text $msg -relief sunken + pack .error.msg -side top -pady 10 -padx 15 + + button .error.dismiss -text "Dismiss" \ + -activebackground red -activeforeground white \ + -command {destroy .error} -width $butwidth2 + + pack .error.dismiss -side top -pady 10 + + tkwait window .error +} + +proc query_prog {} { + global sdevice errorCode wasbusy format_initiator par_mkfs + + set check_cmd "/usr/sbin/scsiformat -T -t1 -X $sdevice" + + if { [winfo exists .showprog] != 1 } { + return; + } + set errorCode [list CHILDSTATUS 0 0] + catch {exec sh -c "$check_cmd"} err + if { ([string compare [lindex $errorCode 0] CHILDSTATUS] != 0) + || ([lindex $errorCode 2] > 1) } then { + show_err scsiformat $err + } elseif { [lindex $errorCode 2] == 1 } then { + if {[catch { + .showprog.row2.start configure -text [lindex $err 0] + .showprog.row2.end configure -text [lindex $err 3] + set percent [lindex $err 1] + if { [string compare $percent "-"] != 0} then { + .showprog.expl configure -text [format "%.10g%% in %s" [expr 100 * $percent] \ + [lindex $err 2] ] + if { $percent >= 1.0 } then { set percent 1.0 } + } else { + .showprog.expl configure -text [lindex $err 2] + set percent 0 + } + place .showprog.slider.inner -in .showprog.slider -relwidth $percent -relheight 1.0 \ + -anchor nw -x 0 -y 0 + set wasbusy 1 + after 5000 query_prog}] != 0} then { +#Something weird went on. Like illegal device name, read-only device, etc.. + destroy .showprog + } + } else { + destroy .showprog + if { $format_initiator == 1} then { + set format_initiator 0 + if { [string compare $par_mkfs "<DEVICE>1"] != 0} then { + regsub "<DEVICE>" $par_mkfs "${sdevice}" cmd +# +#it seems that we have to wait even more... +# +#a mayor reason is that the format might have completed, but scsiformat is +#still creating the partion which will also include some sleep()'s +# + exec sync + exec sh -c "sleep 10" + set errorCode [list NONE 0 0] + catch {exec sh -c "$cmd"} err + if { ([string compare [lindex $errorCode 0] CHILDSTATUS] == 0) } then { + show_err "Filesystem maker"\ + "'$cmd' exited with errorcode - [lindex $errorCode 2]\x0a$err" + } + } + } + if { $wasbusy == 1 } then { + puts -nonewline stderr "\x0a" + flush stderr + } + } +} + +proc show_busy {} { + global textwidth wasbusy + + toplevel .showprog + frame .showprog.f_bot + wm title .showprog "Show ScsiFormat Progress" + wm group . + frame .showprog.header + label .showprog.header.label -bitmap hourglass -bg pink + message .showprog.header.message -width 400 -bg pink -text \ + "Formatting in Progress." + + pack .showprog.header.label .showprog.header.message \ + -side left -padx 15 + pack .showprog.header -side top -pady 10 -padx 15 + frame .showprog.space + pack .showprog.space -side top -pady 5 + frame .showprog.row1 + frame .showprog.row2 + pack .showprog.row1 .showprog.row2 -side top -expand yes -fill both -padx 4 + + label .showprog.row1.start -text "Started" -borderwidth -1 + pack .showprog.row1.start -side left + frame .showprog.row1.space + pack .showprog.row1.space -after .showprog.row1.start -side left -expand yes -fill both + label .showprog.row1.end -text "Estimated End" -borderwidth -1 + pack .showprog.row1.end -side right + + label .showprog.row2.start -borderwidth -1 + pack .showprog.row2.start -side left + frame .showprog.row2.space + pack .showprog.row2.space -after .showprog.row2.start -side left -expand yes -fill both + label .showprog.row2.end -borderwidth -1 + pack .showprog.row2.end -side right + + frame .showprog.slider -borderwidth 2 -height 20 -relief sunken + pack .showprog.slider -side top -expand yes -fill both -pady 4 -padx 4 + frame .showprog.slider.inner -borderwidth 2 -relief raised -bg SlateGray1 + + message .showprog.expl -width 400 -text "X" -borderwidth -1 + pack .showprog.expl -side top + frame .showprog.space2 + pack .showprog.space2 -side top -pady 2 + + set wasbusy 0 + query_prog + if { [winfo exists .showprog] != 1 } { + return; + } + handle_trans .showprog . +} + +wm title . "TkScsiformat Version 1.0" + +if { [string compare $whoami root] != 0} then { + frame .warn + frame .warn.h + label .warn.h.l -bitmap info -background pink + message .warn.h.m -aspect 200 -background pink -justify center -text \ + {You need to be root in order to format a SCSI device!} + pack .warn.h.l .warn.h.m -side left -padx 10 + button .warn.quit -text "Quit" -command exit \ + -activeforeground white -activebackground red + pack .warn.h .warn.quit -side top -pady 10 + pack .warn + tkwait window .warn +} + +if { [llength $argv] > 1 } then { + puts stderr "Usage: tk_scsiformat \[device\]" + exit +} + +while { [string compare [lindex $sdevice 0] ""] == 0 } { + frame .select + frame .select.h + label .select.h.l -bitmap questhead -background pink + message .select.h.m -justify center -aspect 500 -background pink -text \ + {Select a SCSI device to low level format.} + frame .select.f + button .select.f.quit -text " Quit " -command exit \ + -activeforeground white -activebackground red + button .select.f.continue -text " Continue " -activebackground green \ + -command {destroy .select} + pack .select.f.continue .select.f.quit -side left -padx 10 + pack .select.h.l .select.h.m -side left -padx 10 + pack .select.h -pady 10 + pack .select + set line [exec /sbin/scsiinfo -l] + set n 0 + foreach x $line { + if {[string first "/dev/sd" "$x"] != 0} continue; + radiobutton .select.$n -text "$x" -width 10 \ + -variable sdevice -value $x -anchor w + pack .select.$n -padx 3 + set n [expr $n+1] + } + if { $n == 0 } then { + .select.f.continue configure -state disabled + } else { + .select.0 select + } + pack .select.f -pady 10 + tkwait window .select +} + +set save_file "/usr/lib/scsi/scsiformat.defs.[file tail $sdevice]" +catch {source $save_file} + +frame .header +label .header.label -bitmap question -bg pink +message .header.message -width 400 -bg pink -text \ + "Scsi Low Level Format - $sdevice." + +pack .header.label .header.message -side left -padx 15 + +frame .f_bot1 +button .f_bot1.copyrights -activebackground green -text "Version Info" \ + -command { copyrights } -width $butwidth +button .f_bot1.filesave -activebackground green -text "Save Defaults" \ + -width $butwidth -command { + global vars2save save_file + set fd [open $save_file w] + foreach var $vars2save { save_var $fd $var } + close $fd + } +button .f_bot1.simple -activebackground green -text "Simple Format Cmd" \ + -command "simple" -width $butwidth +pack .f_bot1.copyrights .f_bot1.filesave .f_bot1.simple \ + -side left -padx 12 -ipadx 2 -ipady 2 -pady 5 + +frame .f_bot2 +button .f_bot2.format -text "Format" -command { query_format } \ + -activebackground yellow -activeforeground black -width $butwidth2 +button .f_bot2.quit -text "Quit" -command { exit } \ + -activebackground red -activeforeground white -width $butwidth2 +pack .f_bot2.format .f_bot2.quit -side left -padx 12 -ipadx 2 -ipady 2 -pady 5 + +frame .f_mand -width $winwidth +checkbutton .f_mand.erase -offvalue "" -onvalue "-e" -variable par_erase -text \ + "Erase Grown Defect List" -width [expr $textwidth - 1] + +label .f_mand.f_inter -text "Interleave (0 for default): " -width $textwidth +entry .f_mand.f_inter.t -width 5 -background white -relief sunken -borderwidth 2 \ + -exportselection 1 -textvariable par_inter +bind_entry .f_mand.f_inter.t +place .f_mand.f_inter.t -in .f_mand.f_inter -anchor e -relx 1.0 -rely 0.5 + +pack .f_mand.erase .f_mand.f_inter -side left -padx 12 -ipadx 2 -ipady 2 + +frame .f_def +button .f_def.defects -text "Add Defects Manually" -activebackground yellow -command enter_defs \ + -width [expr $textwidth] +menubutton .f_def.part -text "Simple Partioning" \ + -width [expr $textwidth] -relief raised -menu .f_def.part.menu \ + -activebackground SlateGray1 +menu .f_def.part.menu -background SlateGray1 -activebackground SlateGray2 +.f_def.part.menu add radiobutton -label "Don't touch Partion Sector" \ + -variable par_partstyle -value "none" +.f_def.part.menu add radiobutton -label "DOS Style Partion" \ + -variable par_partstyle -value "-fdos" +.f_def.part.menu add radiobutton -label "Tight Style Partion (not on Cylinder Boundary)" \ + -variable par_partstyle -value "-ftight" +.f_def.part.menu add separator +.f_def.part.menu add cascade -menu .f_def.part.menu.types -label "Partition type" +.f_def.part.menu add cascade -menu .f_def.part.menu.mkfs -label "Filesystem type" +.f_def.part.menu add separator +.f_def.part.menu add command -command post_geom +.f_def.part.menu add command -command post_partsize + +menu .f_def.part.menu.types -background SlateGray1 -activebackground SlateGray2 +.f_def.part.menu.types add radiobutton -variable par_parttype \ + -label "Linux/Minix" -value "-y81" +.f_def.part.menu.types add radiobutton -variable par_parttype \ + -label "Linux swap" -value "-y82" +.f_def.part.menu.types add radiobutton -variable par_parttype \ + -label "Linux native" -value "-y83" +.f_def.part.menu.types add radiobutton -variable par_parttype \ + -label "DOS 12-bit FAT" -value "-y01" +.f_def.part.menu.types add radiobutton -variable par_parttype \ + -label "DOS 16-bit FAT <32M" -value "-y52" +.f_def.part.menu.types add radiobutton -variable par_parttype \ + -label "DOS 16-bit FAT >=32M" -value "-y64" + +menu .f_def.part.menu.mkfs -background SlateGray1 -activebackground SlateGray2 +for {set i 0} {$i < [llength $par_mkfsnames]} {incr i} { + .f_def.part.menu.mkfs add radiobutton -variable par_mkfs -command change_mkfs \ + -label "[lindex $par_mkfsnames $i]" -value "[lindex $par_mkfscmds $i]" +} +.f_def.part.menu.mkfs add separator +.f_def.part.menu.mkfs add command -command post_mkfs +change_mkfs + +change_partmin +change_geom $par_geomdetect $par_heads $par_sectors + +pack .f_def.defects .f_def.part -side left -padx 12 -ipadx 2 -ipady 2 + +frame .f_opt -width $winwidth -relief raised -borderwidth 2 +checkbutton .f_opt.fov -offvalue "" -onvalue "-o" -variable par_fov -text \ + " Use Custom Format Parameters" -command change_fov -activebackground yellow \ + -width [expr $winwidth - 2] +pack .f_opt.fov -side top -padx 12 -ipadx 2 -ipady 2 -pady 5 +frame .f_opt.col1 +frame .f_opt.col2 + +button .f_opt.col1.init -text "Enter initialization pattern" -activebackground yellow \ + -command enter_init -width [expr $textwidth + 2] +checkbutton .f_opt.col1.disprim -offvalue "" -onvalue "-p" -variable par_disprim -text \ + "Ignore Primary Defects" -width $textwidth +checkbutton .f_opt.col1.nvram -offvalue "" -onvalue "-S" -variable par_nvram -text \ + "Erase MODE SELECT Nvram" -width $textwidth +pack .f_opt.col1.init .f_opt.col1.disprim .f_opt.col1.nvram \ + -side top -padx 12 -ipadx 2 -ipady 2 -pady 5 +checkbutton .f_opt.col2.discert -offvalue "" -onvalue "-c" -variable par_discert -text \ + "Disable Media Certification" -width $textwidth +checkbutton .f_opt.col2.stop -offvalue "" -onvalue "-s" -variable par_stop -text \ + "Stop On Missing Defectlist" -width $textwidth +label .f_opt.col2.dummy +pack .f_opt.col2.discert .f_opt.col2.stop .f_opt.col2.dummy \ + -side top -padx 12 -ipadx 2 -ipady 2 -pady 5 +pack .f_opt.col1 .f_opt.col2 -side left + +frame .f_block +checkbutton .f_block.par_block -offvalue "-b" -onvalue "" -variable par_query -text \ + "Query progress from target" -width $textwidth -command { block_change $par_query } + +label .f_block.f_estim -text "Estimated run time in sec: " -width $textwidth +entry .f_block.f_estim.t -width 5 -background white -relief sunken -borderwidth 2 \ + -exportselection 1 -textvariable par_estim +bind_entry .f_block.f_estim.t + +place .f_block.f_estim.t -in .f_block.f_estim -anchor e -relx 1.0 -rely 0.5 +pack .f_block.par_block .f_block.f_estim -side left -padx 12 -ipadx 2 -ipady 2 +block_change $par_query + +change_fov + +pack .header -padx 10 -pady 10 +pack .f_mand .f_def -pady 4 +pack .f_opt -padx 10 -pady 10 +pack .f_block -padx 10 -pady 4 +pack .f_bot1 .f_bot2 -padx 10 -pady 4 + +show_busy
--- End Message ---
--- Begin Message ---On Tue, Jan 10, 2012 at 06:55:03PM +0700, Mahyuddin Susanto wrote: > In Ubuntu we split out tk_scsiformat into its own package so server not > installed X, so we can save disk space > and keep system simple I think this no longer makes sense. scsitools should not be installed anywhere by default anymore. Chris
--- End Message ---
