2019-fosdem/nbdview/nbdraid.tcl

   1 #!/usr/bin/env wish
   2 # Visualize RAID activity - read the README file first!
   3 # Copyright (C) 2018 Red Hat Inc.
   4 # All rights reserved.
   5 #
   6 # Redistribution and use in source and binary forms, with or without
   7 # modification, are permitted provided that the following conditions are
   8 # met:
   9 #
  10 # * Redistributions of source code must retain the above copyright
  11 # notice, this list of conditions and the following disclaimer.
  12 #
  13 # * Redistributions in binary form must reproduce the above copyright
  14 # notice, this list of conditions and the following disclaimer in the
  15 # documentation and/or other materials provided with the distribution.
  16 #
  17 # * Neither the name of Red Hat nor the names of its contributors may be
  18 # used to endorse or promote products derived from this software without
  19 # specific prior written permission.
  20 #
  21 # THIS SOFTWARE IS PROVIDED BY RED HAT AND CONTRIBUTORS ''AS IS'' AND
  22 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
  23 # THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
  24 # PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL RED HAT OR
  25 # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  26 # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
  27 # LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
  28 # USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
  29 # ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
  30 # OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
  31 # OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  32 # SUCH DAMAGE.
  33
  34 package require Tk
  35
  36 source "nbdcanvas.tcl"
  37
  38 set blocksize 4096
  39 set width 128
  40 set scale 2
  41
  42 # This list is used to store all the RAID handles.
  43 set handles {}
  44
  45 # This function polls the log file of each handle (every 100 ms).
  46 proc poll {} {
  47     global handles
  48
  49     foreach h $handles {
  50         nbdpoll $h
  51     }
  52     after 100 poll
  53 }
  54
  55 # Parse command line.
  56 if { $argc != 4 } {
  57     puts "usage: nbdview N size logfile-pattern errorfile-pattern"
  58     exit 1
  59 }
  60 set N [lindex $argv 0]
  61 set size [lindex $argv 1]
  62 set logpattern [lindex $argv 2]
  63 set errorpattern [lindex $argv 3]
  64
  65 # Menubar.
  66 option add *tearOff 0
  67 menu .menubar
  68 . configure -menu .menubar
  69 menu .menubar.file
  70 .menubar add cascade -menu .menubar.file -label File
  71 .menubar.file add command -label "Quit" -command { exit }
  72
  73 # Frame.
  74 frame .f
  75 pack .f -anchor center -expand 1 -fill both -ipadx 10 -ipady 10
  76
  77 # Canvases.
  78 for { set i 1 } { $i <= $N } { incr i } {
  79     set logfile($i) [format $logpattern $i]
  80     set errorfile($i) [format $errorpattern $i]
  81
  82     # VBox to store the canvas and controls.
  83     set box ".f.h$i"
  84     frame $box
  85     pack $box -side left -expand 1 -fill both
  86
  87     # Create the error checkbox.
  88     set errorbutton "$box.e"
  89     set errorvar($i) off
  90     checkbutton $errorbutton -text "Error" -variable errorvar($i) \
  91         -command "set_errorfile $i"
  92     proc set_errorfile { i } {
  93         global errorvar errorfile
  94         if { $errorvar($i) } {
  95             # Touch the error inject file.
  96             close [open $errorfile($i) "w"]
  97         } else {
  98             # Delete it.
  99             file delete $errorfile($i)
 100         }
 101     }
 102     pack $errorbutton -side top -anchor nw -expand 0 -fill none
 103
 104     # Create the i'th canvas.
 105     set canvas "$box.c"
 106     set h [nbdcanvas $canvas $logfile($i) $size $blocksize $width $scale]
 107     $canvas configure -borderwidth 4 -relief groove
 108     pack $canvas -side top -expand 0 -fill none
 109
 110     lappend handles $h
 111 }
 112
 113 # Set up the window.
 114 wm attributes . -topmost 1
 115 wm title . "nbdraid"
 116 wm resizable . false false
 117
 118 # Start polling the log file.
 119 after 100 poll