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 / sbin / kp < prev    next >
Encoding:
Tcl/Tk script  |  2004-11-02  |  5.7 KB  |  307 lines
  1. #!/usr/bin/wish -f
  2. # 
  3. #    Process Lister -- list processes, signal them
  4. #
  5. #Hacked by GuestToo and BK, for Puppy Linux, www.puppylinux.org
  6.  
  7.  
  8. # initial values for menu options 
  9. set user    $env(LOGNAME)
  10. set signal    -9
  11. # ...have changed this from -2
  12.  
  13. option add *borderWidth    1
  14.  
  15. #
  16. #    Get the selected line(s) from the list-box,
  17. #    extract the pid, signal the process
  18. #
  19. proc kill_proc {} {
  20.     global signal
  21.  
  22.     #
  23.     # Get the list of selected line numbers.
  24.     # If the list is empty, nothing is selected, so return
  25.     #
  26.     set sellist [.ps.list curselection]
  27.     if {[llength $sellist] == 0} {
  28.         return
  29.     }
  30.  
  31.     #
  32.     # For each entry in the selected-lines-list,
  33.     # get the line, extract the pid, append to a list of PID's 
  34.     # (optional: filter out critical processes that shouldn't be touched)
  35.     #
  36.     foreach index $sellist {
  37.         set line [.ps.list get $index]
  38.         set pid "" 
  39.         scan $line "%s %d" uid pid
  40.         if {$pid == ""} {
  41.             scan $line "%d" pid
  42.             if {$pid == ""} {
  43.                 continue
  44.             }
  45.         }
  46.  
  47.         # Use this to skip over protected processes:
  48.         # if {[string match "*precious*" $line]} {
  49.         #     err "$line\n\nMust not kill this process!"
  50.         #     continue
  51.         # }
  52.  
  53.         lappend pid_list $pid
  54.     }
  55.  
  56.     #
  57.     # Construct a "kill" command line,
  58.     # execute it and get the error return
  59.     #
  60.     set cmd [list exec kill $signal $pid_list]
  61.     set ret [catch $cmd err]
  62.     
  63.     #
  64.     # If there was a problem signalling a process, 
  65.     # let the user know
  66.     #
  67.     if {$ret == 1} {
  68.         msg "Could not kill a process;\nit's already gone?"
  69.         return
  70.     }
  71.  
  72.     #
  73.     # Refresh the process list
  74.     #
  75.     scan_proc
  76. }
  77.  
  78. #
  79. #    Do a "ps", collect the output, put into a list-box
  80. #
  81. proc scan_proc {} {
  82.     set cmd "|ps"
  83.     #
  84.     # Sort the output (by names or PIDs)
  85.     #
  86.     append cmd " | sort -n "
  87.  
  88.     #
  89.     # Evaluate the command line
  90.     # Get the resulting list of lines
  91.     # Fill the list-box with the lines
  92.     # Be careful to retain our position in the listbox!
  93.     #
  94.     set fid [open $cmd r]
  95.     if {$fid != 0} {
  96.         # save original position
  97.         set sel [lindex [.ps.list curselection] 0]
  98.         set top [.ps.list nearest 1]
  99.  
  100.         # clear contents, refill it
  101.         .ps.list delete 0 end
  102.         while {[gets $fid line] > 0} {
  103.             .ps.list insert end $line
  104.         }
  105.         catch {close $fid}
  106.  
  107.         # restore listbox position
  108.         if {$sel != ""} {
  109.             .ps.list selection set $sel
  110.             .ps.list activate $sel
  111.         }
  112.         .ps.list yview $top
  113.     } {
  114.         err "Cannot run command\n$cmd"
  115.         return
  116.     }
  117. }
  118.  
  119. #
  120.  
  121. #
  122.  
  123. proc err { msg } {
  124.     tk_dialog .err "Error!" $msg error 0 OK
  125. }
  126.  
  127. proc msg { msg } {
  128.     tk_dialog .msg "Message:" $msg info 0 OK
  129. }
  130.  
  131. proc ask_yn { msg } {
  132.     return [tk_dialog .ask "Question:" "$msg" question 0 Yes No]
  133. }
  134.  
  135. #
  136. #    Make a listbox and scrollbar, glue them together,
  137. #    add some keyboard controls
  138. #
  139. proc list_box {w {action ""}} {
  140.     if {[winfo exists $w] == 0} {
  141.         frame $w
  142.     }
  143.     scrollbar $w.sb -command "$w.list yview"
  144.     listbox $w.list -yscroll "$w.sb set" \
  145.         -font fixed -setgrid 1 -width 81 -height 10
  146.     pack $w.sb   -side right -fill y
  147.     pack $w.list -side left  -fill both -expand yes
  148.     if {$action != ""} {
  149.         bind $w.list    <Double-1>    $action
  150.         bind $w.list    <Return>    $action
  151.     }
  152.     bind $w.list    <Control-p>    {tkListboxUpDown %W -1}
  153.     bind $w.list    <Control-n>    {tkListboxUpDown %W  1}
  154.     bind $w.list    <k>        {tkListboxUpDown %W -1}
  155.     bind $w.list    <j>        {tkListboxUpDown %W  1}
  156.     bind $w        <Any-Enter>    "focus $w.list"
  157. }
  158.  
  159. #
  160. #    Make a menubar with menus
  161. #
  162. proc menu_bar {w args} {
  163.     if {[winfo exists $w] == 0} {
  164.         frame $w -relief raised
  165.     }
  166.     set mnum 0        ;# menu counter
  167.     set inum 0        ;# item counter
  168.  
  169.     foreach arg $args {
  170.         foreach {type name var val v2} $arg { }
  171.     
  172.         if {$inum == 0 && [string match "menu*" $type] == 0} {
  173.             err "menu_bar: need menu to hold $type/$name menu-item"
  174.             return
  175.         }
  176.  
  177.         switch $type {
  178.         menu {
  179.             set mbase $w.m[incr mnum]
  180.             set new $mbase.menu
  181.             menubutton $mbase -text $name -menu $new
  182.             menu $new -disabledforeground DarkBlue
  183.             set inum 1
  184.         }
  185.  
  186.         sep {
  187.             $new add sep
  188.         }
  189.  
  190.         label {
  191.             $new add command -label $name -state disabled
  192.             incr inum    
  193.         }
  194.  
  195.         cmd {
  196.             $new add command -label $name -command $var
  197.             incr inum
  198.         }
  199.  
  200.         radio {
  201.             global $var
  202.             $new add radiobutton -label $name \
  203.                 -variable $var -value $val
  204.             incr inum
  205.         }
  206.         
  207.         check {
  208.             global $var
  209.             $new add checkbutton -label $name \
  210.                 -variable $var -offvalue $val -onvalue $v2
  211.             incr inum
  212.         }
  213.  
  214.         end {
  215.             # pack this menu on the given side
  216.             pack $mbase -side $name -padx 1m
  217.             set inum 0
  218.         }
  219.  
  220.         default {
  221.             err "menu_bar: unknown type '$type' for '$name'"
  222.             return
  223.         }
  224.  
  225.         }
  226.     }
  227. }
  228.  
  229.  
  230. #
  231. #    Make a button row from some button names and commands
  232. #
  233. proc buttons {w args} {
  234.     if {[winfo exists $w] == 0} {
  235.         frame $w
  236.     }
  237.     set i 0
  238.     set btns ""
  239.     foreach arg $args {
  240.         foreach {name cmd} $arg { }
  241.         set btn $w.b[incr i]
  242.         append btns " $btn"
  243.         button $btn -text $name -command $cmd
  244.         
  245.     }
  246.     eval pack $btns -side left -fill x -expand yes
  247. }
  248.  
  249.  
  250. #
  251. #    Make the main control panel -- fill it with some controls 
  252. #
  253. proc make_control_panel { } {
  254.     global user
  255.     wm title    . "Process Lister"
  256.     wm iconname    . "PL"
  257.     wm command    . "PL"
  258.  
  259.     menu_bar .mbar                        \
  260.         {menu    File}                    \
  261.         {cmd    Quit        exit}            \
  262.         {end    left}                     \
  263.         \
  264.         {menu    Signals}                \
  265.         {radio    " 1 Hangup"    signal     -1}        \
  266.         {radio    " 2 Interrupt"    signal     -2}        \
  267.         {radio    " 3 Quit"    signal     -3}        \
  268.         {radio    " 9 Kill"    signal     -9}        \
  269.         {radio    "14 Alarm"    signal    -14}        \
  270.         {radio    "15 Terminate"    signal    -15}        \
  271.         {radio    "23 Stop"    signal    -23}        \
  272.         {radio    "24 Term. Stop"    signal    -24}        \
  273.         {radio    "25 Continue"    signal    -25}        \
  274.         {end    left}
  275.  
  276.     list_box .ps kill_proc
  277.  
  278.     buttons    .cmd            \
  279.         {Scan    scan_proc}    \
  280.         {Kill    kill_proc}    \
  281.         {Quit    exit}
  282.  
  283.     # pack menu         -> top
  284.     # pack btns         -> on the bottom
  285.     # pack scroll-box    -> in the middle
  286.  
  287.     pack .mbar     -side top    -fill x 
  288.     pack .cmd    -side bottom    -fill x 
  289.     pack .ps     -side top    -fill both    -expand yes
  290. }
  291.  
  292.  
  293. #
  294. #    Read user's settings, make the interface
  295. #
  296. make_control_panel
  297. update
  298. scan_proc
  299.  
  300. #
  301. #    Stub routine to get a new process listing 
  302. #    (called from Tcl 'trace', setup below)
  303. #
  304. proc do_new_scan {n1 n2 op} {
  305.     scan_proc
  306. }
  307.