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 / xeznet.tcl < prev    next >
Encoding:
Text File  |  1999-08-29  |  25.6 KB  |  837 lines
  1.  
  2. #!/bin/sh
  3. # \
  4. exec wish "$0" "$@"
  5.  
  6. # 
  7. #       xeznet - Tcl/Tk interface for 'eznet'
  8. #       xeznet,v 1.8 1999/02/19 00:55:48 migh Exp
  9. #
  10.  
  11. option add *borderWidth         1
  12. option add *Label*anchor        w
  13. option add *Label*foreground    DarkBlue
  14.  
  15. bind Entry <FocusIn>    {%W configure -background gray95; show_help %W}
  16. bind Entry <FocusOut>   {%W configure -background gray85}
  17.  
  18. set upd_rate 60                 ;# status update rate (see menu settings)
  19. set nquick 0                    ;# number of quick updates for service up/down
  20.  
  21. set rc_file     ~/.xeznet_rc
  22.  
  23. #
  24. #       Return a list of selected service names
  25. #
  26. proc get_sel { } {
  27.         msg ""
  28.         set svcs {}
  29.         foreach ix [.lbox.list curselection] {
  30.                 set line [.lbox.list get $ix]
  31.                 set svc [string trim \
  32.                                 [string range $line 1 \
  33.                                         [string wordend $line 1]]]
  34.                 if {$svc == ""} {
  35.                         continue
  36.                 }
  37.                 lappend svcs $svc
  38.         }
  39.         if {[llength $svcs] == 0} {
  40.                 msg "Select a service, then click the button."
  41.         }
  42.         return $svcs
  43. }
  44.  
  45. #
  46. #       Make a new action window for each selected service name
  47. #
  48. proc do_sel {action} {
  49.         if {$action == "add"} {
  50.                 msg ""
  51.                 svc_window add new
  52.         } {
  53.                 foreach svc [get_sel] {
  54.                         svc_window $action $svc
  55.                 }
  56.         }
  57.         return
  58. }
  59.  
  60. #
  61. #       Bring the selected service(s) up or down
  62. #       TODO: we sometimes exit when we bring down a service
  63. #
  64. proc do_updn {dir} {
  65.         set svcs [get_sel]
  66.         foreach svc $svcs {
  67.                 msg "Bringing $dir $svc."
  68.                 catch {exec eznet $dir $svc >/dev/null &}
  69.         }
  70.         if {[llength $svcs] > 0} {
  71.                 global nquick
  72.                 set nquick 12
  73.                 svc_status
  74.         }
  75.         return
  76. }
  77.  
  78. #
  79. #       Refresh the current service status
  80. #
  81. proc svc_status {{repeat 0}} {
  82.         set fid 0
  83.         if {[catch {open "|eznet status" r} fid] == 0} {
  84.                 set sel [lindex [.lbox.list curselection] 0]
  85.                 .lbox.list delete 0 end
  86.                 while {[gets $fid line] > 0} {
  87.                         set p [string first ":" $line]
  88.                         set svc  [string range $line 0 [expr {$p - 1}]]
  89.                         set stat [string range $line [expr {$p + 1}] end]
  90.                         .lbox.list insert end [format " %-10s %s" $svc $stat]
  91.                 }
  92.                 catch {close $fid}
  93.                 if {$sel != ""} {
  94.                         .lbox.list selection set $sel
  95.                         .lbox.list activate $sel
  96.                         .lbox.list see $sel
  97.                 }
  98.         } {
  99.                 msg "Unable to get status from 'eznet'."
  100.         }
  101.  
  102.         # do we repeat?  how soon?
  103.         set dt 0
  104.         global nquick
  105.         if {$nquick > 0} {
  106.                 set dt 5000
  107.                 incr nquick -1
  108.         } elseif {$repeat > 0} {
  109.                 global upd_rate
  110.                 set dt [expr {$upd_rate * 1000}]
  111.         }
  112.         if {$dt > 0} {
  113.                 after $dt svc_status 1
  114.         }
  115.         return
  116. }
  117.  
  118. #
  119. #       Handle the "OK" button on the service information window
  120. #
  121. proc do_svc_ok {w action} {
  122.         set svc [$w.service.e get]
  123.         if {$action == "delete"} {
  124.                 msg "Deleted $svc"
  125.                 catch {exec eznet delete $svc >/dev/null}
  126.         } elseif {$action != "show"} {
  127.                 set cmd "eznet $action $svc"
  128.                 set args ""
  129.                 global all_entries
  130.                 foreach x $all_entries {
  131.                         set val [$w.$x.e get]
  132.                         # TODO: How do we clear an entry???
  133.                         if {$val != ""} {
  134.                                 if {$x == "password" && [string index $val 0] == "*"} {
  135.                                         continue
  136.                                 } {
  137.                                         append args " \"$x=$val\""
  138.                                 }
  139.                         }
  140.                 }
  141.                 if {$args != ""} {
  142.                         msg "$cmd ..."
  143.                         catch {eval exec $cmd $args >/dev/null}
  144.                 }
  145.         }
  146.         destroy $w
  147.         update idletasks
  148.         if {$action != "show"} {
  149.                 svc_status
  150.         }
  151.         return
  152. }
  153.  
  154. array set entry_help {
  155.         phone           "Phone number for modem to dial"
  156.         user            "User login name"
  157.         password        "Login password"
  158.         tty             "Serial port for the modem"
  159.         baud            "Baud rate for the serial port"
  160.         service         "Name of the ISP"
  161.         chat            "`no' to ignore `login:' prompts, etc."
  162.         autostart       "`no' to not start pppd if no `login:'"
  163.         pppversion      "Version of pppd in use"
  164.         debug           "`yes' to turn on pppd debugging"
  165.         expectN         "Extra expect string"
  166.         replyN          "Reply to issue after expect string"
  167.         initN           "Extra modem initialization string"
  168.         diald           "Name of diald executable"
  169.         pppd            "Name of pppd executable"
  170.         local           "Local IP address for diald slip link"
  171.         remote          "Remote IP address for diald slip link"
  172.         idle            "Number of seconds for idle timeout"
  173.         persist         "`yes' for a permanent connection"
  174.         defaultroute    "`no' to not create a default route"
  175.         pppoptN         "Extra parameters to pppd"
  176.         routeN          "Add this route when pppd comes up"
  177.         ip              "Network accessed by this service"
  178.         netmask         "Netmask for the ip network"
  179.         dialtimeout     "Time allowed for modem connect"
  180.         chattimeout     "Time allowed for chat dialog"
  181. }
  182.  
  183. proc show_help {w} {
  184.         global entry_help
  185.         set parts [split $w .]
  186.         set pw  [lindex $parts 1]
  187.         set ent [lindex $parts 2]
  188.         if {[winfo exists .$pw.help]} {
  189.                 regsub {[0-9]} $ent N ent
  190.                 if {![info exists entry_help($ent)]} {
  191.                         set entry_help($ent) "(unknown)"
  192.                 }
  193.                 .$pw.help configure -text "$ent - $entry_help($ent)"
  194.         }
  195.         return
  196. }
  197.  
  198. array set win_txt {
  199.         add     "Create Service" 
  200.         show    "Show Service for $svc" 
  201.         edit    "Edit Service for $svc" 
  202.         delete  "Delete Service for $svc ?"
  203. }
  204.  
  205. set win_id 0
  206.  
  207. #
  208. #       Split all the available entries/settings into subsets for display
  209. #
  210. set basic_entries {
  211.         service phone user password tty baud
  212. }
  213.  
  214. set modem_entries {
  215.         chat
  216.         diald dialtimeout chattimeout idle
  217.         init0 init1 init2 init3 init4
  218. }
  219.  
  220. set chat_entries {
  221.         expect0 reply0 
  222.         expect1 reply1 
  223.         expect2 reply2 
  224.         expect3 reply3 
  225.         expect4 reply4 
  226. }
  227.  
  228. set ppp_entries {
  229.         pppd pppversion 
  230.         pppopt0 pppopt1 pppopt2 pppopt3 pppopt4
  231.         autostart debug 
  232. }
  233.  
  234. set ip_entries {
  235.         local remote ip netmask persist
  236. }
  237.  
  238. set route_entries {
  239.         defaultroute
  240.         route0 route1 route2 route3 route4
  241. }
  242.  
  243. set all_entries [concat $basic_entries $modem_entries $chat_entries\
  244.                         $ppp_entries $ip_entries $route_entries]
  245.  
  246. #
  247. #       List of frame names and titles
  248. #       (names should match above entry lists)
  249. #
  250. set frame_list {
  251.         {basic  "Basic Settings"}
  252.         {modem  "Modem Settings"}
  253.         {chat   "Chat Dialog Settings"}
  254.         {ppp    "PPP Settings"}
  255.         {ip     "IP Settings"}
  256.         {route  "Route Settings"}
  257. }
  258.  
  259. #
  260. #       Unpack the current selection frame; pack a new one
  261. #
  262. proc newframe {w opt} {
  263.         # unpack the old frame (find it by name "f_xyz")
  264.         foreach slave [pack slaves $w] {
  265.                 if {[string first "f_" $slave] > 0} {
  266.                         pack forget $slave
  267.                 }
  268.         }
  269.         # new text on menu button
  270.         global frame_defs
  271.         $w.fs configure -text $frame_defs($opt)
  272.  
  273.         # pack the new frame
  274.         pack $w.f_$opt -side top -fill both -expand yes
  275.         
  276.         # select first entry (to update the help-text, if there)
  277.         global ${opt}_entries
  278.         set x [lindex [set ${opt}_entries] 0]
  279.         $w.$x.e select range 0 end
  280.         focus $w.$x.e
  281. }
  282.  
  283. #
  284. #       Make a service-information window
  285. #
  286. proc svc_window {action svc} {
  287.         global win_id win_txt
  288.  
  289.         # make a new window
  290.         set w .w[incr win_id]
  291.         toplevel $w
  292.         wm title $w [subst $win_txt($action)]
  293.         # TODO: wm iconbitmap $w ... ?
  294.  
  295.         # make a menu button to choose among the frames
  296.         menubutton $w.fs -indicatoron 1 -menu $w.fs.menu -anchor w \
  297.                 -text "Basic Settings" -relief raised
  298.         menu $w.fs.menu -tearoff 0
  299.  
  300.         # make some frames to hold subsets of entries
  301.         global frame_list frame_defs
  302.         foreach x $frame_list {
  303.                 foreach {base label} $x { }
  304.  
  305.                 # save name-label association for later
  306.                 # add menu button to the menu
  307.                 set frame_defs($base) $label
  308.                 $w.fs.menu add radiobutton -label $label -indicatoron 0 \
  309.                         -command "newframe $w $base"
  310.  
  311.                 # make the frame and fill it with its labelled entries
  312.                 global ${base}_entries
  313.                 frame $w.f_$base
  314.                 foreach x [set ${base}_entries] {
  315.                         labent $w $x
  316.                         pack $w.$x -in $w.f_$base -side top -fill x
  317.                 }
  318.         }
  319.  
  320.         # make the bottom button row
  321.         buttons $w.b left \
  322.                 [list OK        "do_svc_ok $w $action"] \
  323.                 [list Cancel    "destroy $w"]
  324.  
  325.         # put the frame-selector on top, button-row on bottom, frame inbetween
  326.         pack $w.fs      -side top       -fill x
  327.         pack $w.b       -side bottom    -fill x
  328.         pack $w.f_basic -side top       -fill both -expand yes
  329.  
  330.         # make the 'OK' button look special on the delete-window
  331.         if {$action == "delete"} {
  332.                 $w.b.b1 configure -activeforeground Red -fg Red -text Delete
  333.         }
  334.  
  335.         # for editable windows, add a prompt-line for help messages
  336.         if {$action == "add" || $action == "edit"} {
  337.                 label $w.help -text "" -fg Black -relief sunken -padx 1m \
  338.                         -font Helvetica
  339.                 pack $w.help -side bottom -fill x
  340.         }
  341.  
  342.         if {$action == "add"} {
  343.                 $w.service.e insert 0 service-name
  344.                 $w.service.e select range 0 end
  345.                 focus $w.service.e
  346.         } {
  347.                 update
  348.                 if {[catch {open "|eznet list $svc" r} fid] == 0} {
  349.                         while {[gets $fid buf] > 0} {
  350.                                 set p [string first "=" $buf]
  351.                                 incr p -1
  352.                                 set var [string trim [string range $buf 0 $p]]
  353.                                 incr p 2
  354.                                 set val [string trim [string range $buf $p end]]
  355.                                 if {[winfo exists $w.$var.e]} {
  356.                                         $w.$var.e insert 0 $val
  357.                                 }
  358.                                 # TODO: else report missing values?
  359.                         }
  360.                         catch {close $fid}
  361.                 }
  362.         }
  363.  
  364.         # make the 'show' and 'delete' windows read-only
  365.         if {$action == "show" || $action == "delete"} {
  366.                 global all_entries
  367.                 foreach x $all_entries {
  368.                         $w.$x.e configure -state disabled
  369.                 }
  370.                 if {$action == "show"} {
  371.                         bind $w <Return> [list $w.b.b1 invoke]
  372.                 }
  373.         }
  374.         return
  375. }
  376.  
  377. #
  378. #       Put messages or errors in the message line
  379. #
  380. proc err {msg} {
  381.         .msg configure -text "Error! $msg"
  382.         return
  383. }
  384.  
  385. proc msg {msg} {
  386.         .msg configure -text $msg
  387.         return
  388. }
  389.  
  390. # proc ask_yn {msg} {
  391. #       return [tk_messageBox -title Question -message $msg \
  392. #               -icon question -type yesno]
  393. # }
  394.  
  395. ###
  396. ### Some GUI-creation helper routines...
  397. ###
  398.  
  399. #
  400. #       Make a menubar with menus
  401. #
  402. proc menu_bar {w args} {
  403.         if {[winfo exists $w] == 0} {
  404.                 frame $w -relief raised -borderwidth 2
  405.         }
  406.         set mnum 0              ;# menu counter
  407.         set inum 0              ;# item counter
  408.  
  409.         foreach arg $args {
  410.                 foreach {type name var val v2} $arg { }
  411.                 if {$inum == 0 && [string match "menu*" $type] == 0} {
  412.                         err "menu_bar: need menu to hold $type/$name menu-item"
  413.                         return
  414.                 }
  415.                 switch $type {
  416.                 menu {
  417.                         set mbase $w.m[incr mnum]
  418.                         set new $mbase.menu
  419.                         menubutton $mbase -text $name -menu $new
  420.                         menu $new -disabledforeground DarkBlue
  421.                         set inum 1
  422.                 }
  423.                 sep {
  424.                         $new add sep
  425.                 }
  426.                 label {
  427.                         $new add command -label $name -state disabled
  428.                         incr inum       
  429.                 }
  430.                 cmd {
  431.                         $new add command -label $name -command $var
  432.                         incr inum
  433.                 }
  434.                 radio {
  435.                         global $var
  436.                         $new add radiobutton -label $name \
  437.                                 -variable $var -value $val
  438.                         incr inum
  439.                 }
  440.                 check {
  441.                         global $var
  442.                         $new add checkbutton -label $name \
  443.                                 -variable $var -offvalue $val -onvalue $v2
  444.                         incr inum
  445.                 }
  446.                 end {
  447.                         # pack this menu on the given side
  448.                         pack $mbase -side $name -padx 1m
  449.                         set inum 0
  450.                 }
  451.                 default {
  452.                         err "menu_bar: unknown type '$type' for '$name'"
  453.                         return
  454.                 }
  455.                 }
  456.         }
  457.         return
  458. }
  459.  
  460. #
  461. #       Make a button row from names and commands
  462. #
  463. proc buttons {w dir args} {
  464.         if {[winfo exists $w] == 0} {
  465.                 frame $w
  466.         }
  467.         set i 0
  468.         set btns ""
  469.         foreach arg $args {
  470.                 foreach {name cmd} $arg { }
  471.                 set btn $w.b[incr i]
  472.                 append btns " $btn"
  473.                 button $btn -text $name -command $cmd -width 4
  474.         }
  475.         eval pack $btns -side $dir -fill x -expand yes
  476.         return
  477. }
  478.  
  479. #
  480. #       Make a labeled entry
  481. #
  482. proc labent {w x} {
  483.         if {[winfo exists $w.$x] == 0} {
  484.                 frame $w.$x
  485.         }
  486.         label $w.$x.l -text $x -anchor e -width 10 -padx 3m
  487.         entry $w.$x.e -width 25
  488.         pack  $w.$x.l -side left -fill x
  489.         pack  $w.$x.e -side left -fill x -expand yes
  490.         return
  491. }
  492.  
  493. #
  494. #       Make a listbox/scrollbar pair, connect them
  495. #
  496. proc list_box {w title action} {
  497.         if {[winfo exists $w] == 0} {
  498.                 frame $w
  499.         }
  500.         label $w.hdr -text $title -font fixed -anchor w
  501.         scrollbar $w.sb -command "$w.list yview"
  502.         listbox $w.list -yscroll "$w.sb set" \
  503.                 -font fixed -setgrid 1 -height 5
  504.  
  505.         pack $w.hdr  -side top   -fill x
  506.         pack $w.sb   -side right -fill y
  507.         pack $w.list -side left  -fill both -expand yes
  508.         if {$action != ""} {
  509.                 bind $w.list    <Double-1>      $action
  510.                 bind $w.list    <Return>        $action
  511.         }
  512.         bind $w.list    <Control-p>     {tkListboxUpDown %W -1}
  513.         bind $w.list    <Control-n>     {tkListboxUpDown %W  1}
  514.         bind $w.list    <k>             {tkListboxUpDown %W -1}
  515.         bind $w.list    <j>             {tkListboxUpDown %W  1}
  516.         return
  517. }
  518.  
  519. #
  520. #       Make a text-box/scrollbar pair, connect them
  521. #
  522. proc text_box {w {title ""}} {
  523.         if {[winfo exists $w] == 0} {
  524.                 frame $w
  525.         }
  526.         if {$title != ""} {
  527.                 label $w.hdr -text $title -font fixed
  528.                 pack $w.hdr -side top -fill x
  529.         }
  530.         scrollbar $w.sb -command "$w.text yview"
  531.         text $w.text -yscroll "$w.sb set" -setgrid 1
  532. #               -font fixed 
  533.  
  534.         pack $w.sb -side right -fill y
  535.         pack $w.text -side left -fill both -expand yes
  536.  
  537.         $w.text insert end "Please wait..."
  538.         return
  539. }
  540.  
  541. #
  542. #       Given some text, fill a text-box
  543. #
  544. proc fill_textbox {tb ro txt} {
  545.         set t $tb.text
  546.         $t configure -state normal
  547.         $t delete 1.0 end
  548.         $t mark set insert 0.0
  549.         $t insert end $txt
  550.  
  551.         if {$ro == "ro"} {
  552.                 $t configure -state disabled
  553.                 $t mark set curs 0.0
  554.         } {
  555.                 $t mark set insert 0.0
  556.         }
  557.         return
  558. }
  559.  
  560. #
  561. #       Make a simple text window
  562. #
  563. proc simple_text {w title} {
  564.         if {[winfo exists $w] == 0} {
  565.                 toplevel $w
  566.                 # TODO: wm iconbitmap .   ...
  567.                 if {$title != ""} {
  568.                         wm title $w $title
  569.                 }
  570.                 text_box $w.tbox
  571.                 buttons $w.b left [list Done "destroy $w"]
  572.                 pack $w.tbox -side top -fill both -expand yes
  573.                 pack $w.b -side bottom -fill x
  574.                 bind $w <Return> "destroy $w"
  575.                 focus $w.tbox.text
  576.         } {
  577.                 wm deiconify $w
  578.         }
  579.         return
  580. }
  581.  
  582. ###
  583. ### End of GUI helpers
  584. ###
  585.  
  586. #
  587. #       Save our current settings
  588. #
  589. proc save_settings { } {
  590.         global rc_file
  591.         if {[catch {open $rc_file w} fid] == 0} {
  592.                 puts $fid "wm geometry . [wm geometry .]"
  593.                 set sel [lindex [.lbox.list curselection] 0]
  594.                 if {$sel != ""} {
  595.                         puts $fid "set lbsel $sel"
  596.                 } {
  597.                         puts $fid "set lbsel -1"
  598.                 }
  599.                 catch {close $fid}
  600.         }
  601. }
  602.  
  603. #
  604. #       Are we 'root'?
  605. #
  606. proc as_root { } {
  607.         global env
  608.         set rt 0
  609.         if {[info exists env(TESTING_XEZNET)]} {
  610.                 set rt 1
  611.         } elseif {[catch {open "|id" r} fid] == 0} {
  612.                 set id [read $fid]
  613.                 catch {close $fid}
  614.                 if {[string first "(root)" $id] > 0} {
  615.                         set rt 1
  616.                 }
  617.         }
  618.         return $rt
  619. }
  620.  
  621. #
  622. #       Make a new window, fill it with 'eznet log'
  623. #
  624. proc see_log { } {
  625.         simple_text .w_log "Log file from eznet"
  626.         update
  627.         if {[catch {open "|eznet log" r} fid] == 0} {
  628.                 set txt [read $fid]
  629.                 catch {close $fid}
  630.         } {
  631.                 set txt "Problems running 'eznet log'!"
  632.         }
  633.         fill_textbox .w_log.tbox ro $txt
  634.         return
  635. }
  636.  
  637. set eznet_icon {
  638. #define eznet_width 32
  639. #define eznet_height 32
  640. static unsigned char eznet_bits[] = {
  641.    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  642.    0x00, 0x00, 0x00, 0x00, 0xf8, 0x3f, 0xfe, 0x1f, 0xf8, 0x3f, 0xfe, 0x1f,
  643.    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  644.    0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x1c,
  645.    0x18, 0x00, 0x00, 0x0e, 0x18, 0x00, 0x00, 0x07, 0x18, 0x00, 0x80, 0x03,
  646.    0x18, 0x1f, 0xc0, 0x01, 0x18, 0x1f, 0xe0, 0x00, 0x18, 0x00, 0x70, 0x00,
  647.    0x18, 0x00, 0x38, 0x00, 0x18, 0x00, 0x1c, 0x00, 0x00, 0x00, 0x0e, 0x00,
  648.    0x00, 0x00, 0x06, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00,
  649.    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0x3f, 0xfe, 0x3f,
  650.    0xf8, 0x3f, 0xfe, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  651.    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
  652. }
  653.  
  654. #
  655. #       Work-around a Tcl/Tk "feature":
  656. #       - bitmaps work OK on buttons, but are not accepted by the 'wm' command
  657. #
  658. proc wm_set_icon {w icon} {
  659.         set iconFile /tmp/.eznet_icon.[pid]
  660.         if {[catch {open $iconFile w} fid] == 0} {
  661.                 puts $fid $icon
  662.                 close $fid
  663.                 wm iconbitmap $w @$iconFile
  664.                 catch {file delete $iconFile}
  665.         }
  666.         return
  667. }
  668.  
  669. #
  670. #       Make the main control and status panel
  671. #
  672. proc make_ui { } {
  673.         global upd_rate eznet_icon
  674.         wm title        . "EZNET Interface"
  675.         wm iconname     . "xeznet"
  676.         wm command      . "xeznet"
  677.         wm_set_icon     . $eznet_icon
  678.  
  679.         menu_bar .mbar                                          \
  680.                 {menu   File}                                   \
  681.                 {cmd    "See log..."    see_log}                \
  682.                 {cmd    Save            save_settings}          \
  683.                 {sep}                                           \
  684.                 {cmd    Quit            exit}                   \
  685.                 {end    left}                                   \
  686.                 \
  687.                 {menu   Update}                                 \
  688.                 {cmd    Now             svc_status}             \
  689.                 {radio  "10 sec"        upd_rate        10}     \
  690.                 {radio  "30 sec"        upd_rate        30}     \
  691.                 {radio  " 1 min"        upd_rate        60}     \
  692.                 {radio  " 5 min"        upd_rate        300}    \
  693.                 {end    left}                                   \
  694.                 \
  695.                 {menu   Help}                                   \
  696.                 {cmd    About           do_about}               \
  697.                 {cmd    Usage           do_use}                 \
  698.                 {end    right}
  699.  
  700.         list_box .lbox " Service     Status" {do_sel show}
  701.         bind . <Any-Enter> {focus .lbox.list}
  702.  
  703.         buttons .cmd left                       \
  704.                 {Show   {do_sel show}}          \
  705.                 {Edit   {do_sel edit}}          \
  706.                 {Add    {do_sel add}}           \
  707.                 {Delete {do_sel delete}}        \
  708.                 {Up     {do_updn up}}           \
  709.                 {Down   {do_updn down}}         \
  710.                 {Quit   exit}
  711.  
  712.         # if not root, pull off Edit/Add/Delete buttons
  713.         if {[as_root] == 0} {
  714.                 destroy .cmd.b2
  715.                 destroy .cmd.b3
  716.                 destroy .cmd.b4
  717.         }
  718.  
  719.         label .msg -text ""
  720.  
  721.         pack .mbar      -side top       -fill x 
  722.         pack .lbox      -side top       -fill both      -expand yes
  723.         pack .cmd .msg  -side bottom    -fill x 
  724.         return
  725. }
  726.  
  727. proc do_about { } {
  728.         simple_text .w_about "About xeznet"
  729.         .w_about.tbox.text configure -height 9
  730.         fill_textbox .w_about.tbox ro {
  731. xeznet is a graphical front-end for the 'eznet' command.
  732. This is version 1.8 made on 1999/02/19 00:55:48.
  733.  
  734. Mike Hall <mghall@enteract.com> is the author of 'xeznet'.
  735.  
  736. D. Richard Hipp" <drh@acm.org> is the author of 'eznet',
  737. and provided essential suggestions to improve 'xeznet'.
  738. }
  739.         return
  740. }
  741.  
  742. proc do_use { } {
  743.         simple_text .w_usage "How to use 'xeznet'"
  744.         fill_textbox .w_usage.tbox ro {
  745. OPERATION:
  746. ----------
  747.  
  748. NOTE: The Edit, Add, and Delete buttons will appear only for the 'root' user!
  749.  
  750. To create a new service, you must be 'root': 
  751.         Click on the Add button.
  752.         A new window will appear; fill in the forms.
  753.         Click on the OK button to have 'eznet' create the new service.
  754.  
  755. To edit or delete an existing service, you must be 'root':
  756.         Select an entry, then click on the Edit (or Delete) button.
  757.         A new window will appear, showing you the service.
  758.         Click on the OK button to post your edits to 'eznet'
  759.         (or click on the Delete button to delete the service).
  760.  
  761. To show the settings for a service:
  762.         Method 1: select an entry, then click on the Show button.
  763.         Method 2: select an entry, then press the Return key
  764.         Method 3: double-click on an entry
  765.  
  766.         A new window will appear, showing you the service parameters.
  767.         Click on the OK button to close the window.
  768.  
  769. To bring a service up or down:
  770.         Select the service, then click on the Up or Down button.
  771.         The listbox will track the progress of the connection.
  772.  
  773.  
  774. SERVICE INFORMATION WINDOW:
  775. -------------------------------
  776. There are several sections in the service popup window:
  777.         - Selection menu, to select groups of settings
  778.         - List of entries, to examine or change 'eznet' settings
  779.         - Optional setting description, to explain the meaning of a setting
  780.         - OK and Cancel buttons, to accept the settings or cancel
  781.  
  782. One of several groups of entries can be selected from the menu:
  783.         Basic Settings
  784.         Modem Settings
  785.         Chat Dialog Settings
  786.         PPP Settings
  787.         IP Settings
  788.         Route Settings
  789.  
  790.  
  791. MENUS:
  792. ------
  793. File / 
  794.         See log ...     Show the 'eznet' log file.
  795.         Save            Save the current position, size, and service.
  796.         Quit            Exit the 'xeznet' program.
  797.  
  798. Update /
  799.         Now             Update the status panel immediately.
  800.         10 sec          Update the status panel every 10 seconds.
  801.         30 sec          ..    ..    30 seconds
  802.          1 min          ..    ..    minute
  803.          5 min          ..    ..    5 minutes
  804.  
  805.         Note: when bringing a service up or down,
  806.         the status is automatically updated every 5 seconds for one minute.
  807.  
  808. Help /
  809.         About           Pops up a small version panel.
  810.         Usage           Brings up this text panel.
  811. } 
  812.         return
  813. }
  814.  
  815. #
  816. #       Make the interface, start status updates
  817. #
  818. make_ui
  819.  
  820. # no entries to highlight; read in the RC file for position/settings
  821. set lbsel -1
  822. if {[file exists $rc_file]} {
  823.         source $rc_file
  824. }
  825.  
  826. # draw the interface
  827. update
  828.  
  829. # start the updates (fill the listbox)
  830. svc_status 1
  831.  
  832. # highlight an entry if one was saved last time
  833. if {$lbsel >= 0} {
  834.         .lbox.list selection set $lbsel
  835.         .lbox.list activate $lbsel
  836. }
  837.