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 @@ - Merged bsd-login ttyslot and AIX utmp patch from Gert Doering <gd@hilb1.medat.de> - Add some missing ifdefs to auth2.c + - Deprecate perl-tk askpass. 20000430 - 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 b1e23c51..00000000 --- a/ssh-askpass +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/perl -w - -# Written by Tommi Virtanen <tv@debian.org>. Consider it public domain. - -use strict; -use Tk; - -sub do_it($$;) { - my ($passphrase, $main) = @_; - print $passphrase->get(), "\n"; - $main->destroy(); -} - -sub ask($;) { - my ($prompt)=@_; - my $main=MainWindow->new; - $main->Label(-text=>$prompt)->pack(-fill=>'x'); - my $passphrase=$main->Entry(-show=>'*')->pack(-fill=>'x'); - $passphrase->focus(); - my $buttons=$main->Frame; - $buttons->pack(-side=>'right'); - my $ok=$buttons->Button(-text=>'Ok', - -command=>sub {do_it $passphrase, $main} - )->pack(-side=>'left'); - my $cancel=$buttons->Button(-text=>'Cancel', -command=>[$main=>'destroy']) - ->pack(-side=>'right'); - $main->bind('Tk::Button', '<Return>' => 'invoke'); - $main->bind('<Return>', [$ok => 'invoke']); - $main->bind('<Escape>', [$cancel => 'invoke']); - $main->bind('<Visibility>' => [$main => 'grabGlobal']); - - MainLoop; -} - -ask ($#ARGV==0 - ? $ARGV[0] - : 'Please enter your authentication passphrase:'); - |