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).
25 #include <sys/types.h>
28 extern char *strdup();
32 #define TPCDOMAIN "tpc.int"
35 * Remove everything from 'str' which is not a digit
37 void strip_nonnum(str)
48 if (isdigit((u_char) *p)) {
61 * Remove anything of the form (blah) where
62 * "blah" contains a non-numeric character.
64 char *remove_parens(ibuf, obuf)
75 /* look for a closing paren */
76 if (( s = strchr(p, ')')) != NULL) {
77 /* Check the string between p and s */
78 /* for non-numeric characters */
81 if (!isdigit((u_char) *t)) {
89 /* when we get here, p points to the first */
90 /* thing we want to keep, t to the last. */
95 /* no closing paren, what to do? keep it */
101 /* not a paren - copy out */
107 *q = '\0'; /* terminate output string */
115 * Apply local fixups to phone numbers here. Replace this routine
116 * with code to expand common "abbreviations" for phone numbers. For
117 * example, on the U-M campus, it's only necessary to dial the last
118 * 5 digits of the telephone number, and hence people here tend to
119 * give only the last 5 digits of their fax numbers.
122 * If exactly 5 digits were provided, assume it's a campus
123 * phone number and prepend "1313nm" where "mn" are computed
124 * according to the following:
129 * 3 76 e.g. "31234" -> "7631234"
135 char *munge_phone(ibuf, obuf)
139 #define UMAREACODE "1313"
143 if (strlen(ibuf) == 7) {
144 /* Assume local number w/o area code */
145 sprintf(obuf, "%s%s", UMAREACODE, ibuf);
148 if (strlen(ibuf) == 10) {
149 /* Assume local number with area code */
150 sprintf(obuf, "%s%s", "1", ibuf);
153 if (strlen(ibuf) != 5) {
154 /* Not 5 digits - leave alone */
161 case '4' : strcpy(prefix, "76");
163 case '7' : strcpy(prefix, "74");
165 case '6' : strcpy(prefix, "93");
167 case '8' : strcpy(prefix, "99");
169 default : /* Unknown, leave alone */
173 sprintf(obuf, "%s%s%s", UMAREACODE, prefix, ibuf);
185 * Convert string to "tpc.int" domain name.
187 char *faxtotpc(phone, userinfo)
198 for (p = ibuf, q = obuf; *p != '\0'; p++) {
207 remove_parens(ibuf, obuf);
210 /* Look for "+" - if followed by a number,
211 assume it's an international number and leave
214 if ((p = strchr(ibuf, '+')) != NULL) {
215 if (isdigit((u_char) *(p + 1))) {
216 /* strip any non-digits */
222 /* Apply local munges */
223 munge_phone(ibuf, obuf);
227 /* Convert string of form abcd to remote-printer@d.c.b.a.tpc.int */
229 for (p = ibuf + strlen(ibuf) - 1; p >= ibuf; p--) {
235 strcpy(obuf, "remote-printer");
237 /* include userinfo if present */
238 if (userinfo != NULL && strlen(userinfo)) {
240 strcat(obuf, userinfo);
243 strcat(obuf, ibuf); /* tack on reversed phone number */
244 strcat(obuf, TPCDOMAIN); /* tack on domain name */