Fix Gerald's e-mail address.
[obnox/wireshark/wip.git] / packet-srvloc.c
1 /* packet-srvloc.c
2  * Routines for SRVLOC (Service Location Protocol) packet dissection
3  * Copyright 1999, James Coe <jammer@cin.net>
4  *
5  * NOTE: This is Alpha software not all features have been verified yet.
6  *       In particular I have not had an opportunity to see how it 
7  *       responds to SRVLOC over TCP.
8  *
9  * $Id: packet-srvloc.c,v 1.5 2000/01/07 22:05:40 guy Exp $
10  *
11  * Ethereal - Network traffic analyzer
12  * By Gerald Combs <gerald@zing.org>
13  * Copyright 1998 Gerald Combs
14  *
15  * Service Location Protocol is RFC 2165
16  *
17  * This program is free software; you can redistribute it and/or
18  * modify it under the terms of the GNU General Public License
19  * as published by the Free Software Foundation; either version 2
20  * of the License, or (at your option) any later version.
21  * 
22  * This program is distributed in the hope that it will be useful,
23  * but WITHOUT ANY WARRANTY; without even the implied warranty of
24  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
25  * GNU General Public License for more details.
26  * 
27  * You should have received a copy of the GNU General Public License
28  * along with this program; if not, write to the Free Software
29  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
30  */
31
32 #ifdef HAVE_CONFIG_H
33 # include "config.h"
34 #endif
35
36 #include <stdio.h>
37 #include <stdlib.h>
38
39 #ifdef HAVE_SYS_TYPES_H
40 # include <sys/types.h>
41 #endif
42
43 #ifdef HAVE_NETINET_IN_H
44 # include <netinet/in.h>
45 #endif
46
47 #ifdef NEED_SNPRINTF_H
48 # ifdef HAVE_STDARG_H
49 #  include <stdarg.h>
50 # else
51 #  include <varargs.h>
52 # endif
53 # include "snprintf.h"
54 #endif
55
56 #include <string.h>
57 #include <time.h>
58 #include <glib.h>
59 #include "packet.h"
60 #include "packet-ipv6.h"
61
62 int proto_srvloc = -1;
63 int hf_srvloc_version = -1;
64 int hf_srvloc_function = -1;
65 int hf_srvloc_flags = -1;
66 int hf_srvloc_error = -1;
67
68 static gint ett_srvloc = -1;
69 gint ett_srvloc_flags = -1;
70
71 /* Define function types */
72
73 #define SRVREQ          1
74 #define SRVRPLY         2
75 #define SRVREG          3
76 #define SRVDEREG        4
77 #define SRVACK          5
78 #define ATTRRQST        6
79 #define ATTRRPLY        7
80 #define DAADVERT        8
81 #define SRVTYPERQST     9
82 #define SRVTYPERPLY     10
83
84 /* Create protocol header structure */
85
86 struct srvloc_hdr {
87     guint8      version;
88     guint8      function;
89     guint16     length;
90     guint8      flags;
91     guint8      dialect;
92     u_char      language[2];
93     guint16     encoding;
94     guint16     xid;
95 };
96
97 /* List to resolve function numbers to names */
98
99 static const value_string srvloc_functions[] = {
100     { SRVREQ, "Service Request" }, 
101     { SRVRPLY, "Service Reply" }, 
102     { SRVREG, "Service Registration" }, 
103     { SRVDEREG, "Service Deregister" }, 
104     { SRVACK, "Service Acknowledge" }, 
105     { ATTRRQST, "Attribute Request" }, 
106     { ATTRRPLY, "Attribute Reply" }, 
107     { DAADVERT, "DA Advertisement" }, 
108     { SRVTYPERQST, "Service Type Request" }, 
109     { SRVTYPERPLY, "Service Type Reply" }, 
110 };
111
112 /* List to resolve flag values to names */
113
114
115 /* Define flag masks */
116
117 #define FLAG_O          0x80
118 #define FLAG_M          0x40
119 #define FLAG_U          0x20
120 #define FLAG_A          0x10
121 #define FLAG_F          0x08
122
123 /* Define Error Codes */
124
125 #define SUCCESS         0
126 #define LANG_NOT_SPTD   1
127 #define PROT_PARSE_ERR  2
128 #define INVLD_REG       3
129 #define SCOPE_NOT_SPTD  4
130 #define CHRSET_NOT_UND  5
131 #define AUTH_ABSENT     6
132 #define AUTH_FAILED     7
133
134 /* List to resolve error codes to names */
135
136 static const value_string srvloc_errs[] = {
137     { SUCCESS, "No Error" },
138     { LANG_NOT_SPTD, "Language not supported" },
139     { PROT_PARSE_ERR, "Protocol parse error" },
140     { INVLD_REG, "Invalid registration" },
141     { SCOPE_NOT_SPTD, "Scope not supported" },
142     { CHRSET_NOT_UND, "Character set not understood" },
143     { AUTH_ABSENT, "Authentication absent" },
144     { AUTH_FAILED, "Authentication failed" },
145 };
146
147 void
148 dissect_authblk(const u_char *pd, int offset, frame_data *fd, proto_tree *tree)
149 {
150     struct tm *stamp;
151     time_t seconds;
152     double floatsec;
153     guint16 length;
154     
155     seconds = pntohl(&pd[offset]) - 2208988800ul;
156     stamp = gmtime(&seconds);
157     floatsec = stamp->tm_sec + pntohl(&pd[offset + 4]) / 4294967296.0;
158     proto_tree_add_text(tree, offset, 8,
159                         "Timestamp: %04d-%02d-%02d %02d:%02d:%07.4f UTC",
160                         stamp->tm_year + 1900, stamp->tm_mon, stamp->tm_mday,
161                         stamp->tm_hour, stamp->tm_min, floatsec);
162     proto_tree_add_text(tree, offset + 8, 2, "Block Structure Desciptor: %u",
163                         pntohs(&pd[offset + 8]));
164     length = pntohs(&pd[offset + 10]);
165     proto_tree_add_text(tree, offset + 10, 2, "Authenticator length: %u",
166                         length);
167     offset += 12;
168     proto_tree_add_text(tree, offset, length, "Authentication block: %s",
169                         format_text(&pd[offset], length));
170     offset += length;
171 };
172
173 /* Packet dissection routine called by tcp & udp when port 427 detected */
174
175 void
176 dissect_srvloc(const u_char *pd, int offset, frame_data *fd, proto_tree *tree)
177 {
178     proto_item *ti, *tf;
179     proto_tree *srvloc_tree, *srvloc_flags;
180     struct srvloc_hdr srvloc_hdr;
181     int count;
182     int length;
183     
184     if (check_col(fd, COL_PROTOCOL))
185         col_add_str(fd, COL_PROTOCOL, "SRVLOC");
186     
187     if (check_col(fd, COL_INFO))
188         col_add_str(fd, COL_INFO, val_to_str(pd[offset + 1], srvloc_functions, "Unknown Function (%d)"));
189         
190     if (tree) {
191         ti = proto_tree_add_item(tree, proto_srvloc, offset, END_OF_FRAME, NULL);
192         srvloc_tree = proto_item_add_subtree(ti, ett_srvloc);
193     
194         if ( END_OF_FRAME > sizeof(srvloc_hdr) ) {
195             memcpy( &srvloc_hdr, &pd[offset], sizeof(srvloc_hdr) );
196             srvloc_hdr.length = pntohs(&srvloc_hdr.length);
197             srvloc_hdr.encoding = pntohs(&srvloc_hdr.encoding);
198             srvloc_hdr.xid = pntohs(&srvloc_hdr.xid);
199             proto_tree_add_item(srvloc_tree, hf_srvloc_version, offset, 1, srvloc_hdr.version);
200             proto_tree_add_item(srvloc_tree, hf_srvloc_function, offset + 1, 1, srvloc_hdr.function);
201             proto_tree_add_text(srvloc_tree, offset + 2, 2, "Length: %d",srvloc_hdr.length);
202             tf = proto_tree_add_item(srvloc_tree, hf_srvloc_flags, offset + 4, 1, srvloc_hdr.flags);
203             srvloc_flags = proto_item_add_subtree(tf, ett_srvloc_flags);
204             proto_tree_add_text(srvloc_flags, offset + 4, 0, "Overflow                          %d... .xxx", (srvloc_hdr.flags & FLAG_O) >> 7 );
205             proto_tree_add_text(srvloc_flags, offset + 4, 0, "Monolingual                       .%d.. .xxx", (srvloc_hdr.flags & FLAG_M) >> 6 ); 
206             proto_tree_add_text(srvloc_flags, offset + 4, 0, "URL Authentication Present        ..%d. .xxx", (srvloc_hdr.flags & FLAG_U) >> 5 );
207             proto_tree_add_text(srvloc_flags, offset + 4, 0, "Attribute Authentication Present  ...%d .xxx", (srvloc_hdr.flags & FLAG_A) >> 4 );
208             proto_tree_add_text(srvloc_flags, offset + 4, 0, "Fresh Service Entry               .... %dxxx", (srvloc_hdr.flags & FLAG_F) >> 3 );
209             proto_tree_add_text(srvloc_tree, offset + 5, 1, "Dialect: %d",srvloc_hdr.dialect); 
210             proto_tree_add_text(srvloc_tree, offset + 6, 2, "Language: %s", format_text(srvloc_hdr.language,2));
211             proto_tree_add_text(srvloc_tree, offset + 8, 2, "Encoding: %d", srvloc_hdr.encoding);
212             proto_tree_add_text(srvloc_tree, offset + 10, 2, "Transaction ID: %d", srvloc_hdr.xid);
213             offset += 12;
214         } else {
215         proto_tree_add_text(srvloc_tree, offset, END_OF_FRAME, "Invalid Packet: Length less than header.");
216         };
217         
218         if (( srvloc_hdr.length - 12 ) == END_OF_FRAME ) {
219             switch (srvloc_hdr.function) {
220                 case SRVREQ:
221                     proto_tree_add_text(srvloc_tree, offset, 0, "Service Request");
222                     length = pntohs(&pd[offset]);
223                     proto_tree_add_text(srvloc_tree, offset, 2, "Previous Response List Length: %d", length);
224                     offset += 2;
225                     proto_tree_add_text(srvloc_tree, offset, length, "Previous Response List: %s", format_text(&pd[offset], length)); 
226                     offset += length;
227                     length = pntohs(&pd[offset]);
228                     proto_tree_add_text(srvloc_tree, offset, 2, "Predicate length: %d", length);
229                     offset += 2;
230                     proto_tree_add_text(srvloc_tree, offset, length, "Predicate: %s", format_text(&pd[offset], length));
231                     offset += length;
232                 break;
233             
234                 case SRVRPLY:
235                     proto_tree_add_text(srvloc_tree, offset, 0, "Service Reply");
236                     proto_tree_add_item(srvloc_tree, hf_srvloc_error, offset, 2, pd[offset]);;
237                     offset += 2;
238                     proto_tree_add_text(srvloc_tree, offset, 2, "URL Count: %d", pntohs(&pd[offset]));
239                     offset += 2;
240                     for (count = pntohs(&pd[offset]) + 1; count > 0; count--, offset++) {
241                         proto_tree_add_text(srvloc_tree, offset, 2, "URL lifetime: %d", pntohs(&pd[offset]));
242                         offset += 2;
243                         length = pntohs(&pd[offset]);
244                         proto_tree_add_text(srvloc_tree, offset, 2, "URL length: %d", length);
245                         offset += 2;
246                         proto_tree_add_text(srvloc_tree, offset, length, "Service URL: %s", format_text(&pd[offset], length));
247                         offset += length;
248                         if ( (srvloc_hdr.flags & FLAG_U) == FLAG_U ) 
249                             dissect_authblk(pd, offset, fd, srvloc_tree);
250                     };
251                 break;
252
253                 case SRVREG:
254                     proto_tree_add_text(srvloc_tree, offset, 0, "Service Registration");
255                     proto_tree_add_text(srvloc_tree, offset, 2, "URL lifetime: %d", pntohs(&pd[offset]));
256                     offset += 2;
257                     length = pntohs(&pd[offset]);
258                     proto_tree_add_text(srvloc_tree, offset, 2, "URL length: %d", length);
259                     offset += 2;
260                     proto_tree_add_text(srvloc_tree, offset, length, "Service URL: %s", format_text(&pd[offset], length));
261                     offset += length;
262                     if ( (srvloc_hdr.flags & FLAG_U) == FLAG_U ) 
263                         dissect_authblk(pd, offset, fd, srvloc_tree);
264                     length = pntohs(&pd[offset]);
265                     proto_tree_add_text(srvloc_tree, offset, 2, "Attribute List length: %d", length);
266                     offset += 2;
267                     proto_tree_add_text(srvloc_tree, offset, length, "Attribute List: %s", format_text(&pd[offset], length));
268                     offset += length;
269                     if ( (srvloc_hdr.flags & FLAG_A) == FLAG_A ) 
270                         dissect_authblk(pd, offset, fd, srvloc_tree);
271                 break;
272
273                 case SRVDEREG:
274                     proto_tree_add_text(srvloc_tree, offset, 0, "Service Deregister");
275                     length = pntohs(&pd[offset]);
276                     proto_tree_add_text(srvloc_tree, offset, 2, "URL length: %d", length);
277                     offset += 2;
278                     proto_tree_add_text(srvloc_tree, offset, length, "Service URL: %s", format_text(&pd[offset], length));
279                     offset += length;
280                     if ( (srvloc_hdr.flags & FLAG_U) == FLAG_U ) 
281                         dissect_authblk(pd, offset, fd, srvloc_tree);
282                     length = pntohs(&pd[offset]);
283                     proto_tree_add_text(srvloc_tree, offset, 2, "Attribute List length: %d", length);
284                     offset += 2;
285                     proto_tree_add_text(srvloc_tree, offset, length, "Attribute List: %s", format_text(&pd[offset], length));
286                     offset += length;
287                     if ( (srvloc_hdr.flags & FLAG_A) == FLAG_A ) 
288                         dissect_authblk(pd, offset, fd, srvloc_tree);
289                 break;
290             
291                 case SRVACK:
292                     proto_tree_add_text(srvloc_tree, offset, 0, "Service Acknowledge");
293                     proto_tree_add_item(srvloc_tree, hf_srvloc_error, offset, 2, pd[offset]);;
294                     offset += 2;
295                 break;
296
297                 case ATTRRQST:
298                     proto_tree_add_text(srvloc_tree, offset, 0, "Attribute Request");
299                     length = pntohs(&pd[offset]);
300                     proto_tree_add_text(srvloc_tree, offset, 2, "Previous Response List Length: %d", length);
301                     offset += 2;
302                     proto_tree_add_text(srvloc_tree, offset, length, "Previous Response List: %s", format_text(&pd[offset], length)); 
303                     offset += length;
304                     length = pntohs(&pd[offset]);
305                     proto_tree_add_text(srvloc_tree, offset, 2, "URL length: %d", length);
306                     offset += 2;
307                     proto_tree_add_text(srvloc_tree, offset, length, "Service URL: %s", format_text(&pd[offset], length));
308                     offset += length;
309                     length = pntohs(&pd[offset]);
310                     proto_tree_add_text(srvloc_tree, offset, 2, "Scope List Length: %d", length);
311                     offset += 2;
312                     proto_tree_add_text(srvloc_tree, offset, length, "Scope Response List: %s", format_text(&pd[offset], length)); 
313                     offset += length;
314                     length = pntohs(&pd[offset]);
315                     proto_tree_add_text(srvloc_tree, offset, 2, "Attribute List length: %d", length);
316                     offset += 2;
317                     proto_tree_add_text(srvloc_tree, offset, length, "Attribute List: %s", format_text(&pd[offset], length));
318                     offset += length;
319                 break;
320             
321                 case ATTRRPLY:
322                     proto_tree_add_text(srvloc_tree, offset, 0, "Attribute Reply");
323                     proto_tree_add_item(srvloc_tree, hf_srvloc_error, offset, 2, pd[offset]);;
324                     offset += 2;
325                     length = pntohs(&pd[offset]);
326                     proto_tree_add_text(srvloc_tree, offset, 2, "Attribute List length: %d", length);
327                     offset += 2;
328                     proto_tree_add_text(srvloc_tree, offset, length, "Attribute List: %s", format_text(&pd[offset], length));
329                     offset += length;
330                     if ( (srvloc_hdr.flags & FLAG_A) == FLAG_A ) 
331                         dissect_authblk(pd, offset, fd, srvloc_tree);
332                 break;
333             
334                 case DAADVERT:
335                     proto_tree_add_text(srvloc_tree, offset, 0, "DA Advertisement");
336                     proto_tree_add_item(srvloc_tree, hf_srvloc_error, offset, 2, pd[offset]);;
337                     offset += 2;
338                     length = pntohs(&pd[offset]);
339                     proto_tree_add_text(srvloc_tree, offset, 2, "URL length: %d", length);
340                     offset += 2;
341                     proto_tree_add_text(srvloc_tree, offset, length, "Service URL: %s", format_text(&pd[offset], length));
342                     offset += length;
343                     length = pntohs(&pd[offset]);
344                     proto_tree_add_text(srvloc_tree, offset, 2, "Scope List Length: %d", length);
345                     offset += 2;
346                     proto_tree_add_text(srvloc_tree, offset, length, "Scope Response List: %s", format_text(&pd[offset], length)); 
347                     offset += length;
348                 break;
349
350                 case SRVTYPERQST:
351                     proto_tree_add_text(srvloc_tree, offset, 0, "Service Type Request");
352                     length = pntohs(&pd[offset]);
353                     proto_tree_add_text(srvloc_tree, offset, 2, "Previous Response List Length: %d", length);
354                     offset += 2;
355                     proto_tree_add_text(srvloc_tree, offset, length, "Previous Response List: %s", format_text(&pd[offset], length)); 
356                     offset += length;
357                     length = pntohs(&pd[offset]);
358                     proto_tree_add_text(srvloc_tree, offset, 2, "Naming Authority List length: %d", length);
359                     offset += 2;
360                     proto_tree_add_text(srvloc_tree, offset, length, "Naming Authority List: %s", format_text(&pd[offset], length)); 
361                     offset += length;
362                     length = pntohs(&pd[offset]);
363                     proto_tree_add_text(srvloc_tree, offset, 2, "Scope List Length: %d", length);
364                     offset += 2;
365                     proto_tree_add_text(srvloc_tree, offset, length, "Scope Response List: %s", format_text(&pd[offset], length)); 
366                     offset += length;
367                 break;
368
369                 case SRVTYPERPLY:
370                     proto_tree_add_text(srvloc_tree, offset, 0, "Service Type Reply");
371                     proto_tree_add_item(srvloc_tree, hf_srvloc_error, offset, 2, pd[offset]);;
372                     offset += 2;
373                     proto_tree_add_text(srvloc_tree, offset, 2, "Service Type Count: %d", pntohs(&pd[offset]));
374                     offset += 2;
375                     for (count = pntohs(&pd[offset]) + 1; count > 0; count--, offset++) {
376                         length = pntohs(&pd[offset]);
377                         proto_tree_add_text(srvloc_tree, offset, 2, "Service Type List length: %d", length);
378                         offset += 2;
379                         proto_tree_add_text(srvloc_tree, offset, length, "Service Type List: %s", format_text(&pd[offset], length));
380                         offset += length;
381                     };
382                 break;
383
384                 default:
385                     proto_tree_add_text(srvloc_tree, offset, END_OF_FRAME, "Unknown Function Type");
386             };
387         } else { proto_tree_add_text(srvloc_tree, offset, END_OF_FRAME,"Invalid packet: Bad length value");
388         };        
389     };
390 };
391
392 /* Register protocol with Ethereal. */
393
394 void
395 proto_register_srvloc(void)
396 {
397     static hf_register_info hf[] = {
398         { &hf_srvloc_version,
399             { "Version",           "srvloc.version",
400             FT_UINT8, BASE_DEC, NULL, 0x0,
401             "" }
402         },
403       
404         {&hf_srvloc_function,
405             {"Function", "srvloc.function", 
406             FT_UINT8, BASE_DEC, VALS(srvloc_functions), 0x0, 
407             ""}
408         },
409
410         {&hf_srvloc_flags,
411             {"Flags", "srvloc.flags", 
412             FT_UINT8, BASE_HEX, NULL, 0x0, 
413             ""}
414         },
415         
416         {&hf_srvloc_error,
417             {"Error Code", "srvloc.err",
418             FT_UINT8, BASE_DEC, VALS(srvloc_errs), 0x0,
419             ""}
420         },
421    };
422                   
423    static gint *ett[] = {
424       &ett_srvloc,
425       &ett_srvloc_flags,
426    };
427
428     proto_srvloc = proto_register_protocol("Service Location Protocol", "srvloc");
429     proto_register_field_array(proto_srvloc, hf, array_length(hf));
430     proto_register_subtree_array(ett, array_length(ett));
431 };