diff options
author | Damien Miller <djm@mindrot.org> | 2000-05-01 22:57:46 +1000 |
---|---|---|
committer | Damien Miller <djm@mindrot.org> | 2000-05-01 22:57:46 +1000 |
commit | 7c0042629e1dfe12f42c3355cc843e269e50b914 (patch) | |
tree | 1e1bf1e1a393cde18dc735d046699108eaa839cd | |
parent | 1cead2c02c6fa353594228adb1dea20c9a4e034f (diff) |
- Deprecate perl-tk askpass.
-rw-r--r-- | ChangeLog | 1 | ||||
-rwxr-xr-x | ssh-askpass | 38 |
2 files changed, 1 insertions, 38 deletions
@@ -19,6 +19,7 @@ | |||
19 | - Merged bsd-login ttyslot and AIX utmp patch from Gert Doering | 19 | - Merged bsd-login ttyslot and AIX utmp patch from Gert Doering |
20 | <gd@hilb1.medat.de> | 20 | <gd@hilb1.medat.de> |
21 | - Add some missing ifdefs to auth2.c | 21 | - Add some missing ifdefs to auth2.c |
22 | - Deprecate perl-tk askpass. | ||
22 | 23 | ||
23 | 20000430 | 24 | 20000430 |
24 | - Merge HP-UX fixes and TCB support from Ged Lodder <lodder@yacc.com.au> | 25 | - Merge HP-UX fixes and TCB support from Ged Lodder <lodder@yacc.com.au> |
diff --git a/ssh-askpass b/ssh-askpass deleted file mode 100755 index b1e23c514..000000000 --- a/ssh-askpass +++ /dev/null | |||
@@ -1,38 +0,0 @@ | |||
1 | #!/usr/bin/perl -w | ||
2 | |||
3 | # Written by Tommi Virtanen <tv@debian.org>. Consider it public domain. | ||
4 | |||
5 | use strict; | ||
6 | use Tk; | ||
7 | |||
8 | sub do_it($$;) { | ||
9 | my ($passphrase, $main) = @_; | ||
10 | print $passphrase->get(), "\n"; | ||
11 | $main->destroy(); | ||
12 | } | ||
13 | |||
14 | sub ask($;) { | ||
15 | my ($prompt)=@_; | ||
16 | my $main=MainWindow->new; | ||
17 | $main->Label(-text=>$prompt)->pack(-fill=>'x'); | ||
18 | my $passphrase=$main->Entry(-show=>'*')->pack(-fill=>'x'); | ||
19 | $passphrase->focus(); | ||
20 | my $buttons=$main->Frame; | ||
21 | $buttons->pack(-side=>'right'); | ||
22 | my $ok=$buttons->Button(-text=>'Ok', | ||
23 | -command=>sub {do_it $passphrase, $main} | ||
24 | )->pack(-side=>'left'); | ||
25 | my $cancel=$buttons->Button(-text=>'Cancel', -command=>[$main=>'destroy']) | ||
26 | ->pack(-side=>'right'); | ||
27 | $main->bind('Tk::Button', '<Return>' => 'invoke'); | ||
28 | $main->bind('<Return>', [$ok => 'invoke']); | ||
29 | $main->bind('<Escape>', [$cancel => 'invoke']); | ||
30 | $main->bind('<Visibility>' => [$main => 'grabGlobal']); | ||
31 | |||
32 | MainLoop; | ||
33 | } | ||
34 | |||
35 | ask ($#ARGV==0 | ||
36 | ? $ARGV[0] | ||
37 | : 'Please enter your authentication passphrase:'); | ||
38 | |||