home *** CD-ROM | disk | FTP | other *** search
/ Chip: Linux Special / CorelLinux_CHIP.iso / VMware / bin / vmware-wizard / wiz.tcl < prev   
Encoding:
Tcl/Tk script  |  1999-11-08  |  50.7 KB  |  1,704 lines
  1. #!/usr/bin/wishx
  2.  
  3. #load {} Tclx
  4. #signal default *
  5.  
  6. option add *Font -*-helvetica-medium-r-*-*-12-120-*-*-*-*-iso8859-*
  7. option add *Button.Font -*-helvetica-medium-r-*-*-10-100-*-*-*-*-iso8859-*
  8. option add *selectBorderWidth 0
  9. option add *Radiobutton.selectColor grey
  10. option add *Radiobutton.highlightBackground [. cget -background]
  11. option add *Canvas.highlightBackground [. cget -background]
  12.  
  13. set bold -*-helvetica-bold-r-*-*-12-120-*-*-*-*-iso8859-*
  14.  
  15. set tk_strictMotif 1
  16.  
  17. source "lib/util.tcl"
  18. source "lib/shell.tcl"
  19. source "lib/dialog.tcl"
  20. source "lib/help.tcl"
  21. source "helpText.tcl"
  22. source "helpURLs.tcl"
  23. source "rawdisk.tcl"
  24.  
  25. # In case we run as root,
  26. # Force the path to reduce the risk of using "modified" external helpers
  27. # If the user has a special system setup, he will be prompted for the
  28. # proper location anyway
  29. proc restrict_path {} {
  30.     global env
  31.  
  32.     if {[GetEuid] == 0} {
  33.     set env(PATH) "/bin:/usr/bin:/sbin:/usr/sbin:/usr/X11/bin"
  34.     }
  35. }
  36.  
  37. # Set up the location of external helpers
  38. proc initialize_external_helpers {} {
  39.     global db
  40.  
  41.     set db(helper.netscape) [Shell_DoesBinaryExist_Prompt {netscape}]
  42.     if {$db(helper.netscape) == ""} {
  43.         DialogWin .error "Configuration Wizard Error" "The wizard can work without netscape, however the help system will not be available." {} 0 OK
  44.     # We can live without netscape (at least I hope so), so don't exit
  45.     }
  46.  
  47.     set db(helper.grep) [Shell_DoesBinaryExist_Prompt {grep}]
  48.     if {$db(helper.grep) == ""} {
  49.         DialogWin .error "Configuration Wizard Error" "Unable to continue without grep. Configuration cancelled." {} 0 OK
  50.         exit 1
  51.     }
  52.  
  53.     set db(helper.df) [Shell_DoesBinaryExist_Prompt {df}]
  54.     if {$db(helper.df) == ""} {
  55.         DialogWin .error "Configuration Wizard Error" "Unable to continue without df. Configuration cancelled." {} 0 OK
  56.         exit 1
  57.     }
  58.  
  59.     set db(helper.chmod) [Shell_DoesBinaryExist_Prompt {chmod}]
  60.     if {$db(helper.chmod) == ""} {
  61.         DialogWin .error "Configuration Wizard Error" "Unable to continue without chmod. Configuration cancelled." {} 0 OK
  62.         exit 1
  63.     }
  64. }
  65.  
  66. # Hide the main window until we are done with initialization
  67. wm withdraw .
  68.  
  69. restrict_path
  70.  
  71. initialize_external_helpers
  72.  
  73. set option(outputFileName) 0
  74.  
  75. set len [llength $argv]
  76.  
  77. for {set i 0} {$i < $len} {incr i} {
  78.     set arg [lindex $argv $i]
  79.     switch -exact -- $arg {
  80.         "-x" {
  81.             set option(outputFileName) 1
  82.         }
  83.  
  84.         "-rawdisk" {
  85.             # obsolete
  86.         }
  87.         
  88.         "-safedisk" {
  89.             incr i
  90.             if {$i >= $len} {
  91.                 puts "usage: $argv0 \[-x\] \[-safedisk <device>\]"
  92.                 exit                
  93.             }
  94.             set option(safedisk) [lindex $argv $i]
  95.         }
  96.  
  97.         default {
  98.             puts "usage: $argv0 \[-x\] \[-safedisk <device>\]"
  99.             exit
  100.         }
  101.     }
  102. }
  103.  
  104.  
  105. ############################################################
  106. ###
  107. ### machine config databse
  108. ###
  109. ###  Set defaults here. Probe host configuration here if
  110. ###  necessary to help determine reasonable defaults.
  111. ###
  112. ############################################################
  113.  
  114.  
  115. ##
  116. ## db(OS)       { dos, win31, win95, win98, nt4, win2000, linux, other }
  117. ## db(OS.name)
  118. ## 
  119.  
  120. set db(OS) <null>
  121. set db(OS.name) <null>
  122.  
  123.  
  124. ##
  125. ## db(directory)
  126. ## db(directory.userSet)
  127. ## db(directory.mountPoint.name)
  128. ## db(directory.mountPoint.type)
  129. ## db(directory.mountPoint.available)
  130. ##
  131.  
  132. set db(directory) $env(HOME)/vmware/$db(OS.name)/
  133. set db(directory.userSet) 0
  134. set db(directory.mountPoint.name) <null>
  135. set db(directory.mountPoint.type) <null>
  136. set db(directory.mountPoint.available) <null>
  137.  
  138.  
  139. ##
  140. ## db(diskType)
  141. ##
  142. ## legal values:
  143. ##
  144. ##   file - create a virtual disk in a file
  145. ##   part - create a safe raw disk file
  146. ##
  147.  
  148. set db(diskType) file
  149.  
  150.  
  151. ##
  152. ## db(diskSize)  (in MB)
  153. ## db(diskSize.userSet)
  154. ##
  155.  
  156. set db(diskSize) 500
  157. set db(diskSize.userSet) 0
  158.  
  159.  
  160. ##
  161. ## db(hostRawDisk.validDrives) : List of allowed drive names
  162. ## db(hostRawDisk.drives) : List of detected ro or rw drives
  163. ## db(hostRawDisk.<drive>.userAccess)    { np none ro rw }
  164. ## db(hostRawDisk.<drive>.partitions)
  165. ## db(hostRawDisk.<drive>.<partition>.start)
  166. ## db(hostRawDisk.<drive>.<partition>.end)
  167. ## db(hostRawDisk.<drive>.<partition>.id)
  168. ## db(hostRawDisk.<drive>.<partition>.type)
  169. ##
  170. ## db(rawDisk.<drive>.used)
  171. ## db(rawDisk.<drive>.<partition>.access)     { none ro rw }
  172. ##
  173.  
  174. set db(hostRawDisk.validDrives) {hda hdb hdc hdd hde hdf hdg hdh hdi hdj hdk hdl}
  175. set db(hostRawDisk.drives) {}
  176.  
  177. foreach drive $db(hostRawDisk.validDrives) {
  178.     GetRawDiskInfo $drive
  179. }
  180.  
  181.  
  182. ##
  183. ## db(cdrom.present)
  184. ## db(cdrom.fileName)
  185. ## db(cdrom.wanted)
  186. ##
  187.  
  188. set db(cdrom.present) 1
  189. set db(cdrom.fileName) /dev/cdrom
  190. set db(cdrom.wanted) 1
  191.  
  192.  
  193. ##
  194. ## db(floppy.present)
  195. ## db(floppy.fileName)
  196. ## db(floppy.wanted)
  197. ##
  198.  
  199. set db(floppy.present) 1
  200. set db(floppy.fileName) /dev/fd0
  201. set db(floppy.wanted) 1
  202.  
  203.  
  204. ##
  205. ## db(networking)   { none bridged hostOnly }
  206. ##
  207.  
  208. set db(networking) none
  209.  
  210.  
  211. ##
  212. ## db(memorySize)
  213. ## db(hostMemorySize)
  214. ##
  215.  
  216. set db(memorySize) 32
  217.  
  218. if {[file readable /proc/meminfo]} {
  219.     if {[catch {exec $db(helper.grep) MemTotal /proc/meminfo} memLine]} {
  220.         DialogWin .error "Configuration Wizard Error" \
  221.             "Error opening /proc/meminfo:\n$memLine" {} 0 OK
  222.         exit
  223.     }
  224.     
  225.     regexp {MemTotal:[ ]*([0-9]*)[ ]*kB} $memLine dummy kbmem
  226.     set db(hostMemorySize) [expr {$kbmem / 1024}]
  227.     
  228. } else {
  229.     set db(hostMemorySize) 32
  230. } 
  231.  
  232.  
  233. ############################################################
  234. ###
  235. ### parse locations file
  236. ###
  237. ############################################################
  238.  
  239. if {[catch {set fd [open /etc/vmware/config]} err]} {
  240.     set ret [DialogWin .error "Configuration Wizard Error" \
  241.                  "There is no VMware distribution installed on this system." \
  242.                  {} 0 Exit Continue]
  243.     if {$ret == 0} {
  244.         exit
  245.     }
  246.     set fd ""
  247. }
  248.  
  249. if {$fd != ""} {
  250.     while {[gets $fd line] != -1} {
  251.         if {[regexp {([A-Za-z0-9\.\-\_]*)[ ]*=[ ]*\"?([^\"]*)\"?} $line dummy opt value]} {
  252.             set install($opt) $value
  253.             if {[string match {*.HostOnly*} $opt]} {
  254.                 set install(HostOnly) 1
  255.             }
  256.         }
  257.     }
  258.     
  259.     close $fd
  260. }
  261.  
  262.  
  263. ############################################################
  264. ###
  265. ### panels
  266. ###
  267. ############################################################
  268.  
  269. set panel(width)   5i
  270. set panel(height)  5i
  271.  
  272. set panel(current) welcome
  273. set panel(stack) {}
  274.  
  275. proc NewPanel {name} {
  276.     global panel bold
  277.     frame .$name -width $panel(width) -height $panel(height) -relief flat
  278.     message .$name.title -justify left -text $panel(${name}.title) \
  279.         -width $panel(width) -pady 3m -font $bold
  280.     message .$name.msg -justify left -text $panel(${name}.text) \
  281.         -width $panel(width)
  282.     pack .$name.title .$name.msg -in .$name -anchor w
  283.     $panel(${name}.init) $name
  284. }
  285.  
  286. image create photo redximage -file images/redx.gif
  287. image create photo yellowximage -file images/yellowx.gif
  288.  
  289. proc MakeWarning {name priority text} {
  290.     global panel
  291.  
  292.     frame $name -width $panel(width) -relief flat
  293.     canvas $name.canvas -width 32p -height 40p
  294.  
  295.     switch $priority {
  296.         1 { set imageName "redximage" }
  297.         2 { set imageName "yellowximage" }
  298.     }
  299.     
  300.     $name.canvas create image 0p 8p -anchor nw -image $imageName
  301.     message $name.msg -text $text -width 4i
  302.     pack $name.canvas $name.msg -side left -anchor nw
  303. }
  304.  
  305.  
  306. ##
  307. ## Welcome panel
  308. ##
  309.  
  310. set panel(welcome.title) {Welcome}
  311. set panel(welcome.init) Welcome_Init
  312. set panel(welcome.activate) Welcome_Activate
  313. set panel(welcome.deactivate) Welcome_Deactivate
  314. set panel(welcome.next) os
  315. set panel(welcome.text) "Welcome to the VMware for Linux Configuration Wizard."
  316. set panel(welcome.text2) {This wizard automates the most common tasks in order to properly create and configure a VMware Virtual Machine. It will ask a few simple questions, and at the end it will create all the files you need to run the VM.
  317.  
  318. The configuration settings which you will be selecting for the new virtual machine can be viewed and changed at a later time by using the Configuration Editor.
  319.     
  320. Click the "Next" button to proceed.
  321.  
  322. At any point you may return to the previous panel by clicking on the "Prev" button, or abort the wizard by clicking on the "Cancel" button.  You may also select default parameters and skip to the last panel by using the "Finish" button.
  323.  
  324. The "Help" button provides context sensitive help and links to relevant online documentation.}
  325.  
  326. proc Welcome_Init {name} {
  327.     global panel
  328.     
  329.     message .welcome.msg2 -text $panel(welcome.text2) -width $panel(width)
  330.     pack .welcome.msg2 -in .welcome -anchor w
  331. }
  332.  
  333. proc Welcome_Activate {} {
  334.     .nav.prev configure -state disabled
  335.     .nav.finish configure -state disabled
  336.     bind . <Alt-KeyPress-p> {}
  337.     bind . <Alt-KeyPress-f> {}
  338. }
  339.  
  340. proc Welcome_Deactivate {} {
  341.     .nav.prev configure -state normal
  342.     .nav.finish configure -state normal
  343.     bind . <Alt-KeyPress-p> Prev
  344.     bind . <Alt-KeyPress-f> Finish
  345. }
  346.  
  347.  
  348. ##
  349. ## Guest OS panel
  350. ##
  351.  
  352. set panel(os.title) {Guest Operating System}
  353. set panel(os.init) OS_Init
  354. set panel(os.activate) OS_Activate
  355. set panel(os.deactivate) OS_Deactivate
  356. set panel(os.next) dir
  357. set panel(os.text) {Please select the operating system you plan on installing in the virtual machine (your guest OS). This information is used to determine optimal default values for the guest OS, and it does not limit your machine's ability to run other OSes.}
  358.  
  359. set panel(os.entry) Other
  360.  
  361. proc OS_Init {name} {
  362.     set osNames { \
  363.                   {"dos" "MS DOS"} \
  364.                   {"win31" "Windows 3.1"} \
  365.                   {"win95" "Windows 95"} \
  366.                   {"win98" "Windows 98"} \
  367.                   {"nt4" "Windows NT (Workstation or Server) 4.0"} \
  368.                   {"win2000" "Windows 2000"} \
  369.                   {"linux" "Linux"} \
  370.                   {"other" "Other"} \
  371.               }
  372.  
  373.     foreach osInfo $osNames {
  374.         set os [lindex $osInfo 0]
  375.         set text [lindex $osInfo 1]
  376.         radiobutton .os.$os -text $text -variable db(OS) -value $os -anchor w -command OS_Set
  377.         pack .os.$os -in .os -anchor w -padx 5m
  378.     }
  379.  
  380.     bind .os.win98 billg {WindowShake 1}
  381.     bind .os.linux linus {WindowShake 0}
  382.     
  383.     entry .os.entry -relief sunken -bd 2 -textvariable panel(os.entry) -width 20
  384.     OS_Set
  385. }
  386.  
  387. proc WindowShake {arg} {
  388.     global lastOne onOff
  389.  
  390.     switch $arg {
  391.         0 {
  392.             set onOff 0
  393.         }
  394.         1 {
  395.             set onOff 1
  396.         }
  397.     }
  398.  
  399.     if {$onOff} {
  400.         set geo [split [wm geometry .] "+"]
  401.         
  402.         if {![info exists lastOne] || $lastOne} {
  403.             set newX [expr {[lindex $geo 1] + 10}]
  404.             set lastOne 0
  405.         } else {
  406.             set newX [expr {[lindex $geo 1] - 10}]
  407.             set lastOne 1
  408.         }
  409.         
  410.         wm geometry . "+${newX}+[lindex $geo 2]"
  411.         
  412.         after 100 WindowShake 2
  413.     }
  414. }
  415.  
  416. proc OS_Activate {} {
  417.     global db panel
  418.     if {$db(OS) == "<null>"} {
  419.         .nav.next configure -state disabled
  420.         .nav.finish configure -state disabled
  421.         bind . <Alt-KeyPress-n> {}
  422.         bind . <Alt-KeyPress-f> {}
  423.     }
  424. }
  425.  
  426. proc OS_Deactivate {} {
  427.     global db panel env
  428.  
  429.     if {$db(OS) == "<null>"} {
  430.         # must be prev
  431.         .nav.next configure -state normal
  432.         .nav.finish configure -state normal
  433.         bind . <Alt-KeyPress-n> Prev
  434.         bind . <Alt-KeyPress-f> Finish
  435.         return
  436.     }
  437.     
  438.     switch $db(OS) {
  439.         dos -
  440.         win31 {
  441.             set db(memorySize) 16
  442.         }
  443.         linux -
  444.         win95 -
  445.         win98 {
  446.             if {$db(hostMemorySize) > 100} {
  447.                 set db(memorySize) 48
  448.             } else {
  449.                 set db(memorySize) 32
  450.             }            
  451.         }
  452.         other {
  453.             set db(memorySize) 32
  454.         }
  455.         nt4 -
  456.         win2000 {
  457.             if {$db(hostMemorySize) > 100} {
  458.                 set db(memorySize) 64
  459.             } else {
  460.                 set db(memorySize) 32
  461.             }
  462.         }
  463.     }
  464.  
  465.     set db(diskSize) 2000
  466.  
  467.     if {$db(OS) == "other"} {
  468.         set db(OS.name) $panel(os.entry)
  469.     } else {
  470.         set db(OS.name) $db(OS)
  471.     }
  472.     
  473.     if {!$db(directory.userSet)} {
  474.         set db(directory) "$env(HOME)/vmware/$db(OS.name)/"
  475.         UpdateMountPoint
  476.     }
  477. }
  478.  
  479. proc OS_Set {} {
  480.     global db
  481.     
  482.     if {$db(OS) == "other"} {
  483.         pack .os.entry -in .os -padx 15m -pady 1m -anchor w
  484.         focus .os.entry
  485.         .os.entry icursor end
  486.     } else {
  487.         pack forget .os.entry
  488.     }
  489.  
  490.     .nav.next configure -state normal
  491.     .nav.finish configure -state normal
  492.     bind . <Alt-KeyPress-n> Prev
  493.     bind . <Alt-KeyPress-f> Finish
  494. }
  495.  
  496.  
  497.  
  498. ##
  499. ## Directory panel
  500. ##
  501.  
  502. set panel(dir.title) {Virtual Machine Directory}
  503. set panel(dir.init) Dir_Init
  504. set panel(dir.activate) Dir_Activate
  505. set panel(dir.deactivate) Dir_Deactivate
  506. set panel(dir.next) diskType
  507.  
  508. set panel(dir.text) {Please select a directory for the virtual machine. It is suggested that each virtual machine have its own directory.}
  509.  
  510. proc Dir_Init {name} {
  511.     label .dir.label -text "Full path of the virtual machine directory:"
  512.     frame .dir.frame -relief flat
  513.     entry .dir.frame.entry -width 40 -relief sunken -bd 2 -textvariable panel(dir.entry)
  514.     button .dir.frame.browse -text "Browse..." -command Dir_Browse
  515.     pack .dir.frame.entry -in .dir.frame -side left -pady 1m
  516.     # pack .dir.frame.browse -in .dir.frame -side left -padx 2m
  517.     pack .dir.label .dir.frame -in .dir -anchor w -padx 5m
  518. }
  519.  
  520. proc Dir_Activate {} {
  521.     global panel db
  522.     set panel(dir.entry) $db(directory)
  523.     focus .dir.frame.entry
  524.     .dir.frame.entry icursor end
  525. }
  526.  
  527. proc Dir_Deactivate {} {
  528.     global panel db
  529.     if {$panel(dir.entry) != $db(directory)} {
  530.         if {$panel(dir.entry) == ""} {
  531.             set panel(dir.entry) "."
  532.         }
  533.         set db(directory) $panel(dir.entry)
  534.         set db(directory.userSet) 1
  535.         if {[string index $db(directory) [expr {[string length $db(directory)] - 1}]] != "/"} {
  536.             set db(directory) "$db(directory)/"
  537.         }
  538.     }
  539.     UpdateMountPoint
  540. }
  541.  
  542. proc Dir_Browse {} {
  543.     global panel
  544.     set ret [tk_getSaveFile]
  545.     if {$ret != ""} {
  546.         set panel(dir.entry) $ret
  547.     }
  548. }
  549.  
  550. proc UpdateMountPoint {} {
  551.     global db
  552.  
  553.     set path [file nativename $db(directory)]
  554.  
  555.     while {1} {
  556.         if {![catch {exec $db(helper.df) -P -T -k $path} dfOut]} {
  557.             break
  558.         }
  559.  
  560.         if {$path == "/"} {
  561.             DialogWin .error "Configuration Wizard Error" \
  562.                 "Error execing $db(helper.df):\n$dfOut" {} 0 OK
  563.             exit
  564.         }
  565.         
  566.         set path [file dirname $path]
  567.     }
  568.     
  569.     regsub -all {[ ]+} $dfOut " " dfOut
  570.     set lines [split $dfOut "\n"]
  571.  
  572.     if {[llength $lines] != 2} {
  573.         DialogWin .error "Configuration Wizard Error" \
  574.             "Bad df output:\n$dfOut" {} 0 OK
  575.         exit
  576.     }
  577.  
  578.     set fields [split [lindex $lines 0]]
  579.     if {![regexp -nocase {(1024|1k)-blocks} [lindex $fields 2]]} {
  580.         DialogWin .error "Configuration Wizard Error" \
  581.             "Bad df output:\n$dfOut--[lindex fields 2]" {} 0 OK
  582.         exit
  583.     }
  584.  
  585.     set fields [split [lindex $lines 1]]
  586.     set db(directory.mountPoint.name) [lindex $fields 6]
  587.     set db(directory.mountPoint.type) [lindex $fields 1]
  588.     set db(directory.mountPoint.available) [expr {int(ceil([lindex $fields 4]/1024))}]
  589. }
  590.  
  591.  
  592. ##
  593. ## Disk selection panel
  594. ##
  595.  
  596. set panel(diskType.title) {Virtual Disk Type Setting}
  597. set panel(diskType.init) DiskType_Init
  598. set panel(diskType.activate) DiskType_Activate
  599. set panel(diskType.deactivate) DiskType_Deactivate
  600. set panel(diskType.next) <null>
  601. set panel(diskType.text) {Please choose what type of disk the virtual machine will use.}
  602.  
  603. set panel(diskType.fileTextIn) {Virtual disks appear as files on the host operating system's file system.}
  604. set panel(diskType.partText) {Existing physical disks are the disks seen by the host operating system.  They can be used as disks for this virtual machine. This option is recommended for advanced users only.
  605.  
  606. If a physical disk is empty, you can install an operating system in it.
  607.  
  608. If a physical disk already has an operating system installed (you have a multi-boot system), you can bring that disk up within the virtual machine.
  609.  
  610. You have the following access rights for IDE drives on this system:}
  611. set panel(diskType.nfsWarnText) {The directory you have chosen is on an NFS mounted file system ($mount). Disk performance to NFS file systems can be slow. It is advised that you change the virtual machine's directory to a local file system.}
  612. set panel(diskType.fileText) $panel(diskType.fileTextIn)
  613.  
  614. proc DiskType_Init {name} {
  615.     global panel db
  616.  
  617.     radiobutton .diskType.file -text "New Virtual Disk" -variable db(diskType) \
  618.         -value file -anchor w -command DiskType_Set -padx 5m
  619.     
  620.     radiobutton .diskType.partition -text "Existing Physical Disk" -variable db(diskType) \
  621.         -value part -anchor w -command DiskType_Set -padx 5m
  622.  
  623.     message .diskType.msg2 -justify left -text $panel(diskType.fileText) -width $panel(width) -pady 5m
  624.     
  625.     MakeWarning .diskType.warn 2 $panel(diskType.nfsWarnText)
  626.  
  627.     pack .diskType.file .diskType.partition .diskType.msg2 -in .diskType -anchor w
  628. }
  629.  
  630. proc DiskType_Set {} {
  631.     global db panel
  632.     switch $db(diskType) {
  633.         file {
  634.             .diskType.msg2 configure -text $panel(diskType.fileText)
  635.             if {$db(directory.mountPoint.type) == "nfs"} {
  636.                 regsub {\$mount} "$panel(diskType.nfsWarnText)" \
  637.                     $db(directory.mountPoint.name) text
  638.                 .diskType.warn.msg configure -text $text
  639.                 pack .diskType.warn -in .diskType -anchor w -padx 2m
  640.             } else {
  641.                 pack forget .diskType.warn
  642.             }
  643.         }
  644.         part {
  645.             pack forget .diskType.warn
  646.  
  647.             set text ""
  648.             foreach drive $db(hostRawDisk.validDrives) {
  649.                 set text "${text}\n     /dev/$drive"
  650.                 switch $db(hostRawDisk.$drive.userAccess) {
  651.                     "np"   {set text "$text - not present"}
  652.                     "none" {set text "$text - no access"}
  653.                     "ro"   {set text "$text - read only access"}
  654.                     "rw"   {set text "$text - read/write access"}
  655.                 }
  656.             }
  657.  
  658.             if {[llength $db(hostRawDisk.drives)] != 0} {
  659.                 set text "$panel(diskType.partText)\n$text"
  660.                 .diskType.msg2 configure -text $text
  661.             } else {
  662.                 set text1 {Either you don't have access to the IDE drives on this system or no IDE drives were detected. You will only be able to configure a virtual disk on the host file system.
  663.  
  664. You have the following access rights for IDE drives on this system:}
  665.  
  666.                 DialogWin .error "Configuration Wizard Help" "$text1\n$text" {} 0 OK
  667.                 set db(diskType) file
  668.                 DiskType_Set
  669.             }
  670.         }
  671.     }
  672. }
  673.  
  674. proc DiskType_Deactivate {} {
  675.     global db panel
  676.     switch $db(diskType) {
  677.         file { set panel(diskType.next) diskSize }
  678.         part { set panel(diskType.next) rawDisk_[lindex $db(hostRawDisk.drives) 0] }
  679.     }       
  680. }
  681.  
  682. proc DiskType_Activate {} {
  683.     DiskType_Set
  684. }
  685.  
  686.  
  687. ##
  688. ## Disk size panel
  689. ##
  690.  
  691. set panel(diskSize.title) {Virtual Disk Size Setting}
  692. set panel(diskSize.init) DiskSize_Init
  693. set panel(diskSize.activate) DiskSize_Activate
  694. set panel(diskSize.deactivate) DiskSize_Deactivate
  695. set panel(diskSize.next) cdrom
  696. set panel(diskSize.text) {The wizard will create a persistent virtual disk on the host file system. Please enter the size of the virtual disk. After the disk is created, this parameter may not be changed.}
  697.  
  698. set panel(diskSize.hostDiskSpace) {The disk size you have selected ($diskSize MB) is greater than the free space on the file system ($mountPoint has $available MB available). The disk can be created now but your virtual machine may run out of host disk space later.}
  699. set panel(diskSize.sizeZeroText) {The virtual disk size must be at least 1 megabyte.}
  700. set panel(diskSize.sizeLimitationText) {Because of limitations of the host file system the maximum allowable virtual hard disk size is 2047 megabytes.}
  701.  
  702. proc DiskSize_Init {name} {
  703.     global panel option
  704.     
  705.     frame .diskSize.frame -relief flat
  706.     label .diskSize.frame.label -text "Virtual disk size (in megabytes):"
  707.     entry .diskSize.frame.entry -width 7 -relief sunken -bd 2 \
  708.         -textvariable panel(diskSize.entry)
  709.     pack .diskSize.frame.label .diskSize.frame.entry -in .diskSize.frame \
  710.         -anchor w -side left -padx 1m
  711.     pack .diskSize.frame -in .diskSize -padx 5m -pady 4m -anchor w
  712.  
  713.     MakeWarning .diskSize.warn 2 $panel(diskSize.hostDiskSpace)
  714.     MakeWarning .diskSize.warn2 1 $panel(diskSize.sizeLimitationText)
  715.     MakeWarning .diskSize.warn3 2 $panel(diskType.nfsWarnText)
  716.     
  717.     trace variable panel(diskSize.entry) w DiskSize_Set
  718. }
  719.  
  720. proc DiskSize_Set {name element op} {
  721.     global db panel
  722.  
  723.     regsub -all {[^0-9]} $panel(diskSize.entry) "" panel(diskSize.entry)
  724.  
  725.     set indx [.diskSize.frame.entry index insert]
  726.     
  727.     while {[string length $panel(diskSize.entry)] > 6} {
  728.         set panel(diskSize.entry) [string_delete $panel(diskSize.entry) $indx $indx]
  729.         incr indx -1
  730.     }
  731.  
  732.     if {$panel(diskSize.entry) == ""} {
  733.     } elseif {$panel(diskSize.entry) > 2047} {
  734.         pack forget .diskSize.warn
  735.         pack .diskSize.warn2 -in .diskSize -anchor w -pady 5m -padx 2m
  736.     } elseif {$panel(diskSize.entry) > $db(directory.mountPoint.available)} {
  737.         pack forget .diskSize.warn2
  738.         set text $panel(diskSize.hostDiskSpace)
  739.         regsub -all {\$diskSize} $text $panel(diskSize.entry) text
  740.         regsub -all {\$mountPoint} $text $db(directory.mountPoint.name) text
  741.         regsub -all {\$available} $text $db(directory.mountPoint.available) text
  742.         .diskSize.warn.msg configure -text $text
  743.         pack .diskSize.warn -in .diskSize -anchor w -pady 5m -padx 2m
  744.     } else {
  745.         pack forget .diskSize.warn2
  746.         pack forget .diskSize.warn
  747.     }
  748. }
  749.  
  750. proc DiskSize_Activate {} {
  751.     global panel db option
  752.  
  753.     if {0} {
  754.         # used to be here with rawdisk option
  755.         # obsolete now - this warning is in disk type panel
  756.         if {$db(directory.mountPoint.type) == "nfs"} {
  757.             regsub {\$mount} "$panel(diskType.nfsWarnText)" \
  758.                 $db(directory.mountPoint.name) text
  759.             .diskSize.warn3.msg configure -text $text
  760.             pack .diskSize.warn3 -in .diskSize -anchor w -pady 5m -padx 2m
  761.         } else {
  762.             pack forget .diskSize.warn3
  763.         }
  764.     }
  765.     
  766.     set panel(diskSize.entry) $db(diskSize)
  767.     focus .diskSize.frame.entry
  768.     .diskSize.frame.entry icursor end
  769. }
  770.  
  771. proc DiskSize_Deactivate {} {
  772.     global panel db
  773.     if {($panel(diskSize.entry) == "") || ($panel(diskSize.entry) == 0)} {
  774.         DialogWin .error "Wizard Error" $panel(diskSize.sizeZeroText) {} 0 OK
  775.         set panel(diskSize.entry) $db(diskSize)
  776.         .diskSize.frame.entry icursor 5
  777.         return retry
  778.     }
  779.     if {$panel(diskSize.entry) > 2047} {
  780.         DialogWin .error "Wizard Error" $panel(diskSize.sizeLimitationText) {} 0 OK
  781.         set panel(diskSize.entry) 2047
  782.         return retry
  783.     }
  784.     if {$panel(diskSize.entry) != $db(diskSize)} {
  785.         set db(diskSize) $panel(diskSize.entry)
  786.         set db(diskSize.userSet) 1
  787.     }
  788. }
  789.  
  790.  
  791. ##
  792. ## Safe rawdisk panel
  793. ##
  794.  
  795. set last ""
  796. foreach drive $db(hostRawDisk.drives) {
  797.     set panel(rawDisk_${drive}.title) {Rawdisk Permissions Setting}
  798.     set panel(rawDisk_${drive}.init) RawDisk_Init
  799.     set panel(rawDisk_${drive}.activate) RawDisk_Activate
  800.     set panel(rawDisk_${drive}.deactivate) RawDisk_Deactivate
  801.     if {$last != ""} {
  802.         set panel(${last}.next) rawDisk_${drive}
  803.     }
  804.     set last rawDisk_${drive}
  805.     set panel(rawDisk_${drive}.next) cdrom
  806.     set panel(rawDisk_${drive}.text) "The IDE drive /dev/$drive has been detected on your system. Please select which partition(s) you want the virtual machine to access. If you don't want the virtual machine to use this disk at all, select 'No Access' for all partitions."
  807.     set panel(rawDisk_${drive}.drive) $drive
  808. }
  809.  
  810. proc RawDisk_Init {name} {
  811.     global db panel
  812.  
  813.     set drive $panel(${name}.drive)
  814.     
  815.     frame .${name}.matrix -relief flat
  816.     
  817.     set column 0
  818.     
  819.     foreach header { "Partition" "No\nAccess" "Read\nOnly" "Read\nWrite" "Type" } {
  820.         label .${name}.matrix.h$header -text $header -anchor w -width 6
  821.         grid .${name}.matrix.h$header -in .${name}.matrix -column $column -row 0 \
  822.             -sticky w -pady 2m
  823.         incr column
  824.     }
  825.  
  826.     set row 1
  827.  
  828.     foreach part $db(hostRawDisk.${drive}.partitions) {
  829.         label .${name}.matrix.part${part}_label -text "/dev/${drive}${part}" -anchor w
  830.         grid .${name}.matrix.part${part}_label -in .${name}.matrix -column 0 -row $row \
  831.             -sticky w -padx 1m
  832.         
  833.         radiobutton .${name}.matrix.part${part}_none \
  834.             -variable db(rawDisk.${drive}.${part}.access) \
  835.             -value none
  836.         grid .${name}.matrix.part${part}_none -in .${name}.matrix -column 1 -row $row
  837.  
  838.         radiobutton .${name}.matrix.part${part}_ro \
  839.             -variable db(rawDisk.${drive}.${part}.access) \
  840.             -value ro
  841.         grid .${name}.matrix.part${part}_ro -in .${name}.matrix -column 2 -row $row
  842.  
  843.         radiobutton .${name}.matrix.part${part}_rw \
  844.             -variable db(rawDisk.${drive}.${part}.access) \
  845.             -value rw
  846.         grid .${name}.matrix.part${part}_rw -in .${name}.matrix -column 3 -row $row
  847.         
  848.         label .${name}.matrix.part${part}_type \
  849.             -text $db(hostRawDisk.${drive}.${part}.type)
  850.         grid .${name}.matrix.part${part}_type -in .${name}.matrix -column 4 -row $row \
  851.             -sticky w -padx 1m
  852.  
  853.         incr row
  854.     }
  855.  
  856.     pack .${name}.matrix -in .$name -anchor w -padx 5m
  857. }
  858.  
  859. proc RawDisk_Activate {} {
  860. }
  861.  
  862. # Check if ranges with different access rights overlap
  863. # Return 1 if everything is ok
  864. proc RawDisk_CheckOverlappingRanges {drive} {
  865.     global db
  866.  
  867.     set partitionList $db(hostRawDisk.${drive}.partitions)
  868.     for {set i 0} {$i < [llength $partitionList]} {incr i 1} {
  869.         set partition_i [lindex $partitionList $i]
  870.         for {set j [expr $i + 1]} {$j < [llength $partitionList]} {incr j 1} {
  871.             set partition_j [lindex $partitionList $j]
  872.             if {   ($db(rawDisk.${drive}.${partition_i}.access) != $db(rawDisk.${drive}.${partition_j}.access))
  873.         && [RawDisk_CheckOverlappingRange hostRawDisk.${drive}.${partition_i} hostRawDisk.${drive}.${partition_j}]} {
  874.                 DialogWin .warning "Overlapping partitions" "Partitions $i and $j overlap.\nConsequently, they should have the same access rights.\n\nClick on the OK button, then modify their access rights." {} 0 OK
  875.                 return 0
  876.         }
  877.         }
  878.     }
  879.  
  880.     return 1
  881. }
  882.  
  883. proc RawDisk_Deactivate {} {
  884.     global db panel
  885.     
  886.     set name $panel(current)
  887.     set drive $panel(${name}.drive)
  888.  
  889.     # The check for overlapping ranges has to handle complex dependancy
  890.     # situations like this:
  891.     #
  892.     # partition     access
  893.     # ------------  ------
  894.     # container       RO
  895.     #   contained1    RO
  896.     #   contained2    RO   <- The user sets this to RW
  897.     #
  898.     # In that case, container _and also contained1_ should be set to RW too.
  899.     # That's why I think here is the best place to handle such a case.
  900.  
  901.     # We must perform this check even when the user pressed the "Back" button
  902.     # because he could press on "Finish" just after
  903.     if {[RawDisk_CheckOverlappingRanges $drive] == 0} {
  904.        return retry
  905.     }
  906.  
  907.     set db(rawDisk.${drive}.used) 0
  908.     foreach part $db(hostRawDisk.${drive}.partitions) {
  909.         if {$db(rawDisk.${drive}.${part}.access) != "none"} {
  910.             set db(rawDisk.${drive}.used) 1
  911.             break
  912.         }
  913.     }
  914.  
  915.     return ""
  916. }
  917.  
  918.  
  919.  
  920. ##
  921. ## CDROM panel
  922. ##
  923.  
  924. set panel(cdrom.title) {CD-ROM Device Setting}
  925. set panel(cdrom.init) CDROM_Init
  926. set panel(cdrom.activate) CDROM_Activate
  927. set panel(cdrom.deactivate) CDROM_Deactive
  928. set panel(cdrom.next) floppy
  929.  
  930. if {$db(cdrom.present)} {
  931.     set panel(cdrom.text) {A CD-ROM drive was detected on your host system. Do you want the virtual machine to see and access the CD-ROM?}
  932. } else {
  933.     set panel(cdrom.text) {No CD-ROM was detected on the host. If you have a CD-ROM on the host and you want the virtual machine to use it please enter its location.}
  934. }
  935.  
  936. set panel(cdrom.fileWarnText) {The device you have selected is not present on the host machine. Do you want to continue?}
  937.  
  938. proc CDROM_Init {name} {
  939.     global db
  940.  
  941.     radiobutton .cdrom.disabled -text "CD-ROM Disabled" -variable db(cdrom.wanted) \
  942.         -value 0 -anchor w -padx 5m -command CDROM_Set
  943.     
  944.     radiobutton .cdrom.enabled -text "CD-ROM Enabled" -variable db(cdrom.wanted) \
  945.         -value 1 -anchor w -padx 5m -command CDROM_Set
  946.  
  947.     frame .cdrom.frame -relief flat
  948.     entry .cdrom.frame.fileName -width 20 -relief sunken -bd 2 -textvariable db(cdrom.fileName)
  949.     button .cdrom.frame.browse -text "Browse..." -command CDROM_Browse
  950.  
  951.     pack .cdrom.frame.fileName .cdrom.frame.browse -in .cdrom.frame -side left \
  952.         -pady 1m -padx 1m
  953.     pack .cdrom.disabled .cdrom.enabled .cdrom.frame -in .cdrom -anchor w
  954.  
  955.     CDROM_Set
  956. }
  957.  
  958. proc CDROM_Activate {} {
  959.     focus .cdrom.frame.fileName
  960.     .cdrom.frame.fileName icursor end
  961. }
  962.  
  963. proc CDROM_Deactive {} {
  964.     global db panel
  965.     if {$db(cdrom.wanted) && ![file exists $db(cdrom.fileName)]} {
  966.         set ret [DialogWin .error "Wizard Warning" $panel(cdrom.fileWarnText) \
  967.                      {} 0 No Yes]
  968.         if {$ret == 0} {
  969.             return retry
  970.         } 
  971.     }
  972. }
  973.  
  974. proc CDROM_Set {} {
  975.     global db
  976.     if {$db(cdrom.wanted)} {
  977.         pack .cdrom.frame -in .cdrom -anchor w -padx 15m
  978.     } else {
  979.         pack forget .cdrom.frame
  980.     }
  981. }
  982.  
  983. proc CDROM_Browse {} {
  984.     global db
  985.     set ret [tk_getOpenFile -initialdir /dev]
  986.     if {$ret != ""} {
  987.         set db(cdrom.fileName) $ret
  988.     }
  989. }
  990.  
  991.  
  992. ##
  993. ## Floppy panel
  994. ##
  995.  
  996. set panel(floppy.title) {Floppy Device Setting}
  997. set panel(floppy.init) Floppy_Init
  998. set panel(floppy.activate) Floppy_Activate
  999. set panel(floppy.deactivate) Floppy_Deactive
  1000. set panel(floppy.next) networking
  1001.  
  1002. if {$db(floppy.present)} {
  1003.     set panel(floppy.text) {A floppy drive was detected on your host system. Do you want the virtual machine to see and access the floppy?}
  1004. } else {
  1005.     set panel(floppy.text) {No floppy was detected on the host. If you have a floppy on the host and you want the virtual machine to use it please enter its location.}
  1006. }
  1007.  
  1008. set panel(floppy.fileWarnText) {The device you have selected is not present on the host machine. Do you want to continue?}
  1009.  
  1010.  
  1011. proc Floppy_Init {name} {
  1012.     global db
  1013.  
  1014.     radiobutton .floppy.disabled -text "Floppy Disabled" -variable db(floppy.wanted) \
  1015.         -value 0 -anchor w -padx 5m -command Floppy_Set
  1016.     
  1017.     radiobutton .floppy.enabled -text "Floppy Enabled" -variable db(floppy.wanted) \
  1018.         -value 1 -anchor w -padx 5m -command Floppy_Set
  1019.  
  1020.     frame .floppy.frame -relief flat
  1021.     entry .floppy.frame.fileName -width 20 -relief sunken -bd 2 -textvariable db(floppy.fileName)
  1022.     button .floppy.frame.browse -text "Browse..." -command Floppy_Browse
  1023.  
  1024.     pack .floppy.frame.fileName .floppy.frame.browse -in .floppy.frame -side left \
  1025.         -pady 1m -padx 1m
  1026.     pack .floppy.disabled .floppy.enabled .floppy.frame -in .floppy -anchor w
  1027.  
  1028.     Floppy_Set
  1029. }
  1030.  
  1031. proc Floppy_Activate {} {
  1032.     focus .floppy.frame.fileName
  1033.     .floppy.frame.fileName icursor end
  1034. }
  1035.  
  1036. proc Floppy_Deactive {} {
  1037.     global db panel
  1038.     if {$db(floppy.wanted) && ![file exists $db(floppy.fileName)]} {
  1039.         set ret [DialogWin .error "Wizard Warning" $panel(floppy.fileWarnText) \
  1040.                      {} 0 No Yes]
  1041.         if {$ret == 0} {
  1042.             return retry
  1043.         } 
  1044.     }
  1045. }
  1046.  
  1047. proc Floppy_Set {} {
  1048.     global db
  1049.     if {$db(floppy.wanted)} {
  1050.         pack .floppy.frame -in .floppy -anchor w -padx 15m
  1051.     } else {
  1052.         pack forget .floppy.frame
  1053.     }
  1054. }
  1055.  
  1056. proc Floppy_Browse {} {
  1057.     global db
  1058.     set ret [tk_getOpenFile -initialdir /dev]
  1059.     if {$ret != ""} {
  1060.         set db(floppy.fileName) $ret
  1061.     }
  1062. }
  1063.  
  1064.  
  1065. ##
  1066. ## Networking panel
  1067. ##
  1068.  
  1069. set panel(networking.title) {Networking Setting}
  1070. set panel(networking.init) Networking_Init
  1071. set panel(networking.activate) <null>
  1072. set panel(networking.deactivate) <null>
  1073. set panel(networking.next) confirm
  1074.  
  1075. set panel(networking.text) {A virtual machine can be connected to other systems through standard networking protocols. Please select the networking option for your virtual machine.}
  1076.  
  1077. set panel(networking.noneText) {Your virtual machine will be a stand-alone system. It will not be networked and therefore not able to communicate with other systems.}
  1078. set panel(networking.bridgedText) {Your virtual machine will be bridged to the outside network. It will appear as a separate machine on the host machine's subnet. The operating system will require proper network configuration. Please contact your network administrator in order to get proper settings.}
  1079. set panel(networking.hostOnlyText) {Your virtual machine will only be able to talk to the host operating system through an internal virtual network.}
  1080.  
  1081. proc Networking_Init {name} {
  1082.     global install panel
  1083.  
  1084.     radiobutton .networking.none -text "No Networking" -variable db(networking) \
  1085.         -value none -anchor w -padx 5m -command Networking_Set
  1086.     
  1087.     radiobutton .networking.bridged -text "Bridged Networking" -variable db(networking) \
  1088.         -value bridged -anchor w -padx 5m -command Networking_Set
  1089.     
  1090.     pack .networking.none .networking.bridged -in .networking -anchor w
  1091.     
  1092.     if {[info exists install(HostOnly)]} {
  1093.         radiobutton .networking.hostOnly -text "Host-only Networking" \
  1094.             -variable db(networking) -command Networking_Set \
  1095.             -value hostOnly -anchor w -padx 5m 
  1096.         pack .networking.hostOnly -in .networking -anchor w
  1097.     }
  1098.     
  1099.     message .networking.msg2 -justify left -text $panel(networking.noneText) -width $panel(width) -pady 5m
  1100.     pack .networking.msg2 -in .networking -anchor w
  1101. }
  1102.  
  1103. proc Networking_Set {} {
  1104.     global db panel
  1105.     switch $db(networking) {
  1106.         none     { .networking.msg2 configure -text $panel(networking.noneText) }
  1107.         bridged  { .networking.msg2 configure -text $panel(networking.bridgedText) }
  1108.         hostOnly { .networking.msg2 configure -text $panel(networking.hostOnlyText) }
  1109.     }
  1110. }
  1111.  
  1112.  
  1113. ##
  1114. ## Confirmation panel
  1115. ##
  1116.  
  1117. set panel(confirm.title) {Confirmation}
  1118. set panel(confirm.init) Confirm_Init
  1119. set panel(confirm.activate) Confirm_Activate
  1120. set panel(confirm.deactivate) Confirm_Deactivate
  1121. set panel(confirm.next) <null>
  1122. set panel(confirm.text) {Congratulations! You have finished configuring your virtual machine. Please review the following information and make sure that all is correct. You can go back in order to change these settings.}
  1123.  
  1124. set panel(confirm.configText) {You have configured the following virtual machine:}
  1125. set panel(confirm.fileText) {You can fine tune these settings and configure more options (like the use of parallel and serial ports) at any time using the VMware Configuration Editor.
  1126.  
  1127. By clicking on the "Done" button, the following will be created:}
  1128.  
  1129. set panel(confirm.font) *-courier-bold-r-normal--12-120-*-*-*-*-*-*
  1130.  
  1131. proc Confirm_Init {name} {
  1132.     global panel
  1133.     
  1134.     message .confirm.configMsg  -justify left -width $panel(width) -pady 3m -text $panel(confirm.configText) 
  1135.     message .confirm.configInfo -justify left -width $panel(width) -padx 5m -font $panel(confirm.font)
  1136.     message .confirm.fileMsg    -justify left -width $panel(width) -pady 3m -text $panel(confirm.fileText)
  1137.     message .confirm.fileInfo   -justify left -width $panel(width) -padx 5m -font $panel(confirm.font)
  1138.     
  1139.     pack .confirm.configMsg .confirm.configInfo .confirm.fileMsg .confirm.fileInfo -in .confirm -anchor w
  1140. }
  1141.  
  1142. proc Confirm_Activate {} {
  1143.     global db
  1144.     
  1145.     .nav.next configure -state disabled -default normal
  1146.     .nav.finish configure -text Done -default active -underline 0
  1147.  
  1148.     bind . <KeyPress-Return> Save
  1149.     bind . <Alt-KeyPress-d> Save
  1150.     bind . <Alt-KeyPress-f> {}
  1151.     bind . <Alt-KeyPress-n> {}
  1152.  
  1153.     # .confirm.configMsg configure -text "You have configured the following virtual machine to run $db(OS.name)."
  1154.     
  1155.     set config "$db(memorySize) megabytes of RAM"
  1156.  
  1157.     if {$db(diskType) == "file"} {
  1158.         set config "${config}\n$db(diskSize) megabytes persistent hard disk"
  1159.     } else {
  1160.         foreach drive $db(hostRawDisk.drives) {
  1161.             if {$db(rawDisk.${drive}.used)} {
  1162.                 set config "${config}\nrawdisk /dev/$drive"
  1163.             }
  1164.         }
  1165.     }
  1166.  
  1167.     if {$db(cdrom.wanted)} {
  1168.         set config "${config}\n1 CD-ROM drive"
  1169.     }
  1170.  
  1171.     if {$db(floppy.wanted)} {
  1172.         set config "${config}\n1 floppy drive"
  1173.     }
  1174.  
  1175.     if {$db(networking) == "bridged"} {
  1176.         set config "${config}\nbridged networking"
  1177.     } elseif {$db(networking) == "hostOnly"} {
  1178.         set config "${config}\nhost only networking"
  1179.     }
  1180.     
  1181.     .confirm.configInfo configure -text $config
  1182.  
  1183.     set files "$db(directory)"
  1184.     set files "$files\n$db(directory)$db(OS.name).cfg"
  1185.     if {$db(diskType) == "file"} {
  1186.         set files "$files\n$db(directory)$db(OS.name).dsk"
  1187.     } else {
  1188.         foreach drive $db(hostRawDisk.drives) {
  1189.             if {$db(rawDisk.${drive}.used)} {
  1190.                 set files "$files\n$db(directory)$db(OS.name).${drive}"
  1191.             }
  1192.         }
  1193.     }
  1194.     set files "$files\n$db(directory)$db(OS.name).nvram"
  1195.     set files "$files\n$db(directory)$db(OS.name).log"
  1196.     
  1197.     .confirm.fileInfo configure -text $files
  1198. }
  1199.  
  1200. proc Confirm_Deactivate {} {
  1201.     .nav.next configure -state normal -default active
  1202.     .nav.finish configure -text Finish -default normal -underline 0
  1203.     bind . <KeyPress-Return> Next
  1204.     bind . <Alt-KeyPress-n> Next
  1205.     bind . <Alt-KeyPress-f> Finish
  1206.     bind . <Alt-KeyPress-d> {}
  1207. }
  1208.  
  1209.  
  1210. ############################################################
  1211. ###
  1212. ### navigation bar
  1213. ###
  1214. ############################################################
  1215.  
  1216. frame .nav -width $panel(width) -height 2i -relief flat
  1217.  
  1218. button .nav.help   -width 8 -text "Help"   -command Help   -underline 0
  1219. button .nav.cancel -width 8 -text "Cancel" -command Cancel -underline 0
  1220. button .nav.prev   -width 8 -text "< Prev" -command Prev   -underline 2
  1221. button .nav.next   -width 8 -text "Next >" -command Next   -underline 0 -default active
  1222. button .nav.finish -width 8 -text "Finish" -command Finish -underline 0 -default normal
  1223.  
  1224. focus .nav.next
  1225.  
  1226. bind . <KeyPress-Return> Next
  1227.  
  1228. bind . <Alt-KeyPress-h> Help
  1229. bind . <Alt-KeyPress-c> Cancel
  1230. bind . <Alt-KeyPress-p> Prev
  1231. bind . <Alt-KeyPress-n> Next
  1232. bind . <Alt-KeyPress-f> Finish
  1233.  
  1234. pack .nav.help .nav.cancel .nav.prev .nav.next .nav.finish -in .nav -side left -padx 1m -pady 2m
  1235.  
  1236.  
  1237. proc Help {} {
  1238.     global help panel
  1239.  
  1240.     if {[string match {rawDisk_hd[a-d]} $panel(current)]
  1241.         || ($panel(current) == "safeDisk")} {
  1242.         set p rawDisk
  1243.     } else {
  1244.         set p $panel(current)
  1245.     }
  1246.     
  1247.     helpWindow .help $panel($p.title) $help($p.text) $help($p.urls)
  1248. }
  1249.  
  1250. proc Cancel {} {
  1251.     global option
  1252.     if {$option(outputFileName)} {
  1253.         puts "file:"
  1254.     }
  1255.     exit
  1256. }
  1257.  
  1258. proc Activate {newPanel} {
  1259.     global panel
  1260.     set panel(current) $newPanel
  1261.     focus .nav.next
  1262.     if {$panel($panel(current).activate) != "<null>"} {
  1263.         $panel($panel(current).activate)
  1264.     }    
  1265.     pack .$panel(current) -anchor w -padx 5m
  1266.     if {[winfo exists .help]} {
  1267.         Help
  1268.     }
  1269. }
  1270.  
  1271. proc Deactivate {} {
  1272.     global panel started
  1273.     set started 0
  1274.     set ret ""
  1275.     if {$panel($panel(current).deactivate) != "<null>"} {
  1276.         if {[$panel($panel(current).deactivate)] == "retry"} {
  1277.             return retry
  1278.         }
  1279.     }
  1280.     pack forget .$panel(current)
  1281. }
  1282.  
  1283. proc Next {} {
  1284.     global panel
  1285.     if {[Deactivate] != "retry"} {
  1286.         set panel(stack) [linsert $panel(stack) 0 $panel(current)]
  1287.         Activate $panel($panel(current).next)
  1288.     }
  1289. }
  1290.  
  1291. proc Prev {} {
  1292.     global panel
  1293.     if {[Deactivate] != "retry"} {
  1294.         set next [lindex $panel(stack) 0]
  1295.         set panel(stack) [lreplace $panel(stack) 0 0]
  1296.         Activate $next
  1297.     }
  1298. }
  1299.  
  1300. proc Finish {} {
  1301.     global panel
  1302.     if {$panel(current) == "confirm"} {
  1303.         # The user clicked on the "Done" button
  1304.         Save
  1305.     } else {
  1306.         if {[Deactivate] != "retry"} {
  1307.             set panel(stack) [linsert $panel(stack) 0 $panel(current)]
  1308.             Activate confirm
  1309.         }
  1310.     }
  1311. }
  1312.  
  1313.  
  1314.  
  1315. ############################################################
  1316. ###
  1317. ### save configuration
  1318. ###
  1319. ### XXX We should ensure that the user will not use more
  1320. ### than 3 or 4 (depending on the CDROM choice) raw disks
  1321. ###
  1322. ############################################################
  1323.  
  1324. proc Save {} {
  1325.     global db install option
  1326.  
  1327.     # Create the list of used hard drives
  1328.     set usedDrives {}
  1329.     foreach drive $db(hostRawDisk.drives) {
  1330.     if {$db(rawDisk.${drive}.used)} {
  1331.         lappend usedDrives $drive
  1332.     }
  1333.     }
  1334.  
  1335.     ##
  1336.     ## sanity checks / make directory
  1337.     ##
  1338.     
  1339.     if {[file exists $db(directory)]} {
  1340.         if {![file isdirectory $db(directory)]} {
  1341.             DialogWin .error "Configuration Wizard Error" \
  1342.                 "$db(directory) already exists and it is not a directory." {} 0 OK
  1343.             return
  1344.         }
  1345.         
  1346.         if {$db(diskType) == "file"} {
  1347.             if {[file exists [file join $db(directory) $db(OS.name).dsk]]} {
  1348.                 if {[DialogWin .error "File Exists" \
  1349.                          "$db(directory)$db(OS.name).dsk exists, overwrite it?" {} 1 Yes No] == 1} {
  1350.                     return
  1351.                 }
  1352.                 file delete [file join $db(directory) $db(OS.name).dsk]
  1353.             }
  1354.         } else {
  1355.             foreach drive $usedDrives {
  1356.         if {[file exists [file join $db(directory) "$db(OS.name).$drive"]]} {
  1357.             if {[DialogWin .error "File Exists" \
  1358.                  "$db(directory)$db(OS.name).$drive exists, overwrite it?" \
  1359.                  {} 1 Yes No] == 1} {
  1360.             return
  1361.             }
  1362.         }
  1363.             }
  1364.         }
  1365.  
  1366.         if {[file exists [file join $db(directory) $db(OS.name).cfg]]} {
  1367.             if {[DialogWin .error "File Exists" \
  1368.                      "$db(directory)$db(OS.name).cfg exists, overwrite it?" {} 1 Yes No] == 1} {
  1369.                 return
  1370.             }
  1371.         }
  1372.     } else {        
  1373.     # The directory does not exist, create it
  1374.         if {[catch {file mkdir $db(directory)} err]} {
  1375.             DialogWin .error "Configuration Wizard Error" \
  1376.                 "Failed to make $db(directory): $err" {} 0 OK
  1377.             return
  1378.         }
  1379.     }
  1380.     
  1381.  
  1382.     ##
  1383.     ## make disk
  1384.     ##
  1385.  
  1386.     if {$db(diskType) == "file"} {
  1387.         set heads 15
  1388.         set secs 63
  1389.         set cyls [expr {($db(diskSize)*2048) / ($heads*$secs)}] 
  1390.         
  1391.         if {[CreateCOWDisk $db(directory)/$db(OS.name).dsk $cyls $heads $secs]} {
  1392.             return
  1393.         }
  1394.     } else {
  1395.         foreach drive $usedDrives {
  1396.         RawDisk_Save $drive $db(directory)$db(OS.name).$drive
  1397.         }
  1398.     }
  1399.     
  1400.     ##
  1401.     ## make config file
  1402.     ##
  1403.  
  1404.     if {[catch {set fd [open [file join $db(directory) $db(OS.name).cfg] w]} err]} {
  1405.         DialogWin .error "Configuration Wizard Error" \
  1406.             "Failed to open $db(directory)$db(OS.name).cfg: $err" {} 0 OK
  1407.         return
  1408.     }
  1409.  
  1410.     if {[info exists install(vmware.fullpath)]} {
  1411.         puts $fd "\#!$install(vmware.fullpath)"
  1412.     }
  1413.     
  1414.     set prefixes { "ide0:0" "ide0:1" "ide1:0" "ide1:1" }
  1415.  
  1416.     if {$db(diskType) == "file"} {
  1417.         # Get the next prefix
  1418.     set prefix [lindex $prefixes 0]
  1419.     set prefixes [lreplace $prefixes 0 0]
  1420.  
  1421.         puts $fd "\n\# Virtual hard disk on primary master"
  1422.         puts $fd "${prefix}.present = TRUE"
  1423.         puts $fd "${prefix}.fileName = $db(directory)$db(OS.name).dsk"
  1424.         puts $fd "${prefix}.deviceType = ata-hardDisk"
  1425.         puts $fd "${prefix}.mode = persistent"
  1426.     } else {
  1427.         # Compute the number of availbale IDE slots for hard drives
  1428.     if {$db(cdrom.wanted)} {
  1429.            set maxDisk 3
  1430.         } else {
  1431.            set maxDisk 4
  1432.         }
  1433.  
  1434.         # Restrict the number of hard drives to declare in the config file
  1435.         if {[llength $usedDrives] > $maxDisk} {
  1436.             DialogWin .error "Configuration Wizard Warning" "There are not enough IDE slots in the Virtual Machine to place all your hard drives.\n\nAlthough a safe raw disk file will be generated for all your hard drives, the Virtual Machine configuration file will only use the first $maxDisk of them." {} 0 OK
  1437.             set cfgDrives [lrange $usedDrives 0 [expr $maxDisk - 1]]
  1438.     } else {
  1439.             set cfgDrives $usedDrives
  1440.     }
  1441.  
  1442.         foreach drive $cfgDrives {
  1443.         # Get the next prefix
  1444.         set prefix [lindex $prefixes 0]
  1445.         set prefixes [lreplace $prefixes 0 0]
  1446.  
  1447.         puts $fd "\n\# Raw hard disk /dev/$drive"
  1448.         puts $fd "${prefix}.present = TRUE"
  1449.         puts $fd "${prefix}.fileName = $db(directory)$db(OS.name).$drive"
  1450.         puts $fd "${prefix}.deviceType = rawDisk"
  1451.         puts $fd "${prefix}.mode = persistent"
  1452.         }
  1453.     }
  1454.     
  1455.     if {$db(cdrom.wanted)} {
  1456.         if {$db(diskType) == "part"} { 
  1457.         # Get the next prefix
  1458.         set prefix [lindex $prefixes 0]
  1459.         set prefixes [lreplace $prefixes 0 0]
  1460.         } else {
  1461.         # Get the next prefix
  1462.         set prefix [lindex $prefixes 0]
  1463.         set prefixes [lreplace $prefixes 0 0]
  1464.         # Get the next prefix
  1465.         set prefix [lindex $prefixes 0]
  1466.         set prefixes [lreplace $prefixes 0 0]
  1467.         }
  1468.         
  1469.         puts $fd "\n\# CD-ROM"
  1470.         puts $fd "${prefix}.present = TRUE"
  1471.         puts $fd "${prefix}.fileName = $db(cdrom.fileName)"
  1472.         puts $fd "${prefix}.deviceType = atapi-cdrom"
  1473.     } else {
  1474.         puts $fd "\n\# No cdrom installed"
  1475.     }
  1476.     
  1477.     if {$db(floppy.wanted)} {
  1478.         puts $fd "\n\# Floppy"
  1479.         puts $fd "floppy0.present = TRUE"
  1480.         puts $fd "floppy0.fileName = $db(floppy.fileName)"
  1481.     } else {
  1482.         puts $fd "\n\# No floppy installed"
  1483.         puts $fd "floppy0.present = FALSE"
  1484.     }
  1485.  
  1486.     switch $db(networking) {
  1487.         "none" {
  1488.             puts $fd "\n\# No networking installed"            
  1489.         }
  1490.         "bridged" {
  1491.             puts $fd "\n\# Networking bridged to real ethernet"            
  1492.             puts $fd "ethernet0.present = TRUE"
  1493.             puts $fd "ethernet0.connectionType = bridged"
  1494.         }
  1495.         "hostOnly" {
  1496.             puts $fd "\n\# Networked to host only subnet "            
  1497.             puts $fd "ethernet0.present = TRUE"
  1498.             puts $fd "ethernet0.connectionType = hostOnly"
  1499.         }
  1500.     }
  1501.  
  1502.     puts $fd "\n\# Memory size"
  1503.     puts $fd "memsize = $db(memorySize)"
  1504.  
  1505.     puts $fd "\n\# Nvram"
  1506.     puts $fd "nvram = $db(directory)$db(OS.name).nvram"
  1507.  
  1508.     puts $fd "\n\# Log file"
  1509.     puts $fd "log.fileName = $db(directory)$db(OS.name).log"
  1510.  
  1511.     puts $fd "\n\# Hints"
  1512.     if {$db(OS) != "other"} {
  1513.         puts $fd "hint.guestOS = $db(OS)"
  1514.     } else {
  1515.         puts $fd "hint.guestOS = $db(OS):$db(OS.name)"
  1516.     }
  1517.     
  1518.     if {$db(OS) == "win2000"} {
  1519.         puts $fd "\n\# SVGA"
  1520.         puts $fd "PciSvgaDynamic = TRUE"
  1521.     }
  1522.  
  1523.     exec $db(helper.chmod) u+x $db(directory)/$db(OS.name).cfg
  1524.     
  1525.     close $fd
  1526.     
  1527.     
  1528.     ##
  1529.     ## all done
  1530.     ##
  1531.  
  1532.     if {$option(outputFileName)} {
  1533.         puts "file:$db(directory)$db(OS.name).cfg"
  1534.     }
  1535.     
  1536.     exit
  1537. }
  1538.  
  1539. proc CreateCOWDisk {fileName cyls heads secs} {
  1540.     set sectorSize         512
  1541.     set numLeafEntries     512
  1542.     set defaultGran        32 
  1543.     set defaultRootOffset  4 
  1544.  
  1545.     set numSectors [expr {$cyls * $heads * $secs}]
  1546.     set leafCoverage [expr {$numLeafEntries * $defaultGran}]
  1547.     set numRootEntries [expr {int(ceil(($numSectors*1.0) / $leafCoverage))}]
  1548.     set numRootSectors [expr {int(ceil(($numRootEntries*4.0) / $sectorSize))}]
  1549.     set size [expr {($numRootSectors+$defaultRootOffset) * $sectorSize}]
  1550.     set generation [random 1073741824]
  1551.  
  1552.     set header [binary format "a4iiiiiiiiii@1060ia60a512i@$size" \
  1553.                     "COWD" \
  1554.                     1 \
  1555.                     3 \
  1556.                     $numSectors \
  1557.                     $defaultGran \
  1558.                     $defaultRootOffset \
  1559.                     $numRootEntries \
  1560.                     0 \
  1561.                     $cyls \
  1562.                     $heads \
  1563.                     $secs \
  1564.                     $generation \
  1565.                     "nothing" \
  1566.                     "nothing" \
  1567.                     $generation ]
  1568.  
  1569.     if {[set fd [open $fileName w]] < 0} {
  1570.         return 1
  1571.     }
  1572.  
  1573.     puts -nonewline $fd $header
  1574.     close $fd
  1575.     return 0
  1576. }
  1577.  
  1578.  
  1579. ############################################################
  1580. ###
  1581. ### window
  1582. ###
  1583. ############################################################
  1584.  
  1585. image create photo logoimage -file images/logo.gif
  1586. canvas .logo -width 1.5i -height 6i -background white -yscrollincrement 1
  1587. .logo create image 1.5i 3i -anchor e -image logoimage -tag egg 
  1588. .logo bind egg <Control-ButtonPress-3> startLogo
  1589. .logo bind egg <ButtonPress-1> gotoWebsite
  1590.  
  1591. set started 0
  1592.  
  1593. proc gotoWebsite {} {
  1594.     global db
  1595.  
  1596.     if [catch {exec $db(helper.netscape) -remote "openURL(www.vmware.com, vmware-window, raise)" >& /dev/null}] {
  1597.         if [catch {exec $db(helper.netscape) www.vmware.com >& /dev/null &}] {
  1598.             DialogWin .error "Help Error" "Can't open $db(helper.netscape)." {} 0 OK
  1599.         }
  1600.     }
  1601. }
  1602.  
  1603. proc startLogo {} {
  1604.     global increment started
  1605.  
  1606.     if {!$started} {
  1607.         set increment -1
  1608.         set started 1
  1609.         moveLogo
  1610.     } elseif {$started > 5} {
  1611.         set started 0
  1612.         moveLogo
  1613.         DialogWin .winner "Configuration Wizard" "mendel\nbugnion\ndevine\nedward\nyoel\npatrick\nbhlim\nluigi\nbennett\njohnh\nmnelson\nsam\nhpreg\nchris" {} 0 OK
  1614.     } else {
  1615.         incr started
  1616.         set increment [expr {-1 * ($increment + $increment)}]    
  1617.     }
  1618.  
  1619. }
  1620.  
  1621. proc moveLogo {} {
  1622.     global increment started
  1623.     if {!$started} {
  1624.         .logo yview moveto 0
  1625.     } else {
  1626.         .logo yview scroll $increment units
  1627.         after 30 moveLogo
  1628.     }
  1629. }
  1630.  
  1631. wm title . "VMware for Linux Configuration Wizard"
  1632.  
  1633. pack .logo -fill y -side left
  1634. pack .nav -side bottom -padx 5m
  1635.  
  1636. NewPanel welcome
  1637. NewPanel os 
  1638. NewPanel dir
  1639. NewPanel diskType
  1640. NewPanel diskSize
  1641.  
  1642. foreach drive $db(hostRawDisk.drives)  {
  1643.     NewPanel rawDisk_${drive}
  1644. }
  1645.  
  1646. NewPanel cdrom
  1647. NewPanel floppy
  1648. NewPanel networking
  1649. NewPanel confirm
  1650.  
  1651. if {[info exists option(safedisk)]} {
  1652.     set drive $option(safedisk)
  1653.     
  1654.     GetRawDiskInfo $drive
  1655.  
  1656.  
  1657.     if {![info exists db(hostRawDisk.$option(safedisk).partitions)]} {
  1658.           puts "$drive is not a valid drive"
  1659.       exit
  1660.     }
  1661.     
  1662.     set panel(safeDisk.title) {Rawdisk Permissions Setting}
  1663.     set panel(safeDisk.init) RawDisk_Init
  1664.     set panel(safeDisk.activate) SafeDisk_Activate
  1665.     set panel(safeDisk.deactivate) SafeDisk_Deactivate
  1666.     set panel(safeDisk.next) cdrom
  1667.     set panel(safeDisk.text) "The IDE drive /dev/$drive has been detected on your system. Please select which partition(s) you want the virtual machine to access."
  1668.     set panel(safeDisk.drive) $drive
  1669.     
  1670.     proc SafeDisk_Activate {} {
  1671.         .nav.prev configure -state disabled -default normal
  1672.         .nav.next configure -state disabled -default normal
  1673.         .nav.finish configure -text Done -default active -underline 0
  1674.     }
  1675.     
  1676.     proc SafeDisk_Deactivate {} {
  1677.         global option
  1678.  
  1679.         set fileName [tk_getSaveFile -initialfile "safe_$option(safedisk)" \
  1680.                          -title "Save File As"]
  1681.         if {$fileName == ""} {
  1682.             return retry
  1683.         }
  1684.  
  1685.         RawDisk_Save $option(safedisk) $fileName
  1686.         exit
  1687.     }
  1688.  
  1689.     NewPanel safeDisk
  1690.     set panel(current) safeDisk
  1691. }
  1692.  
  1693. Activate $panel(current)
  1694.  
  1695. # Update the appearance of the (hidden) main window
  1696. update
  1697.  
  1698. # Show the main window
  1699. wm deiconify .
  1700.  
  1701. # Enter the main window event loop
  1702. tkwait window .
  1703. exit
  1704.