Changed to GPLv3.
[gnupg.git] / g10 / mainproc.c
index 7b64939..1d5c03f 100644 (file)
@@ -1,12 +1,12 @@
 /* mainproc.c - handle packets
- * Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
- *               2005, 2006 Free Software Foundation, Inc.
+ * Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+ *               2007 Free Software Foundation, Inc.
  *
  * This file is part of GnuPG.
  *
  * GnuPG is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
+ * the Free Software Foundation; either version 3 of the License, or
  * (at your option) any later version.
  *
  * GnuPG is distributed in the hope that it will be useful,
@@ -15,9 +15,7 @@
  * GNU General Public License for more details.
  *
  * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
- * USA.
+ * along with this program; if not, see <http://www.gnu.org/licenses/>.
  */
 
 #include <config.h>
@@ -27,9 +25,9 @@
 #include <assert.h>
 #include <time.h>
 
+#include "gpg.h"
 #include "packet.h"
 #include "iobuf.h"
-#include "memory.h"
 #include "options.h"
 #include "util.h"
 #include "cipher.h"
@@ -41,6 +39,7 @@
 #include "trustdb.h"
 #include "keyserver-internal.h"
 #include "photoid.h"
+#include "pka.h"
 
 
 struct kidlist_item {
@@ -64,8 +63,26 @@ struct mainproc_context
   md_filter_context_t mfx;
   int sigs_only;    /* Process only signatures and reject all other stuff. */
   int encrypt_only; /* Process only encryption messages. */
-  STRLIST signed_data;
+    
+  /* Name of the file with the complete signature or the file with the
+     detached signature.  This is currently only used to deduce the
+     file name of the data file if that has not been given. */
   const char *sigfilename;
+  
+  /* A structure to describe the signed data in case of a detached
+     signature. */
+  struct 
+  {
+    /* A file descriptor of the the signed data.  Only used if not -1. */
+    int data_fd;
+    /* A list of filenames with the data files or NULL. This is only
+       used if DATA_FD is -1. */
+    strlist_t data_names;
+    /* Flag to indicated that either one of the next previous fieldss
+       is used.  This is only needed for better readability. */
+    int used;
+  } signed_data;
+  
   DEK *dek;
   int last_was_session_key;
   KBNODE list;      /* The current list of packets. */
@@ -74,20 +91,20 @@ struct mainproc_context
   int trustletter;  /* Temporary usage in list_node. */
   ulong symkeys;
   struct kidlist_item *pkenc_list; /* List of encryption packets. */
-  struct 
-  {
-    int op;
-    int stop_now;
-  } pipemode;
   int any_sig_seen;  /* Set to true if a signature packet has been seen. */
 };
 
 
 static int do_proc_packets( CTX c, IOBUF a );
-
 static void list_node( CTX c, KBNODE node );
 static void proc_tree( CTX c, KBNODE node );
+static int literals_seen;
 
+void
+reset_literals_seen(void)
+{
+  literals_seen=0;
+}
 
 static void
 release_list( CTX c )
@@ -105,8 +122,6 @@ release_list( CTX c )
     c->list = NULL;
     c->have_data = 0;
     c->last_was_session_key = 0;
-    c->pipemode.op = 0;
-    c->pipemode.stop_now = 0;
     xfree(c->dek); c->dek = NULL;
 }
 
@@ -114,27 +129,14 @@ release_list( CTX c )
 static int
 add_onepass_sig( CTX c, PACKET *pkt )
 {
-    KBNODE node;
+  KBNODE node;
 
-    if( c->list ) { /* add another packet */
-        /* We can only append another onepass packet if the list
-         * does contain only onepass packets */
-        for( node=c->list; node && node->pkt->pkttype == PKT_ONEPASS_SIG;
-             node = node->next )
-            ;
-       if( node ) {
-            /* this is not the case, so we flush the current thing and 
-             * allow this packet to start a new verification thing */
-          release_list( c );
-          c->list = new_kbnode( pkt );
-       }
-       else
-          add_kbnode( c->list, new_kbnode( pkt ));
-    }
-    else /* insert the first one */
-       c->list = node = new_kbnode( pkt );
+  if ( c->list ) /* add another packet */
+    add_kbnode( c->list, new_kbnode( pkt ));
+  else /* insert the first one */
+    c->list = node = new_kbnode( pkt );
 
-    return 1;
+  return 1;
 }
 
 
@@ -146,30 +148,6 @@ add_gpg_control( CTX c, PACKET *pkt )
          * Process the last one and reset everything */
         release_list(c);
     }   
-    else if ( pkt->pkt.gpg_control->control == CTRLPKT_PIPEMODE ) {
-        /* Pipemode control packet */
-        if ( pkt->pkt.gpg_control->datalen < 2 ) 
-            log_fatal ("invalid pipemode control packet length\n");
-        if (pkt->pkt.gpg_control->data[0] == 1) {
-            /* start the whole thing */
-            assert ( !c->list ); /* we should be in a pretty virgin state */
-            assert ( !c->pipemode.op );
-            c->pipemode.op = pkt->pkt.gpg_control->data[1];
-        }
-        else if (pkt->pkt.gpg_control->data[0] == 2) {
-            /* the signed material follows in a plaintext packet */
-            assert ( c->pipemode.op == 'B' );
-        }
-        else if (pkt->pkt.gpg_control->data[0] == 3) {
-            assert ( c->pipemode.op == 'B' );
-            release_list (c);
-            /* and tell the outer loop to terminate */
-            c->pipemode.stop_now = 1;
-        }
-        else 
-            log_fatal ("invalid pipemode control packet code\n");
-        return 0; /* no need to store the packet */
-    }   
 
     if( c->list )  /* add another packet */
         add_kbnode( c->list, new_kbnode( pkt ));
