b9787b1825f1ea3b1e86419193da6cd74431333c
[gnupg.git] / tools / gpgsplit.c
1 /* gpgsplit.c - An OpenPGP packet splitting tool
2  * Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc.
3  *
4  * This file is part of GnuPG.
5  *
6  * GnuPG is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 3 of the License, or
9  * (at your option) any later version.
10  *
11  * GnuPG is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, see <https://www.gnu.org/licenses/>.
18  */
19
20 #include <config.h>
21 #include <errno.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
25 #include <ctype.h>
26 #include <unistd.h>
27 #include <assert.h>
28 #include <sys/types.h>
29 #ifdef HAVE_DOSISH_SYSTEM
30 # include <fcntl.h> /* for setmode() */
31 #endif
32 #ifdef HAVE_ZIP
33 # include <zlib.h>
34 #endif
35 #if defined(__riscos__) && defined(USE_ZLIBRISCOS)
36 # include "zlib-riscos.h"
37 #endif
38
39 #define INCLUDED_BY_MAIN_MODULE 1
40 #include "../common/util.h"
41 #include "../common/openpgpdefs.h"
42
43 #ifdef HAVE_BZIP2
44 # include <bzlib.h>
45 #endif /* HAVE_BZIP2 */
46
47 static int opt_verbose;
48 static const char *opt_prefix = "";
49 static int opt_uncompress;
50 static int opt_secret_to_public;
51 static int opt_no_split;
52
53 static void g10_exit( int rc );
54 static void split_packets (const char *fname);
55
56
57 enum cmd_and_opt_values {
58   aNull = 0,
59   oVerbose        = 'v',
60   oPrefix       = 'p',
61   oUncompress   = 500,
62   oSecretToPublic,
63   oNoSplit,
64
65   aTest
66 };
67
68
69 static ARGPARSE_OPTS opts[] = {
70
71     { 301, NULL, 0, "@Options:\n " },
72
73     { oVerbose, "verbose",   0, "verbose" },
74     { oPrefix,  "prefix",    2, "|STRING|Prepend filenames with STRING" },
75     { oUncompress, "uncompress", 0, "uncompress a packet"},
76     { oSecretToPublic, "secret-to-public", 0, "convert secret keys to public keys"},
77     { oNoSplit, "no-split", 0, "write to stdout and don't actually split"},
78 {0} };
79
80
81 static const char *
82 my_strusage (int level)
83 {
84   const char *p;
85   switch (level)
86     {
87     case 11: p = "gpgsplit (@GNUPG@)";
88       break;
89     case 13: p = VERSION; break;
90     case 17: p = PRINTABLE_OS_NAME; break;
91     case 19: p = "Please report bugs to <@EMAIL@>.\n"; break;
92
93     case 1:
94     case 40:    p =
95                   "Usage: gpgsplit [options] [files] (-h for help)";
96     break;
97     case 41:    p =
98                   "Syntax: gpgsplit [options] [files]\n"
99                   "Split an OpenPGP message into packets\n";
100     break;
101
102     default:    p = NULL;
103     }
104   return p;
105 }
106
107
108
109 int
110 main (int argc, char **argv)
111 {
112   ARGPARSE_ARGS pargs;
113
114 #ifdef HAVE_DOSISH_SYSTEM
115   setmode( fileno(stdin), O_BINARY );
116   setmode( fileno(stdout), O_BINARY );
117 #endif
118   log_set_prefix ("gpgsplit", GPGRT_LOG_WITH_PREFIX);
119   set_strusage (my_strusage);
120
121   pargs.argc = &argc;
122   pargs.argv = &argv;
123   pargs.flags=  1;  /* do not remove the args */
124   while (optfile_parse( NULL, NULL, NULL, &pargs, opts))
125     {
126       switch (pargs.r_opt)
127         {
128         case oVerbose: opt_verbose = 1; break;
129         case oPrefix: opt_prefix = pargs.r.ret_str; break;
130         case oUncompress: opt_uncompress = 1; break;
131         case oSecretToPublic: opt_secret_to_public = 1; break;
132         case oNoSplit: opt_no_split = 1; break;
133         default : pargs.err = 2; break;
134         }
135     }
136
137   if (log_get_errorcount(0))
138     g10_exit (2);
139
140   if (!argc)
141     split_packets (NULL);
142   else
143     {
144       for ( ;argc; argc--, argv++)
145         split_packets (*argv);
146     }
147
148   g10_exit (0);
149   return 0;
150 }
151
152
153 static void
154 g10_exit (int rc)
155 {
156   rc = rc? rc : log_get_errorcount(0)? 2 : 0;
157   exit(rc );
158 }
159
160 static const char *
161 pkttype_to_string (int pkttype)
162 {
163   const char *s;
164
165   switch (pkttype)
166     {
167     case PKT_PUBKEY_ENC    : s = "pk_enc"; break;
168     case PKT_SIGNATURE     : s = "sig"; break;
169     case PKT_SYMKEY_ENC    : s = "sym_enc"; break;
170     case PKT_ONEPASS_SIG   : s = "onepass_sig"; break;
171     case PKT_SECRET_KEY    : s = "secret_key"; break;
172     case PKT_PUBLIC_KEY    : s = "public_key"; break;
173     case PKT_SECRET_SUBKEY : s = "secret_subkey"; break;
174     case PKT_COMPRESSED    :
175       s = opt_uncompress? "uncompressed":"compressed";
176       break;
177     case PKT_ENCRYPTED     : s = "encrypted"; break;
178     case PKT_MARKER            : s = "marker"; break;
179     case PKT_PLAINTEXT     : s = "plaintext"; break;
180     case PKT_RING_TRUST    : s = "ring_trust"; break;
181     case PKT_USER_ID       : s = "user_id"; break;
182     case PKT_PUBLIC_SUBKEY : s = "public_subkey"; break;
183     case PKT_OLD_COMMENT   : s = "old_comment"; break;
184     case PKT_ATTRIBUTE     : s = "attribute"; break;
185     case PKT_ENCRYPTED_MDC : s = "encrypted_mdc"; break;
186     case PKT_MDC               : s = "mdc"; break;
187     case PKT_COMMENT       : s = "comment"; break;
188     case PKT_GPG_CONTROL   : s = "gpg_control"; break;
189     default: s = "unknown"; break;
190     }
191   return s;
192 }
193
194
195 /*
196  * Create a new filename and a return a pointer to a statically
197  * allocated buffer
198  */
199 static char *
200 create_filename (int pkttype)
201 {
202   static unsigned int partno = 0;
203   static char *name;
204
205   if (!name)
206     name = xmalloc (strlen (opt_prefix) + 100 );
207
208   assert (pkttype < 1000 && pkttype >= 0 );
209   partno++;
210   sprintf (name, "%s%06u-%03d" EXTSEP_S "%.40s",
211            opt_prefix, partno, pkttype, pkttype_to_string (pkttype));
212   return name;
213 }
214
215 static int
216 read_u16 (FILE *fp, size_t *rn)
217 {
218   int c;
219
220   if ( (c = getc (fp)) == EOF )
221     return -1;
222   *rn = c << 8;
223   if ( (c = getc (fp)) == EOF )
224     return -1;
225   *rn |= c;
226   return 0;
227 }
228
229 static int
230 read_u32 (FILE *fp, unsigned long *rn)
231 {
232   size_t tmp;
233
234   if (read_u16 (fp, &tmp))
235     return -1;
236   *rn = tmp << 16;
237   if (read_u16 (fp, &tmp))
238     return -1;
239   *rn |= tmp;
240   return 0;
241 }
242
243 static int
244 write_old_header (FILE *fp, int pkttype, unsigned int len)
245 {
246   int ctb = (0x80 | ((pkttype & 15)<<2));
247
248   if (len < 256)
249     ;
250   else if (len < 65536)
251     ctb |= 1;
252   else
253     ctb |= 2;
254
255   if ( putc ( ctb, fp) == EOF )
256     return -1;
257
258   if ( (ctb & 2) )
259     {
260       if (putc ((len>>24), fp) == EOF)
261         return -1;
262       if (putc ((len>>16), fp) == EOF)
263         return -1;
264     }
265   if ( (ctb & 3) )
266     {
267       if (putc ((len>>8), fp) == EOF)
268         return -1;
269     }
270   if (putc ((len&0xff), fp) == EOF)
271     return -1;
272   return 0;
273 }
274
275 static int
276 write_new_header (FILE *fp, int pkttype, unsigned int len)
277 {
278   if ( putc ((0xc0 | (pkttype & 0x3f)), fp) == EOF )
279     return -1;
280
281   if (len < 192)
282     {
283       if (putc (len, fp) == EOF)
284         return -1;
285     }
286   else if (len < 8384)
287     {
288       len -= 192;
289       if (putc ((len/256)+192, fp) == EOF)
290         return -1;
291       if (putc ((len%256), fp) == EOF)
292         return -1;
293     }
294   else
295     {
296       if (putc ( 0xff, fp) == EOF)
297         return -1;
298       if (putc ( (len >> 24), fp) == EOF)
299         return -1;
300       if (putc ( (len >> 16), fp) == EOF)
301         return -1;
302       if (putc ( (len >> 8), fp) == EOF)
303         return -1;
304       if (putc ( (len & 0xff), fp) == EOF)
305         return -1;
306     }
307   return 0;
308 }
309
310 /* Return the length of the public key given BUF of BUFLEN with a
311    secret key. */
312 static int
313 public_key_length (const unsigned char *buf, size_t buflen)
314 {
315   const unsigned char *s;
316   int nmpis;
317
318   /*   byte version number (3 or 4)
319        u32  creation time
320        [u16  valid days (version 3 only)]
321        byte algorithm
322        n    MPIs (n and e) */
323   if (!buflen)
324     return 0;
325   if (buf[0] < 2 || buf[0] > 4)
326     return 0; /* wrong version number */
327   if (buflen < (buf[0] == 4? 6:8))
328     return 0;
329   s = buf + (buf[0] == 4? 6:8);
330   buflen -= (buf[0] == 4? 6:8);
331   switch (s[-1])
332     {
333     case 1:
334     case 2:
335     case 3:
336       nmpis = 2;
337       break;
338     case 16:
339     case 20:
340       nmpis = 3;
341       break;
342     case 17:
343       nmpis = 4;
344       break;
345     default:
346       return 0;
347     }
348
349   for (; nmpis; nmpis--)
350     {
351       unsigned int nbits, nbytes;
352
353       if (buflen < 2)
354         return 0;
355       nbits = (s[0] << 8) | s[1];
356       s += 2; buflen -= 2;
357       nbytes = (nbits+7) / 8;
358       if (buflen < nbytes)
359         return 0;
360       s += nbytes; buflen -= nbytes;
361     }
362
363   return s - buf;
364 }
365
366 #ifdef HAVE_ZIP
367 static int
368 handle_zlib(int algo,FILE *fpin,FILE *fpout)
369 {
370   z_stream zs;
371   byte *inbuf, *outbuf;
372   unsigned int inbufsize, outbufsize;
373   int c,zinit_done, zrc, nread, count;
374   size_t n;
375
376   memset (&zs, 0, sizeof zs);
377   inbufsize = 2048;
378   inbuf = xmalloc (inbufsize);
379   outbufsize = 8192;
380   outbuf = xmalloc (outbufsize);
381   zs.avail_in = 0;
382   zinit_done = 0;
383
384   do
385     {
386       if (zs.avail_in < inbufsize)
387         {
388           n = zs.avail_in;
389           if (!n)
390             zs.next_in = (Bytef *) inbuf;
391           count = inbufsize - n;
392           for (nread=0;
393                nread < count && (c=getc (fpin)) != EOF;
394                nread++)
395             inbuf[n+nread] = c;
396
397           n += nread;
398           if (nread < count && algo == 1)
399             {
400               inbuf[n] = 0xFF; /* chew dummy byte */
401               n++;
402             }
403           zs.avail_in = n;
404         }
405       zs.next_out = (Bytef *) outbuf;
406       zs.avail_out = outbufsize;
407
408       if (!zinit_done)
409         {
410           zrc = (algo == 1? inflateInit2 ( &zs, -13)
411                  : inflateInit ( &zs ));
412           if (zrc != Z_OK)
413             {
414               log_fatal ("zlib problem: %s\n", zs.msg? zs.msg :
415                          zrc == Z_MEM_ERROR ? "out of core" :
416                          zrc == Z_VERSION_ERROR ?
417                          "invalid lib version" :
418                          "unknown error" );
419             }
420           zinit_done = 1;
421         }
422       else
423         {
424 #ifdef Z_SYNC_FLUSH
425           zrc = inflate (&zs, Z_SYNC_FLUSH);
426 #else
427           zrc = inflate (&zs, Z_PARTIAL_FLUSH);
428 #endif
429           if (zrc == Z_STREAM_END)
430             ; /* eof */
431           else if (zrc != Z_OK && zrc != Z_BUF_ERROR)
432             {
433               if (zs.msg)
434                 log_fatal ("zlib inflate problem: %s\n", zs.msg );
435               else
436                 log_fatal ("zlib inflate problem: rc=%d\n", zrc );
437             }
438           for (n=0; n < outbufsize - zs.avail_out; n++)
439             {
440               if (putc (outbuf[n], fpout) == EOF )
441                 return 1;
442             }
443         }
444     }
445   while (zrc != Z_STREAM_END && zrc != Z_BUF_ERROR);
446   {
447     int i;
448
449     fputs ("Left over bytes:", stderr);
450     for (i=0; i < zs.avail_in; i++)
451       fprintf (stderr, " %02X", zs.next_in[i]);
452     putc ('\n', stderr);
453
454   }
455   inflateEnd (&zs);
456
457   return 0;
458 }
459 #endif /*HAVE_ZIP*/
460
461 #ifdef HAVE_BZIP2
462 static int
463 handle_bzip2(int algo,FILE *fpin,FILE *fpout)
464 {
465   bz_stream bzs;
466   byte *inbuf, *outbuf;
467   unsigned int inbufsize, outbufsize;
468   int c,zinit_done, zrc, nread, count;
469   size_t n;
470
471   memset (&bzs, 0, sizeof bzs);
472   inbufsize = 2048;
473   inbuf = xmalloc (inbufsize);
474   outbufsize = 8192;
475   outbuf = xmalloc (outbufsize);
476   bzs.avail_in = 0;
477   zinit_done = 0;
478
479   do
480     {
481       if (bzs.avail_in < inbufsize)
482         {
483           n = bzs.avail_in;
484           if (!n)
485             bzs.next_in = inbuf;
486           count = inbufsize - n;
487           for (nread=0;
488                nread < count && (c=getc (fpin)) != EOF;
489                nread++)
490             inbuf[n+nread] = c;
491
492           n += nread;
493           if (nread < count && algo == 1)
494             {
495               inbuf[n] = 0xFF; /* chew dummy byte */
496               n++;
497             }
498           bzs.avail_in = n;
499         }
500       bzs.next_out = outbuf;
501       bzs.avail_out = outbufsize;
502
503       if (!zinit_done)
504         {
505           zrc = BZ2_bzDecompressInit(&bzs,0,0);
506           if (zrc != BZ_OK)
507             log_fatal ("bz2lib problem: %d\n",zrc);
508           zinit_done = 1;
509         }
510       else
511         {
512           zrc = BZ2_bzDecompress(&bzs);
513           if (zrc == BZ_STREAM_END)
514             ; /* eof */
515           else if (zrc != BZ_OK && zrc != BZ_PARAM_ERROR)
516             log_fatal ("bz2lib inflate problem: %d\n", zrc );
517           for (n=0; n < outbufsize - bzs.avail_out; n++)
518             {
519               if (putc (outbuf[n], fpout) == EOF )
520                 return 1;
521             }
522         }
523     }
524   while (zrc != BZ_STREAM_END && zrc != BZ_PARAM_ERROR);
525   BZ2_bzDecompressEnd(&bzs);
526
527   return 0;
528 }
529 #endif /* HAVE_BZIP2 */
530
531 /* hdr must point to a buffer large enough to hold all header bytes */
532 static int
533 write_part (FILE *fpin, unsigned long pktlen,
534             int pkttype, int partial, unsigned char *hdr, size_t hdrlen)
535 {
536   FILE *fpout;
537   int c, first;
538   unsigned char *p;
539   const char *outname = create_filename (pkttype);
540
541 #if defined(__riscos__) && defined(USE_ZLIBRISCOS)
542   static int initialized = 0;
543
544   if (!initialized)
545       initialized = riscos_load_module("ZLib", zlib_path, 1);
546 #endif
547   if (opt_no_split)
548     fpout = stdout;
549   else
550     {
551       if (opt_verbose)
552         log_info ("writing '%s'\n", outname);
553       fpout = fopen (outname, "wb");
554       if (!fpout)
555         {
556           log_error ("error creating '%s': %s\n", outname, strerror(errno));
557           /* stop right now, otherwise we would mess up the sequence
558              of the part numbers */
559           g10_exit (1);
560         }
561     }
562
563   if (opt_secret_to_public
564       && (pkttype == PKT_SECRET_KEY || pkttype == PKT_SECRET_SUBKEY))
565     {
566       unsigned char *blob = xmalloc (pktlen);
567       int i, len;
568
569       pkttype = pkttype == PKT_SECRET_KEY? PKT_PUBLIC_KEY:PKT_PUBLIC_SUBKEY;
570
571       for (i=0; i < pktlen; i++)
572         {
573           c = getc (fpin);
574           if (c == EOF)
575             goto read_error;
576           blob[i] = c;
577         }
578       len = public_key_length (blob, pktlen);
579       if (!len)
580         {
581           log_error ("error calculating public key length\n");
582           g10_exit (1);
583         }
584       if ( (hdr[0] & 0x40) )
585         {
586           if (write_new_header (fpout, pkttype, len))
587             goto write_error;
588         }
589       else
590         {
591           if (write_old_header (fpout, pkttype, len))
592             goto write_error;
593         }
594
595       for (i=0; i < len; i++)
596         {
597           if ( putc (blob[i], fpout) == EOF )
598             goto write_error;
599         }
600
601       goto ready;
602     }
603
604
605   if (!opt_uncompress)
606     {
607       for (p=hdr; hdrlen; p++, hdrlen--)
608         {
609           if ( putc (*p, fpout) == EOF )
610             goto write_error;
611         }
612     }
613
614   first = 1;
615   while (partial)
616     {
617       size_t partlen;
618
619       if (partial == 1)
620         { /* openpgp */
621           if (first )
622             {
623               c = pktlen;
624               assert( c >= 224 && c < 255 );
625               first = 0;
626             }
627           else if ((c = getc (fpin)) == EOF )
628             goto read_error;
629           else
630             hdr[hdrlen++] = c;
631
632           if (c < 192)
633             {
634               pktlen = c;
635               partial = 0; /* (last segment may follow) */
636             }
637           else if (c < 224 )
638             {
639               pktlen = (c - 192) * 256;
640               if ((c = getc (fpin)) == EOF)
641                 goto read_error;
642               hdr[hdrlen++] = c;
643               pktlen += c + 192;
644               partial = 0;
645             }
646           else if (c == 255)
647             {
648               if (read_u32 (fpin, &pktlen))
649                 goto read_error;
650               hdr[hdrlen++] = pktlen >> 24;
651               hdr[hdrlen++] = pktlen >> 16;
652               hdr[hdrlen++] = pktlen >> 8;
653               hdr[hdrlen++] = pktlen;
654               partial = 0;
655             }
656           else
657             { /* next partial body length */
658               for (p=hdr; hdrlen; p++, hdrlen--)
659                 {
660                   if ( putc (*p, fpout) == EOF )
661                     goto write_error;
662                 }
663               partlen = 1 << (c & 0x1f);
664               for (; partlen; partlen--)
665                 {
666                   if ((c = getc (fpin)) == EOF)
667                     goto read_error;
668                   if ( putc (c, fpout) == EOF )
669                     goto write_error;
670                 }
671             }
672         }
673       else if (partial == 2)
674         { /* old gnupg */
675           assert (!pktlen);
676           if ( read_u16 (fpin, &partlen) )
677             goto read_error;
678           hdr[hdrlen++] = partlen >> 8;
679           hdr[hdrlen++] = partlen;
680           for (p=hdr; hdrlen; p++, hdrlen--)
681             {
682               if ( putc (*p, fpout) == EOF )
683                 goto write_error;
684             }
685           if (!partlen)
686             partial = 0; /* end of packet */
687           for (; partlen; partlen--)
688             {
689               c = getc (fpin);
690               if (c == EOF)
691                 goto read_error;
692               if ( putc (c, fpout) == EOF )
693                 goto write_error;
694             }
695         }
696       else
697         { /* compressed: read to end */
698           pktlen = 0;
699           partial = 0;
700           hdrlen = 0;
701           if (opt_uncompress)
702             {
703               if ((c = getc (fpin)) == EOF)
704                 goto read_error;
705
706               if (0)
707                 ;
708 #ifdef HAVE_ZIP
709               else if(c==1 || c==2)
710                 {
711                   if(handle_zlib(c,fpin,fpout))
712                     goto write_error;
713                 }
714 #endif /* HAVE_ZIP */
715 #ifdef HAVE_BZIP2
716               else if(c==3)
717                 {
718                   if(handle_bzip2(c,fpin,fpout))
719                     goto write_error;
720                 }
721 #endif /* HAVE_BZIP2 */
722               else
723                 {
724                   log_error("invalid compression algorithm (%d)\n",c);
725                   goto read_error;
726                 }
727             }
728           else
729             {
730               while ( (c=getc (fpin)) != EOF )
731                 {
732                   if ( putc (c, fpout) == EOF )
733                     goto write_error;
734                 }
735             }
736           if (!feof (fpin))
737             goto read_error;
738         }
739     }
740
741   for (p=hdr; hdrlen; p++, hdrlen--)
742     {
743       if ( putc (*p, fpout) == EOF )
744         goto write_error;
745     }
746
747   /* standard packet or last segment of partial length encoded packet */
748   for (; pktlen; pktlen--)
749     {
750       c = getc (fpin);
751       if (c == EOF)
752         goto read_error;
753       if ( putc (c, fpout) == EOF )
754         goto write_error;
755     }
756
757  ready:
758   if ( !opt_no_split && fclose (fpout) )
759     log_error ("error closing '%s': %s\n", outname, strerror (errno));
760   return 0;
761
762  write_error:
763   log_error ("error writing '%s': %s\n", outname, strerror (errno));
764   if (!opt_no_split)
765     fclose (fpout);
766   return 2;
767
768  read_error:
769   if (!opt_no_split)
770     {
771       int save = errno;
772       fclose (fpout);
773       errno = save;
774     }
775   return -1;
776 }
777
778
779
780 static int
781 do_split (FILE *fp)
782 {
783   int c, ctb, pkttype;
784   unsigned long pktlen = 0;
785   int partial = 0;
786   unsigned char header[20];
787   int header_idx = 0;
788
789   ctb = getc (fp);
790   if (ctb == EOF)
791     return 3; /* ready */
792   header[header_idx++] = ctb;
793
794   if (!(ctb & 0x80))
795     {
796       log_error("invalid CTB %02x\n", ctb );
797       return 1;
798     }
799   if ( (ctb & 0x40) )
800     { /* new CTB */
801       pkttype =  (ctb & 0x3f);
802       if( (c = getc (fp)) == EOF )
803         return -1;
804       header[header_idx++] = c;
805
806       if ( c < 192 )
807         pktlen = c;
808       else if ( c < 224 )
809         {
810           pktlen = (c - 192) * 256;
811           if( (c = getc (fp)) == EOF )
812             return -1;
813           header[header_idx++] = c;
814           pktlen += c + 192;
815         }
816       else if ( c == 255 )
817         {
818           if (read_u32 (fp, &pktlen))
819             return -1;
820           header[header_idx++] = pktlen >> 24;
821           header[header_idx++] = pktlen >> 16;
822           header[header_idx++] = pktlen >> 8;
823           header[header_idx++] = pktlen;
824         }
825       else
826         { /* partial body length */
827           pktlen = c;
828           partial = 1;
829         }
830     }
831   else
832     {
833       int lenbytes;
834
835       pkttype = (ctb>>2)&0xf;
836       lenbytes = ((ctb&3)==3)? 0 : (1<<(ctb & 3));
837       if (!lenbytes )
838         {
839           pktlen = 0; /* don't know the value */
840           if( pkttype == PKT_COMPRESSED )
841             partial = 3;
842           else
843             partial = 2; /* the old GnuPG partial length encoding */
844         }
845       else
846         {
847           for ( ; lenbytes; lenbytes-- )
848             {
849               pktlen <<= 8;
850               if( (c = getc (fp)) == EOF )
851                 return -1;
852               header[header_idx++] = c;
853
854               pktlen |= c;
855             }
856         }
857     }
858
859   return write_part (fp, pktlen, pkttype, partial, header, header_idx);
860 }
861
862
863 static void
864 split_packets (const char *fname)
865 {
866   FILE *fp;
867   int rc;
868
869   if (!fname || !strcmp (fname, "-"))
870     {
871       fp = stdin;
872       fname = "-";
873     }
874   else if ( !(fp = fopen (fname,"rb")) )
875     {
876       log_error ("can't open '%s': %s\n", fname, strerror (errno));
877       return;
878     }
879
880   while ( !(rc = do_split (fp)) )
881     ;
882   if ( rc > 0 )
883     ; /* error already handled */
884   else if ( ferror (fp) )
885     log_error ("error reading '%s': %s\n", fname, strerror (errno));
886   else
887     log_error ("premature EOF while reading '%s'\n", fname );
888
889   if ( fp != stdin )
890     fclose (fp);
891 }