home *** CD-ROM | disk | FTP | other *** search
/ PCNET 2006 September - Disc 1 / PCNET_CD_2006_09.iso / linux / puppy-barebones-2.01r2.iso / pup_201.sfs / usr / lib / mut / mut.tcl < prev   
Encoding:
Tcl/Tk script  |  2006-06-17  |  44.1 KB  |  1,459 lines
  1. #!/usr/bin/wish
  2. #
  3. # MUT written by Jesse Liley for Puppy Linux 2005
  4. # bugs, fixes, suggestions, email: Jesse.Liley@gmail.com
  5. #
  6. # Free software, use at own risk! LGPL, please keep comments.
  7. #
  8. # Images used taken from Mandrake Linux download 10.0 /usr/share/icons
  9. # So I hope they are free to distribute :-)
  10. #
  11.  
  12. package require Tcl 8.5
  13.  
  14. #Here you can set mount points that MUT will not allow to be unmounted.
  15. lappend NoUnmounts "/"  ; # This one is a generic for any Linux, its actually quite bad to unmount this one.
  16. if {![file exists /etc/multisessionmediatype]} {
  17.     # this file /etc/multisessionmediatype indicates that 
  18.     lappend NoUnmounts "/mnt/home"  ; # This one is a Puppy Linux specific one, it is the container fs for pup001 file
  19. }
  20. #lappend NoUnmounts "/mnt/home" ; #add any more here, as many as you like, don't forget to uncomment.
  21.  
  22. #Puppy2 very specific: never unmount anything under /initrd/
  23. lappend PuppyNoUnmount "/initrd/"
  24.  
  25. #Here you can set devices that start out not being scanned, e.g. for if the scan time takes a while and you don't really want to wait every refresh.
  26. array unset NoScanMedia   ;# this line defines the array.
  27. set NoScanMedia(fd0) "noscan"  ;# floppy disk is fd0
  28. set NoScanMedia(fd1) "noscan"  ;# second floppy disk is fd1, this is ok if one or none floppy drives in system.
  29. #set NoScanMedia(fd0) "noscan" ;# add others, replace fd0 with device name
  30.  
  31.  
  32.  
  33. # Here in this function you can change the scripted events attached to MUT click actions (mounting etc...)
  34.  
  35. proc trigger_external_event {event device} {
  36.     set mounted 0
  37.     set dev $device
  38.     if {[info exists ::etc_fstab($dev)]} {
  39.         set mntloc "$::etc_fstab($dev)"
  40.     } else {
  41.         set mntloc "/mnt/$dev"
  42.     }
  43.     # if we chose bad, allow fallback to some other location.
  44.     foreach devpath [array names ::mounteds] {
  45.         set d [lindex [split $devpath / ] end]
  46.         set mp [lindex [split $::mounteds($devpath) | ] 0 ]
  47.         if {$mp == $mntloc && $dev != $d} {
  48.             set mntloc "/mnt/$dev"
  49.         }
  50.     }
  51.  
  52.     set rescan_delay 2000
  53.     catch {
  54.         set mntloc [lindex [split $::mounteds(/dev/$dev) |] 0]
  55.         set mounted 1
  56.     }
  57.     if {$::debug} { puts "User clicked on action with device $event /dev/$dev $mntloc $mounted" }
  58.     switch $event {
  59.         "cdplay" {   ;# Commands to open application to play audio CD
  60.                 set cdinfo ""
  61.                 catch "exec $::mut/bin/cdrominfo /dev/$dev -p" cdinfo
  62.                 if {$::debug} {puts "got cdinfo for /dev/$dev, which is  $cdinfo"}
  63.                 if { [lindex [split $cdinfo '|'] 7] == "Audio" || [lindex [split $cdinfo '|'] 7] == "Mixed"} {
  64.                     catch "exec /usr/local/bin/gplaycd -c /dev/$dev &"
  65.                 }
  66.                 set rescan_delay 200
  67.             }
  68.         "cdmount" {  ;# Commands to open application to show data files on CD
  69.                 catch "exec mkdir $mntloc"
  70.                 set fs "iso9660"
  71.                 catch "exec mount /dev/$dev $mntloc -t iso9660"
  72.                 catch "exec rox -d $mntloc"
  73.                 catch {exec "mount > /etc/mtab"}
  74.                 set rescan_delay 500
  75.             }
  76.         "cdunmount" {;# Commands to close application to show data files on CD
  77.                 catch "exec rox -D $mntloc"
  78.                 catch "exec fuser -k -m $mntloc"
  79.                 catch "exec umount $mntloc"
  80.                 catch {exec "mount > /etc/mtab"}
  81.                 set rescan_delay 500
  82.             }
  83.         "mount" {   ;# Commands to open application to show data files on disk
  84.                 catch "exec mkdir $mntloc"
  85.                 set fs ""
  86.                 catch "exec $::mut/bin/guess_fstype /dev/$dev" fs
  87.                 if {$::debug} {puts "got fs for /dev/$dev, which is $fs"}
  88.                 catch "exec mount /dev/$dev $mntloc -t $fs"
  89.                 catch "exec rox -d $mntloc"
  90.                 catch {exec "mount > /etc/mtab"}
  91.                 set rescan_delay 500
  92.             }
  93.         "unmount" { ;# Commands to close application to show data files on disk
  94.                 if {$mounted} {
  95.                     catch "exec rox -D $mntloc"
  96.                     catch "exec fuser -k -m $mntloc"
  97.                 }
  98.                 catch "exec umount $mntloc"
  99.                 catch {exec "mount > /etc/mtab"}
  100.                 set rescan_delay 400
  101.             }
  102.         "gxinedvd" { ;# Launch a dvd player
  103.                 catch "exec gxine dvd:/"
  104.                 set rescan_delay 2000
  105.             }
  106.         "rox"    {   ;# Launch file browser on already mounted partition/disk/cd
  107.                 catch "exec rox -d $mntloc"
  108.                 set rescan_delay 200
  109.             }
  110.         "eject" {   ;# Eject disc media Cdrom DVD etc..
  111.                 if {$mounted} {
  112.                     catch "exec rox -D $mntloc"
  113.                     catch "exec fuser -k -m $mntloc"
  114.                     catch "exec umount $mntloc"
  115.                     catch {exec "mount > /etc/mtab"}
  116.                 }
  117.                 catch "exec $::mut/bin/cdrominfo /dev/$dev -e"
  118.                 # This application locks up during the trayclose event, so rescan shortlyafter
  119.                 set rescan_delay 200
  120.             }
  121.         "trayclose" {;# Close tray holder mechanism on disc media Cdrom DVD etc..
  122.                 catch "exec $::mut/bin/cdrominfo /dev/$dev -c"
  123.                 # This application locks up during the trayclose event, so rescan shortlyafter
  124.                 set rescan_delay 200
  125.             }
  126.         "initrdswapoff" {;# unmount initrd swap filesystem
  127.                 catch "exec swapoff /initrd/dev/$dev"
  128.                 set rescan_delay 1000
  129.             }
  130.         "swapoff" {;# unmount swap filesystem
  131.                 catch "exec swapoff /dev/$dev"
  132.                 set rescan_delay 1000
  133.             }
  134.         "swapon" { ;# mount swap filesystem
  135.                 catch "exec swapon /dev/$dev"
  136.                 set rescan_delay 1000
  137.             }
  138.  
  139.  
  140.         "scan" {  ;# Activate Mut scanning this device (it may be slow to respond)
  141.                 array unset ::NoScanMedia $dev
  142.                 if {$::debug} {puts "names NoScan [array names ::NoScanMedia]"}
  143.                 set rescan_delay 100
  144.             }
  145.         "noscan" { ;# Deactivate Mut scanning this device (it may be slow to respond)
  146.                 set ::NoScanMedia($dev) "noscan"
  147.                 if {$::debug} {puts "names NoScan [array names ::NoScanMedia]"}
  148.                 set rescan_delay 100
  149.             }
  150.         default { msg "no code to run for event \"$event\"" }
  151.     }
  152.     return $rescan_delay
  153. }
  154.  
  155. # This function calculates home path of application, yay, no need to configure it :-) even if symlinked to it.
  156. # this is generic, it could apply to any tcl app that has an application directory structure.
  157. proc homepath { } {
  158.     set cmd "pwd"
  159.     catch $cmd this_pwd
  160.     if {[string index $::argv0 0] == "/"} {
  161.         set path "$::argv0"
  162.     } else {
  163.         set path "$this_pwd/$::argv0"
  164.     }
  165.     # if it is a symlink from say /usr/local/bin/mut, follow the link.
  166.     if { [file type $path] == "link" } {
  167.         set path "$this_pwd/[file readlink $path]"
  168.     }
  169.     set path "$path/.."
  170.     set plist [split $path "/"]
  171.     set n [llength $plist]
  172.     for {set i 0} {$i < $n} {incr i} {
  173.         if {[lindex $plist $i] == "."} { 
  174.             set a [expr "$i - 1" ]
  175.             set b [expr "$i + 1" ]
  176.             set plist [concat [lrange $plist 0 $a] [lrange $plist $b end ] ]
  177.             incr n -1
  178.         }
  179.     }
  180.     set n [llength $plist]
  181.     set olist ""
  182.     for {set i 0} {$i < $n} {incr i} {
  183.         if {[lindex $plist $i] == ".."} {
  184.             set olist [lrange $olist 0 [expr "[llength $olist]-2"]]
  185.         } else {
  186.             lappend olist [lindex $plist $i]
  187.         }
  188.     }
  189.     set path "[join $olist "/"]/"
  190.     return $path
  191. }
  192.  
  193. proc in_rect {x y x1 y1 x2 y2} {
  194.     if {$x >= $x1 && $x <= $x2 && $y >= $y1 && $y <= $y2} {return 1}
  195.     return 0
  196. }
  197.  
  198. proc show_icons {} {
  199.     set wx [lindex [split [wm geometry .] "+x"] 0]
  200.     set wy [lindex [split [wm geometry .] "+x"] 1]
  201.     set xpos [expr "$wx - 0.5 * [image width ::img::img(tux)] -4"]
  202.     set ypos [expr "$wy - 20"]
  203.     .boxc create image $wx $ypos -image ::img::img(tux) -anchor se
  204.  
  205.     set ypos [expr "$wy - 20"]
  206.  
  207.  
  208.     set xpos [expr "$wx - 0.5 * [image width ::img::img(refresh)] -4"]
  209.     .boxc create image $xpos 16 -image ::img::img(refresh) 
  210. }
  211.  
  212. proc full_refresh_display {} {
  213.     .boxc delete all
  214.     array unset ::actions
  215.     set ::infolist {}
  216.     run_full_scan
  217.     Show_Devices
  218.     show_icons
  219.     if {[file exists /proc/bus/usb/devices]} {
  220.         set ::last_hotplug [file mtime /proc/bus/usb/devices]
  221.     }
  222. }
  223.  
  224. proc quick_update_display {} {
  225.     .boxc delete all
  226.     array unset ::actions
  227.     set ::infolist {}
  228.     run_quick_update
  229.     Show_Devices
  230.     show_icons
  231. }
  232.  
  233. proc check_click_action {x y} {
  234.     set done false
  235.     set rescan_delay 2000
  236.     foreach id [array names ::actions *] {
  237.         set action $::actions($id)
  238.         foreach {x1 y1 x2 y2} [lrange $action 1 4] {
  239.             if {[in_rect $x $y $x1 $y1 $x2 $y2]} {
  240.                 #puts "event trigger [lindex $action 0] for [lindex $action 5]"
  241.                 set done true
  242.                 set rescan_delay [trigger_external_event [lindex $action 0] [lindex $action 5]]
  243.             }
  244.         }
  245.     }
  246.     if {$done == false } { after 100 full_refresh_display } else { after $rescan_delay full_refresh_display }
  247. } 
  248.  
  249. proc msg { msg } {
  250.     tk_dialog .msg "Message Window" $msg info 0 OK
  251. }
  252.  
  253. proc remove_empties str {
  254.     set i 0
  255.     set i [lsearch $str {}]
  256.     while {$i >= 0} {
  257.         set str [lreplace $str $i $i]
  258.         set i [lsearch $str {}]
  259.     }
  260.     return $str
  261. }
  262.  
  263. proc grab_fs_vol {fs dev} {
  264.     set results ""
  265.     if {[lsearch [list "iso9660" "vfat" "ext2"] $fs]=={}} {
  266.         if {$::debug} {puts "Unknown fs $fs for grab_fs_vol"}
  267.         return ""
  268.     }
  269.     catch "exec $::mut/bin/label_$fs /dev/$dev" results
  270.     set results [lindex [split $results "\n"] 0]
  271.     set results [string trimleft [string trimright $results]]
  272.     return $results
  273. }
  274.  
  275. proc majorBus__get_list {} {
  276.     set rec false
  277.     array unset ::majorBus
  278.     array unset ::majorBusRev
  279.     catch {
  280.         set fid [open "/proc/devices" r]
  281.         if {$::debug} {puts "in majorBus__get_list"}
  282.         while {![eof $fid]} {
  283.             gets $fid str
  284.             set line [remove_empties [split $str " "]]
  285.             if {$rec == true && [lindex $line 1] > 1} {
  286.                 set ::majorBus([lindex $line 0]) [lindex $line 1]
  287.                 set ::majorBusRev([lindex $line 1]) [lindex $line 0]
  288.     if {$::debug} {puts " ::majorBus([lindex $line 0]) $::majorBus([lindex $line 0]) "}
  289.             }
  290.             if {[lindex $line 0 ] == "Block"} {set rec true}
  291.         }
  292.         close $fid
  293.     }
  294. }
  295.  
  296. # scan media or model file.
  297. proc scan_ide_medium {bus lun scan_me} {
  298.     if {$bus=="" || $lun=="" || $scan_me==""} {return ""}
  299.     set medium ""
  300.     catch {
  301.         set bd_fd [open "/proc/ide/$bus/$lun/$scan_me" r]
  302.         gets $bd_fd medium
  303.         close $bd_fd
  304.     }
  305.     return $medium
  306. }
  307.  
  308. proc main_or_part {str} {
  309.     for {set i 0} {$i < [string length $str] } {incr i} {
  310.         if {[string index $str $i] >= "0" && [string index $str $i] <= "9"} {
  311.             if {[string range $str $i end] >= 1 && [string range $str $i end] <= 16} {
  312.                 return part
  313.             }
  314.         }
  315.     }
  316.     return main
  317. }
  318.  
  319. proc diskStats26__get_list {quick} {
  320.     set rec false
  321.     array unset ::diskStats
  322.     catch {
  323.         set fid [open "/proc/diskstats" r]
  324.         if {$::debug} {puts "in diskStats26__get_list"}
  325.         while {![eof $fid]} {
  326.             gets $fid str
  327.             set line [remove_empties [split $str " "]]
  328.             foreach did $::grabdevs {
  329.                 if {[string range [lindex $line 2] 0 1] == $did} {
  330.                     set media ""
  331.                     if {$did == "fd"} {
  332.                         set media floppy
  333.                     }
  334.                     if {$did == "hd"} {
  335.                         if {[main_or_part [lindex $line 2]] == "main"} {
  336.                             set media [scan_ide_medium $::majorBus([lindex $line 0]) [lindex $line 2] "media"]
  337.                         } else {
  338.                             set media part
  339.                         }
  340.                     }
  341.                     if {$did == "sd"} {
  342.                         if {[main_or_part [lindex $line 2]] == "main"} {
  343.                             set media disk
  344.                         } else {
  345.                             set media part
  346.                         }
  347.                     }
  348.                     if {$did == "scd" || $did=="sr"} {
  349.                         if {[main_or_part [lindex $line 2]] == "main"} {
  350.                             set media cdrom
  351.                         } else {
  352.                             set media part
  353.                         }
  354.                     }
  355.                     set ::diskStats([lindex $line 2]) "[lindex $line 0].[lindex $line 1].$::majorBus([lindex $line 0]).$media"
  356.                     if {$::debug} {puts "set ::diskStats([lindex $line 2]) $::diskStats([lindex $line 2])"}
  357.                 }
  358.             }
  359.             if {[lindex $line 0 ] == "Block"} {set rec true}
  360.         }
  361.         close $fid
  362.     }
  363. }
  364.  
  365. proc diskStats24__get_list {quick} {
  366.     set rec false
  367.     array unset ::diskStats
  368.     if {$::debug} {puts "in diskStats24__get_list"}
  369.     set addfd false
  370.     catch {
  371.         if {$::majorBusRev(fd)  >= 0} {
  372.             set ::diskStats(fd0) "$::majorBusRev(fd).0.fd.floppy"
  373.             if {$::debug} {puts "set ::diskStats(fd0) $::diskStats(fd0)"}
  374.             #second floppy disk here:
  375.             #set ::diskStats(fd1) "$::majorBusRev(fd).1.fd.floppy"
  376.             #if {$::debug} {puts "set ::diskStats(fd1) $::diskStats(fd1)"}
  377.         }
  378.     }
  379.     foreach dev [lsort [array names ::partitions]] {
  380.         set str $::partitions($dev)
  381.         set line [remove_empties [list [lindex $str 1] [lindex $str 2] $dev ]]
  382.         if {[llength $line] < 3 } {continue}
  383.         foreach did $::grabdevs {
  384.             if {[string range [lindex $line 2] 0 1] == $did} {
  385.                 set media ""
  386.                 if {$did == "fd"} {
  387.                     set media floppy
  388.                 }
  389.                 if {$did == "hd"} {
  390.                     if {[main_or_part [lindex $line 2]] == "main"} {
  391.                         set media [scan_ide_medium $::majorBus([lindex $line 0]) [lindex $line 2] "media"]
  392.                     } else {
  393.                         set media part
  394.                     }
  395.                 }
  396.                 if {$did == "sd"} {
  397.                     if {[main_or_part [lindex $line 2]] == "main"} {
  398.                         set media disk
  399.                     } else {
  400.                         set media part
  401.                     }
  402.                 }
  403.                 if {$did == "scd" || $did=="sr"} {
  404.                     if {[main_or_part [lindex $line 2]] == "main"} {
  405.                         set media cdrom
  406.                     } else {
  407.                         set media part
  408.                     }
  409.                 }
  410.                 set ::diskStats([lindex $line 2]) "[lindex $line 0].[lindex $line 1].$::majorBus([lindex $line 0]).$media"
  411.                 if {$::debug} {puts "set ::diskStats([lindex $line 2]) $::diskStats([lindex $line 2])"}
  412.             }
  413.         }
  414.         if {[lindex $line 0 ] == "Block"} {set rec true}
  415.     }
  416. }
  417.  
  418. proc diskStats__get_list {quick} {
  419.     if {$::Kernel_Version=="2.4"} {diskStats24__get_list $quick}
  420.     if {$::Kernel_Version=="2.6"} {diskStats26__get_list $quick}
  421. }
  422.  
  423. proc partitions__get_list {} {
  424.     array unset ::partitions
  425.     catch {
  426.         set fid [open "/proc/partitions" r]
  427.         while {![eof $fid]} {
  428.             gets $fid str
  429.             set shortlist [remove_empties [split $str]]
  430.             set dev [lindex $shortlist 3]
  431.             if {[llength $str] == 4 && [lindex $str 0] > 0 && [lindex $shortlist 2] > 1 } {
  432.                 set mytimer [clock clicks -milliseconds]
  433.                 set openok true
  434.                 set catchinfo ""
  435.                 if {$::Kernel_Version=="2.4" && [string range $dev 0 1] == "sd"} {
  436.                     # Sigh, we have to force the kernel to look at the hardware:
  437.                     if {[info exists ::NoScanMedia($dev)]} {
  438.                         if {$::debug} { puts "not scan $dev"}
  439.                     } else {
  440.                         set openok false
  441.                         catch {
  442.                             if {$::debug} { puts "about to scan $dev"}
  443.                             set bd_fd [open "/dev/$dev" r]
  444.                             close $bd_fd
  445.                             set openok true
  446.                         } catchinfo
  447.                     }
  448.                 }
  449.                 if {$openok == false} {
  450.                     if {$::debug} { puts "device not working? /dev/$dev  $catchinfo" }
  451.                     if {[info exists ::NoScanMedia($dev)]} {
  452.                         if {$::debug} {puts "already in NoScanMedia $::NoScanMedia($dev)"}
  453.                     } else {
  454.                         #if it exists but cannot be opened, make it a noscan object
  455.                         if {[file exists /dev/[lindex $shortlist 3] ] == 1} {
  456.                             set ::NoScanMedia([lindex $shortlist 3]) "noscan"
  457.                         }
  458.                     }
  459.                 }
  460.                 set time_length [expr "[clock clicks  -milliseconds] - $mytimer"]
  461.                 if {$::debug} { puts "open scan time is $time_length 1000ths of a second, $shortlist"}
  462.                 set ::partitions([lindex $shortlist 3]) \
  463.                     [list [format "%1.1f Mb" [expr "[lindex $shortlist 2]/1000.0"]] [lindex $shortlist 0] [lindex $shortlist 1]]
  464.                 if {$::debug} {puts "set  ::partitions($dev) = $::partitions($dev)"}
  465.             }
  466.             if {[llength $str] == 4 && [lindex $str 0] > 0 && [lindex $shortlist 2] == 1 } {
  467.                 set ::partitions($dev) "extended"
  468.             }
  469.         }
  470.         close $fid
  471.     }
  472.     
  473.     # we have to scan for extra devices here in kernel 2.4
  474.     # Scan for IDE removable disc drives (cdroms)
  475.     if {$::Kernel_Version=="2.4"} {
  476.         set ide_devs [glob /dev/hd*]
  477.         set ide_scan {}
  478.         set devlist [array names ::partitions]
  479.         foreach device $ide_devs {
  480.             set dev [lindex [split $device / ] 2]
  481.             set atpos [lsearch -exact $devlist $dev]
  482.             if {$atpos < 0 && [string length $dev] == 3} {
  483.                 set found false
  484.                 set gl ""
  485.                 catch {
  486.                     set  gl [split [glob "/proc/ide/ide*/$dev"] /]
  487.                 }
  488.                 array unset ::cdromMedium $dev
  489.                 if {$gl == ""} {continue}
  490.                 set info ""
  491.                 lappend ide_scan $dev
  492.                 catch { exec $::mut/bin/stat_dev /dev/$dev } info
  493.                 if {$info ==""} {continue}
  494.                 set ::partitions($dev) [concat "device" [split $info |]]
  495.         if {$::debug} { puts "set  ::partitions($dev) = $::partitions($dev)" }
  496.                 #set ::diskStats($dev) "[lindex $info 0].[lindex $info 1].sr.cdrom"
  497.         #if {$::debug} { puts "set  ::diskStats($dev) = $::diskStats($dev)" }
  498.             }
  499.         }
  500.         if {$::debug} { puts "scan these devices... [lsort $ide_scan]" }
  501.     }
  502.     # Scan for SCSI/USB removable disc drives (cdroms)
  503.     if {$::Kernel_Version=="2.4" || $::Kernel_Version=="2.6"} {
  504.         set sr_devs [glob /dev/sr*]
  505.         set sr_scan {}
  506.         set devlist [array names ::partitions]
  507.         foreach device $sr_devs {
  508.             set dev [lindex [split $device / ] 2]
  509.             set atpos [lsearch -exact $devlist $dev]
  510.             if {$atpos < 0 && [string length $dev] == 3} {
  511.                 set found false
  512.                 set gl ""
  513.                 set cdinfo ""
  514.                 catch { exec $::mut/bin/cdrominfo /dev/$dev -p } cdinfo
  515.                 if {$cdinfo == ""} {continue}
  516.                 set info [split $cdinfo |]
  517.                 if {[llength $info ] < 10} {continue}
  518.                 lappend sr_scan $dev
  519.                 catch { exec $::mut/bin/stat_dev /dev/$dev } info
  520.                 set ::partitions($dev) [concat "device" [split $info |]]
  521.         if {$::debug} { puts "set  ::partitions($dev) = $::partitions($dev)" }
  522.             }
  523.         }
  524.         if {$::debug} { puts "scan these devices... [lsort $sr_scan]" }
  525.     }
  526. }
  527.  
  528. proc device_nodes__scan_for_make_additional {} {
  529.     foreach name [lsort [array names ::partitions]] {
  530.         if {[lsearch -exact $::existing_nodes $name] >= 0} {continue}
  531.         set info ""
  532.         catch { exec $::mut/bin/stat_dev /dev/$name } info
  533.         set info [split $info |]
  534.         if {[lindex $info 0]>0 && [llength $info] ==2} {
  535.             lappend ::existing_nodes $name
  536.         } else {
  537.             if {$::debug} {puts "ADDME $name info $info"}
  538.             if {$::debug} {puts "makedevs /dev/$name b [lindex $::partitions($name) 1] [lindex $::partitions($name) 2] 0 16 s" }
  539.             catch "exec makedevs /dev/$name b [lindex $::partitions($name) 1] [lindex $::partitions($name) 2] 0 16 s " ex_info
  540.             if {$::debug} {puts "execute info $ex_info" }
  541.         }
  542.     }
  543.     if {$::debug} {puts "devnodes include $::existing_nodes"}
  544. }
  545.  
  546. proc cdromMedium_get_list {quick} {
  547.     if {$quick=="true"} {return}
  548.     array unset ::cdromMedium
  549.     foreach dev [array names ::diskStats] {
  550.         set ds [split $::diskStats($dev) '.']
  551.         if {[lindex $ds 3] =="cdrom"} {
  552.             catch "exec $::mut/bin/cdrominfo /dev/$dev -p" cdinfo
  553.             set ::cdromMedium($dev) $cdinfo
  554.             if {$::debug} {puts "set  ::cdromMedium($dev) which is $cdinfo"}
  555.         }
  556.     }
  557. }
  558.  
  559. proc additional_scan_for {mnt} {
  560.     catch { exec $::mut/bin/stat_dev /dev/$mnt } info
  561.     set m [lindex [split $info |] 0]
  562.     set s [lindex [split $info |] 1]
  563.     if {$m !="" && $s!= ""} {
  564.         foreach dev [array names ::diskStats] {
  565.             if {$m == [lindex [split $::diskStats($dev) .] 0] &&
  566.                 $s == [lindex [split $::diskStats($dev) .] 1]} {
  567.                 if {$dev !="" && $mnt !=""} {
  568.                     set ::etc_fstab($dev) "/mnt/$mnt"
  569.                     if {$::debug} {puts "set ::etc_fstab($dev) = $::etc_fstab($dev)"}
  570.                     return
  571.                 }
  572.             }
  573.         }
  574.     }
  575. }
  576.  
  577. proc etc_fstab__get_list {} {
  578.     if {$::debug} {puts "in etc_fstab__get_list"}
  579.     array unset ::etc_fstab 
  580.     catch {
  581.         set fid [open "/etc/fstab" r]
  582.         while {![eof $fid]} {
  583.             gets $fid str
  584.             set sl [remove_empties [split $str]]
  585.             set dev [lindex $sl 0]
  586.             set mnt [lindex $sl 1]
  587.             set dev [lindex [remove_empties [split $dev /]] end]
  588.             if { $dev != "" &&
  589.                 $dev != "none" && 
  590.                 $dev != "tmpfs" && 
  591.                 $dev != "rootfs" && 
  592.                 $dev != "loop"} {
  593.                 if {$dev !="" && $mnt !=""} {
  594.                     set ::etc_fstab($dev) "$mnt"
  595.                     if {$::debug} {puts "set ::etc_fstab($dev) = $::etc_fstab($dev)"}
  596.                 }
  597.             }
  598.         }
  599.     }
  600.     close $fid
  601.     additional_scan_for dvd
  602.     additional_scan_for cdrom
  603.  
  604.     # Multisession DVD/CD should get mounted at /mnt/home if possible
  605.     set myhome /mnt/myhome
  606.     if {[file exists /etc/multisessionmediatype]} {
  607.         set cdburnerdrive ""
  608.         if {[file exists /etc/cdburnerdrive ]} {
  609.             catch {
  610.                 set fid [open /etc/cdburnerdrive r]
  611.                 gets $fid cdburnerdrive
  612.                 close $fid
  613.             }
  614.         }
  615.         if {$cdburnerdrive != ""} {
  616.             set do_set true
  617.             catch {
  618.                 if {$::etc_fstab($cdburnerdrive) == $myhome } {
  619.                     set do_set false
  620.                 }
  621.             }
  622.             if {$do_set} {
  623.                 set ::etc_fstab($cdburnerdrive) $myhome
  624.                 if {$::debug} {puts "set ::etc_fstab($cdburnerdrive) = $::etc_fstab($cdburnerdrive)"}
  625.             }
  626.         }
  627.     }
  628. }
  629.  
  630. proc mounteds__get_list {} {
  631.     if {$::debug} {puts "in mounteds__get_list"}
  632.  
  633.     set fs_list ""
  634.     catch "exec mount" fs_list
  635.     foreach line [split $fs_list '\n'] {
  636.         set sl [remove_empties [split $line]]
  637.         set dev [lindex $sl 0]
  638.         set mnt [lindex $sl 2]
  639.         if { [string compare -length 4 $dev "/dev"] == 0} {
  640.             set ::mounteds($dev) "$mnt|[join [lrange $sl 4 end ] |]"
  641.             if {$::debug} { puts " ::mounteds($dev) = $::mounteds($dev)"}
  642.         }
  643.     }
  644.  
  645.     # Kernel 2.6 swaps:
  646.     # Filename                                Type            Size    Used    Priority
  647.     # /dev/hda8                               partition       682720  0       -1
  648.  
  649.  
  650.     catch {
  651.         set fid [open "/proc/swaps" r]
  652.         while {![eof $fid]} {
  653.             gets $fid str
  654.             set sl [remove_empties [split $str]]
  655.             set swap [lindex $sl 0]
  656.             if { [string compare -length 4 $swap "/dev"] == 0} {
  657.                 set ::mounteds($swap) "swap|swap|"
  658.                 if {$::debug} { puts " ::mounteds($swap) = $::mounteds($swap)"}
  659.             }
  660.             if { [string compare -length 11 $swap "/initrd/dev"] == 0} {
  661.                 set swap [string range $swap 7 end]
  662.                 set ::mounteds($swap) "initrdswap|initrdswap|"
  663.                 if {$::debug} { puts " ::mounteds($swap) = $::mounteds($swap)"}
  664.             }
  665.         }
  666.         close $fid
  667.     }
  668. }
  669.  
  670. proc real_permit_unmount {mnt} {
  671.     if {[llength [lsearch -inline -all -exact $::NoUnmounts $mnt]] > 0} { return false }
  672.     foreach m $::PuppyNoUnmount {
  673.         if {[string match "$m*" $mnt] == 1} { return false }
  674.     }
  675.     return true
  676. }
  677.  
  678. proc permit_unmount {mnt} {
  679.     set r [real_permit_unmount $mnt]
  680.     if {$::debug} { puts " unmountable $mnt   $r "}
  681.     return $r
  682. }
  683.  
  684.  
  685. # dmesg example:
  686. # sd 6:0:0:0: Attached scsi removable disk sdb
  687.  
  688.  
  689. proc scsi_host_to_sd_location {} {
  690.     array unset ::scsi_drvr
  691.     array unset ::scsi_node
  692.     set info ""
  693.     catch { exec dmesg -s 65535 } info  
  694.     #puts " dmesg length [llength $info] "
  695.     set lines [split $info \n]
  696.     foreach line $lines {
  697.         set sl [remove_empties [split $line]]
  698.         if {[string range [lindex $sl 0] 0 3] == "scsi"} {
  699.             set n [string range [lindex $sl 0] 4 end]
  700.             #puts "scsi$n has driver: [lrange $sl 2 end]"
  701.             if {[join [lrange $sl 2 end]] == "SCSI emulation for USB Mass Storage devices"} {
  702.                 set ::scsi_drvr($n) "usb_storage"
  703.             } else {
  704.                 set ::scsi_drvr($n) [lrange $sl 2 end]
  705.             }
  706.         }
  707.         if {[lindex $sl 0] == "sd"} {
  708.             if {[lindex $sl 2] == "Attached"} {
  709.                 if {[lindex $sl 3] == "scsi"} {
  710.                     if {[lindex $sl 4] == "removable"} {
  711.                         set n [lindex [split [lindex $sl 1] :] 0]
  712.                         #puts "scsi$n == [lindex $sl 6] "
  713.                         set ::scsi_node([lindex $sl 6]) $n
  714.                     }
  715.                     if {[lindex $sl 4] == "disk"} {
  716.                         set n [lindex [split [lindex $sl 1] :] 0]
  717.                         #puts "scsi$n == [lindex $sl 5] "
  718.                         set ::scsi_node([lindex $sl 5]) $n
  719.                     }
  720.                 }
  721.             }
  722.         }
  723.     }
  724.  
  725. #Jun 15 03:21:33 (none) user.info kernel: scsi2 : sata_nv
  726. #Jun 15 03:21:33 (none) user.info kernel: scsi3 : sata_nv
  727. #Jun 15 03:21:33 (none) user.notice kernel: sd 2:0:0:0: Attached scsi disk sda
  728. #Jun 14 19:22:26 (none) user.info kernel: scsi4 : SCSI emulation for USB Mass Storage devices
  729. #Jun 14 19:22:26 (none) user.info kernel: scsi5 : SCSI emulation for USB Mass Storage devices
  730. #Jun 14 19:22:31 (none) user.notice kernel: sd 4:0:0:0: Attached scsi removable disk sdb
  731. #Jun 14 19:22:31 (none) user.notice kernel: sd 4:0:0:1: Attached scsi removable disk sdc
  732. #Jun 14 19:22:31 (none) user.notice kernel: sd 4:0:0:2: Attached scsi removable disk sdd
  733. #Jun 14 19:22:31 (none) user.notice kernel: sd 4:0:0:3: Attached scsi removable disk sde
  734. #Jun 14 19:22:31 (none) user.notice kernel: sd 5:0:0:0: Attached scsi removable disk sdf
  735. #Jun 14 19:22:31 (none) user.notice kernel: sd 5:0:0:1: Attached scsi removable disk sdg
  736. #Jun 15 03:21:33 (none) user.notice kernel: sd 2:0:0:0: Attached scsi disk sda
  737.  
  738.  
  739.     set fid [open "/var/log/messages" r]
  740.     while {![eof $fid]} {
  741.         gets $fid str
  742.         set sl [remove_empties [split $str]]
  743.         if {[lindex $sl 4] == "user.info"} {
  744.             if {[lindex $sl 5] == "kernel:"} {
  745.                 #puts "[string range [lindex $sl 6] 0 3]"
  746.                 if {[string range [lindex $sl 6] 0 3] == "scsi"} {
  747.                     set n [string range [lindex $sl 6] 4 end]
  748.                     #puts "scsi$n has driver: [lrange $sl 8 end]"
  749.                     if {[join [lrange $sl 8 end]] == "SCSI emulation for USB Mass Storage devices"} {
  750.                         set ::scsi_drvr($n) "usb_storage"
  751.                     } else {
  752.                         set ::scsi_drvr($n) [lrange $sl 8 end]
  753.                     }
  754.                 }
  755.             }
  756.         }
  757.         if {[lindex $sl 6] == "sd"} {
  758.             if {[lindex $sl 8] == "Attached"} {
  759.                 if {[lindex $sl 9] == "scsi"} {
  760.                     if {[lindex $sl 10] == "removable"} {
  761.                         set n [lindex [split [lindex $sl 7] :] 0]
  762.                         #puts "scsi$n == [lindex $sl 12] "
  763.                         set ::scsi_node([lindex $sl 12]) $n
  764.                     }
  765.                     if {[lindex $sl 10] == "disk"} {
  766.                         set n [lindex [split [lindex $sl 7] :] 0]
  767.                         #puts "scsi$n == [lindex $sl 11] "
  768.                         set ::scsi_node([lindex $sl 11]) $n
  769.                     }
  770.                 }
  771.             }
  772.         }
  773.         
  774.     }
  775.     close $fid
  776. }
  777.  
  778. proc scsi_or_usb_grabinfos {} {
  779.     array unset ::scsi_N
  780.  
  781.     array unset scsi_ctrlr
  782.  
  783.     catch {
  784.         set fid [open "/proc/scsi/scsi" r]
  785.         set host_n ""
  786.         set vend ""
  787.         set modl ""
  788.         while {![eof $fid]} {
  789.             gets $fid str
  790.             set sl [remove_empties [split $str]]
  791.             if {[lindex $sl 0] == "Host:"} {
  792.                 set host_n [string map {scsi {}} [lindex $sl 1]]
  793.                 set scsi_ctrlr($host_n) "Present"
  794.             }
  795.             if {[lindex $sl 0] == "Vendor:"} {
  796.                 set m_at [lsearch $sl "Model:"]
  797.                 set r_at [lsearch $sl "Rev:"]
  798.                 set vend ""
  799.                 set modl ""
  800.                 if {0 != [expr $m_at-1]} {
  801.                     set vend [join [lrange $sl 1 [expr $m_at-1]]]
  802.                 }
  803.                 if {$m_at != [expr $r_at-1]} {
  804.                     set modl [join [lrange $sl [expr $m_at+1] [expr $r_at-1]]]
  805.                 }
  806.             }
  807.             if {[lindex $sl 0] == "Type:"} {
  808.                 set r_at [lsearch $sl "ANSI"]
  809.                 set type ""
  810.                 if {0 != [expr $m_at-1]} {
  811.                     set type [join [lrange $sl 1 [expr $r_at-1]]]
  812.                 }
  813.                 set ::scsi_N($host_n)  "$vend|$modl|$type"
  814.                 if {$::debug} { puts " ::scsi_N($host_n) = $vend|$modl|$type"}
  815.             }
  816.         }
  817.         close $fid
  818.     }
  819.     
  820.     catch {
  821.         foreach ctrlr [array names scsi_ctrlr] {
  822.             set hostis "scsi"
  823.             catch {
  824.                 if {[string match -nocase *usb* $::scsi_drvr($ctrlr)] == 1} {
  825.                     set hostis "usb"
  826.                 }
  827.             }
  828.             catch {
  829.                 set fid [open "/proc/scsi/usb-storage/$ctrlr" r]
  830.                 while {![eof $fid]} {
  831.                     gets $fid str
  832.                     set hostis "usb"
  833.                 }
  834.                 close $fid
  835.             }
  836.             
  837.             catch {
  838.                 if {[string match -nocase *sata* $::scsi_drvr($ctrlr)] == 1} {
  839.                     set hostis "sata"
  840.                 }
  841.             }
  842.             set vend [lindex [split $::scsi_N($ctrlr) |] 0]
  843.             if {$vend == "ATA"} { 
  844.                 set hostis "sata"
  845.             }
  846.             #puts "scsi$ctrlr Host is really $hostis"
  847.             set info $::scsi_N($ctrlr)
  848.             set ::scsi_N($ctrlr) "$hostis|$info"
  849.         }
  850.     }
  851. }
  852.  
  853.  
  854. proc mainDeviceList__derive {} {
  855.     set dev_list [lsort -dictionary [array names ::diskStats]]
  856. if {$::debug} {puts "$$ dev_list  $dev_list"}
  857.     set omit_parts "false"
  858.     foreach dev $dev_list {
  859.         
  860.         if {[string match "$omit_parts*" $dev] == 1} {
  861.             continue;
  862.         }
  863.         set omit_parts "false"
  864.         
  865.         set ds [split $::diskStats($dev) .]
  866.         set dev_type [lindex $ds 3]
  867.         set icon ""
  868.         set fs ""
  869.         set part ""
  870.         set mnt ""
  871.         set vol ""
  872.         set hw_name ""
  873.         set gui_cmds ""
  874.         catch {set part [lindex $::partitions($dev) 0] }
  875.         catch {set mnt [lindex [split $::mounteds(/dev/$dev) |] 0] }
  876.         catch {set fs [lindex [split $::mounteds(/dev/$dev) |] 1] }
  877.         if {$part == "extended"} { continue }
  878.         set noscan false
  879.         switch $dev_type {
  880.             floppy {
  881.                 set fdinfo ""
  882.                 catch " exec $::mut/bin/fdinfo /dev/$dev" fdinfo
  883.                 if {[llength [split $fdinfo |]]>3} {
  884.                     set fdx [lindex [split $fdinfo |] 1]
  885.                     if {$fdx != 5} { set fdx 3 }
  886.                     set icon "fd$fdx"
  887.                 }
  888.                 catch {
  889.                     if {$::NoScanMedia($dev)=="noscan"} { set noscan true }
  890.                 }
  891.             }
  892.             disk {
  893.                 set icon "disk"
  894.                 set noscan true
  895.                 if {[lindex $ds 2] == "sd" } {
  896.                     catch {
  897.                         set ctrlr $::scsi_node($dev)
  898.                         set ctrlr_info [split $::scsi_N($ctrlr) |]
  899.                         set hw_name [lindex $ctrlr_info 2]
  900.                         set icon "[lindex $ctrlr_info 0]disk"
  901.                         #set driver $::scsi_drvr($ctrlr)
  902.                     }                    
  903.                     
  904.             #Here We check for SuperFloppy format:
  905.                     if {$part != "extended"} {
  906.                         set fsinfo ""
  907.                         catch "exec $::mut/bin/guess_fstype /dev/$dev" fsinfo
  908.                         if {$fsinfo != ""} {set fs $fsinfo}
  909.                         if {[lindex [split $fsinfo] 0] == "unknown"} {set fs ""}
  910.                         if {$fs != ""} {
  911.                             set parts 0
  912.                             set unknownparts 0
  913.                             foreach d $dev_list {
  914.                                 if {[string match "$dev*" $d]==1} { 
  915.                                     if {$d != $dev} {
  916.                                         set fsinfo ""
  917.                                         catch "exec $::mut/bin/guess_fstype /dev/$d" fsinfo
  918.                                         if {$fsinfo == "unknown"} { incr unknownparts }
  919.                                         incr parts
  920.                                     }
  921.                                 }
  922.                             }
  923.                             if {$parts == $unknownparts} {
  924.                                 set noscan false
  925.                                 set dev_type superfloppy
  926.                                 set omit_parts "$dev"
  927.                             } else {
  928.                                 set fs ""
  929.                             }
  930.                         }
  931.                     }
  932.                 } else {
  933.                     if {[string range [lindex $ds 2] 0 2] == "ide" } {
  934.                         set hw_name [scan_ide_medium [lindex $ds 2] $dev model]
  935.                     }
  936.                 }
  937.             }
  938.             part {
  939.                 set icon "none"
  940.                 set noscan false
  941.                 if {$fs == "" && $part != "extended"} {
  942.                     set fsinfo ""
  943.                     catch "exec $::mut/bin/guess_fstype /dev/$dev" fsinfo
  944.                     if {$fsinfo != ""} {set fs $fsinfo}
  945.                 }
  946.             }
  947.             cdrom {
  948.                 set cdinfo [split $::cdromMedium($dev) |]
  949.                 set dt [lindex $cdinfo 1]
  950.                 set ty [lindex $cdinfo 2]
  951.                 set ok1 "false"; set ok2 "false"
  952.                 set noscan true
  953.                 if {$dt=="DVD"} {set dt dvd ; set ok2 true}
  954.                 if {$dt=="CD"} {set dt cd ; set ok2 true}
  955.                 if {$ty=="R&W"} {set ty raw ; set ok1 true}
  956.                 if {$ty=="RO"} {set ty ro ; set ok1 true}
  957.                 if {$ok1 && $ok2} {set icon "$dt$ty"} else {set icon "cdhuh"}
  958.                 if {[lindex $cdinfo 4]=="SW_CLOSE" && [lindex $cdinfo 6]== "open" } {
  959.                     lappend gui_cmds cd_tray_close
  960.                     if { $::Kernel_Version=="2.4" } {
  961.                         lappend gui_cmds cd_disc_eject
  962.                     }
  963.                 }
  964.  
  965.                 if {[lindex $cdinfo 5]=="SW_OPEN" && [lindex $cdinfo 6]== "closed"} {
  966.                     lappend gui_cmds cd_disc_eject
  967.                 }
  968.                 if {[lindex $cdinfo 7] == "Audio" || [lindex $cdinfo 7] == "Mixed"} { 
  969.                     if { [lindex $cdinfo 8] > 0 } {
  970.                         set fs [lindex $cdinfo 7]; set vol "[lindex $cdinfo 8] tracks" 
  971.                         lappend gui_cmds cd_play_audio
  972.                     }
  973.                 }
  974.                 if {[lindex $cdinfo 7] == "Data" || [lindex $cdinfo 7] == "Mixed"} {
  975.                     if {$dt=="dvd"} {lappend gui_cmds gxine_dvd_play}
  976.                     if { [lindex $cdinfo 9] > 0 } {
  977.                         set fs [lindex $cdinfo 7]; 
  978.                         set vol [grab_fs_vol iso9660 $dev]
  979.                         if {$mnt == ""} {lappend gui_cmds cd_disk_mount}
  980.                         if {$mnt != ""} {lappend gui_cmds cd_disk_unmount}
  981.                     }
  982.                 }
  983.                 if {[string range [lindex $ds 2] 0 2] == "ide" } {
  984.                     set hw_name [scan_ide_medium [lindex $ds 2] $dev model]
  985.                 }
  986.  
  987.             }
  988.             default { if {$::debug} {puts "Unknown device type $dev_type on $dev"} }
  989.         }
  990.         if {$fs=="" && $noscan==false && $part!="extended"} {
  991.             set fsinfo ""
  992.             catch "exec $::mut/bin/guess_fstype /dev/$dev" fsinfo
  993.             if {$fsinfo != ""} {set fs $fsinfo}
  994.             if {$fs == "unknown"} { set fs "" }
  995.         }
  996.  
  997.         if {$vol=="" && $noscan==false} {
  998.             if {$fs == "unknown"} { set fs "" }
  999.             if {$fs == "iso9660" && $vol==""} { set vol [grab_fs_vol iso9660 $dev] }
  1000.             if {$fs == "vfat"} { set vol [grab_fs_vol vfat $dev] }
  1001.             if {$fs == "ext2"} { set vol [grab_fs_vol ext2 $dev] }
  1002.         }
  1003.         if {$dev_type == "floppy"} {
  1004.             if {$noscan} {
  1005.                 set part "unknown"
  1006.                 lappend gui_cmds scan
  1007.             } else {
  1008.                 lappend gui_cmds dev_part_info
  1009.                 if {$part == "" && $fs!=""} {
  1010.                     set part "Disc"
  1011.                     if {$mnt == ""} {
  1012.                         lappend gui_cmds dev_mount 
  1013.                     }
  1014.                 } else {
  1015.                     set part "No Disc"
  1016.                 }
  1017.                 lappend gui_cmds noscan
  1018.             }
  1019.             if {$mnt != ""} {
  1020.                 lappend gui_cmds dev_rox
  1021.                 if {[permit_unmount $mnt]} {
  1022.                     lappend gui_cmds dev_unmount
  1023.                 }
  1024.                 lappend gui_cmds dev_part_mnt
  1025.             }
  1026.         }
  1027.         if {$dev_type == "superfloppy"} {
  1028.             lappend gui_cmds dev_part_info
  1029.             if {$mnt == ""} {
  1030.                 lappend gui_cmds dev_mount 
  1031.             } else {
  1032.                 lappend gui_cmds dev_rox
  1033.                 if {[permit_unmount $mnt]} {
  1034.                     lappend gui_cmds dev_unmount
  1035.                 }
  1036.                 lappend gui_cmds dev_part_mnt
  1037.             }
  1038.         }
  1039.  
  1040.         if {$::debug} {puts "test  $dev|$icon|$hw_name|$part|$mnt|$fs|$vol|[join $gui_cmds ,]|$dev_type|" }
  1041.  
  1042.         if {$icon=="none" && ($part =="" || $fs=="") && $mnt == "" &&  $vol == "" && [llength $gui_cmds] ==0} {continue}
  1043.  
  1044.         if {[llength $gui_cmds] ==0 && [string length $dev]==3 && [llength [lsearch -all $dev_list $dev*]] == 1 } {continue}
  1045.         lappend ::infolist "$dev|$icon|$hw_name|$part|$mnt|$fs|$vol|[join $gui_cmds ,]|$dev_type|"
  1046.         if {$::debug} {puts "::infolist  [lindex $::infolist end]"}
  1047.     }
  1048. }
  1049.  
  1050. proc grab_block_devices {{quick false}} {
  1051.     majorBus__get_list
  1052.     partitions__get_list
  1053.     device_nodes__scan_for_make_additional
  1054.     diskStats__get_list quick
  1055.     cdromMedium_get_list quick
  1056.     etc_fstab__get_list
  1057.     mounteds__get_list
  1058.     scsi_host_to_sd_location 
  1059.     scsi_or_usb_grabinfos
  1060.     mainDeviceList__derive
  1061. }
  1062.  
  1063. proc run_full_scan {} {
  1064.     array unset ::partitions
  1065.     array unset ::mounteds
  1066.  
  1067.     #scan hardware
  1068.     grab_block_devices true
  1069. }
  1070.  
  1071. proc run_quick_update {} {
  1072.     array unset ::partitions
  1073.     array unset ::mounteds
  1074.  
  1075.     #scan hardware
  1076.     grab_block_devices
  1077.  
  1078. }
  1079.  
  1080. proc usb_autoscan {{how refresh}} {
  1081.     if {[file exists /proc/bus/usb/devices]} {
  1082.         if {$how == "on"} {
  1083.             if {$::debug} {puts "usb_autoscan $how"}
  1084.             full_refresh_display
  1085.             after 2000 usb_autoscan refresh2000
  1086.             set ::Program_Initialized true
  1087.             return
  1088.         }
  1089.         set hotplug [file mtime /proc/bus/usb/devices]
  1090.         if {$hotplug != $::last_hotplug} {
  1091.             if {$::debug} {puts "usb_autoscan $how now=$hotplug last=$::last_hotplug"}
  1092.             after 1000 full_refresh_display
  1093.             after 1500 usb_autoscan refresh1500
  1094.         } else {
  1095.             after 200 usb_autoscan refresh200
  1096.         }
  1097.     }
  1098. }
  1099.  
  1100. # we tend to get lots of window updates all in a row, so we skip all but last in a short time to update window.
  1101. # this saves on rattelling the floppy drive to bits :)
  1102. proc rearrange {{how Unknown}} {
  1103.     #puts [wm geometry .]
  1104.     if {$how == "config"} {
  1105.         incr ::Stack_rearrange
  1106.         if {$::debug} {puts "rearrange $how $::Stack_rearrange"}
  1107.         after 30 rearrange delayed
  1108.     }
  1109.     if {$how == "delayed"} {
  1110.         incr ::Stack_rearrange -1
  1111.         if {$::debug} {puts "rearrange $how $::Stack_rearrange"}
  1112.         if {$::Stack_rearrange == 0 && $::Program_Initialized == true} { full_refresh_display }
  1113.     }
  1114. }
  1115.  
  1116. proc Create_Display {} {
  1117.     wm title . "Media Utility Tool $::Version"
  1118.  
  1119.     frame .box 
  1120.  
  1121.     label .status_bar -text "MUT $::Version, written by Jesse Liley for Puppy Linux 2005."
  1122.     pack .status_bar -in . -side bottom -fill x
  1123.  
  1124.     canvas .boxc -width 180 -height 350 -bd 0 -bg gray50 -highlightthickness 0 
  1125.  
  1126.     pack .box -in . -fill both -expand yes
  1127.     pack .boxc -in .box -fill both -expand yes
  1128.  
  1129.     bind .boxc <Button-1> { check_click_action %x %y }
  1130.  
  1131.     # Mouse Wheel scrolling.
  1132.     # bind .boxc <Button-4> { .boxc yview scroll -3 units }
  1133.     # bind .boxc <Button-5> { .boxc yview scroll 3 units }
  1134.     
  1135.     
  1136.     bind . <Configure> "rearrange config"
  1137. }
  1138.  
  1139. proc set_box_trigger {itm dev y1 x1 width colour tex act} {
  1140.     upvar 1 $itm n
  1141.     set y2 [expr "11 + $y1"]
  1142.     set x2 [expr "$x1 + $width"]
  1143.     .boxc create rectangle $x1 $y1 $x2 $y2 -outline $colour
  1144.     .boxc create text [expr "$x1 + 4"] $y1 -anchor nw -text $tex -fill $colour -font {Helvetica -10 bold} 
  1145.     set ::actions($n) [list $act $x1 $y1 $x2 $y2 $dev]
  1146.     if {$::debug} {puts "actions($n) = [list $act $x1 $y1 $x2 $y2 $dev]" }
  1147.     incr n
  1148. }
  1149.  
  1150. proc max {a b} {
  1151.     if {$a > $b} {return $a}
  1152.     return $b
  1153. }
  1154.  
  1155. set ::clr(mount) "LightBlue"
  1156.  
  1157. proc Show_Devices {} {
  1158.     set index 1
  1159.     set n_itm 1
  1160.     set ypos 5
  1161.     set nextdev_ypos $ypos
  1162.     set start_horizontal_pos 50
  1163.  
  1164.     foreach str $::infolist {
  1165.         set l ".l$index"
  1166.         set info [split $str "|"]
  1167.         set xpos 110
  1168.  
  1169.         set dev [lindex $info 0]
  1170.         set icon [lindex $info 1]
  1171.         set hw_name [lindex $info 2]
  1172.         set part [lindex $info 3]
  1173.         set mnt [lindex $info 4]
  1174.         set fs [lindex $info 5]
  1175.         set vol [lindex $info 6]
  1176.         set guicmds [split [lindex $info 7] ,]
  1177.         set dev_type [lindex $info 8]
  1178.  
  1179.         if {$icon!="" && $icon!="none"} { # only devices have icons at this point
  1180.             set ypos [max $ypos $nextdev_ypos]
  1181.             set xpos 3
  1182.             set tex "$dev :: $hw_name"
  1183.             .boxc create image $xpos $ypos -anchor nw -image ::img::img($icon)
  1184.             set xpos [expr "$xpos + [image width ::img::img($icon)] + 3" ]
  1185.             .boxc create text $xpos $ypos -anchor nw -text $tex -fill White -font {Helvetica -10 bold }
  1186.             incr ypos 14
  1187.             incr xpos 5
  1188.  
  1189.             foreach cmd $guicmds {
  1190.                 switch $cmd {
  1191.                     gxine_dvd_play {
  1192.                         set_box_trigger n_itm $dev [expr "2 + $ypos"] $xpos 57 Cyan "GxineDVD" "gxinedvd"
  1193.                         incr xpos 57
  1194.                     }
  1195.                     dev_part_mnt {
  1196.                         if {$mnt != "" } {
  1197.                             .boxc create text $xpos [expr "$ypos + 4"] -anchor nw -text "$mnt" -fill $::clr(mount) -font {Courier -10 bold} 
  1198.                             incr xpos [expr " 7 * [string length $mnt]"]
  1199.                         }
  1200.                     }
  1201.                     dev_part_info {
  1202.                         set d [lindex [split $dev '/'] end]
  1203.                         set d [string trim $d "abcdefghijklmnopqrstuvwxyz/"]
  1204.                         set tex "[string toupper $d] $fs"
  1205.                         set v "$vol"
  1206.                         incr xpos 8
  1207.                         .boxc create text [expr "$xpos"] [expr "$ypos +4"] -anchor nw -text "$vol." -fill White -font {Courier -10  }
  1208.                         .boxc create text [expr "$xpos-8"] [expr "$ypos -3"] -anchor nw -text $tex -fill #dfdfdf -font {Courier -10  }
  1209.  
  1210.  
  1211.                         incr xpos [max [expr " 5 * [string length $tex]"] [expr "5+ 6 * [string length $v]"] ]
  1212.  
  1213.                         set tex "$fs:$part"
  1214.                         .boxc create text $xpos [expr "2 + $ypos"] -anchor nw -text "$part" -fill black -font {Helvetica -10 bold }
  1215.                         incr xpos [expr " 6 * [string length $part]"]
  1216.                     }
  1217.                     dev_rox {
  1218.                         set_box_trigger n_itm $dev [expr "2 + $ypos"] $xpos 25 LightGoldenrod "Rox" "rox"
  1219.                         incr xpos 25
  1220.                     }
  1221.                     dev_unmount {
  1222.                         set_box_trigger n_itm $dev [expr "2 + $ypos"] $xpos 50 PeachPuff "UnMount" "unmount"
  1223.                         incr xpos 50
  1224.                     }
  1225.                     dev_mount {
  1226.                         set_box_trigger n_itm $dev [expr "2 + $ypos"] $xpos 37 pink "Mount" "mount"
  1227.                         incr xpos 37
  1228.                     }
  1229.                     scan {
  1230.                         set_box_trigger n_itm $dev [expr "2 + $ypos"] $xpos 29 Yellow "Scan" "scan"
  1231.                         incr xpos 29
  1232.                     }
  1233.                     noscan {
  1234.                         set_box_trigger n_itm $dev [expr "2 + $ypos"] $xpos 43 Yellow "NoScan" "noscan"
  1235.                         incr xpos 43
  1236.                     }
  1237.                     cd_disk_mount {
  1238.                         set_box_trigger n_itm $dev [expr "2 + $ypos"] $xpos 37 pink "Mount" "cdmount"
  1239.                         incr xpos 37
  1240.                         if {$fs == "Mixed" || $fs=="Data"} {
  1241.                             incr xpos 5
  1242.                             .boxc create text $xpos [expr "2 + $ypos"] -anchor nw -text $vol -fill black -font {Helvetica -10 bold }
  1243.                             incr xpos 27
  1244.                         }
  1245.                     }
  1246.                     cd_disk_unmount {
  1247.                         incr xpos 5
  1248.                         set_box_trigger n_itm $dev [expr "2 + $ypos"] $xpos 25 LightGoldenrod "Rox" "rox"
  1249.                         incr xpos 25
  1250.                         incr xpos 5
  1251.                         set_box_trigger n_itm $dev [expr "2 + $ypos"] $xpos 50 PeachPuff "UnMount" "cdunmount"
  1252.                         incr xpos 50
  1253.                         if {$fs == "Mixed" || $fs=="Data"} {
  1254.                             incr xpos 6
  1255.                             .boxc create text $xpos [expr "2 + $ypos"] -anchor nw -text $vol -fill black -font {Helvetica -10 bold }
  1256.                             incr xpos [expr " 7 * [string length $vol] + 4"]
  1257.  
  1258.                             incr xpos 5
  1259.                             .boxc create text $xpos [expr "2 + $ypos"] -anchor nw -text "$mnt" -fill $::clr(mount) -font {Courier -10 bold}
  1260.                             incr xpos [expr " 7 * [string length $mnt]"]
  1261.                         }
  1262.                     }
  1263.                     cd_play_audio {
  1264.                         incr xpos 6
  1265.                         set_box_trigger n_itm $dev [expr "2 + $ypos"] $xpos 56 cyan "CD Player" "cdplay"
  1266.                         incr xpos 56
  1267.                     }
  1268.                     cd_disc_eject {
  1269.                         incr xpos 6
  1270.                         set_box_trigger n_itm $dev [expr "2 + $ypos"] $xpos 30 SpringGreen "Eject" "eject"
  1271.                         incr xpos 30
  1272.  
  1273.                         incr xpos 6
  1274.                         .boxc create text $xpos [expr "2 + $ypos"] -anchor nw -text $fs -fill black -font {Helvetica -10 bold }
  1275.                         incr xpos 25
  1276.                     }
  1277.                     cd_tray_close {
  1278.                         incr xpos 6
  1279.                         set_box_trigger n_itm $dev [expr "2 + $ypos"] $xpos 35 tan "Close" "trayclose"
  1280.                         incr xpos 35
  1281.                     }
  1282.                     default { if {$::debug} {puts "Unhandled cmd $cmd"} }
  1283.                 }
  1284.                 incr xpos 4
  1285.             }
  1286.             set nextdev_ypos [expr "26 + $ypos"]
  1287.         }
  1288.  
  1289.         set xpos $start_horizontal_pos
  1290.  
  1291.         if { $dev_type == "part" } {
  1292.             set d [lindex [split $dev '/'] end]
  1293.             set d [string trim $d "abcdefghijklmnopqrstuvwxyz/"]
  1294.             set tex "[string toupper $d] $fs"
  1295.  
  1296.             .boxc create text [expr "$xpos"] [expr "$ypos +4"] -anchor nw -text "$vol." -fill White -font {Courier -10  }
  1297.             .boxc create text [expr "$xpos-8"] [expr "$ypos -3"] -anchor nw -text $tex -fill #dfdfdf -font {Courier -10  }
  1298.             incr xpos 120
  1299.             .boxc create text $xpos $ypos -anchor ne -text $part -font {Helvetica -10}
  1300.  
  1301.             if {$mnt != "" && $fs != "Audio"} {
  1302.                 if {$mnt != "" && $fs != "swap" && $fs != "initrdswap"} {
  1303.                     incr xpos 5
  1304.                     set_box_trigger n_itm $dev $ypos $xpos 26 LightGoldenrod "Rox" "rox"
  1305.                     incr xpos 26
  1306.                 }
  1307.                 if {$mnt != ""} {
  1308.                     if {$fs != "swap" && $fs != "initrdswap" &&[permit_unmount $mnt]} {
  1309.                         incr xpos 5
  1310.                         set_box_trigger n_itm $dev $ypos $xpos 49 PeachPuff "Unmount" "unmount"
  1311.                         incr xpos 49
  1312.                     }
  1313.                     incr xpos 5
  1314.                     .boxc create text $xpos [expr "2 + $ypos"] -anchor nw -text "$mnt" -fill $::clr(mount) -font {Courier -10 bold} 
  1315.                     incr xpos [expr " 7 * [string length $mnt]"]
  1316.                 }
  1317.                 if {$fs == "swap"} {
  1318.                     incr xpos 5
  1319.                     set_box_trigger n_itm $dev $ypos $xpos 51 blue "Swap Off" "swapoff"
  1320.                     incr xpos 51
  1321.                 }
  1322.                 if {$fs == "initrdswap"} {
  1323.                     incr xpos 5
  1324.                     set_box_trigger n_itm $dev $ypos $xpos 51 blue "Swap Off" "initrdswapoff"
  1325.                     incr xpos 51
  1326.                 }
  1327.             } elseif { $fs == "Audio" } {
  1328.  
  1329.             } elseif { $fs != "" && $fs != "unknown" && $part != ""} {
  1330.                 if { $fs == "swap" } {
  1331.                     incr xpos 5
  1332.                     set_box_trigger n_itm $dev $ypos $xpos 56 SkyBlue "Use Swap" "swapon"
  1333.                     incr xpos 56
  1334.                 } else {
  1335.                     if {$mnt == ""} {
  1336.                         incr xpos 5
  1337.                         set_box_trigger n_itm $dev $ypos $xpos 37 pink "Mount" "mount"
  1338.                         incr xpos 37
  1339.                     }
  1340.                 }
  1341.             }
  1342.             incr ypos 19
  1343.             set nextdev_ypos [max [expr "10 + $ypos"] $nextdev_ypos]
  1344.         }
  1345.         incr index
  1346.     }
  1347.  
  1348. }
  1349.  
  1350.  
  1351.  
  1352. ## Initialise global variables here:
  1353.  
  1354. set Version "0.0.9b";                      # Version Number
  1355. set mut [homepath];                       # Home path to app directory, Now done automatically! :-)
  1356. set debug 0;                              # Choose output of debugging information, output is to stdout
  1357. set last_hotplug 0;                       # USB SCSI hotplug last refresh info, for hot [un]plug scanning.
  1358. set Kernel_Version ""
  1359. set Program_Initialized false;            # Make start quicker.
  1360.  
  1361. # get the Kernel version.
  1362. proc get_kv {} {
  1363.     set ::Kernel_Version "Unknown"
  1364.     catch {
  1365.         set fid [open "/proc/version" r]
  1366.         while {![eof $fid]} {
  1367.             gets $fid str
  1368.             set ::Kernel_Version "[string range [lindex [split $str] 2] 0 2]"
  1369.             break;
  1370.         }
  1371.         close $fid
  1372.     }
  1373. }
  1374. get_kv
  1375.  
  1376. ## global variables used to describe attached hardware:
  1377.  
  1378.  
  1379. array unset partitions ;                  # List of info from /proc/partitions
  1380. array unset mounteds ;                    # List of info from /proc/mounts
  1381. array unset actions ;                     # "click actions" value is a list of {action minx miny maxx maxy}
  1382. set Stack_rearrange 0 ;                   # Stack the window rearrange events
  1383. array unset etc_fstab ;                   # save info from /etc/fstab file.
  1384. array unset cdromMedium ;                 # List of info from bin/cdrominfo about cdrom drives in system
  1385. array unset diskStats ;                   # info about block devices in system
  1386. set grabdevs {fd hd sd scd sr} ;          # list of device types to scan in /proc/diskstats & /proc/partitions
  1387. set existing_nodes "" ;                   # Keep track of nodes that exist in /dev directory.
  1388. array unset majorBus ;                    # block device info from /proc/devices
  1389. array unset majorBusRev ;                 # reverse lookup of majorBus, not always best to use! heh :)
  1390. set infolist "";                          # The list of displayed devices & partitions.
  1391.  
  1392. ## Process command line arguments, debuging flag only at this point
  1393.  
  1394. if {$argc > 0} {
  1395.     for {set i 0} {$i < $argc} {incr i} {
  1396.         set sw [string trimleft [lindex $argv $i] "- "]
  1397.         switch $sw {
  1398.             "d" {set debug 1 ; puts "debugging on"}
  1399.             "debug" {set debug 1 ; puts "debugging on"}
  1400.             default {}
  1401.         }
  1402.     }
  1403. }
  1404.  
  1405. ## Load Images for display:
  1406. image create photo ::img::img(fd3)     -file "$mut/icon/fd3.ppm"
  1407. image create photo ::img::img(fd5)     -file "$mut/icon/fd5.ppm"
  1408. image create photo ::img::img(cdhuh)   -file "$mut/icon/cdhuh.ppm"
  1409. image create photo ::img::img(cdro)    -file "$mut/icon/cd-ro.ppm"
  1410. image create photo ::img::img(cdraw)   -file "$mut/icon/cd-raw.ppm"
  1411. image create photo ::img::img(dvdro)   -file "$mut/icon/dvd-ro.ppm"
  1412. image create photo ::img::img(dvdraw)  -file "$mut/icon/dvd-raw.ppm"
  1413. image create photo ::img::img(disk)    -file "$mut/icon/disk.ppm"
  1414. image create photo ::img::img(scsidisk) -file "$mut/icon/scsidisk.ppm"
  1415. image create photo ::img::img(satadisk) -file "$mut/icon/satadisk.ppm"
  1416. image create photo ::img::img(usbdisk) -file "$mut/icon/usbdisk.ppm"
  1417. image create photo ::img::img(zip)     -file "$mut/icon/zip.ppm"
  1418. ## These two images are the screen tattoos
  1419. image create photo ::img::img(refresh) -file "$mut/icon/refresh.ppm"
  1420. image create photo ::img::img(tux)     -file "$mut/icon/tux.ppm"
  1421.  
  1422.  
  1423. # set transparency on tattoos
  1424. catch {
  1425.         foreach img [list "tux" "refresh"] {
  1426.         set width [image width ::img::img($img)]
  1427.         set height [image height ::img::img($img)]
  1428.         for {set x 0} {$x < $width} {incr x} {
  1429.             for {set y 0} {$y < $height} {incr y} {
  1430.                 #set c [lindex $data [incr ndx]]
  1431.                 set c [::img::img($img) get $x $y ]
  1432.                 if {[lindex $c 0] == 127 && [lindex $c 1] == 127 && [lindex $c 2] == 127} { 
  1433.                     ::img::img($img) transparency set $x $y 1
  1434.                 }
  1435.             }
  1436.         }
  1437.     }
  1438. }
  1439.  
  1440.  
  1441. ## MUT version information
  1442.  
  1443. if {$debug} {puts "'MUT version $::Version' on a $::Kernel_Version kernel, bugs, fixes, suggestions, email: Jesse.Liley@gmail.com"}
  1444. if {$::debug} { puts " unmountables are $NoUnmounts $PuppyNoUnmount"}
  1445. proc kick_off_autoscan {} {
  1446.     if {[file exists /proc/bus/usb/devices]} {
  1447.         usb_autoscan on
  1448.     } else {
  1449.         full_refresh_display
  1450.     }
  1451. }
  1452.  
  1453. ## Kick off the application, get it running:
  1454.  
  1455. catch { exec $mut/bin/load_drivers.sh }
  1456. Create_Display
  1457. after 2500 kick_off_autoscan
  1458. if {$debug} {puts "Program started"}
  1459.