git.marmaro.de Git - mmh/blob - uip/mhlistsbr.c

   1 /*
   2 ** mhlistsbr.c -- routines to list information about the
   3 **             -- contents of MIME messages
   4 **
   5 ** This code is Copyright (c) 2002, by the authors of nmh.  See the
   6 ** COPYRIGHT file in the root directory of the nmh distribution for
   7 ** complete copyright information.
   8 */
   9
  10 #include <h/mh.h>
  11 #include <fcntl.h>
  12 #include <h/signals.h>
  13 #include <errno.h>
  14 #include <signal.h>
  15 #include <h/mts.h>
  16 #include <h/tws.h>
  17 #include <h/mime.h>
  18 #include <h/mhparse.h>
  19 #include <h/utils.h>
  20
  21 /* mhmisc.c */
  22 int part_ok (CT, int);
  23 int type_ok (CT, int);
  24 void flush_errors (void);
  25
  26 /*
  27 ** prototypes
  28 */
  29 void list_all_messages (CT *, int, int, int, int);
  30 int list_switch (CT, int, int, int, int);
  31 int list_content (CT, int, int, int, int);
  32
  33 /*
  34 ** static prototypes
  35 */
  36 static void list_single_message (CT, int, int, int);
  37 static int list_debug (CT);
  38 static int list_multi (CT, int, int, int, int);
  39 static int list_partial (CT, int, int, int, int);
  40 static int list_external (CT, int, int, int, int);
  41 static int list_application (CT, int, int, int, int);
  42 static int list_encoding (CT);
  43
  44
  45 /*
  46 ** various formats for -list option
  47 */
  48 #define LSTFMT1    "%4s %-5s %-24s %5s %-36s\n"
  49 #define LSTFMT2a   "%4d "
  50 #define LSTFMT2b   "%-5s %-24.24s "
  51 #define LSTFMT2c1  "%5lu"
  52 #define LSTFMT2c2  "%4lu%c"
  53 #define LSTFMT2c3  "huge "
  54 #define LSTFMT2c4  "     "
  55 #define LSTFMT2d1  " %-36.36s"
  56 #define LSTFMT2d2  "\t     %-65.65s\n"
  57
  58
  59 /*
  60 ** Top level entry point to list group of messages
  61 */
  62
  63 void
  64 list_all_messages (CT *cts, int headers, int realsize, int verbose, int debug)
  65 {
  66         CT ct, *ctp;
  67
  68         if (headers)
  69                 printf (LSTFMT1, "msg", "part", "type/subtype", "size", "description");
  70
  71         for (ctp = cts; *ctp; ctp++) {
  72                 ct = *ctp;
  73                 list_single_message (ct, realsize, verbose, debug);
  74         }
  75
  76         flush_errors ();
  77 }
  78
  79
  80 /*
  81 ** Entry point to list a single message
  82 */
  83
  84 static void
  85 list_single_message (CT ct, int realsize, int verbose, int debug)
  86 {
  87         if (type_ok (ct, 1)) {
  88                 umask (ct->c_umask);
  89                 list_switch (ct, 1, realsize, verbose, debug);
  90                 if (ct->c_fp) {
  91                         fclose (ct->c_fp);
  92                         ct->c_fp = NULL;
  93                 }
  94                 if (ct->c_ceclosefnx)
  95                         (*ct->c_ceclosefnx) (ct);
  96         }
  97 }
  98
  99
 100 /*
 101 ** Primary switching routine to list information about a content
 102 */
 103
 104 int
 105 list_switch (CT ct, int toplevel, int realsize, int verbose, int debug)
 106 {
 107         switch (ct->c_type) {
 108                 case CT_MULTIPART:
 109                         return list_multi (ct, toplevel, realsize, verbose, debug);
 110                         break;
 111
 112                 case CT_MESSAGE:
 113                         switch (ct->c_subtype) {
 114                                 case MESSAGE_PARTIAL:
 115                                         return list_partial (ct, toplevel, realsize, verbose, debug);
 116                                         break;
 117
 118                                 case MESSAGE_EXTERNAL:
 119                                         return list_external (ct, toplevel, realsize, verbose, debug);
 120                                         break;
 121
 122                                 case MESSAGE_RFC822:
 123                                 default:
 124                                         return list_content (ct, toplevel, realsize, verbose, debug);
 125                                         break;
 126                         }
 127                         break;
 128
 129                 case CT_TEXT:
 130                 case CT_AUDIO:
 131                 case CT_IMAGE:
 132                 case CT_VIDEO:
 133                         return list_content (ct, toplevel, realsize, verbose, debug);
 134                         break;
 135
 136                 case CT_APPLICATION:
 137                         return list_application (ct, toplevel, realsize, verbose, debug);
 138                         break;
 139
 140                 default:
 141                         /* list_debug (ct); */
 142                         adios (NULL, "unknown content type %d", ct->c_type);
 143                         break;
 144         }
 145
 146         return 0;  /* NOT REACHED */
 147 }
 148
 149
 150 #define empty(s) ((s) ? (s) : "")
 151
 152 /*
 153 ** Method for listing information about a simple/generic content
 154 */
 155
 156 int
 157 list_content (CT ct, int toplevel, int realsize, int verbose, int debug)
 158 {
 159         unsigned long size;
 160         char *cp, buffer[BUFSIZ];
 161         CI ci = &ct->c_ctinfo;
 162
 163         printf (toplevel > 0 ? LSTFMT2a : toplevel < 0 ? "part " : "     ",
 164                 atoi (r1bindex (empty (ct->c_file), '/')));
 165         snprintf (buffer, sizeof(buffer), "%s/%s", empty (ci->ci_type),
 166                 empty (ci->ci_subtype));
 167         printf (LSTFMT2b, empty (ct->c_partno), buffer);
 168
 169         if (ct->c_cesizefnx && realsize)
 170                 size = (*ct->c_cesizefnx) (ct);
 171         else
 172                 size = ct->c_end - ct->c_begin;
 173
 174         /* find correct scale for size (Kilo/Mega/Giga/Tera) */
 175         for (cp = " KMGT"; size > 9999; size >>= 10)
 176                 if (!*++cp)
 177                         break;
 178
 179         /* print size of this body part */
 180         switch (*cp) {
 181                 case ' ':
 182                         if (size > 0 || ct->c_encoding != CE_EXTERNAL)
 183                                 printf (LSTFMT2c1, size);
 184                         else
 185                                 printf (LSTFMT2c4);
 186                         break;
 187
 188                 default:
 189                         printf (LSTFMT2c2, size, *cp);
 190                         break;
 191
 192                 case '\0':
 193                         printf (LSTFMT2c3);
 194         }
 195
 196         /* print Content-Description */
 197         if (ct->c_descr) {
 198                 char *dp;
 199
 200                 dp = trimcpy (cp = add (ct->c_descr, NULL));
 201                 free (cp);
 202                 printf (LSTFMT2d1, dp);
 203                 free (dp);
 204         }
 205
 206         printf ("\n");
 207
 208         /*
 209         ** If verbose, print any RFC-822 comments in the
 210         ** Content-Type line.
 211         */
 212         if (verbose && ci->ci_comment) {
 213                 char *dp;
 214
 215                 dp = trimcpy (cp = add (ci->ci_comment, NULL));
 216                 free (cp);
 217                 snprintf (buffer, sizeof(buffer), "(%s)", dp);
 218                 free (dp);
 219                 printf (LSTFMT2d2, buffer);
 220         }
 221
 222         if (debug)
 223                 list_debug (ct);
 224
 225         return OK;
 226 }
 227
 228
 229 /*
 230 ** Print debugging information about a content
 231 */
 232
 233 static int
 234 list_debug (CT ct)
 235 {
 236         char **ap, **ep;
 237         CI ci = &ct->c_ctinfo;
 238
 239         fflush (stdout);
 240         fprintf (stderr, "  partno \"%s\"\n", empty (ct->c_partno));
 241
 242         /* print MIME-Version line */
 243         if (ct->c_vrsn)
 244                 fprintf (stderr, "  %s:%s\n", VRSN_FIELD, ct->c_vrsn);
 245
 246         /* print Content-Type line */
 247         if (ct->c_ctline)
 248                 fprintf (stderr, "  %s:%s\n", TYPE_FIELD, ct->c_ctline);
 249
 250         /* print parsed elements of content type */
 251         fprintf (stderr, "    type    \"%s\"\n", empty (ci->ci_type));
 252         fprintf (stderr, "    subtype \"%s\"\n", empty (ci->ci_subtype));
 253         fprintf (stderr, "    comment \"%s\"\n", empty (ci->ci_comment));
 254         fprintf (stderr, "    magic   \"%s\"\n", empty (ci->ci_magic));
 255
 256         /* print parsed parameters attached to content type */
 257         fprintf (stderr, "    parameters\n");
 258         for (ap = ci->ci_attrs, ep = ci->ci_values; *ap; ap++, ep++)
 259                 fprintf (stderr, "      %s=\"%s\"\n", *ap, *ep);
 260
 261         /* print internal flags for type/subtype */
 262         fprintf (stderr, "    type 0x%x subtype 0x%x params 0x%x\n",
 263                  ct->c_type, ct->c_subtype,
 264                  (unsigned int)(unsigned long) ct->c_ctparams);
 265
 266         fprintf (stderr, "    showproc  \"%s\"\n", empty (ct->c_showproc));
 267         fprintf (stderr, "    termproc  \"%s\"\n", empty (ct->c_termproc));
 268         fprintf (stderr, "    storeproc \"%s\"\n", empty (ct->c_storeproc));
 269
 270         /* print transfer encoding information */
 271         if (ct->c_celine)
 272                 fprintf (stderr, "  %s:%s", ENCODING_FIELD, ct->c_celine);
 273
 274         /* print internal flags for transfer encoding */
 275         fprintf (stderr, "    transfer encoding 0x%x params 0x%x\n",
 276                  ct->c_encoding, (unsigned int)(unsigned long) ct->c_cefile);
 277
 278         /* print Content-ID */
 279         if (ct->c_id)
 280                 fprintf (stderr, "  %s:%s", ID_FIELD, ct->c_id);
 281
 282         /* print Content-Description */
 283         if (ct->c_descr)
 284                 fprintf (stderr, "  %s:%s", DESCR_FIELD, ct->c_descr);
 285
 286         fprintf (stderr, "    read fp 0x%x file \"%s\" begin %ld end %ld\n",
 287                 (unsigned int)(unsigned long) ct->c_fp, empty (ct->c_file),
 288                 ct->c_begin, ct->c_end);
 289
 290         /* print more information about transfer encoding */
 291         list_encoding (ct);
 292
 293         return OK;
 294 }
 295
 296 #undef empty
 297
 298
 299 /*
 300 ** list content information for type "multipart"
 301 */
 302
 303 static int
 304 list_multi (CT ct, int toplevel, int realsize, int verbose, int debug)
 305 {
 306         struct multipart *m = (struct multipart *) ct->c_ctparams;
 307         struct part *part;
 308
 309         /* list the content for toplevel of this multipart */
 310         list_content (ct, toplevel, realsize, verbose, debug);
 311
 312         /* now list for all the subparts */
 313         for (part = m->mp_parts; part; part = part->mp_next) {
 314                 CT p = part->mp_part;
 315
 316                 if (part_ok (p, 1) && type_ok (p, 1))
 317                         list_switch (p, 0, realsize, verbose, debug);
 318         }
 319
 320         return OK;
 321 }
 322
 323
 324 /*
 325 ** list content information for type "message/partial"
 326 */
 327
 328 static int
 329 list_partial (CT ct, int toplevel, int realsize, int verbose, int debug)
 330 {
 331         struct partial *p = (struct partial *) ct->c_ctparams;
 332
 333         list_content (ct, toplevel, realsize, verbose, debug);
 334         if (verbose) {
 335                 printf ("\t     [message %s, part %d",
 336                                 p->pm_partid, p->pm_partno);
 337                 if (p->pm_maxno)
 338                         printf (" of %d", p->pm_maxno);
 339                 printf ("]\n");
 340         }
 341
 342         return OK;
 343 }
 344
 345
 346 /*
 347 ** list content information for type "message/external"
 348 */
 349
 350 static int
 351 list_external (CT ct, int toplevel, int realsize, int verbose, int debug)
 352 {
 353         struct exbody *e = (struct exbody *) ct->c_ctparams;
 354
 355         /*
 356          * First list the information for the
 357          * message/external content itself.
 358          */
 359         list_content (ct, toplevel, realsize, verbose, debug);
 360
 361         if (verbose) {
 362                 if (e->eb_name)
 363                         printf ("\t     name=\"%s\"\n", e->eb_name);
 364                 if (e->eb_dir)
 365                         printf ("\t     directory=\"%s\"\n", e->eb_dir);
 366                 if (e->eb_site)
 367                         printf ("\t     site=\"%s\"\n", e->eb_site);
 368                 if (e->eb_server)
 369                         printf ("\t     server=\"%s\"\n", e->eb_server);
 370                 if (e->eb_subject)
 371                         printf ("\t     subject=\"%s\"\n", e->eb_subject);
 372
 373                 /* This must be defined */
 374                 printf("\t     access-type=\"%s\"\n", e->eb_access);
 375
 376                 if (e->eb_mode)
 377                         printf ("\t     mode=\"%s\"\n", e->eb_mode);
 378                 if (e->eb_permission)
 379                         printf ("\t     permission=\"%s\"\n", e->eb_permission);
 380
 381                 if (e->eb_flags == NOTOK)
 382                         printf ("\t     [service unavailable]\n");
 383         }
 384
 385         /*
 386         ** Now list the information for the external content
 387         ** to which this content points.
 388         */
 389         list_content (e->eb_content, 0, realsize, verbose, debug);
 390
 391         return OK;
 392 }
 393
 394
 395 /*
 396 ** list content information for type "application"
 397 */
 398
 399 static int
 400 list_application (CT ct, int toplevel, int realsize, int verbose, int debug)
 401 {
 402         list_content (ct, toplevel, realsize, verbose, debug);
 403         if (verbose) {
 404                 char **ap, **ep;
 405                 CI ci = &ct->c_ctinfo;
 406
 407                 for (ap = ci->ci_attrs, ep = ci->ci_values; *ap; ap++, ep++)
 408                         printf ("\t     %s=\"%s\"\n", *ap, *ep);
 409         }
 410
 411         return OK;
 412 }
 413
 414
 415 /*
 416 ** list information about the Content-Transfer-Encoding
 417 ** used by a content.
 418 */
 419
 420 static int
 421 list_encoding (CT ct)
 422 {
 423         CE ce;
 424
 425         if ((ce = ct->c_cefile))
 426                 fprintf (stderr, "    decoded fp 0x%x file \"%s\"\n",
 427                         (unsigned int)(unsigned long) ce->ce_fp,
 428                         ce->ce_file ? ce->ce_file : "");
 429
 430         return OK;
 431 }