Merge branch 'vendor/FILE' (early part)
[dragonfly.git] / contrib / ipfilter / ipft_ef.c
1 /*
2  * Copyright (C) 1993-2001 by Darren Reed.
3  *
4  * See the IPFILTER.LICENCE file for details on licencing.
5  */
6
7 /*
8                                             icmp type
9  lnth proto         source     destination   src port   dst port
10
11 etherfind -n
12
13    60  tcp   128.250.20.20  128.250.133.13       2419     telnet
14
15 etherfind -n -t
16
17  0.32    91   04    131.170.1.10  128.250.133.13
18  0.33   566  udp  128.250.37.155   128.250.133.3        901        901
19 */
20 #if defined(__sgi) && (IRIX > 602)
21 # include <sys/ptimers.h>
22 #endif
23 #include <stdio.h>
24 #include <string.h>
25 #if !defined(__SVR4) && !defined(__GNUC__)
26 #include <strings.h>
27 #endif
28 #include <sys/types.h>
29 #include <stdlib.h>
30 #include <unistd.h>
31 #include <stddef.h>
32 #include <sys/socket.h>
33 #include <sys/ioctl.h>
34 #include <sys/param.h>
35 #include <sys/time.h>
36 #include <netinet/in.h>
37 #include <arpa/inet.h>
38 #include <netinet/in_systm.h>
39 #ifndef linux
40 #include <netinet/ip_var.h>
41 #endif
42 #include <netinet/ip.h>
43 #include <netinet/tcp.h>
44 #include <netinet/udp.h>
45 #include <netinet/ip_icmp.h>
46 #include <net/if.h>
47 #include <netdb.h>
48 #include "ip_compat.h"
49 #include <netinet/tcpip.h>
50 #include "ipf.h"
51 #include "ipt.h"
52
53 #if !defined(lint)
54 static const char sccsid[] = "@(#)ipft_ef.c     1.6 2/4/96 (C)1995 Darren Reed";
55 static const char rcsid[] = "@(#)$Id: ipft_ef.c,v 2.2.2.5 2003/05/19 12:02:35 darrenr Exp $";
56 #endif
57
58 static  int     etherf_open __P((char *));
59 static  int     etherf_close __P((void));
60 static  int     etherf_readip __P((char *, int, char **, int *));
61
62 struct  ipread  etherf = { etherf_open, etherf_close, etherf_readip };
63
64 static  FILE    *efp = NULL;
65 static  int     efd = -1;
66
67
68 static  int     etherf_open(fname)
69 char    *fname;
70 {
71         if (efd != -1)
72                 return efd;
73
74         if (!strcmp(fname, "-")) {
75                 efd = 0;
76                 efp = stdin;
77         } else {
78                 efd = open(fname, O_RDONLY);
79                 efp = fdopen(efd, "r");
80         }
81         return efd;
82 }
83
84
85 static  int     etherf_close()
86 {
87         return close(efd);
88 }
89
90
91 static  int     etherf_readip(buf, cnt, ifn, dir)
92 char    *buf, **ifn;
93 int     cnt, *dir;
94 {
95         struct  tcpiphdr pkt;
96         ip_t    *ip = (ip_t *)&pkt;
97         struct  protoent *p = NULL;
98         char    src[16], dst[16], sprt[16], dprt[16];
99         char    lbuf[128], len[8], prot[8], time[8], *s;
100         int     slen, extra = 0, i;
101
102         if (!fgets(lbuf, sizeof(lbuf) - 1, efp))
103                 return 0;
104
105         if ((s = strchr(lbuf, '\n')))
106                 *s = '\0';
107         lbuf[sizeof(lbuf)-1] = '\0';
108
109         bzero(&pkt, sizeof(pkt));
110
111         if (sscanf(lbuf, "%7s %7s %15s %15s %15s %15s", len, prot, src, dst,
112                    sprt, dprt) != 6)
113                 if (sscanf(lbuf, "%7s %7s %7s %15s %15s %15s %15s", time,
114                            len, prot, src, dst, sprt, dprt) != 7)
115                         return -1;
116
117         ip->ip_p = atoi(prot);
118         if (ip->ip_p == 0) {
119                 if (!(p = getprotobyname(prot)))
120                         return -1;
121                 ip->ip_p = p->p_proto;
122         }
123
124         switch (ip->ip_p) {
125         case IPPROTO_TCP :
126         case IPPROTO_UDP :
127                 s = strtok(NULL, " :");
128                 ip->ip_len += atoi(s);
129                 if (p->p_proto == IPPROTO_TCP)
130                         extra = sizeof(struct tcphdr);
131                 else if (p->p_proto == IPPROTO_UDP)
132                         extra = sizeof(struct udphdr);
133                 break;
134 #ifdef  IGMP
135         case IPPROTO_IGMP :
136                 extra = sizeof(struct igmp);
137                 break;
138 #endif
139         case IPPROTO_ICMP :
140                 extra = sizeof(struct icmp);
141                 break;
142         default :
143                 break;
144         }
145
146         (void) inet_aton(src, &ip->ip_src);
147         (void) inet_aton(dst, &ip->ip_dst);
148         ip->ip_len = atoi(len);
149         ip->ip_hl = sizeof(ip_t);
150
151         slen = ip->ip_hl + extra;
152         i = MIN(cnt, slen);
153         bcopy((char *)&pkt, buf, i);
154         return i;
155 }