Add support for raw IP nettl captures.
[obnox/wireshark/wip.git] / wiretap / nettl.c
1 /* nettl.c
2  *
3  * $Id: nettl.c,v 1.6 2000/02/17 21:08:15 oabad Exp $
4  *
5  * Wiretap Library
6  * Copyright (c) 1998 by Gilbert Ramirez <gram@xiexie.org>
7  * 
8  * This program is free software; you can redistribute it and/or
9  * modify it under the terms of the GNU General Public License
10  * as published by the Free Software Foundation; either version 2
11  * of the License, or (at your option) any later version.
12  * 
13  * This program is distributed in the hope that it will be useful,
14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16  * GNU General Public License for more details.
17  * 
18  * You should have received a copy of the GNU General Public License
19  * along with this program; if not, write to the Free Software
20  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
21  *
22  */
23 #ifdef HAVE_CONFIG_H
24 #include "config.h"
25 #endif
26
27 #include <stdlib.h>
28 #include <errno.h>
29 #include <time.h>
30 #include "wtap.h"
31 #include "file_wrappers.h"
32 #include "buffer.h"
33 #include "nettl.h"
34
35 static char nettl_magic_hpux9[12] = {
36     0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x07, 0xD0, 0x00
37 };
38 static char nettl_magic_hpux10[12] = {
39     0x54, 0x52, 0x00, 0x64, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80
40 };
41
42 /* HP nettl record header for the SX25L2 subsystem - The FCS is not included in the file. */
43 struct nettlrec_sx25l2_hdr {
44     guint8      xxa[8];
45     guint8      from_dce;
46     guint8      xxb[55];
47     guint8      length[2];
48     guint8      length2[2];    /* don't know which one is captured length / real length */
49     guint8      xxc[4];
50     guint8      sec[4];
51     guint8      usec[4];
52     guint8      xxd[4];
53 };
54
55 /* HP nettl record header for the NS_LS_IP subsystem */
56 struct nettlrec_ns_ls_ip_hdr {
57     guint8      xxa[28];
58     guint8      length[4];
59     guint8      length2[4];    /* don't know which one is captured length / real length */
60     guint8      sec[4];
61     guint8      usec[4];
62     guint8      xxb[16];
63 };
64
65 /* header is followed by data and once again the total length (2 bytes) ! */
66
67 static int nettl_read(wtap *wth, int *err);
68
69 int nettl_open(wtap *wth, int *err)
70 {
71     char magic[12];
72     int bytes_read;
73
74     /* Read in the string that should be at the start of a HP file */
75     file_seek(wth->fh, 0, SEEK_SET);
76     errno = WTAP_ERR_CANT_READ;
77     bytes_read = file_read(magic, 1, 12, wth->fh);
78     if (bytes_read != 12) {
79         *err = file_error(wth->fh);
80         if (*err != 0)
81             return -1;
82         return 0;
83     }
84
85     if (memcmp(magic, nettl_magic_hpux9, 12) &&
86         memcmp(magic, nettl_magic_hpux10, 12)) {
87         return 0;
88     }
89
90     file_seek(wth->fh, 0x80, SEEK_SET);
91     wth->data_offset = 0x80;
92
93     /* This is an nettl file */
94     wth->file_type = WTAP_FILE_NETTL;
95     wth->capture.nettl = g_malloc(sizeof(nettl_t));
96     wth->subtype_read = nettl_read;
97     wth->snapshot_length = 16384;       /* not available in header, only in frame */
98
99     wth->capture.nettl->start = 0;
100
101     return 1;
102 }
103
104 /* Read the next packet */
105 static int nettl_read(wtap *wth, int *err)
106 {
107     int bytes_read;
108     struct nettlrec_sx25l2_hdr lapb_hdr;
109     struct nettlrec_ns_ls_ip_hdr ip_hdr;
110     guint16 length;
111     int data_offset;
112     guint8 encap[4];
113
114     /* Read record header. */
115     errno = WTAP_ERR_CANT_READ;
116     bytes_read = file_read(&encap, 1, 4, wth->fh);
117     if (bytes_read != 4) {
118         *err = file_error(wth->fh);
119         if (*err != 0)
120             return -1;
121         if (bytes_read != 0) {
122             *err = WTAP_ERR_SHORT_READ;
123             return -1;
124         }
125         return 0;
126     }
127     wth->data_offset += 4;
128     switch (encap[3]) {
129     case NETTL_SUBSYS_NS_LS_IP :
130         wth->phdr.pkt_encap = WTAP_ENCAP_RAW_IP;
131         bytes_read = file_read(&ip_hdr, 1, sizeof ip_hdr, wth->fh);
132         if (bytes_read != sizeof ip_hdr) {
133             *err = file_error(wth->fh);
134             if (*err != 0)
135                 return -1;
136             if (bytes_read != 0) {
137                 *err = WTAP_ERR_SHORT_READ;
138                 return -1;
139             }
140             return 0;
141         }
142         wth->data_offset += sizeof ip_hdr;
143
144         length = pntohl(&ip_hdr.length);
145         if (length <= 0) return 0;
146         wth->phdr.len = length;
147         wth->phdr.caplen = length;
148
149         wth->phdr.ts.tv_sec = pntohl(&ip_hdr.sec);
150         wth->phdr.ts.tv_usec = pntohl(&ip_hdr.usec);
151         if (wth->capture.nettl->start == 0)
152             wth->capture.nettl->start = wth->phdr.ts.tv_sec;
153
154         /*
155          * Read the packet data.
156          */
157         buffer_assure_space(wth->frame_buffer, length);
158         data_offset = wth->data_offset;
159         errno = WTAP_ERR_CANT_READ;
160         bytes_read = file_read(buffer_start_ptr(wth->frame_buffer), 1,
161                 length, wth->fh);
162
163         if (bytes_read != length) {
164             *err = file_error(wth->fh);
165             if (*err == 0)
166                 *err = WTAP_ERR_SHORT_READ;
167             return -1;
168         }
169         wth->data_offset += length;
170         break;
171     case NETTL_SUBSYS_SX25L2 :
172         wth->phdr.pkt_encap = WTAP_ENCAP_LAPB;
173         bytes_read = file_read(&lapb_hdr, 1, sizeof lapb_hdr, wth->fh);
174         if (bytes_read != sizeof lapb_hdr) {
175             *err = file_error(wth->fh);
176             if (*err != 0)
177                 return -1;
178             if (bytes_read != 0) {
179                 *err = WTAP_ERR_SHORT_READ;
180                 return -1;
181             }
182             return 0;
183         }
184         wth->data_offset += sizeof lapb_hdr;
185
186         length = pntohs(&lapb_hdr.length);
187         if (length <= 0) return 0;
188         wth->phdr.len = length;
189         wth->phdr.caplen = length;
190
191         wth->phdr.ts.tv_sec = pntohl(&lapb_hdr.sec);
192         wth->phdr.ts.tv_usec = pntohl(&lapb_hdr.usec);
193         if (wth->capture.nettl->start == 0)
194             wth->capture.nettl->start = wth->phdr.ts.tv_sec;
195         wth->phdr.pseudo_header.x25.flags = (lapb_hdr.from_dce & 0x20 ? 0x80 : 0x00);
196
197         /*
198          * Read the packet data.
199          */
200         buffer_assure_space(wth->frame_buffer, length);
201         data_offset = wth->data_offset;
202         errno = WTAP_ERR_CANT_READ;
203         bytes_read = file_read(buffer_start_ptr(wth->frame_buffer), 1,
204                 length, wth->fh);
205
206         if (bytes_read != length) {
207             *err = file_error(wth->fh);
208             if (*err == 0)
209                 *err = WTAP_ERR_SHORT_READ;
210             return -1;
211         }
212         wth->data_offset += length;
213         break;
214     default:
215         *err = WTAP_ERR_UNSUPPORTED_ENCAP;
216         return -1;
217     }
218     return data_offset;
219 }