Use longs as file offsets, so that on platforms with 64-bit "long" we
[obnox/wireshark/wip.git] / wiretap / radcom.c
1 /* radcom.c
2  *
3  * $Id: radcom.c,v 1.30 2001/10/04 08:30:36 guy 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 <string.h>
30 #include "wtap-int.h"
31 #include "file_wrappers.h"
32 #include "buffer.h"
33 #include "radcom.h"
34
35 struct frame_date {
36         guint16 year;
37         guint8  month;
38         guint8  day;
39         guint32 sec;            /* seconds since midnight */
40         guint32 usec;
41 };
42
43 struct unaligned_frame_date {
44         char    year[2];
45         char    month;
46         char    day;
47         char    sec[4];         /* seconds since midnight */
48         char    usec[4];
49 };
50
51 static guint8 radcom_magic[8] = {
52         0x42, 0xD2, 0x00, 0x34, 0x12, 0x66, 0x22, 0x88
53 };
54
55 /* RADCOM record header - followed by frame data (perhaps including FCS).
56    The first two bytes of "xxz" appear to equal "length", as do the
57    second two bytes; if a RADCOM box can be told not to save all of
58    the captured packet, might one or the other of those be the
59    captured length of the packet? */
60 struct radcomrec_hdr {
61         char    xxx[4];         /* unknown */
62         char    length[2];      /* packet length */
63         char    xxy[5];         /* unknown */
64         struct unaligned_frame_date date; /* date/time stamp of packet */
65         char    xxz[6];         /* unknown */
66         char    dce;            /* DCE/DTE flag (and other flags?) */
67         char    xxw[9];         /* unknown */
68 };
69
70 static gboolean radcom_read(wtap *wth, int *err, long *data_offset);
71 static int radcom_seek_read(wtap *wth, long seek_off,
72         union wtap_pseudo_header *pseudo_header, u_char *pd, int length);
73 static int radcom_read_rec_header(FILE_T fh, struct radcomrec_hdr *hdr,
74         int *err);
75 static int radcom_read_rec_data(FILE_T fh, u_char *pd, int length, int *err);
76
77 int radcom_open(wtap *wth, int *err)
78 {
79         int bytes_read;
80         char magic[8];
81         struct frame_date start_date;
82         guint32 sec;
83         struct tm tm;
84         char byte;
85         char encap_magic[4] = {0x00, 0x42, 0x43, 0x09};
86         char search_encap[7];
87
88         /* Read in the string that should be at the start of a RADCOM file */
89         errno = WTAP_ERR_CANT_READ;
90         bytes_read = file_read(magic, 1, 8, wth->fh);
91         if (bytes_read != 8) {
92                 *err = file_error(wth->fh);
93                 if (*err != 0)
94                         return -1;
95                 return 0;
96         }
97
98         if (memcmp(magic, radcom_magic, 8) != 0) {
99                 return 0;
100         }
101
102         file_seek(wth->fh, 0x8B, SEEK_SET);
103         wth->data_offset = 0x8B;
104         errno = WTAP_ERR_CANT_READ;
105         bytes_read = file_read(&byte, 1, 1, wth->fh);
106         if (bytes_read != 1) {
107                 *err = file_error(wth->fh);
108                 if (*err != 0)
109                         return -1;
110                 return 0;
111         }
112         wth->data_offset += 1;
113         while (byte) {
114                 errno = WTAP_ERR_CANT_READ;
115                 bytes_read = file_read(&byte, 1, 1, wth->fh);
116                 if (bytes_read != 1) {
117                         *err = file_error(wth->fh);
118                         if (*err != 0)
119                                 return -1;
120                         return 0;
121                 }
122                 wth->data_offset += 1;
123         }
124
125         /* Get capture start time */
126         errno = WTAP_ERR_CANT_READ;
127         bytes_read = file_read(&start_date, 1, sizeof(struct frame_date), wth->fh);
128         if (bytes_read != sizeof(struct frame_date)) {
129                 *err = file_error(wth->fh);
130                 if (*err != 0)
131                         return -1;
132                 return 0;
133         }
134         wth->data_offset += sizeof(struct frame_date);
135
136         /* This is a radcom file */
137         wth->file_type = WTAP_FILE_RADCOM;
138         wth->subtype_read = radcom_read;
139         wth->subtype_seek_read = radcom_seek_read;
140         wth->snapshot_length = 16384;   /* not available in header, only in frame */
141
142         tm.tm_year = pletohs(&start_date.year)-1900;
143         tm.tm_mon = start_date.month-1;
144         tm.tm_mday = start_date.day;
145         sec = pletohl(&start_date.sec);
146         tm.tm_hour = sec/3600;
147         tm.tm_min = (sec%3600)/60;
148         tm.tm_sec = sec%60;
149         tm.tm_isdst = -1;
150
151         file_seek(wth->fh, sizeof(struct frame_date), SEEK_CUR);
152         wth->data_offset += sizeof(struct frame_date);
153
154         errno = WTAP_ERR_CANT_READ;
155         bytes_read = file_read(search_encap, 1, 4, wth->fh);
156         if (bytes_read != 4) {
157                 goto read_error;
158         }
159         wth->data_offset += 4;
160         while (memcmp(encap_magic, search_encap, 4)) {
161                 file_seek(wth->fh, -3, SEEK_CUR);
162                 wth->data_offset -= 3;
163                 errno = WTAP_ERR_CANT_READ;
164                 bytes_read = file_read(search_encap, 1, 4, wth->fh);
165                 if (bytes_read != 4) {
166                         goto read_error;
167                 }
168                 wth->data_offset += 4;
169         }
170         file_seek(wth->fh, 12, SEEK_CUR);
171         wth->data_offset += 12;
172         errno = WTAP_ERR_CANT_READ;
173         bytes_read = file_read(search_encap, 1, 4, wth->fh);
174         if (bytes_read != 4) {
175                 goto read_error;
176         }
177         wth->data_offset += 4;
178         if (!memcmp(search_encap, "LAPB", 4))
179                 wth->file_encap = WTAP_ENCAP_LAPB;
180         else if (!memcmp(search_encap, "Ethe", 4))
181                 wth->file_encap = WTAP_ENCAP_ETHERNET;
182         else {
183                 g_message("pcap: network type \"%.4s\" unknown", search_encap);
184                 *err = WTAP_ERR_UNSUPPORTED_ENCAP;
185                 return -1;
186         }
187
188         /*bytes_read = file_read(&next_date, 1, sizeof(struct frame_date), wth->fh);
189         errno = WTAP_ERR_CANT_READ;
190         if (bytes_read != sizeof(struct frame_date)) {
191                 goto read_error;
192         }
193
194         while (memcmp(&start_date, &next_date, 4)) {
195                 file_seek(wth->fh, 1-sizeof(struct frame_date), SEEK_CUR);
196                 errno = WTAP_ERR_CANT_READ;
197                 bytes_read = file_read(&next_date, 1, sizeof(struct frame_date),
198                                    wth->fh);
199                 if (bytes_read != sizeof(struct frame_date)) {
200                         goto read_error;
201                 }
202         }*/
203
204         if (wth->file_encap == WTAP_ENCAP_ETHERNET) {
205                 file_seek(wth->fh, 294, SEEK_CUR);
206                 wth->data_offset += 294;
207         } else if (wth->file_encap == WTAP_ENCAP_LAPB) {
208                 file_seek(wth->fh, 297, SEEK_CUR);
209                 wth->data_offset += 297;
210         }
211
212         return 1;
213
214 read_error:
215         *err = file_error(wth->fh);
216         if (*err != 0)
217                 return -1;
218         return 0;
219 }
220
221 /* Read the next packet */
222 static gboolean radcom_read(wtap *wth, int *err, long *data_offset)
223 {
224         int     ret;
225         struct radcomrec_hdr hdr;
226         guint16 length;
227         guint32 sec;
228         int     bytes_read;
229         struct tm tm;
230         char    fcs[2];
231
232         /* Read record header. */
233         *data_offset = wth->data_offset;
234         ret = radcom_read_rec_header(wth->fh, &hdr, err);
235         if (ret <= 0) {
236                 /* Read error or EOF */
237                 return FALSE;
238         }
239         wth->data_offset += sizeof hdr;
240         length = pletohs(&hdr.length);
241         if (length == 0) return FALSE;
242
243         if (wth->file_encap == WTAP_ENCAP_LAPB)
244                 length -= 2; /* FCS */
245
246         wth->phdr.len = length;
247         wth->phdr.caplen = length;
248
249         tm.tm_year = pletohs(&hdr.date.year)-1900;
250         tm.tm_mon = hdr.date.month-1;
251         tm.tm_mday = hdr.date.day;
252         sec = pletohl(&hdr.date.sec);
253         tm.tm_hour = sec/3600;
254         tm.tm_min = (sec%3600)/60;
255         tm.tm_sec = sec%60;
256         tm.tm_isdst = -1;
257         wth->phdr.ts.tv_sec = mktime(&tm);
258         wth->phdr.ts.tv_usec = pletohl(&hdr.date.usec);
259         wth->pseudo_header.x25.flags = (hdr.dce & 0x1) ? 0x00 : 0x80;
260
261         /*
262          * Read the packet data.
263          */
264         buffer_assure_space(wth->frame_buffer, length);
265         if (radcom_read_rec_data(wth->fh,
266             buffer_start_ptr(wth->frame_buffer), length, err) < 0)
267                 return FALSE;   /* Read error */
268         wth->data_offset += length;
269
270         wth->phdr.pkt_encap = wth->file_encap;
271
272         if (wth->file_encap == WTAP_ENCAP_LAPB) {
273                 /* Read the FCS.
274                    XXX - should we put it in the pseudo-header? */
275                 errno = WTAP_ERR_CANT_READ;
276                 bytes_read = file_read(&fcs, 1, sizeof fcs, wth->fh);
277                 if (bytes_read != sizeof fcs) {
278                         *err = file_error(wth->fh);
279                         if (*err == 0)
280                                 *err = WTAP_ERR_SHORT_READ;
281                         return FALSE;
282                 }
283                 wth->data_offset += sizeof fcs;
284         }
285
286         return TRUE;
287 }
288
289 static int
290 radcom_seek_read(wtap *wth, long seek_off,
291     union wtap_pseudo_header *pseudo_header, u_char *pd, int length)
292 {
293         int     ret;
294         int     err;            /* XXX - return this */
295         struct radcomrec_hdr hdr;
296
297         file_seek(wth->random_fh, seek_off, SEEK_SET);
298
299         /* Read record header. */
300         ret = radcom_read_rec_header(wth->random_fh, &hdr, &err);
301         if (ret <= 0) {
302                 /* Read error or EOF */
303                 return ret;
304         }
305
306         pseudo_header->x25.flags = (hdr.dce & 0x1) ? 0x00 : 0x80;
307
308         /*
309          * Read the packet data.
310          */
311         return radcom_read_rec_data(wth->random_fh, pd, length, &err);
312 }
313
314 static int
315 radcom_read_rec_header(FILE_T fh, struct radcomrec_hdr *hdr, int *err)
316 {
317         int     bytes_read;
318
319         errno = WTAP_ERR_CANT_READ;
320         bytes_read = file_read(hdr, 1, sizeof *hdr, fh);
321         if (bytes_read != sizeof *hdr) {
322                 *err = file_error(fh);
323                 if (*err != 0)
324                         return -1;
325                 if (bytes_read != 0) {
326                         *err = WTAP_ERR_SHORT_READ;
327                         return -1;
328                 }
329                 return 0;
330         }
331         return 1;
332 }
333
334 static int
335 radcom_read_rec_data(FILE_T fh, u_char *pd, int length, int *err)
336 {
337         int     bytes_read;
338
339         errno = WTAP_ERR_CANT_READ;
340         bytes_read = file_read(pd, 1, length, fh);
341
342         if (bytes_read != length) {
343                 *err = file_error(fh);
344                 if (*err == 0)
345                         *err = WTAP_ERR_SHORT_READ;
346                 return -1;
347         }
348         return 0;
349 }