projects
/
pgp-tools.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
+ Make also-encrypt-to a list, add a commented stanza to the default
[pgp-tools.git]
/
keylookup
/
keylookup
diff --git
a/keylookup/keylookup
b/keylookup/keylookup
index 44fae86d1999b5a60f1f71e47e336975d2bf062e..e069289f670f75d6dce5d04783b11cc786331ff3 100755
(executable)
--- a/
keylookup/keylookup
+++ b/
keylookup/keylookup
@@
-17,14
+17,14
@@
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software Foundation,
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software Foundation,
-# Inc., 5
9 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+# Inc., 5
1 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
#
# Keylookup is part of pgp-tools:
# http://pgp-tools.alioth.debian.org/
# svn://svn.debian.org/pgp-tools/trunk/
# http://svn.debian.org/wsvn/pgp-tools/trunk/
#
# Keylookup is part of pgp-tools:
# http://pgp-tools.alioth.debian.org/
# svn://svn.debian.org/pgp-tools/trunk/
# http://svn.debian.org/wsvn/pgp-tools/trunk/
-delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'
, 'PATH'
};
+delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
$|=1; # Always flush buffers
$|=1; # Always flush buffers
@@
-35,11
+35,6
@@
use Getopt::Long;
my $version = '3.0 ($Id$)';
my $version = '3.0 ($Id$)';
-# Where to find GnuPG's options file.
-# Full path to the dialog and whiptail executeable.
-my $Dialog = '/usr/bin/dialog';
-my $Whiptail = '/usr/bin/whiptail';
-
# Strings to use in the dialog|whiptail frontend
my $TITLE = 'Import Keys';
my $BACKTITLE = 'KeyLookup $Revision$';
# Strings to use in the dialog|whiptail frontend
my $TITLE = 'Import Keys';
my $BACKTITLE = 'KeyLookup $Revision$';
@@
-232,14
+227,14
@@
sub selectKeys {
$frontend = 'dialog' unless (defined $frontend);
if ($frontend eq 'dialog') {
$frontend = 'dialog' unless (defined $frontend);
if ($frontend eq 'dialog') {
- unless (
-x $Dialog
) {
- warn("Dialog
($Dialog)
not executeable/installed. Falling back to Whiptail\n");
+ unless (
`which dialog` && $? == 0
) {
+ warn("Dialog not executeable/installed. Falling back to Whiptail\n");
$frontend = 'whiptail';
}
};
if ($frontend eq 'whiptail') {
$frontend = 'whiptail';
}
};
if ($frontend eq 'whiptail') {
- unless (
-x $Whiptail
) {
- warn("Whiptail
($Whiptail)
not executeable/installed. Falling back to plain\n");
+ unless (
`which whiptail` && $? == 0
) {
+ warn("Whiptail not executeable/installed. Falling back to plain\n");
$frontend = 'plain';
}
};
$frontend = 'plain';
}
};
@@
-247,7
+242,7
@@
sub selectKeys {
if ( $frontend eq 'dialog' ) {
calcDialogSize;
my @ARGS = (
if ( $frontend eq 'dialog' ) {
calcDialogSize;
my @ARGS = (
-
$Dialog
,
+
'dialog'
,
'--backtitle',
$BACKTITLE,
'--separate-output',
'--backtitle',
$BACKTITLE,
'--separate-output',
@@
-261,7
+256,7
@@
sub selectKeys {
} elsif ( $frontend eq 'whiptail' ) {
calcDialogSize;
my @ARGS = (
} elsif ( $frontend eq 'whiptail' ) {
calcDialogSize;
my @ARGS = (
-
$Whiptail
,
+
'whiptail'
,
'--backtitle',
$BACKTITLE,
'--separate-output',
'--backtitle',
$BACKTITLE,
'--separate-output',