Have scan_plugins() take an argument specify what to do on load failures.
[metze/wireshark/wip.git] / capinfos.c
1 /* capinfos.c
2  * Reports capture file information including # of packets, duration, others
3  *
4  * Copyright 2004 Ian Schorr
5  *
6  * Wireshark - Network traffic analyzer
7  * By Gerald Combs <gerald@wireshark.org>
8  * Copyright 1998 Gerald Combs
9  *
10  * This program is free software; you can redistribute it and/or
11  * modify it under the terms of the GNU General Public License
12  * as published by the Free Software Foundation; either version 2
13  * of the License, or (at your option) any later version.
14  *
15  * This program is distributed in the hope that it will be useful,
16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18  * GNU General Public License for more details.
19  *
20  * You should have received a copy of the GNU General Public License
21  * along with this program; if not, write to the Free Software
22  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
23  */
24
25 /*
26  * 2009-09-19: jyoung
27  *
28  * New capinfos features
29  *
30  * Continue processing additional files after
31  * a wiretap open failure.  The new -C option
32  * reverts to capinfos' original behavior which
33  * is to cancel any further file processing at
34  * first file open failure.
35  *
36  * Change the behavior of how the default display
37  * of all infos is initiated.  This gets rid of a
38  * special post getopt() argument count test.
39  *
40  * Add new table output format (with related options)
41  * This feature allows outputting the various infos
42  * into a tab delimited text file, or to a comma
43  * separated variables file (*.csv) instead of the
44  * original "long" format.
45  *
46  * 2011-04-05: wmeier
47  * behaviour changed: Upon exit capinfos will return
48  *  an error status if an error occurred at any
49  *  point during "continuous" file processing.
50  *  (Previously a success status was always
51  *   returned if the -C option was not used).
52  *
53
54  */
55
56
57 #include <config.h>
58
59 #include <stdio.h>
60 #include <stdlib.h>
61 #include <string.h>
62 #include <stdarg.h>
63 #include <locale.h>
64 #include <errno.h>
65
66 #ifdef HAVE_GETOPT_H
67 #include <getopt.h>
68 #endif
69
70 #include <glib.h>
71
72 #include <wiretap/wtap.h>
73
74 #include <wsutil/crash_info.h>
75 #include <wsutil/filesystem.h>
76 #include <wsutil/privileges.h>
77 #include <ws_version_info.h>
78 #include <wiretap/wtap_opttypes.h>
79
80 #ifdef HAVE_PLUGINS
81 #include <wsutil/plugins.h>
82 #endif
83
84 #include <wsutil/report_err.h>
85 #include <wsutil/str_util.h>
86 #include <wsutil/file_util.h>
87
88 #include <wsutil/wsgcrypt.h>
89
90 #ifndef HAVE_GETOPT_LONG
91 #include "wsutil/wsgetopt.h"
92 #endif
93
94 #ifdef _WIN32
95 #include <wsutil/unicode-utils.h>
96 #endif /* _WIN32 */
97
98 /*
99  * By default capinfos now continues processing
100  * the next filename if and when wiretap detects
101  * a problem opening a file.
102  * Use the '-C' option to revert back to original
103  * capinfos behavior which is to abort any
104  * additional file processing at first open file
105  * failure.
106  */
107
108 static gboolean continue_after_wtap_open_offline_failure = TRUE;
109
110 /*
111  * table report variables
112  */
113
114 static gboolean long_report        = TRUE;  /* By default generate long report       */
115 static gchar table_report_header   = TRUE;  /* Generate column header by default     */
116 static gchar field_separator       = '\t';  /* Use TAB as field separator by default */
117 static gchar quote_char            = '\0';  /* Do NOT quote fields by default        */
118 static gboolean machine_readable   = FALSE; /* Display machine-readable numbers      */
119
120 /*
121  * capinfos has the ability to report on a number of
122  * various characteristics ("infos") for each input file.
123  *
124  * By default reporting of all info fields is enabled.
125  *
126  * Optionally the reporting of any specific info field
127  * or combination of info fields can be enabled with
128  * individual options.
129  */
130
131 static gboolean report_all_infos   = TRUE;  /* Report all infos           */
132
133 static gboolean cap_file_type      = TRUE;  /* Report capture type        */
134 static gboolean cap_file_encap     = TRUE;  /* Report encapsulation       */
135 static gboolean cap_snaplen        = TRUE;  /* Packet size limit (snaplen)*/
136 static gboolean cap_packet_count   = TRUE;  /* Report packet count        */
137 static gboolean cap_file_size      = TRUE;  /* Report file size           */
138 static gboolean cap_comment        = TRUE;  /* Display the capture comment */
139 static gboolean cap_file_more_info = TRUE;  /* Report more file info      */
140 static gboolean cap_file_idb       = TRUE;  /* Report Interface info      */
141
142 static gboolean cap_data_size      = TRUE;  /* Report packet byte size    */
143 static gboolean cap_duration       = TRUE;  /* Report capture duration    */
144 static gboolean cap_start_time     = TRUE;  /* Report capture start time  */
145 static gboolean cap_end_time       = TRUE;  /* Report capture end time    */
146 static gboolean time_as_secs       = FALSE; /* Report time values as raw seconds */
147
148 static gboolean cap_data_rate_byte = TRUE;  /* Report data rate bytes/sec */
149 static gboolean cap_data_rate_bit  = TRUE;  /* Report data rate bites/sec */
150 static gboolean cap_packet_size    = TRUE;  /* Report average packet size */
151 static gboolean cap_packet_rate    = TRUE;  /* Report average packet rate */
152 static gboolean cap_order          = TRUE;  /* Report if packets are in chronological order (True/False) */
153
154 #ifdef HAVE_LIBGCRYPT
155 static gboolean cap_file_hashes    = TRUE;  /* Calculate file hashes */
156
157 #define HASH_SIZE_SHA1   20
158 #define HASH_SIZE_RMD160 20
159 #define HASH_SIZE_MD5    16
160
161 #define HASH_STR_SIZE (41) /* Max hash size * 2 + '\0' */
162 #define HASH_BUF_SIZE (1024 * 1024)
163
164
165 static gchar file_sha1[HASH_STR_SIZE];
166 static gchar file_rmd160[HASH_STR_SIZE];
167 static gchar file_md5[HASH_STR_SIZE];
168
169 #define FILE_HASH_OPT "H"
170 #else
171 #define FILE_HASH_OPT ""
172 #endif /* HAVE_LIBGCRYPT */
173
174 /*
175  * If we have at least two packets with time stamps, and they're not in
176  * order - i.e., the later packet has a time stamp older than the earlier
177  * packet - the time stamps are known not to be in order.
178  *
179  * If every packet has a time stamp, and they're all in order, the time
180  * stamp is known to be in order.
181  *
182  * Otherwise, we have no idea.
183  */
184 typedef enum {
185   IN_ORDER,
186   NOT_IN_ORDER,
187   ORDER_UNKNOWN
188 } order_t;
189
190 typedef struct _capture_info {
191   const char    *filename;
192   guint16        file_type;
193   gboolean       iscompressed;
194   int            file_encap;
195   int            file_tsprec;
196   gint64         filesize;
197   wtap_block_t   shb;
198   guint64        packet_bytes;
199   gboolean       times_known;
200   nstime_t       start_time;
201   int            start_time_tsprec;
202   nstime_t       stop_time;
203   int            stop_time_tsprec;
204   guint32        packet_count;
205   gboolean       snap_set;                /* If set in capture file header      */
206   guint32        snaplen;                 /* value from the capture file header */
207   guint32        snaplen_min_inferred;    /* If caplen < len for 1 or more rcds */
208   guint32        snaplen_max_inferred;    /*  ...                               */
209   gboolean       drops_known;
210   guint32        drop_count;
211
212   nstime_t       duration;
213   int            duration_tsprec;
214   double         packet_rate;
215   double         packet_size;
216   double         data_rate;              /* in bytes */
217   gboolean       know_order;
218   order_t        order;
219
220   int           *encap_counts;           /* array of per_packet encap counts; array has one entry per wtap_encap type */
221
222   guint          num_interfaces;         /* number of IDBs, and thus size of interface_packet_counts array */
223   GArray        *interface_packet_counts;  /* array of per_packet interface_id counts; one entry per file IDB */
224   guint32        pkt_interface_id_unknown; /* counts if packet interface_id didn't match a known one */
225   GArray        *idb_info_strings;       /* array of IDB info strings */
226 } capture_info;
227
228 static char *decimal_point;
229
230 static void
231 enable_all_infos(void)
232 {
233   report_all_infos   = TRUE;
234
235   cap_file_type      = TRUE;
236   cap_file_encap     = TRUE;
237   cap_snaplen        = TRUE;
238   cap_packet_count   = TRUE;
239   cap_file_size      = TRUE;
240   cap_comment        = TRUE;
241   cap_file_more_info = TRUE;
242   cap_file_idb       = TRUE;
243
244   cap_data_size      = TRUE;
245   cap_duration       = TRUE;
246   cap_start_time     = TRUE;
247   cap_end_time       = TRUE;
248   cap_order          = TRUE;
249
250   cap_data_rate_byte = TRUE;
251   cap_data_rate_bit  = TRUE;
252   cap_packet_size    = TRUE;
253   cap_packet_rate    = TRUE;
254
255 #ifdef HAVE_LIBGCRYPT
256   cap_file_hashes    = TRUE;
257 #endif /* HAVE_LIBGCRYPT */
258 }
259
260 static void
261 disable_all_infos(void)
262 {
263   report_all_infos   = FALSE;
264
265   cap_file_type      = FALSE;
266   cap_file_encap     = FALSE;
267   cap_snaplen        = FALSE;
268   cap_packet_count   = FALSE;
269   cap_file_size      = FALSE;
270   cap_comment        = FALSE;
271   cap_file_more_info = FALSE;
272   cap_file_idb       = FALSE;
273
274   cap_data_size      = FALSE;
275   cap_duration       = FALSE;
276   cap_start_time     = FALSE;
277   cap_end_time       = FALSE;
278   cap_order          = FALSE;
279
280   cap_data_rate_byte = FALSE;
281   cap_data_rate_bit  = FALSE;
282   cap_packet_size    = FALSE;
283   cap_packet_rate    = FALSE;
284
285 #ifdef HAVE_LIBGCRYPT
286   cap_file_hashes    = FALSE;
287 #endif /* HAVE_LIBGCRYPT */
288 }
289
290 static const gchar *
291 order_string(order_t order)
292 {
293   switch (order) {
294
295     case IN_ORDER:
296       return "True";
297
298     case NOT_IN_ORDER:
299       return "False";
300
301     case ORDER_UNKNOWN:
302       return "Unknown";
303
304     default:
305       return "???";  /* "cannot happen" (the next step is "Profit!") */
306   }
307 }
308
309 static gchar *
310 absolute_time_string(nstime_t *timer, int tsprecision, capture_info *cf_info)
311 {
312   static gchar  time_string_buf[4+1+2+1+2+1+2+1+2+1+2+1+9+1+1];
313   struct tm *ti_tm;
314
315   if (cf_info->times_known && cf_info->packet_count > 0) {
316     if (time_as_secs) {
317       switch (tsprecision) {
318
319       case WTAP_TSPREC_SEC:
320         g_snprintf(time_string_buf, sizeof time_string_buf,
321                    "%lu",
322                    (unsigned long)timer->secs);
323         break;
324
325       case WTAP_TSPREC_DSEC:
326         g_snprintf(time_string_buf, sizeof time_string_buf,
327                    "%lu%s%01d",
328                    (unsigned long)timer->secs,
329                    decimal_point,
330                    timer->nsecs / 100000000);
331         break;
332
333       case WTAP_TSPREC_CSEC:
334         g_snprintf(time_string_buf, sizeof time_string_buf,
335                    "%lu%s%02d",
336                    (unsigned long)timer->secs,
337                    decimal_point,
338                    timer->nsecs / 10000000);
339         break;
340
341       case WTAP_TSPREC_MSEC:
342         g_snprintf(time_string_buf, sizeof time_string_buf,
343                    "%lu%s%03d",
344                    (unsigned long)timer->secs,
345                    decimal_point,
346                    timer->nsecs / 1000000);
347         break;
348
349       case WTAP_TSPREC_USEC:
350         g_snprintf(time_string_buf, sizeof time_string_buf,
351                    "%lu%s%06d",
352                    (unsigned long)timer->secs,
353                    decimal_point,
354                    timer->nsecs / 1000);
355         break;
356
357       case WTAP_TSPREC_NSEC:
358         g_snprintf(time_string_buf, sizeof time_string_buf,
359                    "%lu%s%09d",
360                    (unsigned long)timer->secs,
361                    decimal_point,
362                    timer->nsecs);
363         break;
364
365       default:
366         g_snprintf(time_string_buf, sizeof time_string_buf,
367                    "Unknown precision %d",
368                    tsprecision);
369         break;
370       }
371       return time_string_buf;
372     } else {
373       ti_tm = localtime(&timer->secs);
374       if (ti_tm == NULL) {
375         g_snprintf(time_string_buf, sizeof time_string_buf, "Not representable");
376         return time_string_buf;
377       }
378       switch (tsprecision) {
379
380       case WTAP_TSPREC_SEC:
381         g_snprintf(time_string_buf, sizeof time_string_buf,
382                    "%04d-%02d-%02d %02d:%02d:%02d",
383                    ti_tm->tm_year + 1900,
384                    ti_tm->tm_mon + 1,
385                    ti_tm->tm_mday,
386                    ti_tm->tm_hour,
387                    ti_tm->tm_min,
388                    ti_tm->tm_sec);
389         break;
390
391       case WTAP_TSPREC_DSEC:
392         g_snprintf(time_string_buf, sizeof time_string_buf,
393                    "%04d-%02d-%02d %02d:%02d:%02d%s%01d",
394                    ti_tm->tm_year + 1900,
395                    ti_tm->tm_mon + 1,
396                    ti_tm->tm_mday,
397                    ti_tm->tm_hour,
398                    ti_tm->tm_min,
399                    ti_tm->tm_sec,
400                    decimal_point,
401                    timer->nsecs / 100000000);
402         break;
403
404       case WTAP_TSPREC_CSEC:
405         g_snprintf(time_string_buf, sizeof time_string_buf,
406                    "%04d-%02d-%02d %02d:%02d:%02d%s%02d",
407                    ti_tm->tm_year + 1900,
408                    ti_tm->tm_mon + 1,
409                    ti_tm->tm_mday,
410                    ti_tm->tm_hour,
411                    ti_tm->tm_min,
412                    ti_tm->tm_sec,
413                    decimal_point,
414                    timer->nsecs / 10000000);
415         break;
416
417       case WTAP_TSPREC_MSEC:
418         g_snprintf(time_string_buf, sizeof time_string_buf,
419                    "%04d-%02d-%02d %02d:%02d:%02d%s%03d",
420                    ti_tm->tm_year + 1900,
421                    ti_tm->tm_mon + 1,
422                    ti_tm->tm_mday,
423                    ti_tm->tm_hour,
424                    ti_tm->tm_min,
425                    ti_tm->tm_sec,
426                    decimal_point,
427                    timer->nsecs / 1000000);
428         break;
429
430       case WTAP_TSPREC_USEC:
431         g_snprintf(time_string_buf, sizeof time_string_buf,
432                    "%04d-%02d-%02d %02d:%02d:%02d%s%06d",
433                    ti_tm->tm_year + 1900,
434                    ti_tm->tm_mon + 1,
435                    ti_tm->tm_mday,
436                    ti_tm->tm_hour,
437                    ti_tm->tm_min,
438                    ti_tm->tm_sec,
439                    decimal_point,
440                    timer->nsecs / 1000);
441         break;
442
443       case WTAP_TSPREC_NSEC:
444         g_snprintf(time_string_buf, sizeof time_string_buf,
445                    "%04d-%02d-%02d %02d:%02d:%02d%s%09d",
446                    ti_tm->tm_year + 1900,
447                    ti_tm->tm_mon + 1,
448                    ti_tm->tm_mday,
449                    ti_tm->tm_hour,
450                    ti_tm->tm_min,
451                    ti_tm->tm_sec,
452                    decimal_point,
453                    timer->nsecs);
454         break;
455
456       default:
457         g_snprintf(time_string_buf, sizeof time_string_buf,
458                    "Unknown precision %d",
459                    tsprecision);
460         break;
461       }
462       return time_string_buf;
463     }
464   }
465
466   g_snprintf(time_string_buf, sizeof time_string_buf, "n/a");
467   return time_string_buf;
468 }
469
470 static gchar *
471 relative_time_string(nstime_t *timer, int tsprecision, capture_info *cf_info, gboolean want_seconds)
472 {
473   const gchar  *second = want_seconds ? " second" : "";
474   const gchar  *plural = want_seconds ? "s" : "";
475   static gchar  time_string_buf[4+1+2+1+2+1+2+1+2+1+2+1+1];
476
477   if (cf_info->times_known && cf_info->packet_count > 0) {
478     switch (tsprecision) {
479
480     case WTAP_TSPREC_SEC:
481       g_snprintf(time_string_buf, sizeof time_string_buf,
482                  "%lu%s%s",
483                  (unsigned long)timer->secs,
484                  second,
485                  timer->secs == 1 ? "" : plural);
486       break;
487
488     case WTAP_TSPREC_DSEC:
489       g_snprintf(time_string_buf, sizeof time_string_buf,
490                  "%lu%s%01d%s%s",
491                  (unsigned long)timer->secs,
492                  decimal_point,
493                  timer->nsecs / 100000000,
494                  second,
495                  (timer->secs == 1 && timer->nsecs == 0) ? "" : plural);
496       break;
497
498     case WTAP_TSPREC_CSEC:
499       g_snprintf(time_string_buf, sizeof time_string_buf,
500                  "%lu%s%02d%s%s",
501                  (unsigned long)timer->secs,
502                  decimal_point,
503                  timer->nsecs / 10000000,
504                  second,
505                  (timer->secs == 1 && timer->nsecs == 0) ? "" : plural);
506       break;
507
508     case WTAP_TSPREC_MSEC:
509       g_snprintf(time_string_buf, sizeof time_string_buf,
510                  "%lu%s%03d%s%s",
511                  (unsigned long)timer->secs,
512                  decimal_point,
513                  timer->nsecs / 1000000,
514                  second,
515                  (timer->secs == 1 && timer->nsecs == 0) ? "" : plural);
516       break;
517
518     case WTAP_TSPREC_USEC:
519       g_snprintf(time_string_buf, sizeof time_string_buf,
520                  "%lu%s%06d%s%s",
521                  (unsigned long)timer->secs,
522                  decimal_point,
523                  timer->nsecs / 1000,
524                  second,
525                  (timer->secs == 1 && timer->nsecs == 0) ? "" : plural);
526       break;
527
528     case WTAP_TSPREC_NSEC:
529       g_snprintf(time_string_buf, sizeof time_string_buf,
530                  "%lu%s%09d%s%s",
531                  (unsigned long)timer->secs,
532                  decimal_point,
533                  timer->nsecs,
534                  second,
535                  (timer->secs == 1 && timer->nsecs == 0) ? "" : plural);
536       break;
537
538     default:
539       g_snprintf(time_string_buf, sizeof time_string_buf,
540                  "Unknown precision %d",
541                  tsprecision);
542       break;
543     }
544     return time_string_buf;
545   }
546
547   g_snprintf(time_string_buf, sizeof time_string_buf, "n/a");
548   return time_string_buf;
549 }
550
551 static void print_value(const gchar *text_p1, gint width, const gchar *text_p2, double value) {
552   if (value > 0.0)
553     printf("%s%.*f%s\n", text_p1, width, value, text_p2);
554   else
555     printf("%sn/a\n", text_p1);
556 }
557
558 /* multi-line comments would conflict with the formatting that capinfos uses
559    we replace linefeeds with spaces */
560 static void
561 string_replace_newlines(gchar *str)
562 {
563   gchar *p;
564
565   if (str) {
566     p = str;
567     while (*p != '\0') {
568       if (*p == '\n')
569         *p = ' ';
570       if (*p == '\r')
571         *p = ' ';
572       p++;
573     }
574   }
575 }
576
577 static void
578 show_option_string(const char *prefix, const char *option_str)
579 {
580   char *str;
581
582   if (option_str != NULL && option_str[0] != '\0') {
583     str = g_strdup(option_str);
584     string_replace_newlines(str);
585     printf("%s%s\n", prefix, str);
586     g_free(str);
587   }
588 }
589
590 static void
591 print_stats(const gchar *filename, capture_info *cf_info)
592 {
593   const gchar           *file_type_string, *file_encap_string;
594   gchar                 *size_string;
595
596   /* Build printable strings for various stats */
597   file_type_string = wtap_file_type_subtype_string(cf_info->file_type);
598   file_encap_string = wtap_encap_string(cf_info->file_encap);
599
600   if (filename)           printf     ("File name:           %s\n", filename);
601   if (cap_file_type)      printf     ("File type:           %s%s\n",
602       file_type_string,
603       cf_info->iscompressed ? " (gzip compressed)" : "");
604
605   if (cap_file_encap) {
606     printf      ("File encapsulation:  %s\n", file_encap_string);
607     if (cf_info->file_encap == WTAP_ENCAP_PER_PACKET) {
608       int i;
609       printf    ("Encapsulation in use by packets (# of pkts):\n");
610       for (i=0; i<WTAP_NUM_ENCAP_TYPES; i++) {
611         if (cf_info->encap_counts[i] > 0)
612           printf("                     %s (%d)\n",
613                  wtap_encap_string(i), cf_info->encap_counts[i]);
614       }
615     }
616   }
617   if (cap_file_more_info) {
618     printf      ("File timestamp precision:  %s (%d)\n",
619       wtap_tsprec_string(cf_info->file_tsprec), cf_info->file_tsprec);
620   }
621
622   if (cap_snaplen && cf_info->snap_set)
623     printf     ("Packet size limit:   file hdr: %u bytes\n", cf_info->snaplen);
624   else if (cap_snaplen && !cf_info->snap_set)
625     printf     ("Packet size limit:   file hdr: (not set)\n");
626   if (cf_info->snaplen_max_inferred > 0) {
627     if (cf_info->snaplen_min_inferred == cf_info->snaplen_max_inferred)
628       printf     ("Packet size limit:   inferred: %u bytes\n", cf_info->snaplen_min_inferred);
629     else
630       printf     ("Packet size limit:   inferred: %u bytes - %u bytes (range)\n",
631           cf_info->snaplen_min_inferred, cf_info->snaplen_max_inferred);
632   }
633   if (cap_packet_count) {
634     printf     ("Number of packets:   ");
635     if (machine_readable) {
636       printf ("%u\n", cf_info->packet_count);
637     } else {
638       size_string = format_size(cf_info->packet_count, format_size_unit_none);
639       printf ("%s\n", size_string);
640       g_free(size_string);
641     }
642   }
643   if (cap_file_size) {
644     printf     ("File size:           ");
645     if (machine_readable) {
646       printf     ("%" G_GINT64_MODIFIER "d bytes\n", cf_info->filesize);
647     } else {
648       size_string = format_size(cf_info->filesize, format_size_unit_bytes);
649       printf ("%s\n", size_string);
650       g_free(size_string);
651     }
652   }
653   if (cap_data_size) {
654     printf     ("Data size:           ");
655     if (machine_readable) {
656       printf     ("%" G_GINT64_MODIFIER "u bytes\n", cf_info->packet_bytes);
657     } else {
658       size_string = format_size(cf_info->packet_bytes, format_size_unit_bytes);
659       printf ("%s\n", size_string);
660       g_free(size_string);
661     }
662   }
663   if (cf_info->times_known) {
664     if (cap_duration) /* XXX - shorten to hh:mm:ss */
665                           printf("Capture duration:    %s\n", relative_time_string(&cf_info->duration, cf_info->duration_tsprec, cf_info, TRUE));
666     if (cap_start_time)
667                           printf("First packet time:   %s\n", absolute_time_string(&cf_info->start_time, cf_info->start_time_tsprec, cf_info));
668     if (cap_end_time)
669                           printf("Last packet time:    %s\n", absolute_time_string(&cf_info->stop_time, cf_info->stop_time_tsprec, cf_info));
670     if (cap_data_rate_byte) {
671                           printf("Data byte rate:      ");
672       if (machine_readable) {
673         print_value("", 2, " bytes/sec",   cf_info->data_rate);
674       } else {
675         size_string = format_size((gint64)cf_info->data_rate, format_size_unit_bytes_s);
676         printf ("%s\n", size_string);
677         g_free(size_string);
678       }
679     }
680     if (cap_data_rate_bit) {
681                           printf("Data bit rate:       ");
682       if (machine_readable) {
683         print_value("", 2, " bits/sec",    cf_info->data_rate*8);
684       } else {
685         size_string = format_size((gint64)(cf_info->data_rate*8), format_size_unit_bits_s);
686         printf ("%s\n", size_string);
687         g_free(size_string);
688       }
689     }
690   }
691   if (cap_packet_size)    printf("Average packet size: %.2f bytes\n",        cf_info->packet_size);
692   if (cf_info->times_known) {
693     if (cap_packet_rate) {
694                           printf("Average packet rate: ");
695       if (machine_readable) {
696         print_value("", 2, " packets/sec", cf_info->packet_rate);
697       } else {
698         size_string = format_size((gint64)cf_info->packet_rate, format_size_unit_packets_s);
699         printf ("%s\n", size_string);
700         g_free(size_string);
701       }
702     }
703   }
704 #ifdef HAVE_LIBGCRYPT
705   if (cap_file_hashes) {
706     printf     ("SHA1:                %s\n", file_sha1);
707     printf     ("RIPEMD160:           %s\n", file_rmd160);
708     printf     ("MD5:                 %s\n", file_md5);
709   }
710 #endif /* HAVE_LIBGCRYPT */
711   if (cap_order)          printf     ("Strict time order:   %s\n", order_string(cf_info->order));
712
713   if (cf_info->shb != NULL) {
714     if (cap_comment) {
715       unsigned int i;
716       char *str;
717
718       for (i = 0; wtap_block_get_nth_string_option_value(cf_info->shb, OPT_COMMENT, i, &str) == WTAP_OPTTYPE_SUCCESS; i++) {
719         show_option_string("Capture comment:     ", str);
720       }
721     }
722     if (cap_file_more_info) {
723       char *str;
724
725       if (wtap_block_get_string_option_value(cf_info->shb, OPT_SHB_HARDWARE, &str) == WTAP_OPTTYPE_SUCCESS)
726         show_option_string("Capture hardware:    ", str);
727       if (wtap_block_get_string_option_value(cf_info->shb, OPT_SHB_OS, &str) == WTAP_OPTTYPE_SUCCESS)
728         show_option_string("Capture oper-sys:    ", str);
729       if (wtap_block_get_string_option_value(cf_info->shb, OPT_SHB_USERAPPL, &str) == WTAP_OPTTYPE_SUCCESS)
730         show_option_string("Capture application: ", str);
731     }
732
733     if (cap_file_idb && cf_info->num_interfaces != 0) {
734       guint i;
735       g_assert(cf_info->num_interfaces == cf_info->idb_info_strings->len);
736       printf     ("Number of interfaces in file: %u\n", cf_info->num_interfaces);
737       for (i = 0; i < cf_info->idb_info_strings->len; i++) {
738         gchar *s = g_array_index(cf_info->idb_info_strings, gchar*, i);
739         printf   ("Interface #%u info:\n", i);
740         printf   ("%s", s);
741         printf   ("                     Number of packets = %u\n", g_array_index(cf_info->interface_packet_counts, guint32, i));
742       }
743     }
744   }
745 }
746
747 static void
748 putsep(void)
749 {
750   if (field_separator) putchar(field_separator);
751 }
752
753 static void
754 putquote(void)
755 {
756   if (quote_char) putchar(quote_char);
757 }
758
759 static void
760 print_stats_table_header_label(const gchar *label)
761 {
762   putsep();
763   putquote();
764   printf("%s", label);
765   putquote();
766 }
767
768 static void
769 print_stats_table_header(void)
770 {
771   putquote();
772   printf("File name");
773   putquote();
774
775   if (cap_file_type)      print_stats_table_header_label("File type");
776   if (cap_file_encap)     print_stats_table_header_label("File encapsulation");
777   if (cap_file_more_info) print_stats_table_header_label("File time precision");
778   if (cap_snaplen)        print_stats_table_header_label("Packet size limit");
779   if (cap_snaplen)        print_stats_table_header_label("Packet size limit min (inferred)");
780   if (cap_snaplen)        print_stats_table_header_label("Packet size limit max (inferred)");
781   if (cap_packet_count)   print_stats_table_header_label("Number of packets");
782   if (cap_file_size)      print_stats_table_header_label("File size (bytes)");
783   if (cap_data_size)      print_stats_table_header_label("Data size (bytes)");
784   if (cap_duration)       print_stats_table_header_label("Capture duration (seconds)");
785   if (cap_start_time)     print_stats_table_header_label("Start time");
786   if (cap_end_time)       print_stats_table_header_label("End time");
787   if (cap_data_rate_byte) print_stats_table_header_label("Data byte rate (bytes/sec)");
788   if (cap_data_rate_bit)  print_stats_table_header_label("Data bit rate (bits/sec)");
789   if (cap_packet_size)    print_stats_table_header_label("Average packet size (bytes)");
790   if (cap_packet_rate)    print_stats_table_header_label("Average packet rate (packets/sec)");
791 #ifdef HAVE_LIBGCRYPT
792   if (cap_file_hashes) {
793     print_stats_table_header_label("SHA1");
794     print_stats_table_header_label("RIPEMD160");
795     print_stats_table_header_label("MD5");
796   }
797 #endif /* HAVE_LIBGCRYPT */
798   if (cap_order)          print_stats_table_header_label("Strict time order");
799   if (cap_comment)        print_stats_table_header_label("Capture comment");
800   if (cap_file_more_info) {
801     print_stats_table_header_label("Capture hardware");
802     print_stats_table_header_label("Capture oper-sys");
803     print_stats_table_header_label("Capture application");
804   }
805
806   printf("\n");
807 }
808
809 static void
810 print_stats_table(const gchar *filename, capture_info *cf_info)
811 {
812   const gchar           *file_type_string, *file_encap_string;
813
814   /* Build printable strings for various stats */
815   file_type_string = wtap_file_type_subtype_string(cf_info->file_type);
816   file_encap_string = wtap_encap_string(cf_info->file_encap);
817
818   if (filename) {
819     putquote();
820     printf("%s", filename);
821     putquote();
822   }
823
824   if (cap_file_type) {
825     putsep();
826     putquote();
827     printf("%s", file_type_string);
828     putquote();
829   }
830
831   /* ToDo: If WTAP_ENCAP_PER_PACKET, show the list of encapsulations encountered;
832    *       Output a line for each different encap with all fields repeated except
833    *        the encapsulation field which has "Per Packet: ..." for each
834    *        encapsulation type seen ?
835    */
836   if (cap_file_encap) {
837     putsep();
838     putquote();
839     printf("%s", file_encap_string);
840     putquote();
841   }
842
843   if (cap_file_more_info) {
844     putsep();
845     putquote();
846     printf("%s", wtap_tsprec_string(cf_info->file_tsprec));
847     putquote();
848   }
849
850   if (cap_snaplen) {
851     putsep();
852     putquote();
853     if (cf_info->snap_set)
854       printf("%u", cf_info->snaplen);
855     else
856       printf("(not set)");
857     putquote();
858     if (cf_info->snaplen_max_inferred > 0) {
859       putsep();
860       putquote();
861       printf("%u", cf_info->snaplen_min_inferred);
862       putquote();
863       putsep();
864       putquote();
865       printf("%u", cf_info->snaplen_max_inferred);
866       putquote();
867     }
868     else {
869       putsep();
870       putquote();
871       printf("n/a");
872       putquote();
873       putsep();
874       putquote();
875       printf("n/a");
876       putquote();
877     }
878   }
879
880   if (cap_packet_count) {
881     putsep();
882     putquote();
883     printf("%u", cf_info->packet_count);
884     putquote();
885   }
886
887   if (cap_file_size) {
888     putsep();
889     putquote();
890     printf("%" G_GINT64_MODIFIER "d", cf_info->filesize);
891     putquote();
892   }
893
894   if (cap_data_size) {
895     putsep();
896     putquote();
897     printf("%" G_GINT64_MODIFIER "u", cf_info->packet_bytes);
898     putquote();
899   }
900
901   if (cap_duration) {
902     putsep();
903     putquote();
904     printf("%s", relative_time_string(&cf_info->duration, cf_info->duration_tsprec, cf_info, FALSE));
905     putquote();
906   }
907
908   if (cap_start_time) {
909     putsep();
910     putquote();
911     printf("%s", absolute_time_string(&cf_info->start_time, cf_info->start_time_tsprec, cf_info));
912     putquote();
913   }
914
915   if (cap_end_time) {
916     putsep();
917     putquote();
918     printf("%s", absolute_time_string(&cf_info->stop_time, cf_info->stop_time_tsprec, cf_info));
919     putquote();
920   }
921
922   if (cap_data_rate_byte) {
923     putsep();
924     putquote();
925     if (cf_info->times_known)
926       printf("%.2f", cf_info->data_rate);
927     else
928       printf("n/a");
929     putquote();
930   }
931
932   if (cap_data_rate_bit) {
933     putsep();
934     putquote();
935     if (cf_info->times_known)
936       printf("%.2f", cf_info->data_rate*8);
937     else
938       printf("n/a");
939     putquote();
940   }
941
942   if (cap_packet_size) {
943     putsep();
944     putquote();
945     printf("%.2f", cf_info->packet_size);
946     putquote();
947   }
948
949   if (cap_packet_rate) {
950     putsep();
951     putquote();
952     if (cf_info->times_known)
953       printf("%.2f", cf_info->packet_rate);
954     else
955       printf("n/a");
956     putquote();
957   }
958
959 #ifdef HAVE_LIBGCRYPT
960   if (cap_file_hashes) {
961     putsep();
962     putquote();
963     printf("%s", file_sha1);
964     putquote();
965
966     putsep();
967     putquote();
968     printf("%s", file_rmd160);
969     putquote();
970
971     putsep();
972     putquote();
973     printf("%s", file_md5);
974     putquote();
975   }
976 #endif /* HAVE_LIBGCRYPT */
977
978   if (cap_order) {
979     putsep();
980     putquote();
981     printf("%s", order_string(cf_info->order));
982     putquote();
983   }
984
985   if (cf_info->shb != NULL) {
986     /*
987      * this is silly to put into a table format, but oh well
988      * note that there may be *more than one* of each of these types
989      * of options
990      */
991     if (cap_comment) {
992       unsigned int i;
993       char *opt_comment;
994
995       for (i = 0; wtap_block_get_nth_string_option_value(cf_info->shb, OPT_COMMENT, i, &opt_comment) == WTAP_OPTTYPE_SUCCESS; i++) {
996         putsep();
997         putquote();
998         printf("%s", opt_comment);
999         putquote();
1000       }
1001     }
1002
1003     if (cap_file_more_info) {
1004       char *str;
1005
1006       if (wtap_block_get_string_option_value(cf_info->shb, OPT_SHB_HARDWARE, &str) == WTAP_OPTTYPE_SUCCESS) {
1007         putsep();
1008         putquote();
1009         printf("%s", str);
1010         putquote();
1011       }
1012       if (wtap_block_get_string_option_value(cf_info->shb, OPT_SHB_OS, &str) == WTAP_OPTTYPE_SUCCESS) {
1013         putsep();
1014         putquote();
1015         printf("%s", str);
1016         putquote();
1017       }
1018       if (wtap_block_get_string_option_value(cf_info->shb, OPT_SHB_USERAPPL, &str) == WTAP_OPTTYPE_SUCCESS) {
1019         putsep();
1020         putquote();
1021         printf("%s", str);
1022         putquote();
1023       }
1024     }
1025   }
1026
1027   printf("\n");
1028 }
1029
1030 static void
1031 cleanup_capture_info(capture_info *cf_info)
1032 {
1033   guint i;
1034   g_assert(cf_info != NULL);
1035
1036   g_free(cf_info->encap_counts);
1037   cf_info->encap_counts = NULL;
1038
1039   g_array_free(cf_info->interface_packet_counts, TRUE);
1040   cf_info->interface_packet_counts = NULL;
1041
1042   if (cf_info->idb_info_strings) {
1043     for (i = 0; i < cf_info->idb_info_strings->len; i++) {
1044       gchar *s = g_array_index(cf_info->idb_info_strings, gchar*, i);
1045       g_free(s);
1046     }
1047     g_array_free(cf_info->idb_info_strings, TRUE);
1048   }
1049   cf_info->idb_info_strings = NULL;
1050 }
1051
1052 static int
1053 process_cap_file(wtap *wth, const char *filename)
1054 {
1055   int                   status = 0;
1056   int                   err;
1057   gchar                *err_info;
1058   gint64                size;
1059   gint64                data_offset;
1060
1061   guint32               packet = 0;
1062   gint64                bytes  = 0;
1063   guint32               snaplen_min_inferred = 0xffffffff;
1064   guint32               snaplen_max_inferred =          0;
1065   const struct wtap_pkthdr *phdr;
1066   capture_info          cf_info;
1067   gboolean              have_times = TRUE;
1068   nstime_t              start_time;
1069   int                   start_time_tsprec;
1070   nstime_t              stop_time;
1071   int                   stop_time_tsprec;
1072   nstime_t              cur_time;
1073   nstime_t              prev_time;
1074   gboolean              know_order = FALSE;
1075   order_t               order = IN_ORDER;
1076   guint                 i;
1077   wtapng_iface_descriptions_t *idb_info;
1078
1079   g_assert(wth != NULL);
1080   g_assert(filename != NULL);
1081
1082   nstime_set_zero(&start_time);
1083   start_time_tsprec = WTAP_TSPREC_UNKNOWN;
1084   nstime_set_zero(&stop_time);
1085   stop_time_tsprec = WTAP_TSPREC_UNKNOWN;
1086   nstime_set_zero(&cur_time);
1087   nstime_set_zero(&prev_time);
1088
1089   cf_info.shb = wtap_file_get_shb(wth);
1090
1091   cf_info.encap_counts = g_new0(int,WTAP_NUM_ENCAP_TYPES);
1092
1093   idb_info = wtap_file_get_idb_info(wth);
1094
1095   g_assert(idb_info->interface_data != NULL);
1096
1097   cf_info.num_interfaces = idb_info->interface_data->len;
1098   cf_info.interface_packet_counts  = g_array_sized_new(FALSE, TRUE, sizeof(guint32), cf_info.num_interfaces);
1099   g_array_set_size(cf_info.interface_packet_counts, cf_info.num_interfaces);
1100   cf_info.pkt_interface_id_unknown = 0;
1101
1102   g_free(idb_info);
1103   idb_info = NULL;
1104
1105   /* Tally up data that we need to parse through the file to find */
1106   while (wtap_read(wth, &err, &err_info, &data_offset))  {
1107     phdr = wtap_phdr(wth);
1108     if (phdr->presence_flags & WTAP_HAS_TS) {
1109       prev_time = cur_time;
1110       cur_time = phdr->ts;
1111       if (packet == 0) {
1112         start_time = phdr->ts;
1113         start_time_tsprec = phdr->pkt_tsprec;
1114         stop_time  = phdr->ts;
1115         stop_time_tsprec = phdr->pkt_tsprec;
1116         prev_time  = phdr->ts;
1117       }
1118       if (nstime_cmp(&cur_time, &prev_time) < 0) {
1119         order = NOT_IN_ORDER;
1120       }
1121       if (nstime_cmp(&cur_time, &start_time) < 0) {
1122         start_time = cur_time;
1123         start_time_tsprec = phdr->pkt_tsprec;
1124       }
1125       if (nstime_cmp(&cur_time, &stop_time) > 0) {
1126         stop_time = cur_time;
1127         stop_time_tsprec = phdr->pkt_tsprec;
1128       }
1129     } else {
1130       have_times = FALSE; /* at least one packet has no time stamp */
1131       if (order != NOT_IN_ORDER)
1132         order = ORDER_UNKNOWN;
1133     }
1134
1135     if (phdr->rec_type == REC_TYPE_PACKET) {
1136       bytes+=phdr->len;
1137       packet++;
1138
1139       /* If caplen < len for a rcd, then presumably           */
1140       /* 'Limit packet capture length' was done for this rcd. */
1141       /* Keep track as to the min/max actual snapshot lengths */
1142       /*  seen for this file.                                 */
1143       if (phdr->caplen < phdr->len) {
1144         if (phdr->caplen < snaplen_min_inferred)
1145           snaplen_min_inferred = phdr->caplen;
1146         if (phdr->caplen > snaplen_max_inferred)
1147           snaplen_max_inferred = phdr->caplen;
1148       }
1149
1150       if ((phdr->pkt_encap > 0) && (phdr->pkt_encap < WTAP_NUM_ENCAP_TYPES)) {
1151         cf_info.encap_counts[phdr->pkt_encap] += 1;
1152       } else {
1153         fprintf(stderr, "capinfos: Unknown packet encapsulation %d in frame %u of file \"%s\"\n",
1154                 phdr->pkt_encap, packet, filename);
1155       }
1156
1157       /* Packet interface_id info */
1158       if (phdr->presence_flags & WTAP_HAS_INTERFACE_ID) {
1159         /* cf_info.num_interfaces is size, not index, so it's one more than max index */
1160         if (phdr->interface_id >= cf_info.num_interfaces) {
1161           /*
1162            * OK, re-fetch the number of interfaces, as there might have
1163            * been an interface that was in the middle of packets, and
1164            * grow the array to be big enough for the new number of
1165            * interfaces.
1166            */
1167           idb_info = wtap_file_get_idb_info(wth);
1168
1169           cf_info.num_interfaces = idb_info->interface_data->len;
1170           g_array_set_size(cf_info.interface_packet_counts, cf_info.num_interfaces);
1171
1172           g_free(idb_info);
1173           idb_info = NULL;
1174         }
1175         if (phdr->interface_id < cf_info.num_interfaces) {
1176           g_array_index(cf_info.interface_packet_counts, guint32, phdr->interface_id) += 1;
1177         }
1178         else {
1179           cf_info.pkt_interface_id_unknown += 1;
1180         }
1181       }
1182       else {
1183         /* it's for interface_id 0 */
1184         if (cf_info.num_interfaces != 0) {
1185           g_array_index(cf_info.interface_packet_counts, guint32, 0) += 1;
1186         }
1187         else {
1188           cf_info.pkt_interface_id_unknown += 1;
1189         }
1190       }
1191     }
1192
1193   } /* while */
1194
1195   /*
1196    * Get IDB info strings.
1197    * We do this at the end, so we can get information for all IDBs in
1198    * the file, even those that come after packet records.
1199    */
1200   idb_info = wtap_file_get_idb_info(wth);
1201
1202   cf_info.idb_info_strings = g_array_sized_new(FALSE, FALSE, sizeof(gchar*), cf_info.num_interfaces);
1203   cf_info.num_interfaces = idb_info->interface_data->len;
1204   for (i = 0; i < cf_info.num_interfaces; i++) {
1205     const wtap_block_t if_descr = g_array_index(idb_info->interface_data, wtap_block_t, i);
1206     gchar *s = wtap_get_debug_if_descr(if_descr, 21, "\n");
1207     g_array_append_val(cf_info.idb_info_strings, s);
1208   }
1209
1210   g_free(idb_info);
1211   idb_info = NULL;
1212
1213   if (err != 0) {
1214     fprintf(stderr,
1215         "capinfos: An error occurred after reading %u packets from \"%s\": %s.\n",
1216         packet, filename, wtap_strerror(err));
1217     if (err == WTAP_ERR_SHORT_READ) {
1218         /* Don't give up completely with this one. */
1219         status = 1;
1220         fprintf(stderr,
1221           "  (will continue anyway, checksums might be incorrect)\n");
1222     } else {
1223         if (err_info != NULL) {
1224             fprintf(stderr, "(%s)\n", err_info);
1225             g_free(err_info);
1226         }
1227
1228         cleanup_capture_info(&cf_info);
1229         return 1;
1230     }
1231   }
1232
1233   /* File size */
1234   size = wtap_file_size(wth, &err);
1235   if (size == -1) {
1236     fprintf(stderr,
1237         "capinfos: Can't get size of \"%s\": %s.\n",
1238         filename, g_strerror(err));
1239     cleanup_capture_info(&cf_info);
1240     return 1;
1241   }
1242
1243   cf_info.filesize = size;
1244
1245   /* File Type */
1246   cf_info.file_type = wtap_file_type_subtype(wth);
1247   cf_info.iscompressed = wtap_iscompressed(wth);
1248
1249   /* File Encapsulation */
1250   cf_info.file_encap = wtap_file_encap(wth);
1251
1252   cf_info.file_tsprec = wtap_file_tsprec(wth);
1253
1254   /* Packet size limit (snaplen) */
1255   cf_info.snaplen = wtap_snapshot_length(wth);
1256   if (cf_info.snaplen > 0)
1257     cf_info.snap_set = TRUE;
1258   else
1259     cf_info.snap_set = FALSE;
1260
1261   cf_info.snaplen_min_inferred = snaplen_min_inferred;
1262   cf_info.snaplen_max_inferred = snaplen_max_inferred;
1263
1264   /* # of packets */
1265   cf_info.packet_count = packet;
1266
1267   /* File Times */
1268   cf_info.times_known = have_times;
1269   cf_info.start_time = start_time;
1270   cf_info.start_time_tsprec = start_time_tsprec;
1271   cf_info.stop_time = stop_time;
1272   cf_info.stop_time_tsprec = stop_time_tsprec;
1273   nstime_delta(&cf_info.duration, &stop_time, &start_time);
1274   /* Duration precision is the higher of the start and stop time precisions. */
1275   if (cf_info.stop_time_tsprec > cf_info.start_time_tsprec)
1276     cf_info.duration_tsprec = cf_info.stop_time_tsprec;
1277   else
1278     cf_info.duration_tsprec = cf_info.start_time_tsprec;
1279   cf_info.know_order = know_order;
1280   cf_info.order = order;
1281
1282   /* Number of packet bytes */
1283   cf_info.packet_bytes = bytes;
1284
1285   cf_info.data_rate   = 0.0;
1286   cf_info.packet_rate = 0.0;
1287   cf_info.packet_size = 0.0;
1288
1289   if (packet > 0) {
1290     double delta_time = nstime_to_sec(&stop_time) - nstime_to_sec(&start_time);
1291     if (delta_time > 0.0) {
1292       cf_info.data_rate   = (double)bytes  / delta_time; /* Data rate per second */
1293       cf_info.packet_rate = (double)packet / delta_time; /* packet rate per second */
1294     }
1295     cf_info.packet_size = (double)bytes / packet;                  /* Avg packet size      */
1296   }
1297
1298   if (long_report) {
1299     print_stats(filename, &cf_info);
1300   } else {
1301     print_stats_table(filename, &cf_info);
1302   }
1303
1304   cleanup_capture_info(&cf_info);
1305
1306   return status;
1307 }
1308
1309 static void
1310 print_usage(FILE *output)
1311 {
1312   fprintf(output, "\n");
1313   fprintf(output, "Usage: capinfos [options] <infile> ...\n");
1314   fprintf(output, "\n");
1315   fprintf(output, "General infos:\n");
1316   fprintf(output, "  -t display the capture file type\n");
1317   fprintf(output, "  -E display the capture file encapsulation\n");
1318   fprintf(output, "  -I display the capture file interface information\n");
1319   fprintf(output, "  -F display additional capture file information\n");
1320 #ifdef HAVE_LIBGCRYPT
1321   fprintf(output, "  -H display the SHA1, RMD160, and MD5 hashes of the file\n");
1322 #endif
1323   fprintf(output, "  -k display the capture comment\n");
1324   fprintf(output, "\n");
1325   fprintf(output, "Size infos:\n");
1326   fprintf(output, "  -c display the number of packets\n");
1327   fprintf(output, "  -s display the size of the file (in bytes)\n");
1328   fprintf(output, "  -d display the total length of all packets (in bytes)\n");
1329   fprintf(output, "  -l display the packet size limit (snapshot length)\n");
1330   fprintf(output, "\n");
1331   fprintf(output, "Time infos:\n");
1332   fprintf(output, "  -u display the capture duration (in seconds)\n");
1333   fprintf(output, "  -a display the capture start time\n");
1334   fprintf(output, "  -e display the capture end time\n");
1335   fprintf(output, "  -o display the capture file chronological status (True/False)\n");
1336   fprintf(output, "  -S display start and end times as seconds\n");
1337   fprintf(output, "\n");
1338   fprintf(output, "Statistic infos:\n");
1339   fprintf(output, "  -y display average data rate (in bytes/sec)\n");
1340   fprintf(output, "  -i display average data rate (in bits/sec)\n");
1341   fprintf(output, "  -z display average packet size (in bytes)\n");
1342   fprintf(output, "  -x display average packet rate (in packets/sec)\n");
1343   fprintf(output, "\n");
1344   fprintf(output, "Output format:\n");
1345   fprintf(output, "  -L generate long report (default)\n");
1346   fprintf(output, "  -T generate table report\n");
1347   fprintf(output, "  -M display machine-readable values in long reports\n");
1348   fprintf(output, "\n");
1349   fprintf(output, "Table report options:\n");
1350   fprintf(output, "  -R generate header record (default)\n");
1351   fprintf(output, "  -r do not generate header record\n");
1352   fprintf(output, "\n");
1353   fprintf(output, "  -B separate infos with TAB character (default)\n");
1354   fprintf(output, "  -m separate infos with comma (,) character\n");
1355   fprintf(output, "  -b separate infos with SPACE character\n");
1356   fprintf(output, "\n");
1357   fprintf(output, "  -N do not quote infos (default)\n");
1358   fprintf(output, "  -q quote infos with single quotes (')\n");
1359   fprintf(output, "  -Q quote infos with double quotes (\")\n");
1360   fprintf(output, "\n");
1361   fprintf(output, "Miscellaneous:\n");
1362   fprintf(output, "  -h display this help and exit\n");
1363   fprintf(output, "  -C cancel processing if file open fails (default is to continue)\n");
1364   fprintf(output, "  -A generate all infos (default)\n");
1365   fprintf(output, "\n");
1366   fprintf(output, "Options are processed from left to right order with later options superceding\n");
1367   fprintf(output, "or adding to earlier options.\n");
1368   fprintf(output, "\n");
1369   fprintf(output, "If no options are given the default is to display all infos in long report\n");
1370   fprintf(output, "output format.\n");
1371 #ifndef HAVE_LIBGCRYPT
1372   fprintf(output, "\nFile hashing support (-H) is not present.\n");
1373 #endif
1374 }
1375
1376 #ifdef HAVE_PLUGINS
1377 /*
1378  * General errors are reported with an console message in capinfos.
1379  */
1380 static void
1381 failure_message(const char *msg_format, va_list ap)
1382 {
1383   fprintf(stderr, "capinfos: ");
1384   vfprintf(stderr, msg_format, ap);
1385   fprintf(stderr, "\n");
1386 }
1387 #endif
1388
1389 #ifdef HAVE_LIBGCRYPT
1390 static void
1391 hash_to_str(const unsigned char *hash, size_t length, char *str) {
1392   int i;
1393
1394   for (i = 0; i < (int) length; i++) {
1395     g_snprintf(str+(i*2), 3, "%02x", hash[i]);
1396   }
1397 }
1398 #endif /* HAVE_LIBGCRYPT */
1399
1400 int
1401 main(int argc, char *argv[])
1402 {
1403   GString *comp_info_str;
1404   GString *runtime_info_str;
1405   wtap  *wth;
1406   int    err;
1407   gchar *err_info;
1408   int    opt;
1409   int    overall_error_status;
1410   static const struct option long_options[] = {
1411       {"help", no_argument, NULL, 'h'},
1412       {"version", no_argument, NULL, 'v'},
1413       {0, 0, 0, 0 }
1414   };
1415
1416   int status = 0;
1417 #ifdef HAVE_PLUGINS
1418   char  *init_progfile_dir_error;
1419 #endif
1420 #ifdef HAVE_LIBGCRYPT
1421   FILE  *fh;
1422   char  *hash_buf = NULL;
1423   gcry_md_hd_t hd = NULL;
1424   size_t hash_bytes;
1425 #endif
1426
1427   /* Set the C-language locale to the native environment. */
1428   setlocale(LC_ALL, "");
1429
1430   /* Get the decimal point. */
1431   decimal_point = g_strdup(localeconv()->decimal_point);
1432
1433   /* Get the compile-time version information string */
1434   comp_info_str = get_compiled_version_info(NULL, NULL);
1435
1436   /* Get the run-time version information string */
1437   runtime_info_str = get_runtime_version_info(NULL);
1438
1439   /* Add it to the information to be reported on a crash. */
1440   ws_add_crash_info("Capinfos (Wireshark) %s\n"
1441          "\n"
1442          "%s"
1443          "\n"
1444          "%s",
1445       get_ws_vcs_version_info(), comp_info_str->str, runtime_info_str->str);
1446
1447 #ifdef _WIN32
1448   arg_list_utf_16to8(argc, argv);
1449   create_app_running_mutex();
1450 #endif /* _WIN32 */
1451
1452   /*
1453    * Get credential information for later use.
1454    */
1455   init_process_policies();
1456   init_open_routines();
1457
1458 #ifdef HAVE_PLUGINS
1459   if ((init_progfile_dir_error = init_progfile_dir(argv[0], main))) {
1460     g_warning("capinfos: init_progfile_dir(): %s", init_progfile_dir_error);
1461     g_free(init_progfile_dir_error);
1462   } else {
1463     /* Register all the plugin types we have. */
1464     wtap_register_plugin_types(); /* Types known to libwiretap */
1465
1466     init_report_err(failure_message, NULL, NULL, NULL);
1467
1468     /* Scan for plugins.  This does *not* call their registration routines;
1469        that's done later.
1470
1471        Don't report failures to load plugins because most (non-wiretap)
1472        plugins *should* fail to load (because we're not linked against
1473        libwireshark and dissector plugins need libwireshark). */
1474     scan_plugins(DONT_REPORT_LOAD_FAILURE);
1475
1476     /* Register all libwiretap plugin modules. */
1477     register_all_wiretap_modules();
1478   }
1479 #endif
1480
1481   /* Process the options */
1482   /* FILE_HASH_OPT will be "H" if libgcrypt is compiled in, so don't use "H" */
1483   while ((opt = getopt_long(argc, argv, "abcdehiklmoqrstuvxyzABCEF" FILE_HASH_OPT "ILMNQRST", long_options, NULL)) !=-1) {
1484
1485     switch (opt) {
1486
1487       case 't':
1488         if (report_all_infos) disable_all_infos();
1489         cap_file_type = TRUE;
1490         break;
1491
1492       case 'E':
1493         if (report_all_infos) disable_all_infos();
1494         cap_file_encap = TRUE;
1495         break;
1496
1497       case 'l':
1498         if (report_all_infos) disable_all_infos();
1499         cap_snaplen = TRUE;
1500         break;
1501
1502       case 'c':
1503         if (report_all_infos) disable_all_infos();
1504         cap_packet_count = TRUE;
1505         break;
1506
1507       case 's':
1508         if (report_all_infos) disable_all_infos();
1509         cap_file_size = TRUE;
1510         break;
1511
1512       case 'd':
1513         if (report_all_infos) disable_all_infos();
1514         cap_data_size = TRUE;
1515         break;
1516
1517       case 'u':
1518         if (report_all_infos) disable_all_infos();
1519         cap_duration = TRUE;
1520         break;
1521
1522       case 'a':
1523         if (report_all_infos) disable_all_infos();
1524         cap_start_time = TRUE;
1525         break;
1526
1527       case 'e':
1528         if (report_all_infos) disable_all_infos();
1529         cap_end_time = TRUE;
1530         break;
1531
1532       case 'S':
1533         time_as_secs = TRUE;
1534         break;
1535
1536       case 'y':
1537         if (report_all_infos) disable_all_infos();
1538         cap_data_rate_byte = TRUE;
1539         break;
1540
1541       case 'i':
1542         if (report_all_infos) disable_all_infos();
1543         cap_data_rate_bit = TRUE;
1544         break;
1545
1546       case 'z':
1547         if (report_all_infos) disable_all_infos();
1548         cap_packet_size = TRUE;
1549         break;
1550
1551       case 'x':
1552         if (report_all_infos) disable_all_infos();
1553         cap_packet_rate = TRUE;
1554         break;
1555
1556 #ifdef HAVE_LIBGCRYPT
1557       case 'H':
1558         if (report_all_infos) disable_all_infos();
1559         cap_file_hashes = TRUE;
1560         break;
1561 #endif
1562
1563       case 'o':
1564         if (report_all_infos) disable_all_infos();
1565         cap_order = TRUE;
1566         break;
1567
1568       case 'k':
1569         if (report_all_infos) disable_all_infos();
1570         cap_comment = TRUE;
1571         break;
1572
1573       case 'F':
1574         if (report_all_infos) disable_all_infos();
1575         cap_file_more_info = TRUE;
1576         break;
1577
1578       case 'I':
1579         if (report_all_infos) disable_all_infos();
1580         cap_file_idb = TRUE;
1581         break;
1582
1583       case 'C':
1584         continue_after_wtap_open_offline_failure = FALSE;
1585         break;
1586
1587       case 'A':
1588         enable_all_infos();
1589         break;
1590
1591       case 'L':
1592         long_report = TRUE;
1593         break;
1594
1595       case 'T':
1596         long_report = FALSE;
1597         break;
1598
1599       case 'M':
1600         machine_readable = TRUE;
1601         break;
1602
1603       case 'R':
1604         table_report_header = TRUE;
1605         break;
1606
1607       case 'r':
1608         table_report_header = FALSE;
1609         break;
1610
1611       case 'N':
1612         quote_char = '\0';
1613         break;
1614
1615       case 'q':
1616         quote_char = '\'';
1617         break;
1618
1619       case 'Q':
1620         quote_char = '"';
1621         break;
1622
1623       case 'B':
1624         field_separator = '\t';
1625         break;
1626
1627       case 'm':
1628         field_separator = ',';
1629         break;
1630
1631       case 'b':
1632         field_separator = ' ';
1633         break;
1634
1635       case 'h':
1636         printf("Capinfos (Wireshark) %s\n"
1637                "Print various information (infos) about capture files.\n"
1638                "See https://www.wireshark.org for more information.\n",
1639                get_ws_vcs_version_info());
1640         print_usage(stdout);
1641         exit(0);
1642         break;
1643
1644       case 'v':
1645         show_version("Capinfos (Wireshark)", comp_info_str, runtime_info_str);
1646         g_string_free(comp_info_str, TRUE);
1647         g_string_free(runtime_info_str, TRUE);
1648         exit(0);
1649         break;
1650
1651       case '?':              /* Bad flag - print usage message */
1652         print_usage(stderr);
1653         exit(1);
1654         break;
1655     }
1656   }
1657
1658   if ((argc - optind) < 1) {
1659     print_usage(stderr);
1660     exit(1);
1661   }
1662
1663   if (!long_report && table_report_header) {
1664     print_stats_table_header();
1665   }
1666
1667 #ifdef HAVE_LIBGCRYPT
1668   if (cap_file_hashes) {
1669     gcry_check_version(NULL);
1670     gcry_md_open(&hd, GCRY_MD_SHA1, 0);
1671     if (hd) {
1672       gcry_md_enable(hd, GCRY_MD_RMD160);
1673       gcry_md_enable(hd, GCRY_MD_MD5);
1674     }
1675     hash_buf = (char *)g_malloc(HASH_BUF_SIZE);
1676   }
1677 #endif
1678
1679   overall_error_status = 0;
1680
1681   for (opt = optind; opt < argc; opt++) {
1682
1683 #ifdef HAVE_LIBGCRYPT
1684     g_strlcpy(file_sha1, "<unknown>", HASH_STR_SIZE);
1685     g_strlcpy(file_rmd160, "<unknown>", HASH_STR_SIZE);
1686     g_strlcpy(file_md5, "<unknown>", HASH_STR_SIZE);
1687
1688     if (cap_file_hashes) {
1689       fh = ws_fopen(argv[opt], "rb");
1690       if (fh && hd) {
1691         while((hash_bytes = fread(hash_buf, 1, HASH_BUF_SIZE, fh)) > 0) {
1692           gcry_md_write(hd, hash_buf, hash_bytes);
1693         }
1694         gcry_md_final(hd);
1695         hash_to_str(gcry_md_read(hd, GCRY_MD_SHA1), HASH_SIZE_SHA1, file_sha1);
1696         hash_to_str(gcry_md_read(hd, GCRY_MD_RMD160), HASH_SIZE_RMD160, file_rmd160);
1697         hash_to_str(gcry_md_read(hd, GCRY_MD_MD5), HASH_SIZE_MD5, file_md5);
1698       }
1699       if (fh) fclose(fh);
1700       if (hd) gcry_md_reset(hd);
1701     }
1702 #endif /* HAVE_LIBGCRYPT */
1703
1704     wth = wtap_open_offline(argv[opt], WTAP_TYPE_AUTO, &err, &err_info, FALSE);
1705
1706     if (!wth) {
1707       fprintf(stderr, "capinfos: Can't open %s: %s\n", argv[opt],
1708           wtap_strerror(err));
1709       if (err_info != NULL) {
1710         fprintf(stderr, "(%s)\n", err_info);
1711         g_free(err_info);
1712       }
1713       overall_error_status = 1; /* remember that an error has occurred */
1714       if (!continue_after_wtap_open_offline_failure)
1715         exit(1); /* error status */
1716     }
1717
1718     if (wth) {
1719       if ((opt > optind) && (long_report))
1720         printf("\n");
1721       status = process_cap_file(wth, argv[opt]);
1722
1723       wtap_close(wth);
1724       if (status)
1725         exit(status);
1726     }
1727   }
1728
1729   return overall_error_status;
1730 }
1731
1732 /*
1733  * Editor modelines  -  http://www.wireshark.org/tools/modelines.html
1734  *
1735  * Local variables:
1736  * c-basic-offset: 2
1737  * tab-width: 8
1738  * indent-tabs-mode: nil
1739  * End:
1740  *
1741  * vi: set shiftwidth=2 tabstop=8 expandtab:
1742  * :indentSize=2:tabSize=8:noTabs=true:
1743  */