Tcl/Tk...schließen einer Prozesspipe??

29 Dec 1998

      Hallo Tcl/Tk-Freunde, hallo Liste,

Zu meinem etwas kniffeligen Problem. Ich habe mir ein kleines
Programm geschrieben, mit dem ich meinen ISDNCtrl zwecks Verbindungsaufbau
Befehle schicke. Um diesen Vorgang beobachten zu können habe ich nun noch
ein Fenster mit einem Textfeld eingebaut, welches mir die in
/var/log/messages abgelegten Syslog Ausgaben anzeigt. An dieser Stelle
tritt nun folgendes Problem auf. Funktion des Programms soweit korrekt und
auch die Anzeige der Syslog Ausgaben funktioniert, will ich aber zwecks
Beenden die für die Syslogausgabe notwendige Prozesspipe schliessen, haengt
sich das Programm hin bzw. die Prozesspipe wird durch das beenden des
Programms nicht automatisch beendet. Die Folge sind dann irgendwelche im
Nirvana arbeitenten Programme, welche ich dann von Hand beenden muesste.
Die Frage ist nun, wie bekomme ich bei meinem Konstrukt eine PID geliefert,
bzw. wie kann ich den Ausgabekanal zur Pipe schließen? Im Folgenden seht
Ihr ein Listing der relevanten Proceturen (sind uebrigens aus einem
Bespielprogramm eines Buchs und nur etwas abgeaendert fuer meine
Beduerfnisse).

# Fenster und Widgets bereitstellen
proc TAILWin {} {

        global conf log input

        if {$conf(20) == 1} {
        # Set title and allow window resizing.
        toplevel .tail
        wm title .tail "xconnect (/var/log/messages)"
        if {$conf(21) == 1} {wm geometry .tail
$conf(22)x$conf(23)+$conf(24)+$conf(25)}

        # Create a text widget to log the output
        frame .tail.t
        set log [text .tail.t.log -width 80 -height 10 \
        -borderwidth 2 -relief sunken -bg \#dd5555 -setgrid true\
        -font -*-fixed-*-*-*-*-12-*-*-*-*-*-*-* -yscrollcommand {.tail.t.scroll
set}]
        scrollbar .tail.t.scroll -width 10 -borderwidth 1 -command {.tail.t.log
yview}
        pack .tail.t.scroll -side right -fill y
        pack .tail.t.log -side left -fill both -expand true
        pack .tail.t -side top -fill both -expand true
        RUN
        }
}

# in dieser Procedur befindet sich benannte Pipe ([catch {open...) 
########
proc RUN {} {
        global command input log but
        if [catch {open "|tail -f /var/log/messages |& cat"} input] {
                $log insert end $input\n
        } else {
                fileevent $input readable Log
                $log insert end tail -f /var/log/messages\n
                $log see end
        }
}
# Read and log output from the program
proc Log {} {
        global input log
        if [eof $input] {
                TAILStop
        } else {
                gets $input line
                $log insert end $line\n
                $log see end
                if {[string match {*Modem hangup*} $line] || [string match {*local hangup
ippp*} $line]} {catch RESETButton}
        }
}
# Stop the program and fix up the button
proc TAILStop {} {
        global input
        catch {close $input}
}

...ich waere Euch dankbar fuer einen Hilfreichen Tip, wie ich das Problem
loesen koennte. Denkbar waere auch ein anderer Loesungsvorschlag fuer mein
Vorhaben. Da ich die Konstruktion nicht selbst erdacht habe und auch noch
nicht so grosse  Erfahrung mit Tcl/Tk habe, kann ich nicht nachvollziehen
was eigendlich im Detail passiert. Ich bin daher auf fremde Hilfe
angewiesen.

Wenn jemand eine deutsche Tcl - Liste kennt, soll mir bitte mitteilen, wo
ich diese finde.

Ich sage Euch schon jetzt danke und wuensche Euch
einen guten Rutsch ins neue Jahr....

Gruss Otti

-- 

ONCE USE LINUX, YOU CANŽT STOP!!  ...try it..

mail: a.ott.plauen@t-online.de
--
Um aus der Liste ausgetragen zu werden, eine Mail an majordomo@suse.com
schicken, mit dem Text: unsubscribe suse-linux

a.ott.plauen＠t-online.de

tags

participants (1)