freeswan/lib/satoa.c

   1 /*
   2  * convert from binary form of SA ID to ASCII
   3  * Copyright (C) 1998, 1999, 2001  Henry Spencer.
   4  *
   5  * This library is free software; you can redistribute it and/or modify it
   6  * under the terms of the GNU Library General Public License as published by
   7  * the Free Software Foundation; either version 2 of the License, or (at your
   8  * option) any later version.  See <http://www.fsf.org/copyleft/lgpl.txt>.
   9  *
  10  * This library is distributed in the hope that it will be useful, but
  11  * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  12  * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library General Public
  13  * License for more details.
  14  *
  15  * RCSID $Id: satoa.c,v 1.12 2001/09/25 00:09:51 rgb Exp $
  16  */
  17 #include "internal.h"
  18 #include "freeswan.h"
  19
  20 static struct typename {
  21         char type;
  22         char *name;
  23 } typenames[] = {
  24         { SA_AH,        "ah" },
  25         { SA_ESP,       "esp" },
  26         { SA_IPIP,      "tun" },
  27         { SA_COMP,      "comp" },
  28         { SA_INT,       "int" },
  29         { 0,            NULL }
  30 };
  31
  32 /*
  33  - satoa - convert SA to ASCII "ah507@1.2.3.4"
  34  */
  35 size_t                          /* space needed for full conversion */
  36 satoa(sa, format, dst, dstlen)
  37 struct sa_id sa;
  38 int format;                     /* character */
  39 char *dst;                      /* need not be valid if dstlen is 0 */
  40 size_t dstlen;
  41 {
  42         size_t len = 0;         /* 0 means not handled yet */
  43         int base;
  44         struct typename *tn;
  45         char buf[30+ADDRTOA_BUF];
  46
  47         switch (format) {
  48         case 0:
  49                 base = 16;      /* temporarily at least */
  50                 break;
  51         case 'd':
  52                 base = 10;
  53                 break;
  54         default:
  55                 return 0;
  56                 break;
  57         }
  58
  59         for (tn = typenames; tn->name != NULL; tn++)
  60                 if (sa.proto == tn->type)
  61                         break;
  62         if (tn->name == NULL)
  63                 return 0;
  64
  65         if (strcmp(tn->name, PASSTHROUGHTYPE) == 0 &&
  66                                         sa.spi == PASSTHROUGHSPI &&
  67                                         sa.dst.s_addr == PASSTHROUGHDST) {
  68                 strcpy(buf, PASSTHROUGHNAME);
  69                 len = strlen(buf);
  70         } else if (sa.proto == SA_INT && sa.dst.s_addr == 0) {
  71                 char *p;
  72
  73                 switch (ntohl(sa.spi)) {
  74                 case SPI_PASS:  p = "%pass";    break;
  75                 case SPI_DROP:  p = "%drop";    break;
  76                 case SPI_REJECT:        p = "%reject";  break;
  77                 case SPI_HOLD:  p = "%hold";    break;
  78                 case SPI_TRAP:  p = "%trap";    break;
  79                 case SPI_TRAPSUBNET:    p = "%trapsubnet";      break;
  80                 default:        p = NULL;       break;
  81                 }
  82                 if (p != NULL) {
  83                         strcpy(buf, p);
  84                         len = strlen(buf);
  85                 }
  86         }
  87
  88         if (len == 0) {
  89                 strcpy(buf, tn->name);
  90                 len = strlen(buf);
  91                 len += ultoa(ntohl(sa.spi), base, buf+len, sizeof(buf)-len);
  92                 *(buf+len-1) = '@';
  93                 len += addrtoa(sa.dst, 0, buf+len, sizeof(buf)-len);
  94         }
  95
  96         if (dst != NULL) {
  97                 if (len > dstlen)
  98                         *(buf+dstlen-1) = '\0';
  99                 strcpy(dst, buf);
 100         }
 101         return len;
 102 }