src/client.c

   1 /*
   2  * C Client for the DX Spider cluster program
   3  *
   4  * Eventually this program will be a complete replacement
   5  * for the perl version.
   6  *
   7  * This program provides the glue necessary to talk between
   8  * an input (eg from telnet or ax25) and the perl DXSpider
   9  * node.
  10  *
  11  * Currently, this program connects STDIN/STDOUT to the
  12  * message system used by cluster.pl
  13  *
  14  * Copyright (c) 2000 Dirk Koopman G1TLH
  15  *
  16  * $Id$
  17  */
  18
  19 #include <stdio.h>
  20 #include <sys/time.h>
  21 #include <sys/types.h>
  22 #include <unistd.h>
  23 #include <ctype.h>
  24 #include <stdlib.h>
  25 #include <stdarg.h>
  26 #include <netdb.h>
  27 #include <sys/socket.h>
  28 #include <netinet/in.h>
  29 #include <errno.h>
  30 #include <signal.h>
  31 #include <string.h>
  32 #include <termios.h>
  33 #include <regex.h>
  34
  35 #include "sel.h"
  36 #include "cmsg.h"
  37 #include "debug.h"
  38
  39 #define TEXT 1
  40 #define MSG 2
  41 #define MAXBUFL 1024
  42
  43 #ifndef MAXPATHLEN
  44 #define MAXPATHLEN 256
  45 #endif
  46
  47 #define DEFPACLEN 236
  48 #define MAXPACLEN 236
  49 #define MAXCALLSIGN 9
  50
  51 #define DBUF 1
  52 #define DMSG 2
  53 #define DSTS 4
  54
  55 #define UC unsigned char
  56
  57 typedef struct
  58 {
  59         int cnum;                                       /* the connection number */
  60         int sort;                                       /* the type of connection either text or msg */
  61         cmsg_t *in;                                     /* current input message being built up */
  62         cmsg_t *out;                            /* current output message being sent */
  63         cmsg_t *obuf;                           /* current output being buffered */
  64         reft *inq;                                      /* input queue */
  65         reft *outq;                                     /* output queue */
  66         sel_t *sp;                                      /* my select fcb address */
  67         struct termios t;                       /* any termios associated with this cnum */
  68         char echo;                                      /* echo characters back to this cnum */
  69         char t_set;                                     /* the termios structure is valid */
  70         char buffer_it;                         /* buffer outgoing packets for paclen */
  71 } fcb_t;
  72
  73 typedef struct
  74 {
  75         char *in;
  76         regex_t *regex;
  77 } myregex_t;
  78
  79
  80 char *node_addr = "localhost";  /* the node tcp address, can be overridden by DXSPIDER_HOST */
  81 int node_port = 27754;                  /* the tcp port of the node at the above address can be overidden by DXSPIDER_PORT*/
  82 char *call;                                             /* the caller's callsign */
  83 char *connsort;                                 /* the type of connection */
  84 fcb_t *in;                                              /* the fcb of 'stdin' that I shall use */
  85 fcb_t *node;                                    /* the fcb of the msg system */
  86 char nl = '\n';                                 /* line end character */
  87 char mode = 1;                  /* 0 - ax25, 1 - normal telnet, 2 - nlonly telnet */
  88 char ending = 0;                                /* set this to end the program */
  89 char echo = 1;                                  /* echo characters on stdout from stdin */
  90 char int_tabs = 0;                              /* interpret tabs -> spaces */
  91 char *root = "/spider";         /* root of data tree, can be overridden by DXSPIDER_ROOT  */
  92 int timeout = 60;                               /* default timeout for logins and things */
  93 int paclen = DEFPACLEN;                 /* default buffer size for outgoing packets */
  94 int tabsize = 8;                                /* default tabsize for text messages */
  95 char *connsort = "local";               /* the connection variety */
  96 int state = 0;                                  /* the current state of the connection */
  97 int laststate = 0;                              /* the last state we were in */
  98
  99
 100
 101 #define CONNECTED 100
 102 #define WAITLOGIN 1
 103 #define WAITPASSWD 2
 104 #define WAITINPUT 10
 105
 106
 107 myregex_t iscallreg[] = {               /* regexes to determine whether this is a reasonable callsign */
 108         {
 109                 "^[A-Z]+[0-9]+[A-Z]+[1-9]?$", 0                /* G1TLH G1TLH1 */
 110         },
 111         {
 112                 "^[0-9]+[A-Z]+[0-9]+[A-Z]+[1-9]?$", 0          /* 2E0AAA 2E0AAA1 */
 113         },
 114         {
 115                 "^[A-Z]+[0-9]+[A-Z]+-[1-9]$", 0                /* G1TLH-2 */
 116         },
 117         {
 118                 "^[0-9]+[A-Z]+[0-9]+[A-Z]+-[1-9]$", 0          /* 2E0AAA-2 */
 119         },
 120         {
 121                 "^[A-Z]+[0-9]+[A-Z]+-1[0-5]$", 0               /* G1TLH-11 */
 122         },
 123         {
 124                 "^[0-9]+[A-Z]+[0-9]+[A-Z]+-1[0-5]$", 0         /* 2E0AAA-11 */
 125         },
 126         {
 127                 0, 0
 128         }
 129 };
 130
 131 void terminate(int);
 132
 133 /*
 134  * utility routines - various
 135  */
 136
 137 void chgstate(int new)
 138 {
 139         laststate = state;
 140         state = new;
 141         dbg(DSTS, "chg state %d->%d", laststate, state);
 142 }
 143
 144 void die(char *s, ...)
 145 {
 146         char buf[2000];
 147
 148         va_list ap;
 149         va_start(ap, s);
 150         vsnprintf(buf, sizeof(buf)-1, s, ap);
 151         va_end(ap);
 152         fprintf(stderr,"%s\n", buf);
 153         terminate(-1);
 154 }
 155
 156 char *strupper(char *s)
 157 {
 158         char *d = malloc(strlen(s)+1);
 159         char *p = d;
 160
 161         if (!d)
 162                 die("out of room in strupper");
 163         while (*p++ = toupper(*s++)) ;
 164         return d;
 165 }
 166
 167 char *strlower(char *s)
 168 {
 169         char *d = malloc(strlen(s)+1);
 170         char *p = d;
 171
 172         if (!d)
 173                 die("out of room in strlower");
 174         while (*p++ = tolower(*s++)) ;
 175         return d;
 176 }
 177
 178 int eq(char *a, char *b)
 179 {
 180         return (strcmp(a, b) == 0);
 181 }
 182
 183 FILE *xopen(char *dir, char *name, char *mode)
 184 {
 185         char fn[MAXPATHLEN+1];
 186         snprintf(fn, MAXPATHLEN, "%s/%s/%s", root, dir, name);
 187         return fopen(fn, mode);
 188 }
 189
 190 int iscallsign(char *s)
 191 {
 192         myregex_t *rp;
 193
 194         if (strlen(s) > MAXCALLSIGN)
 195                 return 0;
 196
 197         for (rp = iscallreg; rp->in; ++rp) {
 198                 if (regexec(rp->regex, s, 0, 0, 0) == 0)
 199                         return 1;
 200         }
 201         return 0;
 202 }
 203
 204 /*
 205  * higher level send and receive routines
 206  */
 207
 208 fcb_t *fcb_new(int cnum, int sort)
 209 {
 210         fcb_t *f = malloc(sizeof(fcb_t));
 211         if (!f)
 212                 die("no room in fcb_new");
 213         memset (f, 0, sizeof(fcb_t));
 214         f->cnum = cnum;
 215         f->sort = sort;
 216         f->inq = chain_new();
 217         f->outq = chain_new();
 218         return f;
 219 }
 220
 221 void flush_text(fcb_t *f)
 222 {
 223         if (f->obuf) {
 224                 cmsg_send(f->outq, f->obuf, 0);
 225                 f->sp->flags |= SEL_OUTPUT;
 226                 f->obuf = 0;
 227         }
 228 }
 229
 230 void send_text(fcb_t *f, char *s, int l, int nlreq)
 231 {
 232         cmsg_t *mp;
 233         char *p;
 234
 235         if (f->buffer_it && f->obuf) {
 236                 mp = f->obuf;
 237         } else {
 238                 f->obuf = mp = cmsg_new(paclen+1, f->sort, f);
 239         }
 240
 241         /* remove trailing spaces  */
 242         while (l > 0 &&isspace(s[l-1]))
 243                 --l;
 244
 245         for (p = s; p < s+l; ) {
 246                 if (mp->inp >= mp->data + paclen) {
 247                         flush_text(f);
 248                         f->obuf = mp = cmsg_new(paclen+1, f->sort, f);
 249                 }
 250                 *mp->inp++ = *p++;
 251         }
 252         if (mp->inp >= mp->data + paclen) {
 253                 flush_text(f);
 254                 f->obuf = mp = cmsg_new(paclen+1, f->sort, f);
 255         }
 256         if (nlreq) {
 257                 if (nl == '\r')
 258                         *mp->inp++ = nl;
 259                 else {
 260                         if (mode != 2)
 261                                 *mp->inp++ = '\r';
 262                         *mp->inp++ = '\n';
 263                 }
 264         }
 265         if (!f->buffer_it)
 266                 flush_text(f);
 267 }
 268
 269 void send_msg(fcb_t *f, char let, UC *s, int l)
 270 {
 271         cmsg_t *mp;
 272         int ln;
 273         int myl = strlen(call)+2+l;
 274
 275         mp = cmsg_new(myl+4+1, f->sort, f);
 276         *mp->inp++ = let;
 277         strcpy(mp->inp, call);
 278         mp->inp += strlen(call);
 279         *mp->inp++ = '|';
 280         if (l > 0) {
 281                 UC *p;
 282                 for (p = s; p < s+l; ++p) {
 283                         if (mp->inp >= mp->data + (myl - 4)) {
 284                                 int off = mp->inp - mp->data;
 285                                 myl += 256;
 286                                 mp = realloc(mp, myl);
 287                                 mp->inp = mp->data + off;
 288                         }
 289
 290                         if (*p < 0x20 || *p > 0x7e || *p == '%') {
 291                                 sprintf(mp->inp, "%%%02X", *p & 0xff);
 292                                 mp->inp += strlen(mp->inp);
 293                         } else
 294                                 *mp->inp++ = *p;
 295                 }
 296         }
 297         *mp->inp++ = '\n';
 298         *mp->inp = 0;
 299         cmsg_send(f->outq, mp, 0);
 300         f->sp->flags |= SEL_OUTPUT;
 301 }
 302
 303 /*
 304  * the callback (called by sel_run) that handles all the inputs and outputs
 305  */
 306
 307 int fcb_handler(sel_t *sp, int in, int out, int err)
 308 {
 309         fcb_t *f = sp->fcb;
 310         cmsg_t *mp, *omp;
 311         UC c;
 312
 313         /* input modes */
 314         if (ending == 0 && in) {
 315                 char *p, buf[MAXBUFL];
 316                 int r;
 317
 318                 /* read what we have into a buffer */
 319                 r = read(f->cnum, buf, MAXBUFL);
 320                 if (r < 0) {
 321                         switch (errno) {
 322                         case EINTR:
 323                         case EINPROGRESS:
 324                         case EAGAIN:
 325                                 goto lout;
 326                         default:
 327                                 dbg(DBUF,"got errno %d in input", errno);
 328                                 ending++;
 329                                 return 0;
 330                         }
 331                 } else if (r == 0) {
 332                         dbg(DBUF, "ending normally");
 333                         ending++;
 334                         return 0;
 335                 }
 336
 337                 dbgdump(DBUF, "in ->", buf, r);
 338
 339                 /* create a new message buffer if required */
 340                 if (!f->in)
 341                         f->in = cmsg_new(MAXBUFL+1, f->sort, f);
 342                 mp = f->in;
 343
 344                 switch (f->sort) {
 345                 case TEXT:
 346                         p = buf;
 347                         if (f->echo)
 348                                 omp = cmsg_new(3*r+1, f->sort, f);
 349                         while (r > 0 && p < &buf[r]) {
 350
 351                                 /* echo processing */
 352                                 if (f->echo) {
 353                                         switch (*p) {
 354                                         case '\b':
 355                                         case 0x7f:
 356                                                 strcpy(omp->inp, "\b \b");
 357                                                 omp->inp += strlen(omp->inp);
 358                                                 break;
 359                                         case '\r':
 360                                                 break;
 361                                         case '\n':
 362                                                 strcpy(omp->inp, "\r\n");
 363                                                 omp->inp += 2;
 364                                                 break;
 365                                         default:
 366                                                 *omp->inp++ = *p;
 367                                         }
 368                                 }
 369
 370                                 /* character processing */
 371                                 switch (*p) {
 372                                 case '\t':
 373                                         if (int_tabs) {
 374                                                 memset(mp->inp, ' ', tabsize);
 375                                                 mp->inp += tabsize;
 376                                                 ++p;
 377                                         } else {
 378                                                 *mp->inp++ = *p++;
 379                                         }
 380                                         break;
 381                                 case 0x08:
 382                                 case 0x7f:
 383                                         if (mp->inp > mp->data)
 384                                                 mp->inp--;
 385                                         ++p;
 386                                         break;
 387                                 default:
 388                                         if (nl == '\n' && *p == '\r') {   /* ignore \r in telnet mode (ugh) */
 389                                                 p++;
 390                                         } else if (nl == '\r' && *p == '\n') {  /* and ignore \n in ax25 mode (double ugh) */
 391                                                 p++;
 392                                         } else if (*p == nl) {
 393                                                 if (mp->inp == mp->data)
 394                                                         *mp->inp++ = ' ';
 395                                                 *mp->inp = 0;              /* zero terminate it, but don't include it in the length */
 396                                                 dbgdump(DMSG, "QUEUE TEXT", mp->data, mp->inp-mp->data);
 397                                                 cmsg_send(f->inq, mp, 0);
 398                                                 f->in = mp = cmsg_new(MAXBUFL+1, f->sort, f);
 399                                                 ++p;
 400                                         } else {
 401                                                 if (mp->inp < &mp->data[MAXBUFL-8])
 402                                                         *mp->inp++ = *p++;
 403                                                 else {
 404                                                         mp->inp = mp->data;
 405                                                 }
 406                                         }
 407                                 }
 408                         }
 409
 410                         /* queue any echo text */
 411                         if (f->echo) {
 412                                 dbgdump(DMSG, "QUEUE ECHO TEXT", omp->data, omp->inp - omp->data);
 413                                 cmsg_send(f->outq, omp, 0);
 414                                 f->sp->flags |= SEL_OUTPUT;
 415                         }
 416
 417                         break;
 418
 419                 case MSG:
 420                         p = buf;
 421                         while (r > 0 && p < &buf[r]) {
 422                                 UC ch = *p++;
 423
 424                                 if (mp->inp >= mp->data + (MAXBUFL-1)) {
 425                                         mp->state = 0;
 426                                         mp->inp = mp->data;
 427                                         dbg(DMSG, "Message longer than %d received", MAXBUFL);
 428                                 }
 429
 430                                 switch (mp->state) {
 431                                 case 0:
 432                                         if (ch == '%') {
 433                                                 c = 0;
 434                                                 mp->state = 1;
 435                                         } else if (ch == '\n') {
 436                                                 /* kick it upstairs */
 437                                                 *mp->inp = 0;
 438                                                 dbgdump(DMSG, "QUEUE MSG", mp->data, mp->inp - mp->data);
 439                                                 cmsg_send(f->inq, mp, 0);
 440                                                 mp = f->in = cmsg_new(MAXBUFL+1, f->sort, f);
 441                                         } else if (ch < 0x20 || ch > 0x7e) {
 442                                                 dbg(DMSG, "Illegal character (0x%02X) received", *p);
 443                                                 mp->inp = mp->data;
 444                                         } else {
 445                                                 *mp->inp++ = ch;
 446                                         }
 447                                         break;
 448
 449                                 case 1:
 450                                         mp->state = 2;
 451                                         if (ch >= '0' && ch <= '9')
 452                                                 c = (ch - '0') << 4;
 453                                         else if (ch >= 'A' && ch <= 'F')
 454                                                 c = (ch - 'A' + 10) << 4;
 455                                         else {
 456                                                 dbg(DMSG, "Illegal hex char (%c) received in state 1", ch);
 457                                                 mp->inp = mp->data;
 458                                                 mp->state = 0;
 459                                         }
 460                                         break;
 461
 462                                 case 2:
 463                                         if (ch >= '0' && ch <= '9')
 464                                                 *mp->inp++ = c | (ch - '0');
 465                                         else if (ch >= 'A' && ch <= 'F')
 466                                                 *mp->inp++ = c | (ch - 'A' + 10);
 467                                         else {
 468                                                 dbg(DMSG, "Illegal hex char (%c) received in state 2", ch);
 469                                                 mp->inp = mp->data;
 470                                         }
 471                                         mp->state = 0;
 472                                 }
 473                         }
 474                         break;
 475
 476                 default:
 477                         die("invalid sort (%d) in input handler", f->sort);
 478                 }
 479         }
 480
 481         /* output modes */
 482 lout:;
 483         if (out) {
 484                 int l, r;
 485
 486                 if (!f->out) {
 487                         mp = f->out = cmsg_next(f->outq);
 488                         if (!mp) {
 489                                 sp->flags &= ~SEL_OUTPUT;
 490                                 return 0;
 491                         }
 492                         mp->inp = mp->data;
 493                 }
 494                 l = mp->size - (mp->inp - mp->data);
 495                 if (l > 0) {
 496
 497                         dbgdump(DBUF, "<-out", mp->inp, l);
 498
 499                         r = write(f->cnum, mp->inp, l);
 500                         if (r < 0) {
 501                                 switch (errno) {
 502                                 case EINTR:
 503                                 case EINPROGRESS:
 504                                 case EAGAIN:
 505                                         goto lend;
 506                                 default:
 507                                         dbg(DBUF,"got errno %d in output", errno);
 508                                         ending++;
 509                                         return;
 510                                 }
 511                         } else if (r > 0) {
 512                                 mp->inp += r;
 513                         }
 514                 } else if (l < 0)
 515                         die("got negative length in handler on node");
 516                 if (mp->inp - mp->data >= mp->size) {
 517                         cmsg_callback(mp, 0);
 518                         f->out = 0;
 519                 }
 520         }
 521 lend:;
 522         return 0;
 523 }
 524
 525 /*
 526  * set up the various mode flags, NL endings and things
 527  */
 528 void setmode(char *m)
 529 {
 530         connsort = strlower(m);
 531         if (eq(connsort, "telnet") || eq(connsort, "local") || eq(connsort, "nlonly")) {
 532                 nl = '\n';
 533                 echo = 1;
 534                 mode = eq(connsort, "nlonly") ? 2 : 1;
 535         } else if (eq(connsort, "ax25")) {
 536                 nl = '\r';
 537                 echo = 0;
 538                 mode = 0;
 539         } else if (eq(connsort, "connect")) {
 540                 nl = '\n';
 541                 echo = 0;
 542                 mode = 3;
 543         } else {
 544                 die("Connection type must be \"telnet\", \"nlonly\", \"ax25\", \"login\" or \"local\"");
 545         }
 546 }
 547
 548
 549 /*
 550  * things to do with ongoing processing of inputs
 551  */
 552
 553 void process_stdin()
 554 {
 555         cmsg_t *mp = cmsg_next(in->inq);
 556         char *p, hasa, hasn, i;
 557         char callsign[MAXCALLSIGN+1];
 558
 559         if (mp) {
 560                 dbg(DMSG, "MSG size: %d", mp->size);
 561
 562                 switch (state) {
 563                 case CONNECTED:
 564                         if (mp->size > 0) {
 565                                 send_msg(node, 'I', mp->data, mp->size);
 566                         }
 567                         break;
 568                 case WAITLOGIN:
 569                         for (i = 0; i < mp->size; ++i) {
 570                                 UC ch = mp->data[i];
 571                                 if (i < MAXCALLSIGN) {
 572                                         if (isalpha(ch))
 573                                                 ++hasa;
 574                                         if (isdigit(ch))
 575                                                 ++hasn;
 576                                     if (isalnum(ch) || ch == '-')
 577                                                 callsign[i] = ch;
 578                                         else
 579                                                 die("invalid callsign");
 580                                 } else
 581                                         die("invalid callsign");
 582                         }
 583                         callsign[i]= 0;
 584                         if (strlen(callsign) < 3)
 585                                 die("invalid callsign");
 586                         if (hasa && hasn)
 587                                 ;
 588                         else
 589                                 die("invalid callsign");
 590                         call = strupper(callsign);
 591
 592                         /* check the callsign against the regexes */
 593                         if (!iscallsign(call)) {
 594                                 die("Sorry, %s isn't a valid callsign", call);
 595                         }
 596
 597                         alarm(0);
 598                         signal(SIGALRM, SIG_IGN);
 599
 600                         /* tell the cluster who I am */
 601                         send_msg(node, 'A', connsort, strlen(connsort));
 602
 603                         chgstate(CONNECTED);
 604                 }
 605
 606                 cmsg_callback(mp, 0);
 607
 608         }
 609 }
 610
 611 void process_node()
 612 {
 613         cmsg_t *mp = cmsg_next(node->inq);
 614         if (mp) {
 615                 dbg(DMSG, "MSG size: %d", mp->size);
 616
 617                 if (mp->size > 0 && mp->inp > mp->data) {
 618                         char *p = strchr(mp->data, '|');
 619                         if (p)
 620                                 p++;
 621                         switch (mp->data[0]) {
 622                         case 'Z':
 623                                 ending++;
 624                                 return;
 625                         case 'E':
 626                                 if (isdigit(*p))
 627                                         in->echo = *p - '0';
 628                                 break;
 629                         case 'B':
 630                                 if (isdigit(*p))
 631                                         in->buffer_it = *p - '0';
 632                                 break;
 633                         case 'D':
 634                                 if (p) {
 635                                         int l = mp->inp - (UC *) p;
 636                                         send_text(in, p, l, 1);
 637                                 }
 638                                 break;
 639                         default:
 640                                 break;
 641                         }
 642                 }
 643                 cmsg_callback(mp, 0);
 644         } else {
 645                 flush_text(in);
 646         }
 647 }
 648
 649 /*
 650  * things to do with going away
 651  */
 652
 653 void term_timeout(int i)
 654 {
 655         /* none of this is going to be reused so don't bother cleaning up properly */
 656         if (in && in->t_set)
 657                 tcsetattr(0, TCSANOW, &in->t);
 658         if (node) {
 659                 shutdown(node->cnum, 3);
 660                 close(node->cnum);
 661         }
 662         exit(i);
 663 }
 664
 665 void terminate(int i)
 666 {
 667         signal(SIGALRM, term_timeout);
 668         alarm(10);
 669
 670         while ((in && !is_chain_empty(in->outq)) ||
 671                    (node && !is_chain_empty(node->outq))) {
 672                 sel_run();
 673         }
 674         if (in && in->t_set)
 675                 tcsetattr(0, TCSADRAIN, &in->t);
 676         if (node) {
 677                 shutdown(node->cnum, 3);
 678                 close(node->cnum);
 679         }
 680         exit(i);
 681 }
 682
 683 void login_timeout(int i)
 684 {
 685         write(0, "Timed Out", 10);
 686         write(0, &nl, 1);
 687         sel_run();                                      /* force a coordination */
 688         if (in && in->t_set)
 689                 tcsetattr(0, TCSANOW, &in->t);
 690         exit(i);
 691 }
 692
 693 /*
 694  * things to do with initialisation
 695  */
 696
 697 void initargs(int argc, char *argv[])
 698 {
 699         int i, c, err = 0;
 700
 701         while ((c = getopt(argc, argv, "h:p:x:")) > 0) {
 702                 switch (c) {
 703                 case 'h':
 704                         node_addr = optarg;
 705                         break;
 706                 case 'l':
 707                         paclen = atoi(optarg);
 708                         if (paclen < 80)
 709                                 paclen = 80;
 710                         if (paclen > MAXPACLEN)
 711                                 paclen = MAXPACLEN;
 712                         break;
 713                 case 'p':
 714                         node_port = atoi(optarg);
 715                         break;
 716                 case 'x':
 717                         dbginit("client");
 718                         dbgset(atoi(optarg));
 719                         break;
 720                 default:
 721                         ++err;
 722                         goto lerr;
 723                 }
 724         }
 725
 726 lerr:
 727         if (err) {
 728                 die("usage: client [-x n|-h<host>|-p<port>|-l<paclen>] <call>|login [local|telnet|ax25]");
 729         }
 730
 731         if (optind < argc) {
 732                 call = strupper(argv[optind]);
 733                 ++optind;
 734         }
 735         if (!call)
 736                 die("Must have at least a callsign (for now)");
 737
 738         if (optind < argc) {
 739                 setmode(argv[optind]);
 740         } else {
 741                 setmode("local");
 742         }
 743
 744         /* this is kludgy, but hey so is the rest of this! */
 745         if (mode != 0 && paclen == DEFPACLEN) {
 746                 paclen = MAXPACLEN;
 747         }
 748 }
 749
 750 void connect_to_node()
 751 {
 752         struct hostent *hp, *gethostbyname();
 753         struct sockaddr_in server;
 754         int nodef;
 755         sel_t *sp;
 756
 757         if ((hp = gethostbyname(node_addr)) == 0)
 758                 die("Unknown host tcp host %s for printer", node_addr);
 759
 760         memset(&server, 0, sizeof server);
 761         server.sin_family = AF_INET;
 762         memcpy(&server.sin_addr, hp->h_addr, hp->h_length);
 763         server.sin_port = htons(node_port);
 764
 765         nodef = socket(AF_INET, SOCK_STREAM, 0);
 766         if (nodef < 0)
 767                 die("Can't open socket to %s port %d (%d)", node_addr, node_port, errno);
 768
 769         if (connect(nodef, (struct sockaddr *) &server, sizeof server) < 0) {
 770                 die("Error on connect to %s port %d (%d)", node_addr, node_port, errno);
 771         }
 772         node = fcb_new(nodef, MSG);
 773         node->sp = sel_open(nodef, node, "Msg System", fcb_handler, MSG, SEL_INPUT);
 774
 775 }
 776
 777 /*
 778  * the program itself....
 779  */
 780
 781 main(int argc, char *argv[])
 782 {
 783         /* compile regexes for iscallsign */
 784         {
 785                 myregex_t *rp;
 786                 for (rp = iscallreg; rp->in; ++rp) {
 787                         regex_t reg;
 788                         int r = regcomp(&reg, rp->in, REG_EXTENDED|REG_ICASE|REG_NOSUB);
 789                         if (r)
 790                                 die("regcomp returned %d for '%s'", r, rp->in);
 791                         rp->regex = malloc(sizeof(regex_t));
 792                         if (!rp->regex)
 793                                 die("out of room - compiling regexes");
 794                         *rp->regex = reg;
 795                 }
 796         }
 797
 798         /* set up environment */
 799         {
 800                 char *p = getenv("DXSPIDER_ROOT");
 801                 if (p)
 802                         root = p;
 803                 p = getenv("DXSPIDER_HOST");
 804                 if (p)
 805                         node_addr = p;
 806                 p = getenv("DXSPIDER_PORT");
 807                 if (p)
 808                         node_port = atoi(p);
 809                 p = getenv("DXSPIDER_PACLEN");
 810                 if (p) {
 811                         paclen = atoi(p);
 812                         if (paclen < 80)
 813                                 paclen = 80;
 814                         if (paclen > MAXPACLEN)
 815                                 paclen = MAXPACLEN;
 816                 }
 817         }
 818
 819         /* get program arguments, initialise stuff */
 820         initargs(argc, argv);
 821         sel_init(10, 0, 10000);
 822
 823         /* trap signals */
 824         signal(SIGHUP, SIG_IGN);
 825         signal(SIGINT, terminate);
 826         signal(SIGQUIT, terminate);
 827         signal(SIGTERM, terminate);
 828 #ifdef SIGPWR
 829         signal(SIGPWR, terminate);
 830 #endif
 831
 832         /* connect up stdin */
 833         in = fcb_new(0, TEXT);
 834         in->sp = sel_open(0, in, "STDIN", fcb_handler, TEXT, SEL_INPUT);
 835         if (tcgetattr(0, &in->t) < 0) {
 836 /*              echo = 0; */
 837                 in->echo = echo;
 838                 in->t_set = 0;
 839         } else {
 840                 struct termios t = in->t;
 841                 t.c_lflag &= ~(ECHO|ECHONL|ICANON);
 842                 t.c_oflag = 0;
 843                 if (tcsetattr(0, TCSANOW, &t) < 0)
 844                         die("tcsetattr (%d)", errno);
 845                 in->echo = echo;
 846                 in->t_set = 1;
 847         }
 848         in->buffer_it = 1;
 849
 850         /* connect up node */
 851         connect_to_node();
 852
 853         /* is this a login? */
 854         if (eq(call, "LOGIN") || eq(call, "login")) {
 855
 856                 char buf[MAXPACLEN+1];
 857                 int r, i;
 858                 FILE *f = xopen("data", "issue", "r");
 859                 if (f) {
 860                         while (fgets(buf, paclen, f)) {
 861                                 i = strlen(buf);
 862                                 if (i && buf[i-1] == '\n')
 863                                         buf[--i] = 0;
 864                                 send_text(in, buf, i, 1);
 865                         }
 866                         fclose(f);
 867                 }
 868                 signal(SIGALRM, login_timeout);
 869                 alarm(timeout);
 870                 send_text(in, "login: ", 7, 0);
 871                 chgstate(WAITLOGIN);
 872         } else {
 873
 874                 /* check the callsign against the regexes */
 875                 if (!iscallsign(call)) {
 876                         die("Sorry, %s isn't a valid callsign", call);
 877                 }
 878
 879                 /* tell the cluster who I am */
 880                 send_msg(node, 'A', connsort, strlen(connsort));
 881
 882                 chgstate(CONNECTED);
 883         }
 884
 885
 886         /* main processing loop */
 887         while (ending == 0) {
 888                 sel_run();
 889                 if (ending == 0) {
 890                         process_stdin();
 891                         process_node();
 892                 }
 893         }
 894         terminate(0);
 895 }
 896
 897
 898
 899
 900
 901