1#! /usr/local/bin/wish8.0 -f 2# 3# Copyright (c) 1999 Brian Somers <brian@Awfulhak.org> 4# All rights reserved. 5# 6# Redistribution and use in source and binary forms, with or without 7# modification, are permitted provided that the following conditions 8# are met: 9# 1. Redistributions of source code must retain the above copyright 10# notice, this list of conditions and the following disclaimer. 11# 2. Redistributions in binary form must reproduce the above copyright 12# notice, this list of conditions and the following disclaimer in the 13# documentation and/or other materials provided with the distribution. 14# 15# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 16# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 17# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 18# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 19# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 20# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 21# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 22# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 23# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 24# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 25# SUCH DAMAGE. 26# 27# $FreeBSD: src/share/examples/ppp/chap-auth,v 1.2 1999/08/28 00:19:28 peter Exp $ 28# $DragonFly: src/share/examples/ppp/chap-auth,v 1.2 2003/06/17 04:36:57 dillon Exp $ 29 30# 31# Display a window to request a users CHAP secret, accepting the relevant 32# values from ppp (``set authkey !thisprogram'') and passing the entered 33# ``authname'' and ``authkey'' back to ppp. 34# 35 36set pwidth 12; # Prompt field width 37set vwidth 20; # Value field width 38set fxpad 7; # Value field width 39set fypad 3; # Value field width 40 41wm title . "PPP Authentication"; 42 43# We expect three lines of input from ppp 44set hostname [gets stdin]; 45set challenge [gets stdin]; 46set authname [gets stdin]; 47 48proc mkhalfframe { n prompt } { 49 global pwidth; 50 51 frame .$n; 52 text .$n.prompt -width $pwidth -height 1 -relief flat; 53 .$n.prompt insert 1.0 $prompt; 54 pack .$n.prompt -side left; 55 .$n.prompt configure -state disabled; 56} 57 58proc mkframe { n prompt value entry } { 59 global vwidth fxpad fypad; 60 61 mkhalfframe $n $prompt; 62 text .$n.value -width $vwidth -height 1; 63 .$n.value insert 1.0 $value; 64 pack .$n.value -side right; 65 if ($entry) { 66 # Allow entry, but don't encourage it 67 .$n.value configure -state normal -takefocus 0; 68 bind .$n.value <Return> {done}; 69 } else { 70 .$n.value configure -state disabled; 71 } 72 pack .$n -side top -padx $fxpad -pady $fypad; 73} 74 75# Dump our fields to stdout and exit 76proc done {} { 77 puts [.n.value get 1.0 {end - 1 char}]; 78 puts [.k.value get]; 79 exit 0; 80} 81 82mkframe h "Hostname:" $hostname 0; 83mkframe c "Challenge:" $challenge 0; 84mkframe n "Authname:" $authname 1; 85 86mkhalfframe k "Authkey:"; 87entry .k.value -show "*" -width $vwidth; 88pack .k.value -side right; 89bind .k.value <Return> {done}; 90focus .k.value; 91pack .k -side top -padx $fxpad -pady $fypad; 92 93frame .b; 94button .b.ok -default active -text "Ok" -command {done}; 95pack .b.ok -side left; 96button .b.cancel -default normal -text "Cancel" -command {exit 1}; 97pack .b.cancel -side right; 98pack .b -side top -padx $fxpad -pady $fypad; 99