Mailing-List: contact cygwin-help AT sourceware DOT cygnus DOT com; run by ezmlm
List-Subscribe: <mailto:cygwin-subscribe AT sources DOT redhat DOT com>
List-Archive: <http://sources.redhat.com/ml/cygwin/>
List-Post: <mailto:cygwin AT sources DOT redhat DOT com>
List-Help: <mailto:cygwin-help AT sources DOT redhat DOT com>, <http://sources.redhat.com/ml/#faqs>
Sender: cygwin-owner AT sources DOT redhat DOT com
Delivered-To: mailing list cygwin AT sources DOT redhat DOT com
Message-ID: <399B139D.FAA59505@nca.asu.edu>
Date: Wed, 16 Aug 2000 15:20:13 -0700
From: "C. R. Oldham" <cro AT nca DOT asu DOT edu>
Organization: NCA Commission on Schools
X-Mailer: Mozilla 4.74 [en] (Windows NT 5.0; U)
X-Accept-Language: en,pdf
MIME-Version: 1.0
To: Cygwin Mailing List <cygwin AT sources DOT redhat DOT com>
Subject: Stdin/out with cygwish80.
Content-Type: multipart/mixed;
 boundary="------------BA43B78DC8991D3B9CEA096B"

--------------BA43B78DC8991D3B9CEA096B
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Greetings,

I wrote a little tcl/tk script to grab a passphrase from the user and
output it to stdout.  Unfortunately, cygwish80 does not appear to open
stdout or allow tcl to "puts" to it.  Am I missing something here?

When run on my Linux box the attached script prints the contents of the
entry field on stdout when <Enter> is pressed or the OK button is
clicked.  The same script when run under Cygwin prints nothing.  Any
suggestions?  Thanks.

--
   / Charles (C. R.) Oldham      | NCA Commission on Schools   \
  / Director of Technology       | Arizona State University     \
 / "cro at nca dot asu dot edu"  | V:480/965-8703 F:480/965-9423 \
 |                   http://www.nca.asu.edu/                     |


--------------BA43B78DC8991D3B9CEA096B
Content-Type: application/x-tcl;
 name="first.tcl"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="first.tcl"

proc MaxLineLength { file } {
    set max 0
    if [catch {open $file} in] {
	return $in
    }
    foreach line [split [read $in] \n] {
	set len [string length $line]
	if {$len > $max} {
	    set max $len
	}
    }
    return "Longest Line is $max characters"
}

proc doit { w passphrase } {
  puts stdout $passphrase
  flush stdout
  destroy $w
}

. config -borderwidth 10
wm title . "ssh-askpass"
entry .e -width 30 -bg white -relief sunken -show "*"
button .ok -text "OK " \
	-command { doit . [.e get] }
bind .e <Return> {doit . [.e get]}
button .cancel -text "Cancel " \
	-command { destroy . }
label .label -text "Enter passphrase"

pack .label .e .ok .cancel -side top -pady 3


--------------BA43B78DC8991D3B9CEA096B
Content-Type: text/plain; charset=us-ascii

--
Want to unsubscribe from this list?
Send a message to cygwin-unsubscribe AT sourceware DOT cygnus DOT com
--------------BA43B78DC8991D3B9CEA096B--