pppd/plugins/pppoatm/text2atm.c

   1 /* text2atm.c - Converts textual representation of ATM address to binary
   2                 encoding */
   3
   4 /* Written 1995-2000 by Werner Almesberger, EPFL-LRC/ICA */
   5
   6 #if HAVE_CONFIG_H
   7 #include <config.h>
   8 #endif
   9
  10 #include <stdio.h>
  11 #include <ctype.h>
  12 #include <string.h>
  13 #include <limits.h>
  14
  15 #include "atm.h"
  16 #include "atmsap.h"
  17 #include "atmres.h"
  18
  19
  20 static int try_pvc(const char *text,struct sockaddr_atmpvc *addr,int flags)
  21 {
  22     int part[3];
  23     int i;
  24
  25     part[0] = part[1] = part[2] = 0;
  26     i = 0;
  27     while (1) {
  28         if (!*text) return FATAL; /* empty or ends with a dot */
  29         if (i == 3) return TRY_OTHER; /* too long */
  30         if (isdigit(*text)) {
  31             if (*text == '0' && isdigit(text[1])) return TRY_OTHER;
  32                 /* no leading zeroes */
  33             do {
  34                 if (part[i] > INT_MAX/10) return TRY_OTHER;/* number too big */
  35                 part[i] = part[i]*10+*text++-'0';
  36             }
  37             while (isdigit(*text));
  38             i++;
  39             if (!*text) break;
  40             if (*text++ != '.') return TRY_OTHER; /* non-PVC character */
  41             continue;
  42         }
  43         if (*text == '*') {
  44             if (!(flags & T2A_WILDCARD)) return FATAL; /* not allowed */
  45             part[i++] = ATM_ITF_ANY; /* all *_ANY have the same value */
  46         }
  47         else {
  48             if (*text != '?') return TRY_OTHER; /* invalid character */
  49             if (!(flags & T2A_UNSPEC)) return FATAL; /* not allowed */
  50             part[i++] = ATM_VPI_UNSPEC; /* all *_UNSPEC have the same
  51                                            value */
  52         }
  53         if (!*++text) break;
  54         if (*text++ != '.') return FATAL; /* dot required */
  55     }
  56     if (i < 2) return TRY_OTHER; /* no dots */
  57     if (i == 2) {
  58         part[2] = part[1];
  59         part[1] = part[0];
  60         part[0] = 0; /* default interface */
  61     }
  62     if (part[0] > SHRT_MAX || part[2] > ATM_MAX_VCI)
  63         return TRY_OTHER; /* too big */
  64     if (part[1] > (flags & T2A_NNI ? ATM_MAX_VPI_NNI : ATM_MAX_VPI))
  65         return TRY_OTHER; /* too big */
  66     if (part[0] == ATM_VPI_UNSPEC) return FATAL; /* bad */
  67     addr->sap_family = AF_ATMPVC;
  68     addr->sap_addr.itf = part[0];
  69     addr->sap_addr.vpi = part[1];
  70     addr->sap_addr.vci = part[2];
  71     return 0;
  72 }
  73
  74
  75 static int do_try_nsap(const char *text,struct sockaddr_atmsvc *addr,int flags)
  76 {
  77     const char *walk;
  78     int count,pos,dot;
  79     int offset,len;
  80     char value;
  81
  82     count = dot = 0;
  83     for (walk = text; *walk; walk++)
  84         if (isdigit(*walk)) {
  85             if (count++ == 15) break;
  86             dot = 1;
  87         }
  88         else if (*text != '.') break;
  89             else if (!dot) return FATAL; /* two dots in a row */
  90                 else dot = 0;
  91     if (*walk != ':') {
  92         pos = 0;
  93         offset = 0;
  94     }
  95     else {
  96         if (!dot || *text == '0') return FATAL;
  97         addr->sas_addr.prv[0] = ATM_AFI_E164;
  98         addr->sas_addr.prv[1] = 0;
  99         memset(addr->sas_addr.prv+1,0,8);
 100         for (pos = 18-count-1; *text; text++) {
 101             if (*text == '.') continue;
 102             if (*text == ':') break;
 103             else {
 104                 if (pos & 1) addr->sas_addr.prv[pos >> 1] |= *text-'0';
 105                 else addr->sas_addr.prv[pos >> 1] = (*text-'0') << 4;
 106                 pos++;
 107             }
 108         }
 109         addr->sas_addr.prv[8] |= 0xf;
 110         text++;
 111         pos++;
 112         offset = 72;
 113     }
 114     for (dot = 0; *text; text++)
 115         if (isxdigit(*text)) {
 116             if (pos == ATM_ESA_LEN*2) return TRY_OTHER; /* too long */
 117             value = isdigit(*text) ? *text-'0' : (islower(*text) ?
 118               toupper(*text) : *text)-'A'+10;
 119             if (pos & 1) addr->sas_addr.prv[pos >> 1] |= value;
 120             else addr->sas_addr.prv[pos >> 1] = value << 4;
 121             pos++;
 122             dot = 1;
 123         }
 124         else
 125             if (*text == '/' && (flags & T2A_WILDCARD)) break;
 126             else if (*text != '.') return TRY_OTHER;
 127                 else {
 128                     if (!dot) return FATAL; /* two dots in a row */
 129                     dot = 0;
 130                 }
 131     if (!dot) return FATAL;
 132     if (pos > 1 && !*addr->sas_addr.prv)
 133         return TRY_OTHER; /* no leading zeroes */
 134     if (!*text)
 135         return pos != ATM_ESA_LEN*2 ? TRY_OTHER : ATM_ESA_LEN*2;
 136           /* handle bad length */
 137     len = 0;
 138     while (*++text) {
 139         if (!isdigit(*text)) return -1; /* non-digit in length */
 140         if (len >= pos*4) return -1; /* too long */
 141         len = len*10+*text-'0';
 142     }
 143     if (len > 7 && addr->sas_addr.prv[0] != ATM_AFI_E164) offset = 72;
 144     if (len < offset) return FATAL;
 145     return len > pos*4 ? TRY_OTHER : len;
 146 }
 147
 148
 149 static int try_nsap(const char *text,struct sockaddr_atmsvc *addr,int flags)
 150 {
 151     int result;
 152
 153     result = do_try_nsap(text,addr,flags);
 154     if (result < 0) return result;
 155     addr->sas_family = AF_ATMSVC;
 156     *addr->sas_addr.pub = 0;
 157     return result;
 158 }
 159
 160
 161 static int try_e164(const char *text,struct sockaddr_atmsvc *addr,int flags)
 162 {
 163     int i,dot,result;
 164
 165     if (*text == ':' || *text == '+') text++;
 166     for (i = dot = 0; *text; text++)
 167         if (isdigit(*text)) {
 168             if (i == ATM_E164_LEN) return TRY_OTHER; /* too long */
 169             addr->sas_addr.pub[i++] = *text;
 170             dot = 1;
 171         }
 172         else if (*text != '.') break;
 173             else {
 174                 if (!dot) return TRY_OTHER; /* two dots in a row */
 175                 dot = 0;
 176             }
 177     if (!dot) return TRY_OTHER;
 178     addr->sas_addr.pub[i] = 0;
 179     *addr->sas_addr.prv = 0;
 180     result = 0;
 181     if (*text) {
 182         if (*text++ != '+') return TRY_OTHER;
 183         else {
 184             result = do_try_nsap(text,addr,flags);
 185             if (result < 0) return FATAL;
 186         }
 187     }
 188     addr->sas_family = AF_ATMSVC;
 189     return result;
 190 }
 191
 192
 193 static int search(FILE *file,const char *text,struct sockaddr *addr,int length,
 194   int flags)
 195 {
 196     char line[MAX_ATM_NAME_LEN+1];
 197     const char *here;
 198     int result;
 199
 200     while (fgets(line,MAX_ATM_NAME_LEN,file)) {
 201         if (!strtok(line,"\t\n ")) continue;
 202         while ((here = strtok(NULL,"\t\n ")))
 203             if (!strcasecmp(here,text)) {
 204                 here = strtok(line,"\t\n ");
 205                 result = text2atm(here,addr,length,flags);
 206                 if (result >= 0) return result;
 207             }
 208     }
 209     return TRY_OTHER;
 210 }
 211
 212
 213 static int try_name(const char *text,struct sockaddr *addr,int length,
 214   int flags)
 215 {
 216     FILE *file;
 217     int result;
 218
 219     if (!(file = fopen(HOSTS_ATM,"r"))) return TRY_OTHER;
 220     result = search(file,text,addr,length,flags);
 221     (void) fclose(file);
 222     return result;
 223 }
 224
 225
 226 int text2atm(const char *text,struct sockaddr *addr,int length,int flags)
 227 {
 228     int result;
 229
 230     if (!*text) return -1;
 231     if (!(flags & (T2A_PVC | T2A_SVC))) flags |= T2A_PVC | T2A_SVC;
 232     if (length < sizeof(struct sockaddr_atmpvc)) return -1;
 233     if (flags & T2A_PVC) {
 234         result = try_pvc(text,(struct sockaddr_atmpvc *) addr,flags);
 235         if (result != TRY_OTHER) return result;
 236     }
 237     if ((flags & T2A_SVC) && length >= sizeof(struct sockaddr_atmsvc)) {
 238         result = try_nsap(text,(struct sockaddr_atmsvc *) addr,flags);
 239         if (result != TRY_OTHER) return result;
 240         result = try_e164(text,(struct sockaddr_atmsvc *) addr,flags);
 241         if (result != TRY_OTHER) return result;
 242     }
 243     if (!(flags & T2A_NAME)) return -1;
 244     result = try_name(text,addr,length,flags & ~T2A_NAME);
 245     if (result == TRY_OTHER && !(flags & T2A_LOCAL))
 246         result = ans_byname(text,(struct sockaddr_atmsvc *) addr,length,flags);
 247     if (result != TRY_OTHER) return result;
 248     return -1;
 249 }