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.

--------------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--

- Raw text -