home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2637 < prev    next >
Internet Message Format  |  1991-01-30  |  40KB
  1. From: mj@dfv.rwth-aachen.de (Martin Junius)
  2. Newsgroups: alt.sources
  3. Subject: FIDOGATE Part 2/6
  4. Message-ID: <mj.665055145@suntex>
  5. Date: 28 Jan 91 09:32:25 GMT
  6.  
  7. ---- Cut Here and feed the following to sh ----
  8. #!/bin/sh
  9. # This is part 02 of a multipart archive
  10. # ============= getdate.y ==============
  11. if test -f 'getdate.y' -a X"$1" != X"-c"; then
  12.     echo 'x - skipping getdate.y (File already exists)'
  13. else
  14. echo 'x - extracting getdate.y (Text)'
  15. sed 's/^X//' << 'SHAR_EOF' > 'getdate.y' &&
  16. %token ID MONTH DAY MERIDIAN NUMBER UNIT MUNIT SUNIT ZONE DAYZONE AGO
  17. %{
  18. X    /*     Originally from: Steven M. Bellovin (unc!smb)    */ 
  19. X    /*    Dept. of Computer Science            */
  20. X    /*    University of North Carolina at Chapel Hill    */
  21. X    /*    @(#)getdate.y    2.17    11/30/87            */
  22. X
  23. /* #include "defs.h" JF not used any more */
  24. #include <sys/types.h>
  25. #ifdef USG
  26. struct timeb
  27. {
  28. X    time_t    time;
  29. X    unsigned short millitm;
  30. X    short    timezone;
  31. X    short    dstflag;
  32. };
  33. #else
  34. #include <sys/timeb.h>
  35. #endif
  36. #include <ctype.h>
  37. X
  38. #if defined(BSD4_2) || defined (BSD4_1C)
  39. #include <sys/time.h>
  40. #else /* sane */
  41. #include <time.h>
  42. #endif /* sane */
  43. X
  44. #ifdef __GNUC__
  45. #define alloca __builtin_alloca
  46. #else
  47. #ifdef sparc
  48. #include <alloca.h>
  49. #endif
  50. #endif
  51. X
  52. #define    NULL    0
  53. #define daysec (24L*60L*60L)
  54. X    static int timeflag, zoneflag, dateflag, dayflag, relflag;
  55. X    static time_t relsec, relmonth;
  56. X    static int hh, mm, ss, merid, day_light;
  57. X    static int dayord, dayreq;
  58. X    static int month, day, year;
  59. X    static int ourzone;
  60. #define AM 1
  61. #define PM 2
  62. #define DAYLIGHT 1
  63. #define STANDARD 2
  64. #define MAYBE    3
  65. X
  66. static time_t timeconv();
  67. static time_t daylcorr();
  68. static lookup();
  69. X
  70. %}
  71. X
  72. %%
  73. timedate:         /* empty */
  74. X    | timedate item
  75. X    ;
  76. X
  77. item:    tspec
  78. X        {timeflag++;}
  79. X    | zone
  80. X        {zoneflag++;}
  81. X    | dtspec
  82. X        {dateflag++;}
  83. X    | dyspec
  84. X        {dayflag++;}
  85. X    | rspec
  86. X        {relflag++;}
  87. X    | nspec;
  88. X
  89. nspec:    NUMBER
  90. X        {if (timeflag && dateflag && !relflag) year = $1;
  91. X        else if ($1 > 10000) {
  92. X            dateflag++;
  93. X            day= $1%100;
  94. X            month= ($1/100)%100;
  95. X            year = month/10000;
  96. X        } else {timeflag++;hh = $1/100;mm = $1%100;ss = 0;merid = 24;}};
  97. X
  98. tspec:    NUMBER MERIDIAN
  99. X        {hh = $1; mm = 0; ss = 0; merid = $2;}
  100. X    | NUMBER ':' NUMBER
  101. X        {hh = $1; mm = $3; merid = 24;}
  102. X    | NUMBER ':' NUMBER MERIDIAN
  103. X        {hh = $1; mm = $3; merid = $4;}
  104. X    | NUMBER ':' NUMBER NUMBER
  105. X        {hh = $1; mm = $3; merid = 24;
  106. X        day_light = STANDARD; ourzone = -($4%100 + 60*($4/100));}
  107. X    | NUMBER ':' NUMBER ':' NUMBER
  108. X        {hh = $1; mm = $3; ss = $5; merid = 24;}
  109. X    | NUMBER ':' NUMBER ':' NUMBER MERIDIAN
  110. X        {hh = $1; mm = $3; ss = $5; merid = $6;}
  111. X    | NUMBER ':' NUMBER ':' NUMBER NUMBER
  112. X        {hh = $1; mm = $3; ss = $5; merid = 24;
  113. X        day_light = STANDARD; ourzone = -($6%100 + 60*($6/100));};
  114. X
  115. zone:    ZONE
  116. X        {ourzone = $1; day_light = STANDARD;}
  117. X    | DAYZONE
  118. X        {ourzone = $1; day_light = DAYLIGHT;};
  119. X
  120. dyspec:    DAY
  121. X        {dayord = 1; dayreq = $1;}
  122. X    | DAY ','
  123. X        {dayord = 1; dayreq = $1;}
  124. X    | NUMBER DAY
  125. X        {dayord = $1; dayreq = $2;};
  126. X
  127. dtspec:    NUMBER '/' NUMBER
  128. X        {month = $1; day = $3;}
  129. X    | NUMBER '/' NUMBER '/' NUMBER
  130. X        {month = $1; day = $3; year = $5;}
  131. X    | MONTH NUMBER
  132. X        {month = $1; day = $2;}
  133. X    | MONTH NUMBER ',' NUMBER
  134. X        {month = $1; day = $2; year = $4;}
  135. X    | NUMBER MONTH
  136. X        {month = $2; day = $1;}
  137. X    | NUMBER MONTH NUMBER
  138. X        {month = $2; day = $1; year = $3;};
  139. X
  140. X
  141. rspec:    NUMBER UNIT
  142. X        {relsec +=  60L * $1 * $2;}
  143. X    | NUMBER MUNIT
  144. X        {relmonth += $1 * $2;}
  145. X    | NUMBER SUNIT
  146. X        {relsec += $1;}
  147. X    | UNIT
  148. X        {relsec +=  60L * $1;}
  149. X    | MUNIT
  150. X        {relmonth += $1;}
  151. X    | SUNIT
  152. X        {relsec++;}
  153. X    | rspec AGO
  154. X        {relsec = -relsec; relmonth = -relmonth;};
  155. %%
  156. X
  157. static int mdays[12] =
  158. X    {31, 0, 31,  30, 31, 30,  31, 31, 30,  31, 30, 31};
  159. #define epoch 1970
  160. X
  161. extern struct tm *localtime();
  162. X
  163. static time_t
  164. dateconv(mm, dd, yy, h, m, s, mer, zone, dayflag)
  165. int mm, dd, yy, h, m, s, mer, zone, dayflag;
  166. {
  167. X    time_t tod, jdate;
  168. X    register int i;
  169. X
  170. X    if (yy < 0) yy = -yy;
  171. X    if (yy < 100) yy += 1900;
  172. X    mdays[1] = 28 + (yy%4 == 0 && (yy%100 != 0 || yy%400 == 0));
  173. X    if (yy < epoch || yy > 1999 || mm < 1 || mm > 12 ||
  174. X        dd < 1 || dd > mdays[--mm]) return (-1);
  175. X    jdate = dd-1;
  176. X        for (i=0; i<mm; i++) jdate += mdays[i];
  177. X    for (i = epoch; i < yy; i++) jdate += 365 + (i%4 == 0);
  178. X    jdate *= daysec;
  179. X    jdate += zone * 60L;
  180. X    if ((tod = timeconv(h, m, s, mer)) < 0) return (-1);
  181. X    jdate += tod;
  182. X    if (dayflag==DAYLIGHT || (dayflag==MAYBE&&localtime(&jdate)->tm_isdst))
  183. X        jdate += -1*60*60;
  184. X    return (jdate);
  185. }
  186. X
  187. static time_t
  188. dayconv(ord, day, now)
  189. int ord, day; time_t now;
  190. {
  191. X    register struct tm *loctime;
  192. X    time_t tod;
  193. X
  194. X    tod = now;
  195. X    loctime = localtime(&tod);
  196. X    tod += daysec * ((day - loctime->tm_wday + 7) % 7);
  197. X    tod += 7*daysec*(ord<=0?ord:ord-1);
  198. X    return daylcorr(tod, now);
  199. }
  200. X
  201. static time_t
  202. timeconv(hh, mm, ss, mer)
  203. register int hh, mm, ss, mer;
  204. {
  205. X    if (mm < 0 || mm > 59 || ss < 0 || ss > 59) return (-1);
  206. X    switch (mer) {
  207. X        case AM: if (hh < 1 || hh > 12) return(-1);
  208. X             return (60L * ((hh%12)*60L + mm)+ss);
  209. X        case PM: if (hh < 1 || hh > 12) return(-1);
  210. X             return (60L * ((hh%12 +12)*60L + mm)+ss);
  211. X        case 24: if (hh < 0 || hh > 23) return (-1);
  212. X             return (60L * (hh*60L + mm)+ss);
  213. X        default: return (-1);
  214. X    }
  215. }
  216. X
  217. static time_t
  218. monthadd(sdate, relmonth)
  219. time_t sdate, relmonth;
  220. {
  221. X    struct tm *ltime;
  222. X    time_t dateconv();
  223. X    int mm, yy;
  224. X
  225. X    if (relmonth == 0) return 0;
  226. X    ltime = localtime(&sdate);
  227. X    mm = 12*ltime->tm_year + ltime->tm_mon + relmonth;
  228. X    yy = mm/12;
  229. X    mm = mm%12 + 1;
  230. X    return daylcorr(dateconv(mm, ltime->tm_mday, yy, ltime->tm_hour,
  231. X        ltime->tm_min, ltime->tm_sec, 24, ourzone, MAYBE), sdate);
  232. }
  233. X
  234. static time_t
  235. daylcorr(future, now)
  236. time_t future, now;
  237. {
  238. X    int fdayl, nowdayl;
  239. X
  240. X    nowdayl = (localtime(&now)->tm_hour+1) % 24;
  241. X    fdayl = (localtime(&future)->tm_hour+1) % 24;
  242. X    return (future-now) + 60L*60L*(nowdayl-fdayl);
  243. }
  244. X
  245. static char *lptr;
  246. X
  247. static yylex()
  248. {
  249. X    extern int yylval;
  250. X    int sign;
  251. X    register char c;
  252. X    register char *p;
  253. X    char idbuf[20];
  254. X    int pcnt;
  255. X
  256. X    for (;;) {
  257. X        while (isspace(*lptr))
  258. X            lptr++;
  259. X
  260. X        if (isdigit(c = *lptr) || c == '-' || c == '+') {
  261. X            if (c== '-' || c == '+') {
  262. X                if (c=='-') sign = -1;
  263. X                else sign = 1;
  264. X                if (!isdigit(*++lptr)) {
  265. X                    /* yylval = sign; return (NUMBER); */
  266. X                    return yylex();    /* skip the '-' sign */
  267. X                }
  268. X            } else sign = 1;
  269. X            yylval = 0;
  270. X            while (isdigit(c = *lptr++))
  271. X                yylval = 10*yylval + c - '0';
  272. X            yylval *= sign;
  273. X            lptr--;
  274. X            return (NUMBER);
  275. X
  276. X        } else if (isalpha(c)) {
  277. X            p = idbuf;
  278. X            while (isalpha(c = *lptr++) || c=='.')
  279. X                if (p < &idbuf[sizeof(idbuf)-1]) *p++ = c;
  280. X            *p = '\0';
  281. X            lptr--;
  282. X            return (lookup(idbuf));
  283. X        }
  284. X
  285. X        else if (c == '(') {
  286. X            pcnt = 0;
  287. X            do {
  288. X                c = *lptr++;
  289. X                if (c == '\0') return(c);
  290. X                else if (c == '(') pcnt++;
  291. X                else if (c == ')') pcnt--;
  292. X            } while (pcnt > 0);
  293. X        }
  294. X
  295. X        else return (*lptr++);
  296. X    }
  297. }
  298. X
  299. struct table {
  300. X    char *name;
  301. X    int type, value;
  302. };
  303. X
  304. static struct table mdtab[] = {
  305. X    {"january", MONTH, 1},
  306. X    {"february", MONTH, 2},
  307. X    {"march", MONTH, 3},
  308. X    {"april", MONTH, 4},
  309. X    {"may", MONTH, 5},
  310. X    {"june", MONTH, 6},
  311. X    {"july", MONTH, 7},
  312. X    {"august", MONTH, 8},
  313. X    {"september", MONTH, 9},
  314. X    {"sept", MONTH, 9},
  315. X    {"october", MONTH, 10},
  316. X    {"november", MONTH, 11},
  317. X    {"december", MONTH, 12},
  318. X
  319. X    {"sunday", DAY, 0},
  320. X    {"monday", DAY, 1},
  321. X    {"tuesday", DAY, 2},
  322. X    {"tues", DAY, 2},
  323. X    {"wednesday", DAY, 3},
  324. X    {"wednes", DAY, 3},
  325. X    {"thursday", DAY, 4},
  326. X    {"thur", DAY, 4},
  327. X    {"thurs", DAY, 4},
  328. X    {"friday", DAY, 5},
  329. X    {"saturday", DAY, 6},
  330. X    {0, 0, 0}};
  331. X
  332. #define HRS *60
  333. #define HALFHR 30
  334. X
  335. static struct table mztab[] = {
  336. X    {"a.m.", MERIDIAN, AM},
  337. X    {"am", MERIDIAN, AM},
  338. X    {"p.m.", MERIDIAN, PM},
  339. X    {"pm", MERIDIAN, PM},
  340. X    {"nst", ZONE, 3 HRS + HALFHR},        /* Newfoundland */
  341. X    {"n.s.t.", ZONE, 3 HRS + HALFHR},
  342. X    {"ast", ZONE, 4 HRS},        /* Atlantic */
  343. X    {"a.s.t.", ZONE, 4 HRS},
  344. X    {"adt", DAYZONE, 4 HRS},
  345. X    {"a.d.t.", DAYZONE, 4 HRS},
  346. X    {"est", ZONE, 5 HRS},        /* Eastern */
  347. X    {"e.s.t.", ZONE, 5 HRS},
  348. X    {"edt", DAYZONE, 5 HRS},
  349. X    {"e.d.t.", DAYZONE, 5 HRS},
  350. X    {"cst", ZONE, 6 HRS},        /* Central */
  351. X    {"c.s.t.", ZONE, 6 HRS},
  352. X    {"cdt", DAYZONE, 6 HRS},
  353. X    {"c.d.t.", DAYZONE, 6 HRS},
  354. X    {"mst", ZONE, 7 HRS},        /* Mountain */
  355. X    {"m.s.t.", ZONE, 7 HRS},
  356. X    {"mdt", DAYZONE, 7 HRS},
  357. X    {"m.d.t.", DAYZONE, 7 HRS},
  358. X    {"pst", ZONE, 8 HRS},        /* Pacific */
  359. X    {"p.s.t.", ZONE, 8 HRS},
  360. X    {"pdt", DAYZONE, 8 HRS},
  361. X    {"p.d.t.", DAYZONE, 8 HRS},
  362. X    {"yst", ZONE, 9 HRS},        /* Yukon */
  363. X    {"y.s.t.", ZONE, 9 HRS},
  364. X    {"ydt", DAYZONE, 9 HRS},
  365. X    {"y.d.t.", DAYZONE, 9 HRS},
  366. X    {"hst", ZONE, 10 HRS},        /* Hawaii */
  367. X    {"h.s.t.", ZONE, 10 HRS},
  368. X    {"hdt", DAYZONE, 10 HRS},
  369. X    {"h.d.t.", DAYZONE, 10 HRS},
  370. X
  371. X    {"gmt", ZONE, 0 HRS},
  372. X    {"g.m.t.", ZONE, 0 HRS},
  373. X    {"bst", DAYZONE, 0 HRS},        /* British Summer Time */
  374. X    {"b.s.t.", DAYZONE, 0 HRS},
  375. X    {"eet", ZONE, 0 HRS},        /* European Eastern Time */
  376. X    {"e.e.t.", ZONE, 0 HRS},
  377. X    {"eest", DAYZONE, 0 HRS},    /* European Eastern Summer Time */
  378. X    {"e.e.s.t.", DAYZONE, 0 HRS},
  379. X    {"met", ZONE, -1 HRS},        /* Middle European Time */
  380. X    {"m.e.t.", ZONE, -1 HRS},
  381. X    {"mest", DAYZONE, -1 HRS},    /* Middle European Summer Time */
  382. X    {"m.e.s.t.", DAYZONE, -1 HRS},
  383. X    {"wet", ZONE, -2 HRS },        /* Western European Time */
  384. X    {"w.e.t.", ZONE, -2 HRS },
  385. X    {"west", DAYZONE, -2 HRS},    /* Western European Summer Time */
  386. X    {"w.e.s.t.", DAYZONE, -2 HRS},
  387. X
  388. X    {"jst", ZONE, -9 HRS},        /* Japan Standard Time */
  389. X    {"j.s.t.", ZONE, -9 HRS},    /* Japan Standard Time */
  390. X                    /* No daylight savings time */
  391. X
  392. X    {"aest", ZONE, -10 HRS},    /* Australian Eastern Time */
  393. X    {"a.e.s.t.", ZONE, -10 HRS},
  394. X    {"aesst", DAYZONE, -10 HRS},    /* Australian Eastern Summer Time */
  395. X    {"a.e.s.s.t.", DAYZONE, -10 HRS},
  396. X    {"acst", ZONE, -(9 HRS + HALFHR)},    /* Australian Central Time */
  397. X    {"a.c.s.t.", ZONE, -(9 HRS + HALFHR)},
  398. X    {"acsst", DAYZONE, -(9 HRS + HALFHR)},    /* Australian Central Summer */
  399. X    {"a.c.s.s.t.", DAYZONE, -(9 HRS + HALFHR)},
  400. X    {"awst", ZONE, -8 HRS},        /* Australian Western Time */
  401. X    {"a.w.s.t.", ZONE, -8 HRS},    /* (no daylight time there, I'm told */
  402. X    {0, 0, 0}};
  403. X
  404. static struct table unittb[] = {
  405. X    {"year", MUNIT, 12},
  406. X    {"month", MUNIT, 1},
  407. X    {"fortnight", UNIT, 14*24*60},
  408. X    {"week", UNIT, 7*24*60},
  409. X    {"day", UNIT, 1*24*60},
  410. X    {"hour", UNIT, 60},
  411. X    {"minute", UNIT, 1},
  412. X    {"min", UNIT, 1},
  413. X    {"second", SUNIT, 1},
  414. X    {"sec", SUNIT, 1},
  415. X    {0, 0, 0}};
  416. X
  417. static struct table othertb[] = {
  418. X    {"tomorrow", UNIT, 1*24*60},
  419. X    {"yesterday", UNIT, -1*24*60},
  420. X    {"today", UNIT, 0},
  421. X    {"now", UNIT, 0},
  422. X    {"last", NUMBER, -1},
  423. X    {"this", UNIT, 0},
  424. X    {"next", NUMBER, 2},
  425. X    {"first", NUMBER, 1},
  426. X    /* {"second", NUMBER, 2}, */
  427. X    {"third", NUMBER, 3},
  428. X    {"fourth", NUMBER, 4},
  429. X    {"fifth", NUMBER, 5},
  430. X    {"sixth", NUMBER, 6},
  431. X    {"seventh", NUMBER, 7},
  432. X    {"eigth", NUMBER, 8},
  433. X    {"ninth", NUMBER, 9},
  434. X    {"tenth", NUMBER, 10},
  435. X    {"eleventh", NUMBER, 11},
  436. X    {"twelfth", NUMBER, 12},
  437. X    {"ago", AGO, 1},
  438. X    {0, 0, 0}};
  439. X
  440. static struct table milzone[] = {
  441. X    {"a", ZONE, 1 HRS},
  442. X    {"b", ZONE, 2 HRS},
  443. X    {"c", ZONE, 3 HRS},
  444. X    {"d", ZONE, 4 HRS},
  445. X    {"e", ZONE, 5 HRS},
  446. X    {"f", ZONE, 6 HRS},
  447. X    {"g", ZONE, 7 HRS},
  448. X    {"h", ZONE, 8 HRS},
  449. X    {"i", ZONE, 9 HRS},
  450. X    {"k", ZONE, 10 HRS},
  451. X    {"l", ZONE, 11 HRS},
  452. X    {"m", ZONE, 12 HRS},
  453. X    {"n", ZONE, -1 HRS},
  454. X    {"o", ZONE, -2 HRS},
  455. X    {"p", ZONE, -3 HRS},
  456. X    {"q", ZONE, -4 HRS},
  457. X    {"r", ZONE, -5 HRS},
  458. X    {"s", ZONE, -6 HRS},
  459. X    {"t", ZONE, -7 HRS},
  460. X    {"u", ZONE, -8 HRS},
  461. X    {"v", ZONE, -9 HRS},
  462. X    {"w", ZONE, -10 HRS},
  463. X    {"x", ZONE, -11 HRS},
  464. X    {"y", ZONE, -12 HRS},
  465. X    {"z", ZONE, 0 HRS},
  466. X    {0, 0, 0}};
  467. X
  468. static 
  469. lookup(id)
  470. char *id;
  471. {
  472. #define gotit (yylval=i->value,  i->type)
  473. X
  474. X    char idvar[128];
  475. X    register char *j, *k;
  476. X    register struct table *i;
  477. X    int abbrev;
  478. X
  479. X    (void) strcpy(idvar, id);
  480. X    j = idvar;
  481. X    k = id - 1;
  482. X    while (*++k)
  483. X        *j++ = isupper(*k) ? tolower(*k) : *k;
  484. X    *j = '\0';
  485. X
  486. X    if (strlen(idvar) == 3)
  487. X        abbrev = 1;
  488. X    else
  489. X        if (strlen(idvar) == 4 && idvar[3] == '.') {
  490. X            abbrev = 1;
  491. X            idvar[3] = '\0';
  492. X        }
  493. X    else
  494. X        abbrev = 0;
  495. X
  496. X    for (i = mdtab; i->name; i++) {
  497. X        k = idvar;
  498. X        for (j = i->name; *j++ == *k++;) {
  499. X            if (abbrev && j == i->name+3)
  500. X                return gotit;
  501. X            if (j[-1] == 0)
  502. X                return gotit;
  503. X        }
  504. X    }
  505. X
  506. X    for (i = mztab; i->name; i++)
  507. X        if (strcmp(i->name, idvar) == 0)
  508. X            return gotit;
  509. X
  510. X    for (i=mztab; i->name; i++)
  511. X        if (strcmp(i->name, idvar) == 0)
  512. X            return gotit;
  513. X
  514. X    for (i=unittb; i->name; i++)
  515. X        if (strcmp(i->name, idvar) == 0)
  516. X            return gotit;
  517. X
  518. X    if (idvar[strlen(idvar)-1] == 's')
  519. X        idvar[strlen(idvar)-1] = '\0';
  520. X
  521. X    for (i=unittb; i->name; i++)
  522. X        if (strcmp(i->name, idvar) == 0)
  523. X            return gotit;
  524. X
  525. X    for (i = othertb; i->name; i++)
  526. X        if (strcmp(i->name, idvar) == 0)
  527. X            return gotit;
  528. X
  529. X    if (strlen(idvar) == 1 && isalpha(*idvar)) {
  530. X        for (i = milzone; i->name; i++)
  531. X            if (strcmp(i->name, idvar) == 0)
  532. X                return gotit;
  533. X    }
  534. X
  535. X    return ID;
  536. }
  537. X
  538. time_t
  539. getdate(p, now)
  540. char *p;
  541. struct timeb *now;
  542. {
  543. #define mcheck(f)    if (f>1) err++
  544. X    time_t monthadd();
  545. X    int err;
  546. X    struct tm *lt;
  547. X    struct timeb ftz;
  548. X
  549. X    time_t sdate, tod;
  550. X
  551. X    lptr = p;
  552. X    if (now == ((struct timeb *) NULL)) {
  553. X        now = &ftz;
  554. X        ftime(&ftz);
  555. X    }
  556. X    lt = localtime(&now->time);
  557. X    year = lt->tm_year;
  558. X    month = lt->tm_mon+1;
  559. X    day = lt->tm_mday;
  560. X    relsec = 0; relmonth = 0;
  561. X    timeflag=zoneflag=dateflag=dayflag=relflag=0;
  562. X    ourzone = now->timezone;
  563. X    day_light = MAYBE;
  564. X    hh = mm = ss = 0;
  565. X    merid = 24;
  566. X
  567. X    if (err = yyparse()) return (-1);
  568. X
  569. X    mcheck(timeflag);
  570. X    mcheck(zoneflag);
  571. X    mcheck(dateflag);
  572. X    mcheck(dayflag);
  573. X
  574. X    if (err) return (-1);
  575. X    if (dateflag || timeflag || dayflag) {
  576. X        sdate = dateconv(month,day,year,hh,mm,ss,merid,ourzone,day_light);
  577. X        if (sdate < 0) return -1;
  578. X    }
  579. X    else {
  580. X        sdate = now->time;
  581. X        if (relflag == 0)
  582. X            sdate -= (lt->tm_sec + lt->tm_min*60 +
  583. X                lt->tm_hour*(60L*60L));
  584. X    }
  585. X
  586. X    sdate += relsec;
  587. X    sdate += monthadd(sdate, relmonth);
  588. X
  589. X    if (dayflag && !dateflag) {
  590. X        tod = dayconv(dayord, dayreq, sdate);
  591. X        sdate += tod;
  592. X    }
  593. X
  594. X    /*
  595. X    ** Have to do *something* with a legitimate -1 so it's distinguishable
  596. X    ** from the error return value.  (Alternately could set errno on error.)
  597. X    */
  598. X    return (sdate == -1) ? 0 : sdate;
  599. }
  600. X
  601. static
  602. yyerror(s)
  603. char *s;
  604. {
  605. }
  606. X
  607. #ifdef USG
  608. ftime(timeb)
  609. struct timeb *timeb;
  610. {
  611. X    extern long timezone;
  612. X    extern int daylight;
  613. X    long t = 0;
  614. X
  615. X    localtime(&t);    /* Dummy to init timzeone */
  616. X    ctime(&t);        /* Dummy to init timzeone (XENIX) */
  617. X    time(&(timeb->time));
  618. X    timeb->millitm=0;
  619. X    timeb->timezone=timezone/60;    /* Timezone is in seconds! */
  620. X    timeb->dstflag=daylight;
  621. }
  622. #endif
  623. SHAR_EOF
  624. chmod 0644 getdate.y ||
  625. echo 'restore of getdate.y failed'
  626. Wc_c="`wc -c < 'getdate.y'`"
  627. test 13426 -eq "$Wc_c" ||
  628.     echo 'getdate.y: original size 13426, current size' "$Wc_c"
  629. fi
  630. # ============= frecv ==============
  631. if test -f 'frecv' -a X"$1" != X"-c"; then
  632.     echo 'x - skipping frecv (File already exists)'
  633. else
  634. echo 'x - extracting frecv (Text)'
  635. sed 's/^X//' << 'SHAR_EOF' > 'frecv' &&
  636. :
  637. #!/bin/sh
  638. #
  639. # $Id: frecv.sh,v 1.4 91/01/27 15:36:40 mj Exp $
  640. #
  641. # This shell script feeds the msg in SPOOL/unpacked to
  642. # either rnews or rmail, depending on their destination:
  643. #
  644. #     N.xxxx  -> rnews
  645. #     M.xxxx  -> rmail
  646. #
  647. # Must be used after fido mail packets were processed
  648. # with funpack.
  649. #
  650. X
  651. SPOOL=/u/spool/fidonet
  652. X
  653. #
  654. # Test for addresses allowed to FIDONET users
  655. #
  656. #     name
  657. #     name@hippo
  658. #     name@hippo.uucp
  659. #     name@slcdec               (UUCP feed)
  660. #     name@system.domain.de     (DNet)
  661. #
  662. name="[#$%&*+-/0-9=?A-Z_a-z.]+"
  663. pattern1="^${name}$"
  664. pattern2="^${name}@hippo(\.uucp)?$"
  665. pattern3="^${name}@${name}\.de$"
  666. pattern4="^${name}@slcdec$"
  667. pattern="$pattern1 $pattern2 $pattern3 $pattern4"
  668. addrok="no"
  669. X
  670. testaddr() {
  671. X    addrok="no"
  672. X    for p in $pattern
  673. X    do
  674. X        echo $1 | egrep "$p" >/dev/null
  675. X        if [ $? -eq 0 ]; then addrok="yes"; break; fi
  676. X    done
  677. }
  678. X
  679. X
  680. X
  681. cd ${SPOOL}/unpacked
  682. X
  683. #
  684. # Process news messages
  685. #
  686. for f in N.*
  687. do
  688. X    if [ -f $f ]
  689. X    then
  690. X        rnews < $f
  691. X        status=$?
  692. X        if [ $status -eq 0 ]
  693. X        then
  694. X            rm -f $f
  695. X        else
  696. X            mv $f ../bad
  697. X        fi
  698. X    fi
  699. done
  700. X
  701. #
  702. # Process messages for mail
  703. #
  704. for f in M.*
  705. do
  706. X    if [ -f $f ]
  707. X    then
  708. X        set X `sed <$f -n -e '/^To:/{' -e 's/To: *//p' -e q -e '}'`
  709. X        shift
  710. X        set X "$@" `sed <$f -n -e '/^Cc:/{' -e 's/Cc: *//p' -e q -e '}'`
  711. X        shift
  712. X        set X "$@" `sed <$f -n -e '/^Bcc:/{' -e 's/Bcc: *//p' -e q -e '}'`
  713. X        shift
  714. X        recv=`echo $@ | sed -e 's/ *(.*)//g'`
  715. X        for i in $recv
  716. X        do
  717. X            testaddr $i
  718. X            if [ $addrok = "no" ]; then break; fi
  719. X        done
  720. X        if [ $addrok = "yes" ]; then
  721. X            rmail $recv < $f
  722. X            status=$?
  723. X            if [ $status -eq 0 ]
  724. X            then
  725. X                rm -f $f
  726. X            else
  727. X                mv $f ../bad
  728. X            fi
  729. X        else
  730. X            mv $f ../bad
  731. X        fi
  732. X    fi
  733. done
  734. X
  735. Xexit 0
  736. SHAR_EOF
  737. chmod 0755 frecv ||
  738. echo 'restore of frecv failed'
  739. Wc_c="`wc -c < 'frecv'`"
  740. test 1655 -eq "$Wc_c" ||
  741.     echo 'frecv: original size 1655, current size' "$Wc_c"
  742. fi
  743. # ============= config.h ==============
  744. if test -f 'config.h' -a X"$1" != X"-c"; then
  745.     echo 'x - skipping config.h (File already exists)'
  746. else
  747. echo 'x - extracting config.h (Text)'
  748. sed 's/^X//' << 'SHAR_EOF' > 'config.h' &&
  749. /*:ts=4*/
  750. /*****************************************************************************
  751. X * FIDOGATE --- Gateway software UNIX <-> FIDO
  752. X *
  753. X * $Id: config.h,v 1.14 91/01/05 13:05:29 mj Exp $
  754. X *
  755. X * Configuration header file
  756. X *
  757. X * $Log:    config.h,v $
  758. X * Revision 1.14  91/01/05  13:05:29  mj
  759. X * Changed domain name to ".dfv.rwth-aachen.de"
  760. X * 
  761. X * Revision 1.13  90/12/10  16:33:31  mj
  762. X * Moved define of LOCK_LOCKF from Makefile to config.h.
  763. X * 
  764. X * Revision 1.12  90/12/09  17:32:03  mj
  765. X * New #define's for mail forwarding in rmail (UUCPFEED). Removed
  766. X * GATEWAY definition.
  767. X * 
  768. X * Revision 1.11  90/12/02  21:21:44  mj
  769. X * Changed program header to mention both authors of the original
  770. X * software posted to alt.sources.
  771. X * 
  772. X * Revision 1.10  90/12/01  17:48:26  mj
  773. X * Removed unnecessary #defines of JUNK and JUNK_AREA.
  774. X * 
  775. X * Revision 1.9  90/11/23  21:51:19  mj
  776. X * Removed #define's of INT16 and SWAB_BYTES. Not necessary any more
  777. X * because of the rewrite of fpack.
  778. X * 
  779. X * Revision 1.8  90/11/05  20:49:31  mj
  780. X * Changed my signature in all program headers.
  781. X * 
  782. X * Revision 1.7  90/09/16  17:35:27  mj
  783. X * Changed FIDODOMAIN to ".fidonet.org".
  784. X * 
  785. X * Revision 1.6  90/09/03  17:50:45  mj
  786. X * Changed to new address.
  787. X * 2:242/6.1  aka  6000/1
  788. X * 
  789. X * Revision 1.5  90/08/12  14:13:31  mj
  790. X * Added definition for FIDO MSGID sequencer (MSGIDSEQ).
  791. X * 
  792. X * Revision 1.4  90/07/30  20:00:16  mj
  793. X * Added support for new style FIDO addresses:
  794. X *     p<point>.f<node>.n<net>.z<zone>.FIDODOMAIN
  795. X * FIDODOMAIN is defined in config.h
  796. X * 
  797. X * Revision 1.3  90/07/15  10:22:15  mj
  798. X * Changed MAX_LINELEN to 80.
  799. X * 
  800. X * Revision 1.2  90/06/28  22:03:53  mj
  801. X * Much rework of the sources, no more hsu.h and other clean up.
  802. X * rmail improved, now handles special XENIX quirks.
  803. X * 
  804. X * Revision 1.1  90/06/21  21:06:05  mj
  805. X * Everything seems to work, so this delta was made.
  806. X * 
  807. X * Revision 1.0  90/06/21  18:52:36  mj
  808. X * Initial revision
  809. X * 
  810. X *
  811. X *****************************************************************************
  812. X * This version hacked and maintained by:
  813. X *    _____ _____
  814. X *   |     |___  |   Martin Junius     FIDO:    2:242/6.1   2:242/6.0
  815. X *   | | | |   | |   Republikplatz 3   DOMAIN:  mju@dfv.rwth-aachen.de
  816. X *   |_|_|_|_____|   D-5100 Aachen     Tel. (Voice) 0241-86931
  817. X *
  818. X * Original version of these programs and files:
  819. X *
  820. X *   Teemu Torma
  821. X *   Heikki Suonsivu   FIDO: 2:504/1   UUCP: ...!mcsun!santra!hsu
  822. X *
  823. X *****************************************************************************/
  824. X
  825. /*
  826. X * This is our net and node number
  827. X *
  828. X * We're 2:242/6.1 with fake address 2:6000/1
  829. X */
  830. #define REAL_ZONE        2
  831. #define REAL_REGION        24
  832. #define REAL_NET        242
  833. #define REAL_NODE        6
  834. #define REAL_POINT        1
  835. X
  836. #define MY_ZONE            2
  837. #define MY_REGION        24
  838. #define MY_NET            6000
  839. #define MY_NODE            1
  840. #define MY_POINT        0
  841. X
  842. #define MY_NAME            "Hipposoft"
  843. X
  844. X
  845. /*
  846. X * This is where our mail goes to ...
  847. X */
  848. #define REM_ZONE        2
  849. #define REM_REGION        24
  850. #define REM_NET            242
  851. #define REM_NODE        6
  852. #define REM_POINT        0
  853. #define REM_NAME        "Bossnode"
  854. X 
  855. /*
  856. X * Echo feed (currently not used)
  857. X */
  858. #define ECHOFEED_NET    242
  859. #define ECHOFEED_NODE    6
  860. X
  861. /*
  862. X * Domain suffix (added to hostname)
  863. X */
  864. #define MY_HOSTNAME        "hippo"
  865. #define MY_DOMAIN        ".dfv.rwth-aachen.de"
  866. X
  867. /*
  868. X * UUCP feed (i.e. system we send UUCP mail to)
  869. X */
  870. #define UUCPFEED        "slcdec"
  871. #define UUCPFEED_DOMAIN    ".dfv.rwth-aachen.de"
  872. X
  873. /*
  874. X * Domain suffix for FIDO net addresses
  875. X */
  876. #define FIDODOMAIN        ".fidonet.org"
  877. X
  878. /*
  879. X * Enable new style addresses
  880. X *     p<point>.f<node>.n<net>.z<zone>.FIDODOMAIN
  881. X * versus old style ones
  882. X *     <point>.<node>.<net>.<zone>.fidonet
  883. X */
  884. #define NEW_STYLE_ADDRESS                /**/
  885. X
  886. X
  887. /*
  888. X * Directories the various programs work on
  889. X */
  890. X
  891. #define SPOOL            "/u/spool/fidonet"            /* main spool directory */
  892. #define SPOOL_BAD        "/u/spool/fidonet/bad"        /* rejected by rnews/rmail */
  893. #define SPOOL_IN        "/u/spool/fidonet/in"        /* incoming packets */
  894. #define SPOOL_OUT        "/u/spool/fidonet/out"        /* outgoing mail */
  895. #define SPOOL_UNPACKED    "/u/spool/fidonet/unpacked"    /* output of funpack */
  896. #define SPOOL_SENT        "/u/spool/fidonet/sent"        /* sent packets */
  897. X
  898. #define LIBDIR            "/u/lib/fidonet"            /* config files / progs */
  899. #define LOGFILE            "/u/lib/fidonet/log"        /* log file */
  900. #define IDSEQUENCE        "/u/lib/fidonet/idseq"        /* message id sequence */
  901. #define IPACKETSEQUENCE "/u/lib/fidonet/ipacketseq"    /* input packet sequence */
  902. #define OPACKETSEQUENCE "/u/lib/fidonet/opacketseq" /* output packet sequence */
  903. #define BADSEQ            "/u/lib/fidonet/badseq"        /* bad messages sequence */
  904. #define JOBSEQ            "/u/lib/fidonet/seq"        /* job number sequence */
  905. #define MSGIDSEQ        "/u/lib/fidonet/msgidseq"    /* for generating ^AMSGID:*/
  906. #define ALIAS            "/u/lib/fidonet/Alias"        /* alias file */
  907. #define AREAS            "/u/lib/fidonet/Areas"        /* areas file */
  908. X
  909. X
  910. /*
  911. X * Enable nodelist support
  912. X */
  913. /*#define NODELIST_SUPPORT                            /* Use FIDO nodelist */
  914. X
  915. X
  916. /*
  917. X * mail receiver for fidonet
  918. X */
  919. #define RFMAIL "/u/lib/fidonet/rfmail"                /* fido mail receiver */
  920. /*#define RFMAIL "/u/mj/news/fidogate/rfmail"            /* test version */
  921. X
  922. /*
  923. X * Program which receives unpacked news articles
  924. X */
  925. #define RNEWS "/bin/rnews"                            /* News receiver */
  926. X
  927. /*
  928. X * Program which receives mail from fido net
  929. X */
  930. #define RMAIL "/usr/bin/rmail"                        /* Mail receiver */
  931. /*
  932. X * There is a replacement for rmail
  933. X * included in this package, which accepts fido net
  934. X * domain addresses and feeds this mail to rfmail.
  935. X * If you use the included rmail, you must rename
  936. X * the old rmail to ormail and install the included
  937. X * rmail as /usr/bin/rmail.
  938. X */
  939. /*#define RECVMAIL "/usr/bin/ormail"                    /* Mail receiver */
  940. #define RECVMAIL "/usr/lib/mail/execmail"            /* XENIX */
  941. /*
  942. X * Define this if you want rfmail to return underlivered mail. You do
  943. X * not need this if you are running sendmail or similiar which returns
  944. X * undelivered mail.
  945. X */
  946. #define RETURN_FAILED_MAIL /**/
  947. X
  948. X
  949. /*
  950. X * Lowest user id
  951. X */
  952. #define USERUID 50
  953. X
  954. /*
  955. X * System dependend configuration
  956. X */
  957. X
  958. /***** Operating system *****/
  959. #define USG                                        /* System V */
  960. /*#define BSD                                    /* BSD 4.2+ */
  961. X
  962. /***** File locking *****/
  963. #define LOCK_LOCKF                                /* Use lockf(), else locking() */
  964. X
  965. X
  966. /*
  967. X * parameters for fcall
  968. X */
  969. X
  970. /* How many seconds wait before starting up fidonet handshake */
  971. #define PREWAIT 5
  972. X
  973. /* How many seconds to wait for line to clear */
  974. #define WAITCLEAR 2
  975. X
  976. /* How many tries to give for xmodem startup in send. This should be low
  977. X   value, it just gives possibility to retry xmodem startup if modems
  978. X   handshaked too fast (really a acu configuration problems, dial should
  979. X   return after it has a working line available!) */
  980. #define MAX_SEND_RETRIES 1
  981. X
  982. /* Maximum baud rate to use when calling out */
  983. #define MAXBAUD 1200
  984. X
  985. /* Define minimum baud rate to use when calling out */
  986. #define MINBAUD 300
  987. X
  988. /* Width of formatted messages. Lines will be wrapped to be less
  989. X   than this. If word is longer than 2/3s of MAX_LINELEN, it will be
  990. X   cut instead of correct wrapping. */
  991. #define MAX_LINELEN 80
  992. X
  993. /* Dial translation table. first string stripped out, second one replaced */
  994. X
  995. #define DIALTABLE "358-0-", "",  "358-", "9",  "", "990"
  996. SHAR_EOF
  997. chmod 0644 config.h ||
  998. echo 'restore of config.h failed'
  999. Wc_c="`wc -c < 'config.h'`"
  1000. test 7068 -eq "$Wc_c" ||
  1001.     echo 'config.h: original size 7068, current size' "$Wc_c"
  1002. fi
  1003. # ============= packet.h ==============
  1004. if test -f 'packet.h' -a X"$1" != X"-c"; then
  1005.     echo 'x - skipping packet.h (File already exists)'
  1006. else
  1007. echo 'x - extracting packet.h (Text)'
  1008. sed 's/^X//' << 'SHAR_EOF' > 'packet.h' &&
  1009. /*:ts=4*/
  1010. /*****************************************************************************
  1011. X * FIDOGATE --- Gateway software UNIX <-> FIDO
  1012. X *
  1013. X * $Id: packet.h,v 1.3 90/12/09 18:36:16 mj Exp $
  1014. X *
  1015. X * FIDOnet packet definitions
  1016. X *
  1017. X * $Log:    packet.h,v $
  1018. X * Revision 1.3  90/12/09  18:36:16  mj
  1019. X * Reformatted code and added #define's for sizes of FIDO header fields.
  1020. X * 
  1021. X * Revision 1.2  90/12/02  21:22:20  mj
  1022. X * Changed program header to mention both authors of the original
  1023. X * software posted to alt.sources.
  1024. X * 
  1025. X * Revision 1.1  90/11/05  20:50:53  mj
  1026. X * Changed my signature in all program headers.
  1027. X * 
  1028. X * Revision 1.0  90/06/21  19:15:14  mj
  1029. X * Initial revision
  1030. X * 
  1031. X *
  1032. X *****************************************************************************
  1033. X * This version hacked and maintained by:
  1034. X *    _____ _____
  1035. X *   |     |___  |   Martin Junius     FIDO:    2:242/6.1   2:242/6.0
  1036. X *   | | | |   | |   Republikplatz 3   DOMAIN:  mju@dfv.rwth-aachen.de
  1037. X *   |_|_|_|_____|   D-5100 Aachen     Tel. (Voice) 0241-86931
  1038. X *
  1039. X * Original version of these programs and files:
  1040. X *
  1041. X *   Teemu Torma
  1042. X *   Heikki Suonsivu   FIDO: 2:504/1   UUCP: ...!mcsun!santra!hsu
  1043. X *
  1044. X *****************************************************************************/
  1045. X
  1046. /* Structure for packet header. */
  1047. X
  1048. typedef struct _packet {
  1049. X    short orig_node;                /* originating node */
  1050. X    short dest_node;                /* destinating mode */
  1051. X    short year;                        /* packing year (e.g. 1986) */
  1052. X    short month;                    /* 0-11 for Jan - Dec */
  1053. X    short day;                        /* 1-31 */
  1054. X    short hour;                        /* 0-23 */
  1055. X    short minute;                    /* 0-59 */
  1056. X    short second;                    /* 0-59 */
  1057. X    short rate;                        /* maximum baud rate */
  1058. X    short ver;                        /* header version */
  1059. X    short orig_net;                    /* originating net */
  1060. X    short dest_net;                    /* destination net */
  1061. X    char product;                    /* product */
  1062. X    char x1;                        /* Extra byte */
  1063. #ifdef FIDO_V11w
  1064. X    short fill[16];                    /* extra space */
  1065. #else
  1066. X    char pwd_kludge[8];
  1067. X    short orig_zone;
  1068. X    short dest_zone;
  1069. X    char B_fill2[16];
  1070. X    long B_fill3;
  1071. #endif
  1072. } Packet;
  1073. X
  1074. /* Attributes tranferred via mail. */
  1075. X
  1076. #define ATTR_PRIVATE    0000001        /* private msg */
  1077. #define ATTR_CRASH        0000002        /* crash mail */
  1078. #define ATTR_FILE        0000020        /* files attached */
  1079. #define ATTR_UNUSED        0002000        /* unused */
  1080. #define ATTR_RRR        0010000        /* SEAdog only */
  1081. #define ATTR_IRR        0020000        /* SEAdog only */
  1082. #define ATTR_AUDREQ        0040000        /* SEAdog only */
  1083. X
  1084. /* Packet and message types. */
  1085. X
  1086. #define HDRVER            2
  1087. #define MSGTYPE            2
  1088. X
  1089. /* Sizes of to/from/subject/date field */
  1090. #define SIZE_FROM        36
  1091. #define SIZE_TO            36
  1092. #define SIZE_SUBJECT    72
  1093. #define SIZE_DATE        20
  1094. SHAR_EOF
  1095. chmod 0644 packet.h ||
  1096. echo 'restore of packet.h failed'
  1097. Wc_c="`wc -c < 'packet.h'`"
  1098. test 2561 -eq "$Wc_c" ||
  1099.     echo 'packet.h: original size 2561, current size' "$Wc_c"
  1100. fi
  1101. # ============= shuffle.h ==============
  1102. if test -f 'shuffle.h' -a X"$1" != X"-c"; then
  1103.     echo 'x - skipping shuffle.h (File already exists)'
  1104. else
  1105. echo 'x - extracting shuffle.h (Text)'
  1106. sed 's/^X//' << 'SHAR_EOF' > 'shuffle.h' &&
  1107. /*:ts=4*/
  1108. /*****************************************************************************
  1109. X * FIDOGATE --- Gateway software UNIX <-> FIDO
  1110. X *
  1111. X * $Id: shuffle.h,v 1.3 90/12/02 21:22:39 mj Exp $
  1112. X *
  1113. X * Something very special ... ;-)
  1114. X *
  1115. X * $Log:    shuffle.h,v $
  1116. X * Revision 1.3  90/12/02  21:22:39  mj
  1117. X * Changed program header to mention both authors of the original
  1118. X * software posted to alt.sources.
  1119. X * 
  1120. X * Revision 1.2  90/11/05  20:51:08  mj
  1121. X * Changed my signature in all program headers.
  1122. X * 
  1123. X * Revision 1.1  90/06/28  22:05:04  mj
  1124. X * Much rework of the sources, no more hsu.h and other clean up.
  1125. X * rmail improved, now handles special XENIX quirks.
  1126. X * 
  1127. X * Revision 1.0  90/06/21  19:08:09  mj
  1128. X * Initial revision
  1129. X * 
  1130. X *
  1131. X *****************************************************************************
  1132. X * This version hacked and maintained by:
  1133. X *    _____ _____
  1134. X *   |     |___  |   Martin Junius     FIDO:    2:242/6.1   2:242/6.0
  1135. X *   | | | |   | |   Republikplatz 3   DOMAIN:  mju@dfv.rwth-aachen.de
  1136. X *   |_|_|_|_____|   D-5100 Aachen     Tel. (Voice) 0241-86931
  1137. X *
  1138. X * Original version of these programs and files:
  1139. X *
  1140. X *   Teemu Torma
  1141. X *   Heikki Suonsivu   FIDO: 2:504/1   UUCP: ...!mcsun!santra!hsu
  1142. X *
  1143. X *****************************************************************************/
  1144. X
  1145. #define loop_increment(x,y) (x = (++x >= (y)) ? 0 : x)
  1146. #define loop_decrement(x,y) (x = (--x < 0) ? (y)-1 : x)
  1147. X
  1148. #define MAX_CONVERT_BUFFERS        40
  1149. #define MAX_CONVERT_BUFLEN        80
  1150. X
  1151. static char bufs[MAX_CONVERT_BUFFERS][MAX_CONVERT_BUFLEN], *tcharp;
  1152. static int bflag;
  1153. X
  1154. #define SHUFFLEBUFFERS \
  1155. loop_increment(bflag, MAX_CONVERT_BUFFERS); tcharp = bufs[bflag]
  1156. SHAR_EOF
  1157. chmod 0644 shuffle.h ||
  1158. echo 'restore of shuffle.h failed'
  1159. Wc_c="`wc -c < 'shuffle.h'`"
  1160. test 1637 -eq "$Wc_c" ||
  1161.     echo 'shuffle.h: original size 1637, current size' "$Wc_c"
  1162. fi
  1163. # ============= sysexits.h ==============
  1164. if test -f 'sysexits.h' -a X"$1" != X"-c"; then
  1165.     echo 'x - skipping sysexits.h (File already exists)'
  1166. else
  1167. echo 'x - extracting sysexits.h (Text)'
  1168. sed 's/^X//' << 'SHAR_EOF' > 'sysexits.h' &&
  1169. /*:ts=4*/
  1170. /*****************************************************************************
  1171. X * FIDOGATE --- Gateway software UNIX <-> FIDO
  1172. X *
  1173. X * $Id: sysexits.h,v 1.2 90/12/02 21:22:44 mj Exp $
  1174. X *
  1175. X * Exit statuses for systems that doesn't have /usr/include/sysexits.h
  1176. X *
  1177. X * $Log:    sysexits.h,v $
  1178. X * Revision 1.2  90/12/02  21:22:44  mj
  1179. X * Changed program header to mention both authors of the original
  1180. X * software posted to alt.sources.
  1181. X * 
  1182. X * Revision 1.1  90/11/05  20:51:12  mj
  1183. X * Changed my signature in all program headers.
  1184. X * 
  1185. X * Revision 1.0  90/06/21  19:12:34  mj
  1186. X * Initial revision
  1187. X * 
  1188. X *
  1189. X *****************************************************************************
  1190. X * This version hacked and maintained by:
  1191. X *    _____ _____
  1192. X *   |     |___  |   Martin Junius     FIDO:    2:242/6.1   2:242/6.0
  1193. X *   | | | |   | |   Republikplatz 3   DOMAIN:  mju@dfv.rwth-aachen.de
  1194. X *   |_|_|_|_____|   D-5100 Aachen     Tel. (Voice) 0241-86931
  1195. X *
  1196. X * Original version of these programs and files:
  1197. X *
  1198. X *   Teemu Torma
  1199. X *   Heikki Suonsivu   FIDO: 2:504/1   UUCP: ...!mcsun!santra!hsu
  1200. X *
  1201. X *****************************************************************************/
  1202. X
  1203. #define EX_OK             0                /* successful termination */
  1204. #define EX_USAGE        64                /* command line usage error */
  1205. #define EX_DATAERR        65                /* data format error */
  1206. #define EX_NOINPUT        66                /* cannot open input */
  1207. #define EX_NOHOST        68                /* host name unknown */
  1208. #define EX_UNAVAILABLE    69                /* service unavailable */
  1209. #define EX_SOFTWARE        70                /* internal software error */
  1210. #define EX_OSERR        71                /* system error (e.g., can't fork) */
  1211. #define EX_OSFILE        72                /* critical OS file missing */
  1212. #define EX_CANTCREAT    73                /* can't create (user) output file */
  1213. #define EX_IOERR        74                /* input/output error */
  1214. SHAR_EOF
  1215. chmod 0644 sysexits.h ||
  1216. echo 'restore of sysexits.h failed'
  1217. Wc_c="`wc -c < 'sysexits.h'`"
  1218. test 1760 -eq "$Wc_c" ||
  1219.     echo 'sysexits.h: original size 1760, current size' "$Wc_c"
  1220. fi
  1221. # ============= nodelist.h ==============
  1222. if test -f 'nodelist.h' -a X"$1" != X"-c"; then
  1223.     echo 'x - skipping nodelist.h (File already exists)'
  1224. else
  1225. echo 'x - extracting nodelist.h (Text)'
  1226. sed 's/^X//' << 'SHAR_EOF' > 'nodelist.h' &&
  1227. /*:ts=4*/
  1228. /*****************************************************************************
  1229. X * FIDOGATE --- Gateway software UNIX <-> FIDO
  1230. X *
  1231. X * $Id: nodelist.h,v 1.2 90/12/02 21:22:18 mj Exp $
  1232. X *
  1233. X * Structures and definitions for nodelist.
  1234. X *
  1235. X * $Log:    nodelist.h,v $
  1236. X * Revision 1.2  90/12/02  21:22:18  mj
  1237. X * Changed program header to mention both authors of the original
  1238. X * software posted to alt.sources.
  1239. X * 
  1240. X * Revision 1.1  90/11/05  20:50:51  mj
  1241. X * Changed my signature in all program headers.
  1242. X * 
  1243. X * Revision 1.0  90/06/21  19:14:27  mj
  1244. X * Initial revision
  1245. X * 
  1246. X *
  1247. X *****************************************************************************
  1248. X * This version hacked and maintained by:
  1249. X *    _____ _____
  1250. X *   |     |___  |   Martin Junius     FIDO:    2:242/6.1   2:242/6.0
  1251. X *   | | | |   | |   Republikplatz 3   DOMAIN:  mju@dfv.rwth-aachen.de
  1252. X *   |_|_|_|_____|   D-5100 Aachen     Tel. (Voice) 0241-86931
  1253. X *
  1254. X * Original version of these programs and files:
  1255. X *
  1256. X *   Teemu Torma
  1257. X *   Heikki Suonsivu   FIDO: 2:504/1   UUCP: ...!mcsun!santra!hsu
  1258. X *
  1259. X *****************************************************************************/
  1260. X
  1261. /* Change these if you wish. */
  1262. X
  1263. /* Name of nodelist in LIBDIR */
  1264. #define NODELIST "nodelist"
  1265. X
  1266. /* Name of nodelist index file in LIBDIR */
  1267. #define INODELIST "nodelist.idx"
  1268. X
  1269. /* Name of sysop name index file in LIBDIR */
  1270. #define NAMELIST "name.idx"
  1271. X
  1272. /* Compare two node entried to see if they are same node (ignoring
  1273. X   possible other information */
  1274. #define samenode(n1, n2) ((n1).zone == (n2).zone && (n1).net == (n2).net && \
  1275. X              (n1).node == (n2).node && (n1).point == (n2).point)
  1276. X
  1277. /* Structure for nodelist entry. Routines to get one node from nodelist
  1278. X   will return this structure. */
  1279. X
  1280. typedef struct _node {
  1281. X  int type; /* type of entry (see below) */
  1282. X  int region; /* region (not necessarily used/set) */
  1283. X  int net; /* net/region of node */
  1284. X  int zone; /* Zone of node (not really supported yet) */
  1285. X  int node; /* number of node */
  1286. X  int point; /* Point of node (not really supported yet) */
  1287. X  char name[20]; /* name of fido */
  1288. X  char city[40]; /* city */
  1289. X  char sysop[36]; /* name of sysop */
  1290. X  char phone[40]; /* phone-number */
  1291. X  int speed; /* speeds */
  1292. X  char flags[60]; /* flags-string */
  1293. } Node;
  1294. X
  1295. typedef struct _indexnode {
  1296. X  int zone;
  1297. X  int net;
  1298. X  int node;
  1299. X  long offset;
  1300. } NODEINDEX;
  1301. X
  1302. typedef struct _indexname {
  1303. X  char name[36]; /* Sysop name */
  1304. X  long offset; /* Refers to nodelist index entry */
  1305. X  int zone;
  1306. X  int net;
  1307. } NAMEINDEX;
  1308. X
  1309. /* Entry types. */
  1310. X
  1311. #define REGION (1) /* region-host */
  1312. #define HOST (2) /* net-host */
  1313. #define HUB (3) /* local-host */
  1314. #define PVT (4) /* private node */
  1315. #define HOLD (5) /* no mail to this node */
  1316. #define DOWN (6) /* node is down */
  1317. #define KENL (7) /* should not be comminucated */
  1318. #define NORMAL (8) /* normal node */
  1319. #define ZONE (9) /* Zone */
  1320. #define POINT (10) /* point (points are not in nodelist but this is used
  1321. X              elsewhere. */
  1322. X
  1323. /* Declarations for routines. */
  1324. X
  1325. Node *node_entry(); /* get entry from nodelist */
  1326. char *update_index(); /* update index-file */
  1327. extern Node *parse_entry();
  1328. X
  1329. extern Node originnode;
  1330. extern NODEINDEX *nodeindex;
  1331. extern NAMEINDEX *nameindex;
  1332. extern int nodes;
  1333. SHAR_EOF
  1334. chmod 0644 nodelist.h ||
  1335. echo 'restore of nodelist.h failed'
  1336. Wc_c="`wc -c < 'nodelist.h'`"
  1337. test 3209 -eq "$Wc_c" ||
  1338.     echo 'nodelist.h: original size 3209, current size' "$Wc_c"
  1339. fi
  1340. # ============= fidogate.h ==============
  1341. if test -f 'fidogate.h' -a X"$1" != X"-c"; then
  1342.     echo 'x - skipping fidogate.h (File already exists)'
  1343. else
  1344. echo 'x - extracting fidogate.h (Text)'
  1345. sed 's/^X//' << 'SHAR_EOF' > 'fidogate.h' &&
  1346. /*:ts=4*/
  1347. /*****************************************************************************
  1348. X * FIDOGATE --- Gateway software UNIX <-> FIDO
  1349. X *
  1350. X * $Id: fidogate.h,v 1.8 90/12/02 21:21:47 mj Exp $
  1351. X *
  1352. X * Common header file
  1353. X *
  1354. X * $Log:    fidogate.h,v $
  1355. X * Revision 1.8  90/12/02  21:21:47  mj
  1356. X * Changed program header to mention both authors of the original
  1357. X * software posted to alt.sources.
  1358. X * 
  1359. X * Revision 1.7  90/12/01  17:48:52  mj
  1360. X * Fixed an extern function declaration of ascnoden().
  1361. X * 
  1362. X * Revision 1.6  90/11/20  21:08:13  mj
  1363. X * Changed some extern definitions.
  1364. X * 
  1365. X * Revision 1.5  90/11/05  20:49:34  mj
  1366. X * Changed my signature in all program headers.
  1367. X * 
  1368. X * Revision 1.4  90/09/08  18:45:08  mj
  1369. X * Added definition of strsaveline() in xalloc.c
  1370. X * 
  1371. X * Revision 1.3  90/07/01  13:45:19  mj
  1372. X * Removed all calls to alloca(). All unsave malloc()'s without
  1373. X * checking the returned pointer are now done via xmalloc().
  1374. X * Fixed a malloc() error in rmail.
  1375. X * 
  1376. X * Revision 1.2  90/06/28  22:04:01  mj
  1377. X * Much rework of the sources, no more hsu.h and other clean up.
  1378. X * rmail improved, now handles special XENIX quirks.
  1379. X * 
  1380. X * Revision 1.1  90/06/21  21:08:29  mj
  1381. X * Everything seems to work, so this delta was made.
  1382. X * 
  1383. X * Revision 1.0  90/06/21  18:56:20  mj
  1384. X * Initial revision
  1385. X * 
  1386. X *
  1387. X *****************************************************************************
  1388. X * This version hacked and maintained by:
  1389. X *    _____ _____
  1390. X *   |     |___  |   Martin Junius     FIDO:    2:242/6.1   2:242/6.0
  1391. X *   | | | |   | |   Republikplatz 3   DOMAIN:  mju@dfv.rwth-aachen.de
  1392. X *   |_|_|_|_____|   D-5100 Aachen     Tel. (Voice) 0241-86931
  1393. X *
  1394. X * Original version of these programs and files:
  1395. X *
  1396. X *   Teemu Torma
  1397. X *   Heikki Suonsivu   FIDO: 2:504/1   UUCP: ...!mcsun!santra!hsu
  1398. X *
  1399. X *****************************************************************************/
  1400. X
  1401. #include "config.h"
  1402. X
  1403. /*
  1404. X * default level of debug output
  1405. X */
  1406. #ifndef INIT_VERBOSE
  1407. # ifdef DEBUG
  1408. #  define INIT_VERBOSE 3 /*20*/
  1409. # else
  1410. #  define INIT_VERBOSE 0
  1411. # endif
  1412. #endif
  1413. X
  1414. X
  1415. /*
  1416. X * heavy includin' ...
  1417. X */
  1418. X
  1419. /***** System *****/
  1420. #include <stdio.h>
  1421. #include <ctype.h>
  1422. #include <string.h>
  1423. #include <sys/types.h>
  1424. #include <time.h>
  1425. #include <errno.h>
  1426. #ifdef M_XENIX
  1427. # include <sys/ndir.h>
  1428. # define dirent direct
  1429. #else
  1430. # include <dirent.h>
  1431. #endif
  1432. X
  1433. /***** Local *****/
  1434. #include "packet.h"                        /* FIDO mail packet definition */
  1435. #include "nodelist.h"                    /* nodelist definitions */
  1436. #include "sysexits.h"                    /* EX_* defines */
  1437. X
  1438. X
  1439. X
  1440. /*
  1441. X * Config file sections
  1442. X */
  1443. #define SECT_NETNODE    1                /* Net/node for receiving node */
  1444. #define SECT_NG_AREA    2                /* Newsgroup -> area conversions */
  1445. #define SECT_HEADERS    3                /* Header-field definitions */
  1446. #define SECT_ENDMSG        4                /* Text to be placed at the end of msg */
  1447. #define SECT_AREA_NG    5                /* Area -> newsgroup conversions */
  1448. X
  1449. X
  1450. X
  1451. /*
  1452. X * External functions and variables
  1453. X */
  1454. X
  1455. /***** System *****/
  1456. extern char *mktemp(), *getenv();
  1457. extern long time();
  1458. extern unsigned short getuid();
  1459. extern unsigned short geteuid();
  1460. extern unsigned short getgid();
  1461. extern unsigned short getegid();
  1462. X
  1463. /***** errno *****/
  1464. extern int errno;
  1465. extern char *strerror();
  1466. X
  1467. X
  1468. X
  1469. /*
  1470. X * Defines
  1471. X */
  1472. #define TRUE    1
  1473. #define FALSE    0
  1474. #define BUFLEN 256
  1475. #define OK        0
  1476. #define ERROR    (-1)
  1477. X
  1478. #define bool    int
  1479. X
  1480. /* Global variables. */
  1481. X
  1482. extern bool verbose;
  1483. extern int line;
  1484. extern int receiving_data;
  1485. X
  1486. /* Function declarations. */
  1487. X
  1488. /* address.c */
  1489. extern char *parse_address();
  1490. extern int returnbad();
  1491. extern int parseinternode();
  1492. extern int parsefnetaddress();
  1493. extern char *ascnode();
  1494. extern char *ascnoden();
  1495. extern char *internode();
  1496. extern char *ascnodei();
  1497. X
  1498. extern int fine_convert();
  1499. extern char *ascii_convert();
  1500. extern int stricmp();
  1501. extern int strnicmp();
  1502. extern time_t getdate();
  1503. extern void flush();
  1504. extern void sendline();
  1505. extern char *getcl();
  1506. extern void section();
  1507. extern void log();
  1508. extern void debug();
  1509. extern int lock();
  1510. extern int unlock();
  1511. extern char *spoolfile();
  1512. extern int quit();
  1513. extern char *basename();
  1514. extern FILE *pfopen();
  1515. extern char *date();
  1516. extern long job_number();
  1517. extern long sequencer();
  1518. extern char *mheader();
  1519. X
  1520. /* sprintfs.c */
  1521. extern char *sstrcat(), *sprintfs();
  1522. X
  1523. /* strempty.c */
  1524. extern char *strclean(), *strsclean();
  1525. X
  1526. /* xalloc.c */
  1527. extern char *xmalloc(), *xrealloc(), *strsave(), *strsaveline();
  1528. SHAR_EOF
  1529. chmod 0644 fidogate.h ||
  1530. echo 'restore of fidogate.h failed'
  1531. Wc_c="`wc -c < 'fidogate.h'`"
  1532. test 4281 -eq "$Wc_c" ||
  1533.     echo 'fidogate.h: original size 4281, current size' "$Wc_c"
  1534. fi
  1535. true || echo 'restore of rfmail.c failed'
  1536. echo End of part 2, continue with part 3
  1537. exit 0
  1538.  
  1539. --
  1540.  _____ _____
  1541. |     |___  |   Martin Junius     FIDO:    2:242/6.1   2:242/6.0
  1542. | | | |   | |   Republikplatz 3   DOMAIN:  mju@dfv.rwth-aachen.de
  1543. |_|_|_|_____|   D-5100 Aachen     Tel. (Voice) 0241-86931
  1544.