- Deprecate perl-tk askpass.

diff --git a/ChangeLog b/ChangeLog
index 9aedc60aa24c51cebea1bc7238138dac6d7a6232..de8490aefbc3bbea304b91c167fea2b3db0faf6c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -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 (executable)
index b1e23c5..0000000
--- 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:');
-