2 * Copyright (c) 1993 Regents of the University of Michigan.
5 * Redistribution and use in source and binary forms are permitted
6 * provided that this notice is preserved and that due credit is given
7 * to the University of Michigan at Ann Arbor. The name of the University
8 * may not be used to endorse or promote products derived from this
9 * software without specific prior written permission. This software
10 * is provided ``as is'' without express or implied warranty.
13 * Routines for parsing the facsimileTelephoneNumber field out of
14 * an X.500 entry and converting it to a "tpc.int" domain name.
19 * faxtotpc() returns a pointer to a string allocated with malloc(3).
27 #include <sys/types.h>
28 #include <ac/string.h>
30 #define TPCDOMAIN "tpc.int"
33 * Remove everything from 'str' which is not a digit
35 void strip_nonnum(str)
46 if (isdigit((u_char) *p)) {
59 * Remove anything of the form (blah) where
60 * "blah" contains a non-numeric character.
62 char *remove_parens(ibuf, obuf)
73 /* look for a closing paren */
74 if (( s = strchr(p, ')')) != NULL) {
75 /* Check the string between p and s */
76 /* for non-numeric characters */
79 if (!isdigit((u_char) *t)) {
87 /* when we get here, p points to the first */
88 /* thing we want to keep, t to the last. */
93 /* no closing paren, what to do? keep it */
99 /* not a paren - copy out */
105 *q = '\0'; /* terminate output string */
113 * Apply local fixups to phone numbers here. Replace this routine
114 * with code to expand common "abbreviations" for phone numbers. For
115 * example, on the U-M campus, it's only necessary to dial the last
116 * 5 digits of the telephone number, and hence people here tend to
117 * give only the last 5 digits of their fax numbers.
120 * If exactly 5 digits were provided, assume it's a campus
121 * phone number and prepend "1313nm" where "mn" are computed
122 * according to the following:
127 * 3 76 e.g. "31234" -> "7631234"
133 char *munge_phone(ibuf, obuf)
137 #define UMAREACODE "1313"
141 if (strlen(ibuf) == 7) {
142 /* Assume local number w/o area code */
143 sprintf(obuf, "%s%s", UMAREACODE, ibuf);
146 if (strlen(ibuf) == 10) {
147 /* Assume local number with area code */
148 sprintf(obuf, "%s%s", "1", ibuf);
151 if (strlen(ibuf) != 5) {
152 /* Not 5 digits - leave alone */
159 case '4' : strcpy(prefix, "76");
161 case '7' : strcpy(prefix, "74");
163 case '6' : strcpy(prefix, "93");
165 case '8' : strcpy(prefix, "99");
167 default : /* Unknown, leave alone */
171 sprintf(obuf, "%s%s%s", UMAREACODE, prefix, ibuf);
183 * Convert string to "tpc.int" domain name.
185 char *faxtotpc(phone, userinfo)
196 for (p = ibuf, q = obuf; *p != '\0'; p++) {
205 remove_parens(ibuf, obuf);
208 /* Look for "+" - if followed by a number,
209 assume it's an international number and leave
212 if ((p = strchr(ibuf, '+')) != NULL) {
213 if (isdigit((u_char) *(p + 1))) {
214 /* strip any non-digits */
220 /* Apply local munges */
221 munge_phone(ibuf, obuf);
225 /* Convert string of form abcd to remote-printer@d.c.b.a.tpc.int */
227 for (p = ibuf + strlen(ibuf) - 1; p >= ibuf; p--) {
233 strcpy(obuf, "remote-printer");
235 /* include userinfo if present */
236 if (userinfo != NULL && strlen(userinfo)) {
238 strcat(obuf, userinfo);
241 strcat(obuf, ibuf); /* tack on reversed phone number */
242 strcat(obuf, TPCDOMAIN); /* tack on domain name */