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