186d7f5d3SJohn Marino#! /usr/local/bin/wish8.0 -f 286d7f5d3SJohn Marino# 386d7f5d3SJohn Marino# Copyright (c) 1999 Brian Somers <brian@Awfulhak.org> 486d7f5d3SJohn Marino# All rights reserved. 586d7f5d3SJohn Marino# 686d7f5d3SJohn Marino# Redistribution and use in source and binary forms, with or without 786d7f5d3SJohn Marino# modification, are permitted provided that the following conditions 886d7f5d3SJohn Marino# are met: 986d7f5d3SJohn Marino# 1. Redistributions of source code must retain the above copyright 1086d7f5d3SJohn Marino# notice, this list of conditions and the following disclaimer. 1186d7f5d3SJohn Marino# 2. Redistributions in binary form must reproduce the above copyright 1286d7f5d3SJohn Marino# notice, this list of conditions and the following disclaimer in the 1386d7f5d3SJohn Marino# documentation and/or other materials provided with the distribution. 1486d7f5d3SJohn Marino# 1586d7f5d3SJohn Marino# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 1686d7f5d3SJohn Marino# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 1786d7f5d3SJohn Marino# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 1886d7f5d3SJohn Marino# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 1986d7f5d3SJohn Marino# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 2086d7f5d3SJohn Marino# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 2186d7f5d3SJohn Marino# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 2286d7f5d3SJohn Marino# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 2386d7f5d3SJohn Marino# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 2486d7f5d3SJohn Marino# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 2586d7f5d3SJohn Marino# SUCH DAMAGE. 2686d7f5d3SJohn Marino# 2786d7f5d3SJohn Marino# $FreeBSD: src/share/examples/ppp/login-auth,v 1.2 1999/08/28 00:19:29 peter Exp $ 2886d7f5d3SJohn Marino# $DragonFly: src/share/examples/ppp/login-auth,v 1.2 2003/06/17 04:36:57 dillon Exp $ 2986d7f5d3SJohn Marino 3086d7f5d3SJohn Marino# 3186d7f5d3SJohn Marino# Display a window to request a users password, expecting a login name 3286d7f5d3SJohn Marino# as an argument and outputting the password to stdout. 3386d7f5d3SJohn Marino# 3486d7f5d3SJohn Marino 3586d7f5d3SJohn Marinoset pwidth 11; # Prompt field width 3686d7f5d3SJohn Marinoset vwidth 20; # Value field width 3786d7f5d3SJohn Marinoset fxpad 7; # Value field width 3886d7f5d3SJohn Marinoset fypad 3; # Value field width 3986d7f5d3SJohn Marino 4086d7f5d3SJohn Marinowm title . "PPP Login"; 4186d7f5d3SJohn Marino 4286d7f5d3SJohn Marino# Dump our password to stdout and exit 4386d7f5d3SJohn Marinoproc done {} { 4486d7f5d3SJohn Marino puts [.p.value get]; 4586d7f5d3SJohn Marino exit 0; 4686d7f5d3SJohn Marino} 4786d7f5d3SJohn Marino 4886d7f5d3SJohn Marinoframe .l; 4986d7f5d3SJohn Marinotext .l.prompt -width $pwidth -height 1 -relief flat; 5086d7f5d3SJohn Marino .l.prompt insert 1.0 "Login:"; 5186d7f5d3SJohn Marinopack .l.prompt -side left; 5286d7f5d3SJohn Marino .l.prompt configure -state disabled; 5386d7f5d3SJohn Marinotext .l.value -width $vwidth -height 1; 5486d7f5d3SJohn Marino .l.value insert 1.0 $argv; 5586d7f5d3SJohn Marinopack .l.value -side right; 5686d7f5d3SJohn Marino .l.value configure -state disabled; 5786d7f5d3SJohn Marinopack .l -side top -padx $fxpad -pady $fypad; 5886d7f5d3SJohn Marino 5986d7f5d3SJohn Marinoframe .p; 6086d7f5d3SJohn Marinotext .p.prompt -width $pwidth -height 1 -relief flat; 6186d7f5d3SJohn Marino .p.prompt insert 1.0 "Password:"; 6286d7f5d3SJohn Marinopack .p.prompt -side left; 6386d7f5d3SJohn Marino .p.prompt configure -state disabled; 6486d7f5d3SJohn Marinoentry .p.value -show "*" -width $vwidth; 6586d7f5d3SJohn Marinopack .p.value -side right; 6686d7f5d3SJohn Marinobind .p.value <Return> {done}; 6786d7f5d3SJohn Marinofocus .p.value; 6886d7f5d3SJohn Marinopack .p -side top -padx $fxpad -pady $fypad; 6986d7f5d3SJohn Marino 7086d7f5d3SJohn Marinoframe .b; 7186d7f5d3SJohn Marinobutton .b.ok -default active -text "Ok" -takefocus 0 -command {done}; 7286d7f5d3SJohn Marinopack .b.ok -side left; 7386d7f5d3SJohn Marinobutton .b.cancel -default normal -text "Cancel" -takefocus 0 -command {exit 1}; 7486d7f5d3SJohn Marinopack .b.cancel -side right; 7586d7f5d3SJohn Marinopack .b -side top -padx $fxpad -pady $fypad; 76