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