From fde84044246919742d341a49664ea90a8e8784b1 Mon Sep 17 00:00:00 2001
From: weasel <weasel@b513b33f-fedd-0310-b452-c3deb5f4c849>
Date: Sat, 31 Jul 2010 11:34:36 +0000
Subject: [PATCH] caff: brace-style fixes

git-svn-id: svn://svn.debian.org/pgp-tools/trunk@469 b513b33f-fedd-0310-b452-c3deb5f4c849
---
 caff/caff | 51 ++++++++++++++++-----------------------------------
 1 file changed, 16 insertions(+), 35 deletions(-)

diff --git a/caff/caff b/caff/caff
index b6d6587..f32d5b5 100755
--- a/caff/caff
+++ b/caff/caff
@@ -916,8 +916,7 @@ sub delete_signatures($$$$$$) {
 # @return an array containing the local user keys\n
 #         (undef) if no valid key has been found
 #
-sub get_local_user_keys()
-{
+sub get_local_user_keys() {
 	my @local_user = ();
 	my @key_list;
 	
@@ -972,28 +971,21 @@ sub get_local_user_keys()
 #         1 if the key could not be exported.\n
 #         2 if the key could not be imported.
 #
-sub import_key_from_user_gnupghome()
-{
+sub import_key_from_user_gnupghome() {
     my $err;
     my ($asciikey, $dst_gpghome) = @_;
 
     trace("Exporting key $asciikey from your normal GnuPGHOME.");
     my $key = export_key(undef, $asciikey);
-    if (defined $key && $key ne '')
-    {
+    if (defined $key && $key ne '') {
         trace("Importing key $asciikey into $GNUPGHOME.");
-        if (import_key($GNUPGHOME, $key))
-        {
+        if (import_key($GNUPGHOME, $key)) {
             $err = 0;
-        }
-        else
-        {
+        } else {
             warn("Could not import $asciikey into caff's gnupghome.");
             $err = 2;
         }
-    }
-    else
-    {
+    } else {
         $err = 1;
     }
 
@@ -1009,8 +1001,7 @@ sub import_key_from_user_gnupghome()
 # @return 0 if successful\n
 #         1 if an error occured.
 #
-sub import_key_files()
-{
+sub import_key_files() {
     my $err;
     my ($keyfile, $dst_gpghome) = @_;
 
@@ -1026,13 +1017,10 @@ sub import_key_files()
     info("Importing keys from file $keyfile");
     waitpid $pid, 0;
 
-    if ($status !~ /^\[GNUPG:\] IMPORT_OK/m)
-    {
+    if ($status !~ /^\[GNUPG:\] IMPORT_OK/m) {
         warn $stderr;
         $err = 1;
-    }
-    else
-    {
+    } else {
         $err = 0;
     }
 
@@ -1047,15 +1035,12 @@ sub import_key_files()
 # and in the key files specified by the user if not all of the keys have been
 # found.
 #
-sub import_keys_to_sign()
-{
+sub import_keys_to_sign() {
     # Check if we can find the gpg key from our normal gnupghome, and then
     # try to import it into our working gnupghome directory
     my $imported_keys = 0;
-    foreach my $keyid (@KEYIDS)
-    {
-        if (!&import_key_from_user_gnupghome($keyid, $GNUPGHOME))
-        {
+    foreach my $keyid (@KEYIDS) {
+        if (!&import_key_from_user_gnupghome($keyid, $GNUPGHOME)) {
             info("Key $keyid imported from your normal GnuPGHOME.");
             $imported_keys++;
         }
@@ -1066,8 +1051,7 @@ sub import_keys_to_sign()
     return 1 if ($imported_keys == scalar (@KEYIDS));
 
     # Import user specified key files
-    foreach my $keyfile (@{$CONFIG{'key-files'}})
-    {
+    foreach my $keyfile (@{$CONFIG{'key-files'}}) {
         &import_key_files($keyfile, $GNUPGHOME);
     }
 
@@ -1145,11 +1129,9 @@ for my $keyid (map { split /\n/ } @ARGV) { # caff "`cat txt`" is a single argume
 #################
 # import own keys
 #################
-for my $keyid (@{$CONFIG{'keyid'}})
-{
+for my $keyid (@{$CONFIG{'keyid'}}) {
     info("Importing key $keyid from your normal GnuPGHome.");
-    if (&import_key_from_user_gnupghome($keyid, $GNUPGHOME))
-    {
+    if (&import_key_from_user_gnupghome($keyid, $GNUPGHOME)) {
         mywarn("Key $keyid not found.");
     }
 }
@@ -1232,8 +1214,7 @@ if ($CONFIG{'ask-sign'} && ! $CONFIG{'no-sign'}) {
 	$CONFIG{'no-sign'} = ! ask("Continue with signing?", 1);
 }
 	
-unless ($CONFIG{'no-sign'})
-{
+unless ($CONFIG{'no-sign'}) {
 	my @local_user = &get_local_user_keys();
 
 	info("Sign the following keys according to your policy, then exit gpg with 'save' after signing each key");
-- 
2.30.2