@@ -246,7 +224,7 @@ add_signature( CTX c, PACKET *pkt )
 static int
 symkey_decrypt_seskey( DEK *dek, byte *seskey, size_t slen )
 {
-  CIPHER_HANDLE hd;
+  gcry_cipher_hd_t hd;
 
   if(slen < 17 || slen > 33)
     {
@@ -255,13 +233,15 @@ symkey_decrypt_seskey( DEK *dek, byte *seskey, size_t slen )
       return G10ERR_BAD_KEY;
     }
 
-  hd = cipher_open( dek->algo, CIPHER_MODE_CFB, 1 );
-  cipher_setkey( hd, dek->key, dek->keylen );
-  cipher_setiv( hd, NULL, 0 );
-  cipher_decrypt( hd, seskey, seskey, slen );
-  cipher_close( hd );
+  if (gcry_cipher_open (&hd, dek->algo, GCRY_CIPHER_MODE_CFB, 1))
+      BUG ();
+  if (gcry_cipher_setkey ( hd, dek->key, dek->keylen ))
+    BUG ();
+  gcry_cipher_setiv ( hd, NULL, 0 );
+  gcry_cipher_decrypt ( hd, seskey, slen, NULL, 0 );
+  gcry_cipher_close ( hd );
 
-  /* now we replace the dek components with the real session key to
+  /* Now we replace the dek components with the real session key to
      decrypt the contents of the sequencing packet. */
 
   dek->keylen=slen-1;
@@ -294,9 +274,9 @@ proc_symkey_enc( CTX c, PACKET *pkt )
     else if(!c->dek)
       {
         int algo = enc->cipher_algo;
-       const char *s = cipher_algo_to_string (algo);
+       const char *s = gcry_cipher_algo_name (algo);
 
-       if(s)
+       if (!gcry_cipher_test_algo (algo))
          {
            if(!opt.quiet)
              {
@@ -309,7 +289,7 @@ proc_symkey_enc( CTX c, PACKET *pkt )
        else
          log_error(_("encrypted with unknown algorithm %d\n"), algo );
 
-       if(check_digest_algo(enc->s2k.hash_algo))
+       if(openpgp_md_test_algo (enc->s2k.hash_algo))
          {
            log_error(_("passphrase generated with unknown digest"
                        " algorithm %d\n"),enc->s2k.hash_algo);
@@ -331,23 +311,8 @@ proc_symkey_enc( CTX c, PACKET *pkt )
          }
        else
          {
-            int canceled;
-
            c->dek = passphrase_to_dek (NULL, 0, algo, &enc->s2k, 0,
-                                        NULL, &canceled);
-            if (canceled)
-              {
-                /* For unknown reasons passphrase_to_dek does only
-                   return NULL if a new passphrase has been requested
-                   and has not been repeated correctly.  Thus even
-                   with a cancel requested (by means of the gpg-agent)
-                   it won't return NULL but an empty passphrase.  We
-                   take the most conservative approach for now and
-                   work around it right here. */
-                xfree (c->dek);
-                c->dek = NULL;
-              }
-
+                                        NULL, NULL);
            if(c->dek)
              {
                c->dek->symmetric=1;
@@ -473,7 +438,7 @@ print_pkenc_list( struct kidlist_item *list, int failed )
         if ( !failed && list->reason )
             continue;
 
-        algstr = pubkey_algo_to_string( list->pubkey_algo );
+        algstr = gcry_pk_algo_name ( list->pubkey_algo );
         pk = xmalloc_clear( sizeof *pk );
 
        if( !algstr )
@@ -486,7 +451,7 @@ print_pkenc_list( struct kidlist_item *list, int failed )
                      nbits_from_pk( pk ), algstr, keystr_from_pk(pk),
                      strtimestamp(pk->timestamp) );
            p=get_user_id_native(list->kid);
-           fprintf(log_stream(),_("      \"%s\"\n"),p);
+           log_printf (_("      \"%s\"\n"),p);
            xfree(p);
          }
        else
@@ -549,11 +514,12 @@ proc_encrypted( CTX c, PACKET *pkt )
          }
        else
          {
-           /* assume this is old style conventional encrypted data */
-           if ( (algo = opt.def_cipher_algo))
+           /* Assume this is old style conventional encrypted data. */
+           algo = opt.def_cipher_algo;
+           if ( algo )
              log_info (_("assuming %s encrypted data\n"),
-                        cipher_algo_to_string(algo));
-           else if ( check_cipher_algo(CIPHER_ALGO_IDEA) )
+                        gcry_cipher_algo_name (algo));
+           else if ( gcry_cipher_test_algo (CIPHER_ALGO_IDEA) )
              {
                algo = opt.def_cipher_algo;
                if (!algo)
@@ -561,7 +527,7 @@ proc_encrypted( CTX c, PACKET *pkt )
                idea_cipher_warn(1);
                log_info (_("IDEA cipher unavailable, "
                            "optimistically attempting to use %s instead\n"),
-                         cipher_algo_to_string(algo));
+                         gcry_cipher_algo_name (algo));
              }
            else
              {
@@ -588,7 +554,8 @@ proc_encrypted( CTX c, PACKET *pkt )
 
     if( result == -1 )
        ;
-    else if( !result || (result==G10ERR_BAD_SIGN && opt.ignore_mdc_error)) {
+    else if( !result || (gpg_err_code (result) == GPG_ERR_BAD_SIGNATURE
+                         && opt.ignore_mdc_error)) {
        write_status( STATUS_DECRYPTION_OKAY );
        if( opt.verbose > 1 )
            log_info(_("decryption okay\n"));
@@ -632,12 +599,15 @@ proc_plaintext( CTX c, PACKET *pkt )
     int any, clearsig, only_md5, rc;
     KBNODE n;
 
+    literals_seen++;
+
     if( pt->namelen == 8 && !memcmp( pt->name, "_CONSOLE", 8 ) )
        log_info(_("NOTE: sender requested \"for-your-eyes-only\"\n"));
     else if( opt.verbose )
        log_info(_("original file name='%.*s'\n"), pt->namelen, pt->name);
     free_md_filter_context( &c->mfx );
-    c->mfx.md = md_open( 0, 0);
+    if (gcry_md_open (&c->mfx.md, 0, 0))
+      BUG ();
     /* fixme: we may need to push the textfilter if we have sigclass 1
      * and no armoring - Not yet tested
      * Hmmm, why don't we need it at all if we have sigclass 1
@@ -652,7 +622,8 @@ proc_plaintext( CTX c, PACKET *pkt )
            /* For the onepass signature case */
            if( n->pkt->pkt.onepass_sig->digest_algo )
              {
-               md_enable( c->mfx.md, n->pkt->pkt.onepass_sig->digest_algo );
+               gcry_md_enable (c->mfx.md,
+                                n->pkt->pkt.onepass_sig->digest_algo);
                if( !any && n->pkt->pkt.onepass_sig->digest_algo
                    == DIGEST_ALGO_MD5 )
                  only_md5 = 1;
@@ -678,14 +649,15 @@ proc_plaintext( CTX c, PACKET *pkt )
              * documents */
             clearsig = (*data == 0x01);
             for( data++, datalen--; datalen; datalen--, data++ )
-             md_enable( c->mfx.md, *data );
+               gcry_md_enable (c->mfx.md, *data);
             any = 1;
-            break;  /* no pass signature packets are expected */
+            break;  /* Stop here as one-pass signature packets are not
+                       expected.  */
          }
        else if(n->pkt->pkttype==PKT_SIGNATURE)
          {
            /* For the SIG+LITERAL case that PGP used to use. */
-           md_enable( c->mfx.md, n->pkt->pkt.signature->digest_algo );
+           gcry_md_enable ( c->mfx.md, n->pkt->pkt.signature->digest_algo );
            any=1;
          }
       }
@@ -697,9 +669,9 @@ proc_plaintext( CTX c, PACKET *pkt )
           often.  There is no good way to specify what algorithms to
           use in that case, so these three are the historical
           answer. */
-       md_enable( c->mfx.md, DIGEST_ALGO_RMD160 );
-       md_enable( c->mfx.md, DIGEST_ALGO_SHA1 );
-       md_enable( c->mfx.md, DIGEST_ALGO_MD5 );
+       gcry_md_enable( c->mfx.md, DIGEST_ALGO_RMD160 );
+       gcry_md_enable( c->mfx.md, DIGEST_ALGO_SHA1 );
+       gcry_md_enable( c->mfx.md, DIGEST_ALGO_MD5 );
       }
     if( opt.pgp2_workarounds && only_md5 && !opt.skip_verify ) {
        /* This is a kludge to work around a bug in pgp2.  It does only
@@ -707,23 +679,40 @@ proc_plaintext( CTX c, PACKET *pkt )
         * pgp mails we could see whether there is the signature packet
         * in front of the plaintext.  If someone needs this, send me a patch.
         */
-       c->mfx.md2 = md_open( DIGEST_ALGO_MD5, 0);
+      if ( gcry_md_open (&c->mfx.md2, DIGEST_ALGO_MD5, 0) )
+        BUG ();
     }
     if ( DBG_HASHING ) {
-       md_start_debug( c->mfx.md, "verify" );
+       gcry_md_start_debug ( c->mfx.md, "verify" );
        if ( c->mfx.md2  )
-           md_start_debug( c->mfx.md2, "verify2" );
+           gcry_md_start_debug ( c->mfx.md2, "verify2" );
     }
-    if ( c->pipemode.op == 'B' )
-        rc = handle_plaintext( pt, &c->mfx, 1, 0 );
-    else {
+
+    rc=0;
+
+    if (literals_seen>1)
+      {
+       log_info (_("WARNING: multiple plaintexts seen\n"));
+
+       if (!opt.flags.allow_multiple_messages)
+         {
+            write_status_text (STATUS_ERROR, "proc_pkt.plaintext 89_BAD_DATA");
+           log_inc_errorcount ();
+           rc = gpg_error (GPG_ERR_UNEXPECTED); 
+         }
+      }
+    
+    if(!rc)
+      {
         rc = handle_plaintext( pt, &c->mfx, c->sigs_only, clearsig );
-        if( rc == G10ERR_CREATE_FILE && !c->sigs_only) {
-            /* can't write output but we hash it anyway to
-             * check the signature */
+        if ( gpg_err_code (rc) == GPG_ERR_EACCES && !c->sigs_only ) 
+          {
+            /* Can't write output but we hash it anyway to check the
+               signature. */
             rc = handle_plaintext( pt, &c->mfx, 1, clearsig );
-        }
-    }
+          }
+      }
+
     if( rc )
        log_error( "handle plaintext failed: %s\n", g10_errstr(rc));
     free_packet(pkt);
@@ -743,8 +732,14 @@ proc_plaintext( CTX c, PACKET *pkt )
 static int
 proc_compressed_cb( IOBUF a, void *info )
 {
-    return proc_signature_packets( info, a, ((CTX)info)->signed_data,
-                                           ((CTX)info)->sigfilename );
+  if ( ((CTX)info)->signed_data.used
+       && ((CTX)info)->signed_data.data_fd != -1)
+    return proc_signature_packets_by_fd (info, a,
+                                         ((CTX)info)->signed_data.data_fd);
+  else
+    return proc_signature_packets (info, a,
+                                   ((CTX)info)->signed_data.data_names,
+                                   ((CTX)info)->sigfilename );
 }
 
 static int
@@ -760,7 +755,9 @@ proc_compressed( CTX c, PACKET *pkt )
     int rc;
 
     /*printf("zip: compressed data packet\n");*/
-    if( c->sigs_only )
+    if( !zd->algorithm )
+      rc=G10ERR_COMPR_ALGO;
+    else if( c->sigs_only )
        rc = handle_compressed( c, zd, proc_compressed_cb, c );
     else if( c->encrypt_only )
        rc = handle_compressed( c, zd, proc_encrypt_cb, c );
@@ -781,7 +778,7 @@ do_check_sig( CTX c, KBNODE node, int *is_selfsig,
              int *is_expkey, int *is_revkey )
 {
     PKT_signature *sig;
-    MD_HANDLE md = NULL, md2 = NULL;
+    gcry_md_hd_t md = NULL, md2 = NULL;
     int algo, rc;
 
     assert( node->pkt->pkttype == PKT_SIGNATURE );
@@ -790,27 +787,39 @@ do_check_sig( CTX c, KBNODE node, int *is_selfsig,
     sig = node->pkt->pkt.signature;
 
     algo = sig->digest_algo;
-    if( (rc=check_digest_algo(algo)) )
-       return rc;
+    rc = openpgp_md_test_algo(algo);
+    if (rc)
+      return rc;
 
     if( sig->sig_class == 0x00 ) {
        if( c->mfx.md )
-           md = md_copy( c->mfx.md );
+          {
+            if (gcry_md_copy (&md, c->mfx.md ))
+              BUG ();
+          }
        else /* detached signature */
-           md = md_open( 0, 0 ); /* signature_check() will enable the md*/
+          {
+            /* signature_check() will enable the md*/
+           if (gcry_md_open (&md, 0, 0 ))
+              BUG ();
+          }
     }
     else if( sig->sig_class == 0x01 ) {
        /* how do we know that we have to hash the (already hashed) text
         * in canonical mode ??? (calculating both modes???) */
        if( c->mfx.md ) {
-           md = md_copy( c->mfx.md );
-           if( c->mfx.md2 )
-              md2 = md_copy( c->mfx.md2 );
+            if (gcry_md_copy (&md, c->mfx.md ))
+              BUG ();
+           if( c->mfx.md2 && gcry_md_copy (&md2, c->mfx.md2 ))
+              BUG ();
        }
        else { /* detached signature */
-         log_debug("Do we really need this here?");
-           md = md_open( 0, 0 ); /* signature_check() will enable the md*/
-           md2 = md_open( 0, 0 );
+           log_debug("Do we really need this here?");
+            /* signature_check() will enable the md*/
+           if (gcry_md_open (&md, 0, 0 ))
+              BUG ();
+           if (gcry_md_open (&md2, 0, 0 ))
+              BUG ();
        }
     }
     else if( (sig->sig_class&~3) == 0x10
@@ -824,8 +833,8 @@ do_check_sig( CTX c, KBNODE node, int *is_selfsig,
            return check_key_signature( c->list, node, is_selfsig );
        }
        else if( sig->sig_class == 0x20 ) {
-           log_info(_("standalone revocation - "
-                      "use \"gpg --import\" to apply\n"));
+           log_error (_("standalone revocation - "
+                         "use \"gpg --import\" to apply\n"));
            return G10ERR_NOT_PROCESSED;
        }
        else {
@@ -837,10 +846,10 @@ do_check_sig( CTX c, KBNODE node, int *is_selfsig,
     else
        return G10ERR_SIG_CLASS;
     rc = signature_check2( sig, md, NULL, is_expkey, is_revkey, NULL );
-    if( rc == G10ERR_BAD_SIGN && md2 )
+    if( gpg_err_code (rc) == GPG_ERR_BAD_SIGNATURE && md2 )
        rc = signature_check2( sig, md2, NULL, is_expkey, is_revkey, NULL );
-    md_close(md);
-    md_close(md2);
+    gcry_md_close(md);
+    gcry_md_close(md2);
 
     return rc;
 }
@@ -947,10 +956,12 @@ list_node( CTX c, KBNODE node )
                    putchar('\n');
                    if( opt.fingerprint && !any )
                        print_fingerprint( pk, NULL, 0 );
-                   if( node->next
+                   if( opt.with_colons
+                        && node->next
                        && node->next->pkt->pkttype == PKT_RING_TRUST ) {
                        printf("rtv:2:%u:\n",
-                                node->next->pkt->pkt.ring_trust->trustval );
+                               node->next->pkt->pkt.ring_trust?
+                               node->next->pkt->pkt.ring_trust->trustval : 0);
                    }
                    any=1;
                }
@@ -1066,12 +1077,13 @@ list_node( CTX c, KBNODE node )
            fputs("sig", stdout);
        if( opt.check_sigs ) {
            fflush(stdout);
-           switch( (rc2=do_check_sig( c, node, &is_selfsig, NULL, NULL )) ) {
-             case 0:                  sigrc = '!'; break;
-             case G10ERR_BAD_SIGN:    sigrc = '-'; break;
-             case G10ERR_NO_PUBKEY: 
-             case G10ERR_UNU_PUBKEY:  sigrc = '?'; break;
-             default:                 sigrc = '%'; break;
+           rc2=do_check_sig( c, node, &is_selfsig, NULL, NULL );
+           switch (gpg_err_code (rc2)) {
+             case 0:                        sigrc = '!'; break;
+             case GPG_ERR_BAD_SIGNATURE:    sigrc = '-'; break;
+             case GPG_ERR_NO_PUBKEY: 
+             case GPG_ERR_UNUSABLE_PUBKEY:  sigrc = '?'; break;
+             default:                       sigrc = '%'; break;
            }
        }
        else {  /* check whether this is a self signature */
@@ -1151,20 +1163,24 @@ proc_packets( void *anchor, IOBUF a )
 
 int
 proc_signature_packets( void *anchor, IOBUF a,
-                       STRLIST signedfiles, const char *sigfilename )
+                       strlist_t signedfiles, const char *sigfilename )
 {
     CTX c = xmalloc_clear( sizeof *c );
     int rc;
 
     c->anchor = anchor;
     c->sigs_only = 1;
-    c->signed_data = signedfiles;
+
+    c->signed_data.data_fd = -1;
+    c->signed_data.data_names = signedfiles;
+    c->signed_data.used = !!signedfiles;
+
     c->sigfilename = sigfilename;
     rc = do_proc_packets( c, a );
 
     /* If we have not encountered any signature we print an error
        messages, send a NODATA status back and return an error code.
-       Using log_error is required becuase verify_files does not check
+       Using log_error is required because verify_files does not check
        error codes for each file but we want to terminate the process
        with an error. */ 
     if (!rc && !c->any_sig_seen)
@@ -1173,11 +1189,55 @@ proc_signature_packets( void *anchor, IOBUF a,
         log_error (_("no signature found\n"));
         rc = G10ERR_NO_DATA;
       }
+
+    /* Propagate the signature seen flag upward. Do this only on
+       success so that we won't issue the nodata status several
+       times. */
+    if (!rc && c->anchor && c->any_sig_seen)
+      c->anchor->any_sig_seen = 1;
+
     xfree( c );
     return rc;
 }
 
 int
+proc_signature_packets_by_fd (void *anchor, IOBUF a, int signed_data_fd )
+{
+  int rc;
+  CTX c = xcalloc (1, sizeof *c);
+
+  c->anchor = anchor;
+  c->sigs_only = 1;
+
+  c->signed_data.data_fd = signed_data_fd;
+  c->signed_data.data_names = NULL;
+  c->signed_data.used = (signed_data_fd != -1);
+
+  rc = do_proc_packets ( c, a );
+
+  /* If we have not encountered any signature we print an error
+     messages, send a NODATA status back and return an error code.
+     Using log_error is required because verify_files does not check
+     error codes for each file but we want to terminate the process
+     with an error. */ 
+  if (!rc && !c->any_sig_seen)
+    {
+      write_status_text (STATUS_NODATA, "4");
+      log_error (_("no signature found\n"));
+      rc = gpg_error (GPG_ERR_NO_DATA);
+    }
+  
+  /* Propagate the signature seen flag upward. Do this only on success
+     so that we won't issue the nodata status several times. */
+  if (!rc && c->anchor && c->any_sig_seen)
+    c->anchor->any_sig_seen = 1;
+  
+  xfree ( c );
+  return rc;
+}
+
+
+int
 proc_encryption_packets( void *anchor, IOBUF a )
 {
     CTX c = xmalloc_clear( sizeof *c );
@@ -1207,7 +1267,8 @@ do_proc_packets( CTX c, IOBUF a )
            free_packet(pkt);
             /* stop processing when an invalid packet has been encountered
              * but don't do so when we are doing a --list-packets. */
-           if( rc == G10ERR_INVALID_PACKET && opt.list_packets != 2 )
+           if (gpg_err_code (rc) == GPG_ERR_INV_PACKET
+                && opt.list_packets != 2 )
                break;
            continue;
        }
@@ -1307,12 +1368,6 @@ do_proc_packets( CTX c, IOBUF a )
        }
        else
            free_packet(pkt);
-        if ( c->pipemode.stop_now ) {
-            /* we won't get an EOF in pipemode, so we have to 
-             * break the loop here */ 
-            rc = -1;
-            break;
-        }
     }
     if( rc == G10ERR_INVALID_PACKET )
        write_status_text( STATUS_NODATA, "3" );
@@ -1337,47 +1392,32 @@ do_proc_packets( CTX c, IOBUF a )
 static pka_info_t *
 get_pka_address (PKT_signature *sig)
 {
-  const unsigned char *p;
-  size_t len, n1, n2;
-  int seq = 0;
   pka_info_t *pka = NULL;
+  struct notation *nd,*notation;
 
-  while ((p = enum_sig_subpkt (sig->hashed, SIGSUBPKT_NOTATION,
-                               &len, &seq, NULL)))
+  notation=sig_to_notation(sig);
+
+  for(nd=notation;nd;nd=nd->next)
     {
-      if (len < 8)
-        continue; /* Notation packet is too short. */
-      n1 = (p[4]<<8)|p[5];
-      n2 = (p[6]<<8)|p[7];
-      if (8 + n1 + n2 != len)
-        continue; /* Length fields of notation packet are inconsistent. */
-      p += 8;
-      if (n1 != 21 || memcmp (p, "pka-address@gnupg.org", 21))
+      if(strcmp(nd->name,"pka-address@gnupg.org")!=0)
         continue; /* Not the notation we want. */
-      p += n1;
-      if (n2 < 3)
-        continue; /* Impossible email address. */
-
-      if (pka)
-        break; /* For now we only use the first valid PKA notation. In
-                  future we might want to keep additional PKA
-                  notations in a linked list. */
-
-      pka = xmalloc (sizeof *pka + n2);
-      pka->valid = 0;
-      pka->checked = 0;
-      pka->uri = NULL;
-      memcpy (pka->email, p, n2);
-      pka->email[n2] = 0;
-
-      if (!is_valid_mailbox (pka->email))
-        {
-          /* We don't accept invalid mail addresses. */
-          xfree (pka);
-          pka = NULL;
-        }
+
+      /* For now we only use the first valid PKA notation. In future
+        we might want to keep additional PKA notations in a linked
+        list. */
+      if (is_valid_mailbox (nd->value))
+       {
+         pka = xmalloc (sizeof *pka + strlen(nd->value));
+         pka->valid = 0;
+         pka->checked = 0;
+         pka->uri = NULL;
+         strcpy (pka->email, nd->value);
+         break;
+       }
     }
 
+  free_notation(notation);
+
   return pka;
 }
 
@@ -1393,7 +1433,7 @@ pka_uri_from_sig (PKT_signature *sig)
       assert (!sig->pka_info);
       sig->flags.pka_tried = 1;
       sig->pka_info = get_pka_address (sig);
-      if (sig->pka_info && opt.allow_pka_lookup)
+      if (sig->pka_info)
         {
           char *uri;
 
@@ -1415,71 +1455,130 @@ pka_uri_from_sig (PKT_signature *sig)
 static int
 check_sig_and_print( CTX c, KBNODE node )
 {
-    PKT_signature *sig = node->pkt->pkt.signature;
-    const char *astr;
-    int rc, is_expkey=0, is_revkey=0;
+  PKT_signature *sig = node->pkt->pkt.signature;
+  const char *astr;
+  int rc, is_expkey=0, is_revkey=0;
 
-    if( opt.skip_verify ) {
-       log_info(_("signature verification suppressed\n"));
-       return 0;
+  if (opt.skip_verify)
+    {
+      log_info(_("signature verification suppressed\n"));
+      return 0;
     }
 
-    /* It is not in all cases possible to check multiple signatures:
-     * PGP 2 (which is also allowed by OpenPGP), does use the packet
-     * sequence: sig+data,  OpenPGP does use onepas+data=sig and GnuPG
-     * sometimes uses (because I did'nt read the specs right) data+sig.
-     * Because it is possible to create multiple signatures with
-     * different packet sequence (e.g. data+sig and sig+data) it might
-     * not be possible to get it right:  let's say we have:
-     * data+sig, sig+data,sig+data and we have not yet encountered the last
-     * data, we could also see this a one data with 2 signatures and then 
-     * data+sig.
-     * To protect against this we check that all signatures follow
-     * without any intermediate packets.  Note, that we won't get this
-     * error when we use onepass packets or cleartext signatures because
-     * we reset the list every time
-     *
-     * FIXME: Now that we have these marker packets, we should create a 
-     * real grammar and check against this.
-     */
-    {
-        KBNODE n;
-        int n_sig=0;
+  /* Check that the message composition is valid.
 
-        for (n=c->list; n; n=n->next ) {
-            if ( n->pkt->pkttype == PKT_SIGNATURE ) 
-                n_sig++;
-        }
-        if (n_sig > 1) { /* more than one signature - check sequence */
-            int tmp, onepass;
-
-            for (tmp=onepass=0,n=c->list; n; n=n->next ) {
-                if (n->pkt->pkttype == PKT_ONEPASS_SIG) 
-                    onepass++;
-                else if (n->pkt->pkttype == PKT_GPG_CONTROL
-                         && n->pkt->pkt.gpg_control->control
-                            == CTRLPKT_CLEARSIGN_START ) {
-                    onepass++; /* handle the same way as a onepass */
-                }
-                else if ( (tmp && n->pkt->pkttype != PKT_SIGNATURE) ) {
-                    log_error(_("can't handle these multiple signatures\n"));
-                    return 0;
-                }
-                else if ( n->pkt->pkttype == PKT_SIGNATURE ) 
-                    tmp = 1;
-                else if (!tmp && !onepass 
-                         && n->pkt->pkttype == PKT_GPG_CONTROL
-                         && n->pkt->pkt.gpg_control->control
-                            == CTRLPKT_PLAINTEXT_MARK ) {
-                    /* plaintext before signatures but no one-pass packets*/
-                    log_error(_("can't handle these multiple signatures\n"));
-                    return 0;
-                }
-            }
-        }
-    }
+     Per RFC-2440bis (-15) allowed:
+
+     S{1,n}           -- detached signature.
+     S{1,n} P         -- old style PGP2 signature
+     O{1,n} P S{1,n}  -- standard OpenPGP signature.
+     C P S{1,n}       -- cleartext signature.
+
+        
+          O = One-Pass Signature packet.
+          S = Signature packet.
+          P = OpenPGP Message packet (Encrypted | Compressed | Literal)
+                 (Note that the current rfc2440bis draft also allows
+                  for a signed message but that does not work as it
+                  introduces ambiguities.)
+              We keep track of these packages using the marker packet
+              CTRLPKT_PLAINTEXT_MARK.
+          C = Marker packet for cleartext signatures.
+
+     We reject all other messages.
+     
+     Actually we are calling this too often, i.e. for verification of
+     each message but better have some duplicate work than to silently
+     introduce a bug here.
+  */
+  {
+    KBNODE n;
+    int n_onepass, n_sig;
+
+/*     log_debug ("checking signature packet composition\n"); */
+/*     dump_kbnode (c->list); */
 
-    astr = pubkey_algo_to_string( sig->pubkey_algo );
+    n = c->list;
+    assert (n);
+    if ( n->pkt->pkttype == PKT_SIGNATURE ) 
+      {
+        /* This is either "S{1,n}" case (detached signature) or
+           "S{1,n} P" (old style PGP2 signature). */
+        for (n = n->next; n; n = n->next)
+          if (n->pkt->pkttype != PKT_SIGNATURE)
+            break;
+        if (!n)
+          ; /* Okay, this is a detached signature.  */
+        else if (n->pkt->pkttype == PKT_GPG_CONTROL
+                 && (n->pkt->pkt.gpg_control->control
+                     == CTRLPKT_PLAINTEXT_MARK) )
+          {
+            if (n->next)
+              goto ambiguous;  /* We only allow one P packet. */
+          }
+        else
+          goto ambiguous;
+      }
+    else if (n->pkt->pkttype == PKT_ONEPASS_SIG) 
+      {
+        /* This is the "O{1,n} P S{1,n}" case (standard signature). */
+        for (n_onepass=1, n = n->next;
+             n && n->pkt->pkttype == PKT_ONEPASS_SIG; n = n->next)
+          n_onepass++;
+        if (!n || !(n->pkt->pkttype == PKT_GPG_CONTROL
+                    && (n->pkt->pkt.gpg_control->control
+                        == CTRLPKT_PLAINTEXT_MARK)))
+          goto ambiguous;
+        for (n_sig=0, n = n->next;
+             n && n->pkt->pkttype == PKT_SIGNATURE; n = n->next)
+          n_sig++;
+        if (!n_sig)
+          goto ambiguous;
+
+       /* If we wanted to disallow multiple sig verification, we'd do
+          something like this:
+
+          if (n && !opt.allow_multisig_verification)
+             goto ambiguous;
+
+          However, now that we have --allow-multiple-messages, this
+          can stay allowable as we can't get here unless multiple
+          messages (i.e. multiple literals) are allowed. */
+
+        if (n_onepass != n_sig)
+          {
+            log_info ("number of one-pass packets does not match "
+                      "number of signature packets\n");
+            goto ambiguous;
+          }
+      }
+    else if (n->pkt->pkttype == PKT_GPG_CONTROL
+             && n->pkt->pkt.gpg_control->control == CTRLPKT_CLEARSIGN_START )
+      {
+        /* This is the "C P S{1,n}" case (clear text signature). */
+        n = n->next;
+        if (!n || !(n->pkt->pkttype == PKT_GPG_CONTROL
+                    && (n->pkt->pkt.gpg_control->control
+                        == CTRLPKT_PLAINTEXT_MARK)))
+          goto ambiguous;
+        for (n_sig=0, n = n->next;
+             n && n->pkt->pkttype == PKT_SIGNATURE; n = n->next)
+          n_sig++;
+        if (n || !n_sig)
+          goto ambiguous;
+      }
+    else 
+      {
+      ambiguous:
+        log_error(_("can't handle this ambiguous signature data\n"));
+        return 0;
+      }
+
+  }
+
+  /* (Indendation below not yet changed to GNU style.) */
+
+    astr = gcry_pk_algo_name ( sig->pubkey_algo );
     if(keystrlen()>8)
       {
        log_info(_("Signature made %s\n"),asctimestamp(sig->timestamp));
@@ -1508,8 +1607,8 @@ check_sig_and_print( CTX c, KBNODE node )
               page, but "from" if it is located on a keyserver.  I'm
               not going to even try to make two strings here :) */
            log_info(_("Key available at: ") );
-           print_utf8_string( log_stream(), p, n );
-           putc( '\n', log_stream() );
+           print_utf8_string( log_get_stream(), p, n );
+           log_printf ("\n");
 
            if(opt.keyserver_options.options&KEYSERVER_AUTO_KEY_RETRIEVE
               && opt.keyserver_options.options&KEYSERVER_HONOR_KEYSERVER_URL)
@@ -1578,7 +1677,7 @@ check_sig_and_print( CTX c, KBNODE node )
          rc = do_check_sig(c, node, NULL, &is_expkey, &is_revkey );
       }
 
-    if( !rc || rc == G10ERR_BAD_SIGN ) {
+    if( !rc || gpg_err_code (rc) == GPG_ERR_BAD_SIGNATURE ) {
        KBNODE un, keyblock;
        int count=0, statno;
         char keyid_str[50];
@@ -1649,9 +1748,9 @@ check_sig_and_print( CTX c, KBNODE node )
            xfree(p);
 
            if(opt.verify_options&VERIFY_SHOW_UID_VALIDITY)
-             fprintf(log_stream()," [%s]\n",trust_value_to_string(valid));
+             log_printf (" [%s]\n",trust_value_to_string(valid));
            else
-             fputs("\n", log_stream() );
+             log_printf ("\n");
             count++;
        }
        if( !count ) {  /* just in case that we have no valid textual
@@ -1694,16 +1793,14 @@ check_sig_and_print( CTX c, KBNODE node )
            else
              log_info(_("Good signature from \"%s\""),p);
             if (opt.trust_model!=TM_ALWAYS && un)
-             {
-                putc(' ', log_stream() );
-                fputs(_("[uncertain]"), log_stream() );
-             }
-           fputs("\n", log_stream() );
+              log_printf (" %s",_("[uncertain]") );
+           log_printf ("\n");
        }
 
         /* If we have a good signature and already printed 
          * the primary user ID, print all the other user IDs */
-        if ( count && !rc ) {
+        if ( count && !rc
+             && !(opt.verify_options&VERIFY_SHOW_PRIMARY_UID_ONLY)) {
            char *p;
             for( un=keyblock; un; un = un->next ) {
                 if( un->pkt->pkttype != PKT_USER_ID )
@@ -1742,10 +1839,10 @@ check_sig_and_print( CTX c, KBNODE node )
                      valid=trust_value_to_string(get_validity(pk,
                                                               un->pkt->
                                                               pkt.user_id));
-                   fprintf(log_stream()," [%s]\n",valid);
+                   log_printf (" [%s]\n",valid);
                  }
                else
-                 fputs("\n", log_stream() );
+                 log_printf ("\n");
             }
        }
        release_kbnode( keyblock );
@@ -1819,7 +1916,8 @@ check_sig_and_print( CTX c, KBNODE node )
 
        if (!rc)
           {
-            pka_uri_from_sig (sig); /* Make sure PKA info is available. */
+           if(opt.verify_options&VERIFY_PKA_LOOKUPS)
+             pka_uri_from_sig (sig); /* Make sure PKA info is available. */
            rc = check_signatures_trust( sig );
           }
 
@@ -1836,7 +1934,7 @@ check_sig_and_print( CTX c, KBNODE node )
          log_info(_("%s signature, digest algorithm %s\n"),
                   sig->sig_class==0x00?_("binary"):
                   sig->sig_class==0x01?_("textmode"):_("unknown"),
-                  digest_algo_to_string(sig->digest_algo));
+                  gcry_md_algo_name (sig->digest_algo));
 
        if( rc )
            g10_errors_seen = 1;
@@ -1898,31 +1996,47 @@ proc_tree( CTX c, KBNODE node )
     else if( node->pkt->pkttype == PKT_ONEPASS_SIG ) {
        /* check all signatures */
        if( !c->have_data ) {
+            int use_textmode = 0;
+
            free_md_filter_context( &c->mfx );
            /* prepare to create all requested message digests */
-           c->mfx.md = md_open(0, 0);
+            if (gcry_md_open (&c->mfx.md, 0, 0))
+              BUG ();
 
-           /* fixme: why looking for the signature packet and not 1passpacket*/
-           for( n1 = node; (n1 = find_next_kbnode(n1, PKT_SIGNATURE )); ) {
-               md_enable( c->mfx.md, n1->pkt->pkt.signature->digest_algo);
-           }
-           /* ask for file and hash it */
+           /* fixme: why looking for the signature packet and not the
+               one-pass packet? */
+           for ( n1 = node; (n1 = find_next_kbnode(n1, PKT_SIGNATURE )); )
+              {
+               gcry_md_enable (c->mfx.md,
+                                n1->pkt->pkt.signature->digest_algo);
+              }
+
+            if (n1 && n1->pkt->pkt.onepass_sig->sig_class == 0x01)
+                use_textmode = 1;
+
+           /* Ask for file and hash it. */
            if( c->sigs_only ) {
-               rc = hash_datafiles( c->mfx.md, NULL,
-                                    c->signed_data, c->sigfilename,
-                       n1? (n1->pkt->pkt.onepass_sig->sig_class == 0x01):0 );
+                if (c->signed_data.used && c->signed_data.data_fd != -1)
+                    rc = hash_datafile_by_fd (c->mfx.md, NULL,
+                                              c->signed_data.data_fd,
+                                              use_textmode);
+                else
+                    rc = hash_datafiles (c->mfx.md, NULL,
+                                         c->signed_data.data_names,
+                                         c->sigfilename,
+                                         use_textmode );
            }
            else {
-               rc = ask_for_detached_datafilec->mfx.md, c->mfx.md2,
+               rc = ask_for_detached_datafile (c->mfx.md, c->mfx.md2,
                                                iobuf_get_real_fname(c->iobuf),
-                       n1? (n1->pkt->pkt.onepass_sig->sig_class == 0x01):0 );
+                                                use_textmode );
            }
            if( rc ) {
                log_error("can't hash datafile: %s\n", g10_errstr(rc));
                return;
            }
        }
-        else if ( c->signed_data ) {
+        else if ( c->signed_data.used ) {
             log_error (_("not a detached signature\n") );
             return;
         }
@@ -1938,7 +2052,7 @@ proc_tree( CTX c, KBNODE node )
             log_error("cleartext signature without data\n" );
             return;
         }
-        else if ( c->signed_data ) {
+        else if ( c->signed_data.used ) {
             log_error (_("not a detached signature\n") );
             return;
         }
@@ -1979,20 +2093,24 @@ proc_tree( CTX c, KBNODE node )
        else if( !c->have_data ) {
            /* detached signature */
            free_md_filter_context( &c->mfx );
-           c->mfx.md = md_open(sig->digest_algo, 0);
+            if (gcry_md_open (&c->mfx.md, sig->digest_algo, 0))
+              BUG ();
+
            if( !opt.pgp2_workarounds )
                ;
            else if( sig->digest_algo == DIGEST_ALGO_MD5
                     && is_RSA( sig->pubkey_algo ) ) {
                /* enable a workaround for a pgp2 bug */
-               c->mfx.md2 = md_open( DIGEST_ALGO_MD5, 0 );
+                if (gcry_md_open (&c->mfx.md2, DIGEST_ALGO_MD5, 0))
+                  BUG ();
            }
            else if( sig->digest_algo == DIGEST_ALGO_SHA1
                     && sig->pubkey_algo == PUBKEY_ALGO_DSA
                     && sig->sig_class == 0x01 ) {
                /* enable the workaround also for pgp5 when the detached
                 * signature has been created in textmode */
-               c->mfx.md2 = md_open( sig->digest_algo, 0 );
+              if (gcry_md_open (&c->mfx.md2, sig->digest_algo, 0 ))
+                BUG ();
            }
 #if 0 /* workaround disabled */
            /* Here we have another hack to work around a pgp 2 bug
@@ -2005,14 +2123,20 @@ proc_tree( CTX c, KBNODE node )
                    /*  c->mfx.md2? 0 :(sig->sig_class == 0x01) */
 #endif
             if ( DBG_HASHING ) {
-                md_start_debug( c->mfx.md, "verify" );
+                gcry_md_start_debug( c->mfx.md, "verify" );
                 if ( c->mfx.md2  )
-                    md_start_debug( c->mfx.md2, "verify2" );
+                    gcry_md_start_debug( c->mfx.md2, "verify2" );
             }
            if( c->sigs_only ) {
-               rc = hash_datafiles( c->mfx.md, c->mfx.md2,
-                                    c->signed_data, c->sigfilename,
-                                    (sig->sig_class == 0x01) );
+                if (c->signed_data.used && c->signed_data.data_fd != -1)
+                    rc = hash_datafile_by_fd (c->mfx.md, c->mfx.md2,
+                                              c->signed_data.data_fd, 
+                                              (sig->sig_class == 0x01));
+                else
+                    rc = hash_datafiles (c->mfx.md, c->mfx.md2,
+                                         c->signed_data.data_names,
+                                         c->sigfilename,
+                                         (sig->sig_class == 0x01));
            }
            else {
                rc = ask_for_detached_datafile( c->mfx.md, c->mfx.md2,
@@ -2024,12 +2148,10 @@ proc_tree( CTX c, KBNODE node )
                return;
            }
        }
-        else if ( c->signed_data ) {
+        else if ( c->signed_data.used ) {
             log_error (_("not a detached signature\n") );
             return;
         }
-        else if ( c->pipemode.op == 'B' )
-            ; /* this is a detached signature trough the pipemode handler */
        else if (!opt.quiet)
            log_info(_("old style (PGP 2.x) signature\n"));