summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDamien Miller <djm@mindrot.org>2000-05-01 22:57:46 +1000
committerDamien Miller <djm@mindrot.org>2000-05-01 22:57:46 +1000
commit7c0042629e1dfe12f42c3355cc843e269e50b914 (patch)
tree1e1bf1e1a393cde18dc735d046699108eaa839cd
parent1cead2c02c6fa353594228adb1dea20c9a4e034f (diff)
- Deprecate perl-tk askpass.
-rw-r--r--ChangeLog1
-rwxr-xr-xssh-askpass38
2 files changed, 1 insertions, 38 deletions
diff --git a/ChangeLog b/ChangeLog
index 9aedc60aa..de8490aef 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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
2320000430 2420000430
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
5use strict;
6use Tk;
7
8sub do_it($$;) {
9 my ($passphrase, $main) = @_;
10 print $passphrase->get(), "\n";
11 $main->destroy();
12}
13
14sub 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
35ask ($#ARGV==0
36 ? $ARGV[0]
37 : 'Please enter your authentication passphrase:');
38