2001-10-18 20:29:56 +00:00
|
|
|
/* vms.c
|
|
|
|
*
|
|
|
|
* Wiretap Library
|
2003-01-17 23:54:19 +00:00
|
|
|
* Copyright (c) 2001 by Marc Milgram <ethereal@mmilgram.NOSPAMmail.net>
|
2001-10-18 20:29:56 +00:00
|
|
|
*
|
|
|
|
* This program is free software; you can redistribute it and/or
|
|
|
|
* modify it under the terms of the GNU General Public License
|
|
|
|
* as published by the Free Software Foundation; either version 2
|
|
|
|
* of the License, or (at your option) any later version.
|
|
|
|
*
|
|
|
|
* This program is distributed in the hope that it will be useful,
|
|
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
* GNU General Public License for more details.
|
|
|
|
*
|
|
|
|
* You should have received a copy of the GNU General Public License
|
|
|
|
* along with this program; if not, write to the Free Software
|
2012-06-28 22:56:06 +00:00
|
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
2001-10-18 20:29:56 +00:00
|
|
|
*/
|
2002-03-04 00:25:35 +00:00
|
|
|
|
2002-03-25 21:15:54 +00:00
|
|
|
/* Notes:
|
|
|
|
* TCPIPtrace TCP fragments don't have the header line. So, we are never
|
|
|
|
* to look for that line for the first line of a packet except the first
|
|
|
|
* packet. This allows us to read fragmented packets. Define
|
|
|
|
* TCPIPTRACE_FRAGMENTS_HAVE_HEADER_LINE to expect the first line to be
|
|
|
|
* at the start of every packet.
|
|
|
|
*/
|
2001-10-18 20:29:56 +00:00
|
|
|
#include "config.h"
|
|
|
|
#include "wtap-int.h"
|
2014-07-15 23:40:46 +00:00
|
|
|
#include <wsutil/buffer.h>
|
2001-10-18 20:29:56 +00:00
|
|
|
#include "vms.h"
|
|
|
|
#include "file_wrappers.h"
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <string.h>
|
|
|
|
|
2003-05-20 20:17:03 +00:00
|
|
|
/* This module reads the output of the various VMS TCPIP trace utilities
|
|
|
|
* such as TCPIPTRACE, TCPTRACE and UCX$TRACE
|
|
|
|
*
|
|
|
|
* It was initially based on toshiba.c and refined with code from cosine.c
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
Example TCPIPTRACE TCPTRACE output data:
|
2001-10-18 20:29:56 +00:00
|
|
|
|
|
|
|
TCPIPtrace full display RCV packet 8 at 10-JUL-2001 14:54:19.56
|
|
|
|
|
|
|
|
IP Version = 4, IHL = 5, TOS = 00, Total Length = 84 = ^x0054
|
|
|
|
IP Identifier = ^x178F, Flags (0=0,DF=0,MF=0),
|
|
|
|
Fragment Offset = 0 = ^x0000, Calculated Offset = 0 = ^x0000
|
|
|
|
IP TTL = 64 = ^x40, Protocol = 17 = ^x11, Header Checksum = ^x4C71
|
|
|
|
IP Source Address = 10.12.1.80
|
|
|
|
IP Destination Address = 10.12.1.50
|
|
|
|
|
|
|
|
UDP Source Port = 731, UDP Destination Port = 111
|
|
|
|
UDP Header and Datagram Length = 64 = ^x0040, Checksum = ^xB6C0
|
|
|
|
|
|
|
|
50010C0A 714C1140 00008F17 54000045 0000 E..T....@.Lq...P
|
|
|
|
27E54C3C | C0B64000 6F00DB02 | 32010C0A 0010 ...2...o.@..<L.'
|
|
|
|
02000000 A0860100 02000000 00000000 0020 ................
|
|
|
|
00000000 00000000 00000000 03000000 0030 ................
|
|
|
|
06000000 01000000 A5860100 00000000 0040 ................
|
|
|
|
00000000 0050 ....
|
2003-05-20 20:17:03 +00:00
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
Example UCX$TRACE output data:
|
2001-10-18 20:29:56 +00:00
|
|
|
|
2013-02-26 04:42:26 +00:00
|
|
|
UCX INTERnet trace RCV packet seq # = 1 at 14-MAY-2003 11:32:10.93
|
2003-05-19 20:58:18 +00:00
|
|
|
|
2013-02-26 04:42:26 +00:00
|
|
|
IP Version = 4, IHL = 5, TOS = 00, Total Length = 583 = ^x0247
|
|
|
|
IP Identifier = ^x702E, Flags (0=0,DF=0,MF=0),
|
|
|
|
Fragment Offset = 0 = ^x0000, Calculated Offset = 0 = ^x0000
|
|
|
|
IP TTL = 128 = ^x80, Protocol = 17 = ^x11, Header Checksum = ^x70EC
|
|
|
|
IP Source Address = 10.20.4.159
|
|
|
|
IP Destination Address = 10.20.4.255
|
2003-05-19 20:58:18 +00:00
|
|
|
|
2013-02-26 04:42:26 +00:00
|
|
|
UDP Source Port = 138, UDP Destination Port = 138
|
|
|
|
UDP Header and Datagram Length = 563 = ^x0233, Checksum = ^xB913
|
2003-05-19 20:58:18 +00:00
|
|
|
|
|
|
|
9F04140A 70EC1180 0000702E 47020045 0000 E..G.p.....p....
|
|
|
|
B1B80E11 | B9133302 8A008A00 | FF04140A 0010 .........3......
|
|
|
|
46484648 45200000 1D028A00 9F04140A 0020 ...........EHFHF
|
|
|
|
43414341 4341434D 454D4546 45454550 0030 PEEEFEMEMCACACAC
|
|
|
|
|
2003-05-20 20:17:03 +00:00
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
Alternate UCX$TRACE type output data:
|
|
|
|
|
|
|
|
TCPIP INTERnet trace RCV packet seq # = 1 at 23-OCT-1998 15:19:33.29
|
|
|
|
|
|
|
|
IP Version = 4, IHL = 5, TOS = 00, Total Length = 217 = ^x00D9
|
|
|
|
IP Identifier = ^x0065, Flags (0=0,DF=0,MF=0),
|
|
|
|
Fragment Offset = 0 = ^x0000, Calculated Offset = 0 = ^x0000
|
|
|
|
IP TTL = 32 = ^x20, Protocol = 17 = ^x11, Header Checksum = ^x8F6C
|
|
|
|
IP Source Address = 16.20.168.93
|
|
|
|
IP Destination Address = 16.20.255.255
|
|
|
|
|
|
|
|
UDP Source Port = 138, UDP Destination Port = 138
|
|
|
|
UDP Header and Datagram Length = 197 = ^x00C5, Checksum = ^x0E77
|
|
|
|
|
|
|
|
5DA81410 8F6C1120 00000065 D9000045 0000 E...awe.....l....]
|
|
|
|
| 0E77C500 8A008A00 | FFFF1410 0010 ..........w.
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
The only difference between the utilities is the Packet header line, primarily
|
|
|
|
the utility identifier and the packet sequence formats.
|
|
|
|
|
|
|
|
There appear to be 2 formats for packet seqencing
|
|
|
|
|
|
|
|
Format 1:
|
|
|
|
|
|
|
|
... packet nn at DD-MMM-YYYY hh:mm:ss.ss
|
|
|
|
|
|
|
|
Format 2:
|
|
|
|
|
|
|
|
... packet seq # = nn at DD-MMM-YYYY hh:mm:ss.ss
|
|
|
|
|
2013-06-17 21:18:47 +00:00
|
|
|
If there are other formats then code will have to be written in parse_vms_packet()
|
2003-05-20 20:17:03 +00:00
|
|
|
to handle them.
|
2003-05-19 20:58:18 +00:00
|
|
|
|
2001-10-18 20:29:56 +00:00
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
*/
|
|
|
|
|
2003-05-20 20:17:03 +00:00
|
|
|
/* Magic text to check for VMS-ness of file using possible utility names
|
|
|
|
*
|
2003-05-19 20:58:18 +00:00
|
|
|
*/
|
2003-05-20 20:17:03 +00:00
|
|
|
#define VMS_HDR_MAGIC_STR1 "TCPIPtrace"
|
|
|
|
#define VMS_HDR_MAGIC_STR2 "TCPtrace"
|
|
|
|
#define VMS_HDR_MAGIC_STR3 "INTERnet trace"
|
2001-10-18 20:29:56 +00:00
|
|
|
|
|
|
|
/* Magic text for start of packet */
|
2003-05-20 20:17:03 +00:00
|
|
|
#define VMS_REC_MAGIC_STR1 VMS_HDR_MAGIC_STR1
|
|
|
|
#define VMS_REC_MAGIC_STR2 VMS_HDR_MAGIC_STR2
|
|
|
|
#define VMS_REC_MAGIC_STR3 VMS_HDR_MAGIC_STR3
|
|
|
|
|
|
|
|
#define VMS_HEADER_LINES_TO_CHECK 200
|
|
|
|
#define VMS_LINE_LENGTH 240
|
2001-10-18 20:29:56 +00:00
|
|
|
|
2014-05-23 10:50:02 +00:00
|
|
|
static gboolean vms_read(wtap *wth, int *err, gchar **err_info,
|
2006-11-05 22:46:44 +00:00
|
|
|
gint64 *data_offset);
|
2014-05-23 10:50:02 +00:00
|
|
|
static gboolean vms_seek_read(wtap *wth, gint64 seek_off,
|
2014-05-09 05:18:49 +00:00
|
|
|
struct wtap_pkthdr *phdr, Buffer *buf, int *err, gchar **err_info);
|
2002-03-05 08:40:27 +00:00
|
|
|
static gboolean parse_single_hex_dump_line(char* rec, guint8 *buf,
|
|
|
|
long byte_offset, int in_off, int remaining_bytes);
|
2013-06-17 21:18:47 +00:00
|
|
|
static gboolean parse_vms_packet(FILE_T fh, struct wtap_pkthdr *phdr,
|
|
|
|
Buffer *buf, int *err, gchar **err_info);
|
2001-10-18 20:29:56 +00:00
|
|
|
|
2002-03-25 21:15:54 +00:00
|
|
|
#ifdef TCPIPTRACE_FRAGMENTS_HAVE_HEADER_LINE
|
2001-10-18 20:29:56 +00:00
|
|
|
/* Seeks to the beginning of the next packet, and returns the
|
2012-12-27 22:59:39 +00:00
|
|
|
byte offset. Returns -1 on failure, and sets "*err" to the error
|
|
|
|
and sets "*err_info" to null or an additional error string. */
|
2014-05-09 05:18:49 +00:00
|
|
|
static long vms_seek_next_packet(wtap *wth, int *err, gchar **err_info)
|
2001-10-18 20:29:56 +00:00
|
|
|
{
|
2012-12-27 22:59:39 +00:00
|
|
|
long cur_off;
|
|
|
|
char buf[VMS_LINE_LENGTH];
|
2013-02-26 04:42:26 +00:00
|
|
|
|
2012-12-27 22:59:39 +00:00
|
|
|
while (1) {
|
2014-05-09 05:18:49 +00:00
|
|
|
cur_off = file_tell(wth->fh);
|
2012-12-27 22:59:39 +00:00
|
|
|
if (cur_off == -1) {
|
|
|
|
/* Error */
|
2014-05-09 05:18:49 +00:00
|
|
|
*err = file_error(wth->fh, err_info);
|
2012-12-27 22:59:39 +00:00
|
|
|
return -1;
|
|
|
|
}
|
2014-05-09 05:18:49 +00:00
|
|
|
if (file_gets(buf, sizeof(buf), wth->fh) == NULL) {
|
2012-12-27 22:59:39 +00:00
|
|
|
/* EOF or error. */
|
2014-05-09 05:18:49 +00:00
|
|
|
*err = file_error(wth->fh, err_info);
|
2012-12-27 22:59:39 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (strstr(buf, VMS_REC_MAGIC_STR1) ||
|
|
|
|
strstr(buf, VMS_REC_MAGIC_STR2) ||
|
|
|
|
strstr(buf, VMS_REC_MAGIC_STR2)) {
|
|
|
|
g_strlcpy(hdr, buf,VMS_LINE_LENGTH);
|
|
|
|
return cur_off;
|
|
|
|
}
|
2001-10-18 20:29:56 +00:00
|
|
|
}
|
2012-12-27 22:59:39 +00:00
|
|
|
return -1;
|
2001-10-18 20:29:56 +00:00
|
|
|
}
|
2002-03-25 21:15:54 +00:00
|
|
|
#endif /* TCPIPTRACE_FRAGMENTS_HAVE_HEADER_LINE */
|
2001-10-18 20:29:56 +00:00
|
|
|
|
|
|
|
/* Look through the first part of a file to see if this is
|
|
|
|
* a VMS trace file.
|
|
|
|
*
|
2002-03-04 00:25:35 +00:00
|
|
|
* Returns TRUE if it is, FALSE if it isn't or if we get an I/O error;
|
2011-04-21 09:41:52 +00:00
|
|
|
* if we get an I/O error, "*err" will be set to a non-zero value and
|
|
|
|
* "*err_info will be set to null or an additional error string.
|
2001-10-18 20:29:56 +00:00
|
|
|
*
|
2013-02-26 04:42:26 +00:00
|
|
|
* Leaves file handle at beginning of line that contains the VMS Magic
|
2001-10-18 20:29:56 +00:00
|
|
|
* identifier.
|
|
|
|
*/
|
2014-05-09 05:18:49 +00:00
|
|
|
static gboolean vms_check_file_type(wtap *wth, int *err, gchar **err_info)
|
2001-10-18 20:29:56 +00:00
|
|
|
{
|
2012-12-27 22:59:39 +00:00
|
|
|
char buf[VMS_LINE_LENGTH];
|
|
|
|
guint reclen, line;
|
|
|
|
gint64 mpos;
|
2013-02-26 04:42:26 +00:00
|
|
|
|
2012-12-27 22:59:39 +00:00
|
|
|
buf[VMS_LINE_LENGTH-1] = '\0';
|
2013-02-26 04:42:26 +00:00
|
|
|
|
2012-12-27 22:59:39 +00:00
|
|
|
for (line = 0; line < VMS_HEADER_LINES_TO_CHECK; line++) {
|
2014-05-09 05:18:49 +00:00
|
|
|
mpos = file_tell(wth->fh);
|
2012-12-27 22:59:39 +00:00
|
|
|
if (mpos == -1) {
|
|
|
|
/* Error. */
|
2014-05-09 05:18:49 +00:00
|
|
|
*err = file_error(wth->fh, err_info);
|
2012-12-27 22:59:39 +00:00
|
|
|
return FALSE;
|
|
|
|
}
|
2014-05-09 05:18:49 +00:00
|
|
|
if (file_gets(buf, VMS_LINE_LENGTH, wth->fh) == NULL) {
|
2012-12-27 22:59:39 +00:00
|
|
|
/* EOF or error. */
|
2014-05-09 05:18:49 +00:00
|
|
|
*err = file_error(wth->fh, err_info);
|
2012-12-27 22:59:39 +00:00
|
|
|
return FALSE;
|
|
|
|
}
|
2013-02-26 04:42:26 +00:00
|
|
|
|
2012-12-27 22:59:39 +00:00
|
|
|
reclen = (guint) strlen(buf);
|
|
|
|
if (reclen < strlen(VMS_HDR_MAGIC_STR1) ||
|
2013-02-26 04:42:26 +00:00
|
|
|
reclen < strlen(VMS_HDR_MAGIC_STR2) ||
|
2012-12-27 22:59:39 +00:00
|
|
|
reclen < strlen(VMS_HDR_MAGIC_STR3)) {
|
|
|
|
continue;
|
|
|
|
}
|
2013-02-26 04:42:26 +00:00
|
|
|
|
2012-12-27 22:59:39 +00:00
|
|
|
if (strstr(buf, VMS_HDR_MAGIC_STR1) ||
|
|
|
|
strstr(buf, VMS_HDR_MAGIC_STR2) ||
|
|
|
|
strstr(buf, VMS_HDR_MAGIC_STR3)) {
|
|
|
|
/* Go back to the beginning of this line, so we will
|
|
|
|
* re-read it. */
|
2014-05-09 05:18:49 +00:00
|
|
|
if (file_seek(wth->fh, mpos, SEEK_SET, err) == -1) {
|
2012-12-27 22:59:39 +00:00
|
|
|
/* Error. */
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
return TRUE;
|
|
|
|
}
|
2001-10-18 20:29:56 +00:00
|
|
|
}
|
2012-12-27 22:59:39 +00:00
|
|
|
*err = 0;
|
|
|
|
return FALSE;
|
2001-10-18 20:29:56 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2014-10-09 23:44:15 +00:00
|
|
|
wtap_open_return_val vms_open(wtap *wth, int *err, gchar **err_info)
|
2001-10-18 20:29:56 +00:00
|
|
|
{
|
|
|
|
/* Look for VMS header */
|
2014-05-09 05:18:49 +00:00
|
|
|
if (!vms_check_file_type(wth, err, err_info)) {
|
Do not call wtap_file_read_unknown_bytes() or
wtap_file_read_expected_bytes() from an open routine - open routines are
supposed to return -1 on error, 0 if the file doesn't appear to be a
file of the specified type, or 1 if the file does appear to be a file of
the specified type, but those macros will cause the caller to return
FALSE on errors (so that, even if there's an I/O error, it reports "the
file isn't a file of the specified type" rather than "we got an error
trying to read the file").
When doing reads in an open routine before we've concluded that the file
is probably of the right type, return 0, rather than -1, if we get
WTAP_ERR_SHORT_READ - if we don't have enough data to check whether a
file is of a given type, we should keep trying other types, not give up.
For reads done *after* we've concluded the file is probably of the right
type, if a read doesn't return the number of bytes we asked for, but
returns an error of 0, return WTAP_ERR_SHORT_READ - the file is
apparently cut short.
For NetMon and NetXRay/Windows Sniffer files, use a #define for the
magic number size, and use that for both magic numbers.
svn path=/trunk/; revision=46803
2012-12-27 12:19:25 +00:00
|
|
|
if (*err != 0 && *err != WTAP_ERR_SHORT_READ)
|
2014-10-09 23:44:15 +00:00
|
|
|
return WTAP_OPEN_ERROR;
|
|
|
|
return WTAP_OPEN_NOT_MINE;
|
2001-10-18 20:29:56 +00:00
|
|
|
}
|
|
|
|
|
2014-05-09 05:18:49 +00:00
|
|
|
wth->file_encap = WTAP_ENCAP_RAW_IP;
|
|
|
|
wth->file_type_subtype = WTAP_FILE_TYPE_SUBTYPE_VMS;
|
|
|
|
wth->snapshot_length = 0; /* not known */
|
|
|
|
wth->subtype_read = vms_read;
|
|
|
|
wth->subtype_seek_read = vms_seek_read;
|
2014-09-28 18:37:06 +00:00
|
|
|
wth->file_tsprec = WTAP_TSPREC_CSEC;
|
2001-10-18 20:29:56 +00:00
|
|
|
|
2014-10-09 23:44:15 +00:00
|
|
|
return WTAP_OPEN_MINE;
|
2001-10-18 20:29:56 +00:00
|
|
|
}
|
|
|
|
|
2005-04-03 11:00:49 +00:00
|
|
|
/* Find the next packet and parse it; called from wtap_read(). */
|
2014-05-23 10:50:02 +00:00
|
|
|
static gboolean vms_read(wtap *wth, int *err, gchar **err_info,
|
2006-11-05 22:46:44 +00:00
|
|
|
gint64 *data_offset)
|
2001-10-18 20:29:56 +00:00
|
|
|
{
|
2006-11-05 22:46:44 +00:00
|
|
|
gint64 offset = 0;
|
2001-10-18 20:29:56 +00:00
|
|
|
|
|
|
|
/* Find the next packet */
|
2002-03-25 21:15:54 +00:00
|
|
|
#ifdef TCPIPTRACE_FRAGMENTS_HAVE_HEADER_LINE
|
2012-12-27 22:59:39 +00:00
|
|
|
offset = vms_seek_next_packet(wth, err, err_info);
|
2002-03-25 21:15:54 +00:00
|
|
|
#else
|
2014-05-09 05:18:49 +00:00
|
|
|
offset = file_tell(wth->fh);
|
2002-03-25 21:15:54 +00:00
|
|
|
#endif
|
2011-01-03 09:17:20 +00:00
|
|
|
if (offset < 1) {
|
2014-05-09 05:18:49 +00:00
|
|
|
*err = file_error(wth->fh, err_info);
|
2014-05-23 10:50:02 +00:00
|
|
|
return FALSE;
|
2011-01-03 09:17:20 +00:00
|
|
|
}
|
2001-10-18 20:29:56 +00:00
|
|
|
*data_offset = offset;
|
2013-06-17 21:18:47 +00:00
|
|
|
|
|
|
|
/* Parse the packet */
|
2014-05-23 10:50:02 +00:00
|
|
|
return parse_vms_packet(wth->fh, &wth->phdr, wth->frame_buffer, err, err_info);
|
2001-10-18 20:29:56 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Used to read packets in random-access fashion */
|
2002-03-05 08:40:27 +00:00
|
|
|
static gboolean
|
2014-05-09 05:18:49 +00:00
|
|
|
vms_seek_read(wtap *wth, gint64 seek_off, struct wtap_pkthdr *phdr,
|
2014-01-02 20:47:21 +00:00
|
|
|
Buffer *buf, int *err, gchar **err_info)
|
2001-10-18 20:29:56 +00:00
|
|
|
{
|
2014-05-09 05:18:49 +00:00
|
|
|
if (file_seek(wth->random_fh, seek_off - 1, SEEK_SET, err) == -1)
|
2014-05-23 10:50:02 +00:00
|
|
|
return FALSE;
|
2001-10-18 20:29:56 +00:00
|
|
|
|
2014-05-09 05:18:49 +00:00
|
|
|
if (!parse_vms_packet(wth->random_fh, phdr, buf, err, err_info)) {
|
2013-06-17 21:18:47 +00:00
|
|
|
if (*err == 0)
|
|
|
|
*err = WTAP_ERR_SHORT_READ;
|
2014-05-23 10:50:02 +00:00
|
|
|
return FALSE;
|
2001-10-18 20:29:56 +00:00
|
|
|
}
|
2014-05-23 10:50:02 +00:00
|
|
|
return TRUE;
|
2001-10-18 20:29:56 +00:00
|
|
|
}
|
|
|
|
|
2002-03-25 21:15:54 +00:00
|
|
|
/* isdumpline assumes that dump lines start with some non-alphanumerics
|
|
|
|
* followed by 4 hex numbers - each 8 digits long, each hex number followed
|
|
|
|
* by 3 spaces.
|
2001-10-18 20:29:56 +00:00
|
|
|
*/
|
|
|
|
static int
|
2004-01-24 16:48:12 +00:00
|
|
|
isdumpline( gchar *line )
|
2001-10-18 20:29:56 +00:00
|
|
|
{
|
2002-03-25 21:15:54 +00:00
|
|
|
int i, j;
|
2001-10-18 20:29:56 +00:00
|
|
|
|
2014-10-17 20:37:11 +00:00
|
|
|
while (*line && !g_ascii_isalnum(*line))
|
2014-05-09 05:18:49 +00:00
|
|
|
line++;
|
2001-10-18 20:29:56 +00:00
|
|
|
|
2002-03-25 21:15:54 +00:00
|
|
|
for (j=0; j<4; j++) {
|
2014-05-09 05:18:49 +00:00
|
|
|
for (i=0; i<8; i++, line++)
|
2014-10-17 20:37:11 +00:00
|
|
|
if (! g_ascii_isxdigit(*line))
|
2014-05-09 05:18:49 +00:00
|
|
|
return FALSE;
|
2001-10-18 20:29:56 +00:00
|
|
|
|
2014-05-09 05:18:49 +00:00
|
|
|
for (i=0; i<3; i++, line++)
|
|
|
|
if (*line != ' ')
|
|
|
|
return FALSE;
|
2002-03-25 21:15:54 +00:00
|
|
|
}
|
2001-10-18 20:29:56 +00:00
|
|
|
|
2014-10-17 20:37:11 +00:00
|
|
|
return g_ascii_isspace(*line);
|
2001-10-18 20:29:56 +00:00
|
|
|
}
|
|
|
|
|
2013-06-17 21:18:47 +00:00
|
|
|
/* Parses a packet record. */
|
2012-10-19 21:05:03 +00:00
|
|
|
static gboolean
|
2013-06-17 21:18:47 +00:00
|
|
|
parse_vms_packet(FILE_T fh, struct wtap_pkthdr *phdr, Buffer *buf, int *err, gchar **err_info)
|
2001-10-18 20:29:56 +00:00
|
|
|
{
|
2002-03-25 21:15:54 +00:00
|
|
|
char line[VMS_LINE_LENGTH + 1];
|
2001-10-18 20:29:56 +00:00
|
|
|
int num_items_scanned;
|
2002-01-30 18:58:04 +00:00
|
|
|
int pkt_len = 0;
|
|
|
|
int pktnum;
|
|
|
|
int csec = 101;
|
2004-10-01 12:31:52 +00:00
|
|
|
struct tm tm;
|
2009-04-24 12:52:02 +00:00
|
|
|
char mon[4] = {'J', 'A', 'N', 0};
|
2004-01-24 16:48:12 +00:00
|
|
|
gchar *p;
|
2009-04-24 12:16:01 +00:00
|
|
|
static const gchar months[] = "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC";
|
2013-06-17 21:18:47 +00:00
|
|
|
int i;
|
|
|
|
int offset = 0;
|
|
|
|
guint8 *pd;
|
2001-10-18 20:29:56 +00:00
|
|
|
|
2004-10-01 12:31:52 +00:00
|
|
|
tm.tm_year = 1970;
|
2011-03-25 23:45:48 +00:00
|
|
|
tm.tm_mon = 0;
|
|
|
|
tm.tm_mday = 1;
|
2004-10-01 12:31:52 +00:00
|
|
|
tm.tm_hour = 1;
|
|
|
|
tm.tm_min = 1;
|
|
|
|
tm.tm_sec = 1;
|
2001-10-18 20:29:56 +00:00
|
|
|
|
|
|
|
/* Skip lines until one starts with a hex number */
|
|
|
|
do {
|
|
|
|
if (file_gets(line, VMS_LINE_LENGTH, fh) == NULL) {
|
2011-04-21 09:41:52 +00:00
|
|
|
*err = file_error(fh, err_info);
|
2002-01-30 18:58:04 +00:00
|
|
|
if ((*err == 0) && (csec != 101)) {
|
|
|
|
*err = WTAP_ERR_SHORT_READ;
|
2001-10-18 20:29:56 +00:00
|
|
|
}
|
2012-10-19 21:05:03 +00:00
|
|
|
return FALSE;
|
2001-10-18 20:29:56 +00:00
|
|
|
}
|
2002-03-25 21:15:54 +00:00
|
|
|
line[VMS_LINE_LENGTH] = '\0';
|
|
|
|
|
2011-02-16 00:44:12 +00:00
|
|
|
if ((csec == 101) && (p = strstr(line, "packet ")) != NULL
|
2002-01-30 18:58:04 +00:00
|
|
|
&& (! strstr(line, "could not save "))) {
|
|
|
|
/* Find text in line starting with "packet ". */
|
2003-05-19 20:58:18 +00:00
|
|
|
|
2003-05-20 20:17:03 +00:00
|
|
|
/* First look for the Format 1 type sequencing */
|
2013-02-26 04:42:26 +00:00
|
|
|
num_items_scanned = sscanf(p,
|
2014-10-07 05:01:12 +00:00
|
|
|
"packet %9d at %2d-%3s-%4d %2d:%2d:%2d.%9d",
|
|
|
|
&pktnum, &tm.tm_mday, mon,
|
2004-10-01 12:31:52 +00:00
|
|
|
&tm.tm_year, &tm.tm_hour,
|
|
|
|
&tm.tm_min, &tm.tm_sec, &csec);
|
2003-05-20 20:17:03 +00:00
|
|
|
/* Next look for the Format 2 type sequencing */
|
2003-05-19 20:58:18 +00:00
|
|
|
if (num_items_scanned != 8) {
|
|
|
|
num_items_scanned = sscanf(p,
|
2014-10-07 05:01:12 +00:00
|
|
|
"packet seq # = %9d at %2d-%3s-%4d %2d:%2d:%2d.%9d",
|
|
|
|
&pktnum, &tm.tm_mday, mon,
|
|
|
|
&tm.tm_year, &tm.tm_hour,
|
|
|
|
&tm.tm_min, &tm.tm_sec, &csec);
|
2003-05-19 20:58:18 +00:00
|
|
|
}
|
2003-05-20 20:17:03 +00:00
|
|
|
/* if unknown format then exit with error */
|
|
|
|
/* We will need to add code to handle new format */
|
2002-01-30 18:58:04 +00:00
|
|
|
if (num_items_scanned != 8) {
|
2014-10-07 05:01:12 +00:00
|
|
|
*err = WTAP_ERR_BAD_FILE;
|
|
|
|
*err_info = g_strdup_printf("vms: header line not valid");
|
2012-10-19 21:05:03 +00:00
|
|
|
return FALSE;
|
2002-01-30 18:58:04 +00:00
|
|
|
}
|
|
|
|
}
|
2014-10-07 05:01:12 +00:00
|
|
|
if ( (! pkt_len) && (p = strstr(line, "Length"))) {
|
|
|
|
p += sizeof("Length ");
|
2014-10-17 20:37:11 +00:00
|
|
|
while (*p && ! g_ascii_isdigit(*p))
|
2014-10-07 05:01:12 +00:00
|
|
|
p++;
|
|
|
|
|
|
|
|
if ( !*p ) {
|
|
|
|
*err = WTAP_ERR_BAD_FILE;
|
|
|
|
*err_info = g_strdup_printf("vms: Length field not valid");
|
|
|
|
return FALSE;
|
|
|
|
}
|
2001-10-18 20:29:56 +00:00
|
|
|
|
2014-10-07 05:01:12 +00:00
|
|
|
pkt_len = atoi(p);
|
2001-12-24 17:00:01 +00:00
|
|
|
break;
|
2014-10-07 05:01:12 +00:00
|
|
|
}
|
2001-10-18 20:29:56 +00:00
|
|
|
} while (! isdumpline(line));
|
|
|
|
|
2012-10-19 21:05:03 +00:00
|
|
|
p = strstr(months, mon);
|
|
|
|
if (p)
|
2014-10-07 05:01:12 +00:00
|
|
|
tm.tm_mon = (int) (p - months) / 3;
|
2012-10-19 21:05:03 +00:00
|
|
|
tm.tm_year -= 1900;
|
|
|
|
tm.tm_isdst = -1;
|
2001-10-18 20:29:56 +00:00
|
|
|
|
2014-05-24 18:28:30 +00:00
|
|
|
phdr->rec_type = REC_TYPE_PACKET;
|
2012-10-19 21:05:03 +00:00
|
|
|
phdr->presence_flags = WTAP_HAS_TS;
|
|
|
|
phdr->ts.secs = mktime(&tm);
|
|
|
|
phdr->ts.nsecs = csec * 10000000;
|
|
|
|
phdr->caplen = pkt_len;
|
|
|
|
phdr->len = pkt_len;
|
|
|
|
|
2013-06-16 00:20:00 +00:00
|
|
|
/* Make sure we have enough room for the packet */
|
2014-08-02 11:00:48 +00:00
|
|
|
ws_buffer_assure_space(buf, pkt_len);
|
|
|
|
pd = ws_buffer_start_ptr(buf);
|
2013-06-16 00:20:00 +00:00
|
|
|
|
|
|
|
/* Convert the ASCII hex dump to binary data */
|
2002-01-30 18:58:04 +00:00
|
|
|
for (i = 0; i < pkt_len; i += 16) {
|
2014-10-07 05:01:12 +00:00
|
|
|
if (file_gets(line, VMS_LINE_LENGTH, fh) == NULL) {
|
|
|
|
*err = file_error(fh, err_info);
|
|
|
|
if (*err == 0) {
|
|
|
|
*err = WTAP_ERR_SHORT_READ;
|
|
|
|
}
|
|
|
|
return FALSE;
|
|
|
|
}
|
2002-03-25 21:15:54 +00:00
|
|
|
line[VMS_LINE_LENGTH] = '\0';
|
2014-10-07 05:01:12 +00:00
|
|
|
if (i == 0) {
|
2002-03-25 21:15:54 +00:00
|
|
|
while (! isdumpline(line)) { /* advance to start of hex data */
|
2014-10-07 05:01:12 +00:00
|
|
|
if (file_gets(line, VMS_LINE_LENGTH, fh) == NULL) {
|
2011-04-21 09:41:52 +00:00
|
|
|
*err = file_error(fh, err_info);
|
2001-12-24 17:00:01 +00:00
|
|
|
if (*err == 0) {
|
2014-10-07 05:01:12 +00:00
|
|
|
*err = WTAP_ERR_SHORT_READ;
|
2001-12-24 17:00:01 +00:00
|
|
|
}
|
2002-03-05 08:40:27 +00:00
|
|
|
return FALSE;
|
2001-12-24 17:00:01 +00:00
|
|
|
}
|
2002-03-25 21:15:54 +00:00
|
|
|
line[VMS_LINE_LENGTH] = '\0';
|
|
|
|
}
|
2014-10-17 20:37:11 +00:00
|
|
|
while (line[offset] && !g_ascii_isxdigit(line[offset]))
|
2014-10-07 05:01:12 +00:00
|
|
|
offset++;
|
2001-12-24 17:00:01 +00:00
|
|
|
}
|
2013-06-16 00:20:00 +00:00
|
|
|
if (!parse_single_hex_dump_line(line, pd, i,
|
2002-01-30 18:58:04 +00:00
|
|
|
offset, pkt_len - i)) {
|
2014-10-07 05:01:12 +00:00
|
|
|
*err = WTAP_ERR_BAD_FILE;
|
Have the Wiretap open, read, and seek-and-read routines return, in
addition to an error code, an error info string, for
WTAP_ERR_UNSUPPORTED, WTAP_ERR_UNSUPPORTED_ENCAP, and
WTAP_ERR_BAD_RECORD errors. Replace the error messages logged with
"g_message()" for those errors with g_strdup()ed or g_strdup_printf()ed
strings returned as the error info string, and change the callers of
those routines to, for those errors, put the info string into the
printed message or alert box for the error.
Add messages for cases where those errors were returned without printing
an additional message.
Nobody uses the error code from "cf_read()" - "cf_read()" puts up the
alert box itself for failures; get rid of the error code, so it just
returns a success/failure indication.
Rename "file_read_error_message()" to "cf_read_error_message()", as it
handles read errors from Wiretap, and have it take an error info string
as an argument. (That handles a lot of the work of putting the info
string into the error message.)
Make some variables in "ascend-grammar.y" static.
Check the return value of "erf_read_header()" in "erf_seek_read()".
Get rid of an unused #define in "i4btrace.c".
svn path=/trunk/; revision=9852
2004-01-25 21:55:17 +00:00
|
|
|
*err_info = g_strdup_printf("vms: hex dump not valid");
|
2014-10-07 05:01:12 +00:00
|
|
|
return FALSE;
|
|
|
|
}
|
2001-10-18 20:29:56 +00:00
|
|
|
}
|
2002-01-30 18:58:04 +00:00
|
|
|
/* Avoid TCPIPTRACE-W-BUFFERSFUL, TCPIPtrace could not save n packets.
|
2011-01-03 09:17:20 +00:00
|
|
|
* errors.
|
|
|
|
*
|
|
|
|
* XXX - when we support packet drop report information in the
|
|
|
|
* Wiretap API, we should parse those lines and return "n" as
|
|
|
|
* a packet drop count. */
|
|
|
|
if (!file_gets(line, VMS_LINE_LENGTH, fh)) {
|
2014-10-07 05:01:12 +00:00
|
|
|
*err = file_error(fh, err_info);
|
|
|
|
if (*err == 0) {
|
|
|
|
/* There is no next line, so there's no "TCPIPtrace could not
|
|
|
|
* save n packets" line; not an error. */
|
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
return FALSE;
|
2011-01-03 09:17:20 +00:00
|
|
|
}
|
2002-03-05 08:40:27 +00:00
|
|
|
return TRUE;
|
2001-10-18 20:29:56 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
1 2 3 4
|
|
|
|
0123456789012345678901234567890123456789012345
|
|
|
|
50010C0A A34C0640 00009017 2C000045 0000 E..,....@.L....P
|
|
|
|
00000000 14945E52 0A00DC02 | 32010C0A 0010 ...2....R^......
|
|
|
|
0000 | B4050402 00003496 00020260 0020 `....4........
|
|
|
|
*/
|
|
|
|
|
|
|
|
#define START_POS 7
|
|
|
|
#define HEX_LENGTH ((8 * 4) + 7) /* eight clumps of 4 bytes with 7 inner spaces */
|
|
|
|
/* Take a string representing one line from a hex dump and converts the
|
|
|
|
* text to binary data. We check the printed offset with the offset
|
|
|
|
* we are passed to validate the record. We place the bytes in the buffer
|
|
|
|
* at the specified offset.
|
|
|
|
*
|
|
|
|
* Returns TRUE if good hex dump, FALSE if bad.
|
|
|
|
*/
|
|
|
|
static gboolean
|
|
|
|
parse_single_hex_dump_line(char* rec, guint8 *buf, long byte_offset,
|
2002-01-30 18:58:04 +00:00
|
|
|
int in_off, int remaining) {
|
2001-10-18 20:29:56 +00:00
|
|
|
|
|
|
|
int i;
|
|
|
|
char *s;
|
|
|
|
int value;
|
2009-04-24 12:16:01 +00:00
|
|
|
static const int offsets[16] = {39,37,35,33,28,26,24,22,17,15,13,11,6,4,2,0};
|
2001-10-18 20:29:56 +00:00
|
|
|
char lbuf[3] = {0,0,0};
|
2002-08-28 20:30:45 +00:00
|
|
|
|
2001-10-18 20:29:56 +00:00
|
|
|
|
|
|
|
/* Get the byte_offset directly from the record */
|
|
|
|
s = rec;
|
2009-04-22 03:07:37 +00:00
|
|
|
value = (int)strtoul(s + 45 + in_off, NULL, 16); /* XXX - error check? */
|
2002-08-28 20:30:45 +00:00
|
|
|
|
2001-10-18 20:29:56 +00:00
|
|
|
if (value != byte_offset) {
|
2014-10-07 05:01:12 +00:00
|
|
|
return FALSE;
|
2001-10-18 20:29:56 +00:00
|
|
|
}
|
|
|
|
|
2002-01-30 18:58:04 +00:00
|
|
|
if (remaining > 16)
|
|
|
|
remaining = 16;
|
|
|
|
|
2001-10-18 20:29:56 +00:00
|
|
|
/* Read the octets right to left, as that is how they are displayed
|
|
|
|
* in VMS.
|
|
|
|
*/
|
|
|
|
|
2002-01-30 18:58:04 +00:00
|
|
|
for (i = 0; i < remaining; i++) {
|
2014-10-07 05:01:12 +00:00
|
|
|
lbuf[0] = rec[offsets[i] + in_off];
|
|
|
|
lbuf[1] = rec[offsets[i] + 1 + in_off];
|
2001-10-18 20:29:56 +00:00
|
|
|
|
2014-10-07 05:01:12 +00:00
|
|
|
buf[byte_offset + i] = (guint8) strtoul(lbuf, NULL, 16);
|
2001-10-18 20:29:56 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
}
|