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 128
  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 (*p == nl) {
 391                                                 if (mp->inp == mp->data)
 392                                                         *mp->inp++ = ' ';
 393                                                 *mp->inp = 0;              /* zero terminate it, but don't include it in the length */
 394                                                 dbgdump(DMSG, "QUEUE TEXT", mp->data, mp->inp-mp->data);
 395                                                 cmsg_send(f->inq, mp, 0);
 396                                                 f->in = mp = cmsg_new(MAXBUFL+1, f->sort, f);
 397                                                 ++p;
 398                                         } else {
 399                                                 if (mp->inp < &mp->data[MAXBUFL-8])
 400                                                         *mp->inp++ = *p++;
 401                                                 else {
 402                                                         mp->inp = mp->data;
 403                                                 }
 404                                         }
 405                                 }
 406                         }
 407
 408                         /* queue any echo text */
 409                         if (f->echo) {
 410                                 dbgdump(DMSG, "QUEUE ECHO TEXT", omp->data, omp->inp - omp->data);
 411                                 cmsg_send(f->outq, omp, 0);
 412                                 f->sp->flags |= SEL_OUTPUT;
 413                         }
 414
 415                         break;
 416
 417                 case MSG:
 418                         p = buf;
 419                         while (r > 0 && p < &buf[r]) {
 420                                 UC ch = *p++;
 421
 422                                 if (mp->inp >= mp->data + (MAXBUFL-1)) {
 423                                         mp->state = 0;
 424                                         mp->inp = mp->data;
 425                                         dbg(DMSG, "Message longer than %d received", MAXBUFL);
 426                                 }
 427
 428                                 switch (mp->state) {
 429                                 case 0:
 430                                         if (ch == '%') {
 431                                                 c = 0;
 432                                                 mp->state = 1;
 433                                         } else if (ch == '\n') {
 434                                                 /* kick it upstairs */
 435                                                 *mp->inp = 0;
 436                                                 dbgdump(DMSG, "QUEUE MSG", mp->data, mp->inp - mp->data);
 437                                                 cmsg_send(f->inq, mp, 0);
 438                                                 mp = f->in = cmsg_new(MAXBUFL+1, f->sort, f);
 439                                         } else if (ch < 0x20 || ch > 0x7e) {
 440                                                 dbg(DMSG, "Illegal character (0x%02X) received", *p);
 441                                                 mp->inp = mp->data;
 442                                         } else {
 443                                                 *mp->inp++ = ch;
 444                                         }
 445                                         break;
 446
 447                                 case 1:
 448                                         mp->state = 2;
 449                                         if (ch >= '0' && ch <= '9')
 450                                                 c = (ch - '0') << 4;
 451                                         else if (ch >= 'A' && ch <= 'F')
 452                                                 c = (ch - 'A' + 10) << 4;
 453                                         else if (ch >= 'a' && ch <= 'a')
 454                                                 c = (ch - 'a' + 10) << 4;
 455                                         else {
 456                                                 dbg(DMSG, "Illegal hex char (%c) received in state %d", ch, mp->state);
 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 if (ch >= 'a' && ch <= 'a')
 468                                                 *mp->inp++ = c | (ch - 'a' + 10);
 469                                         else {
 470                                                 dbg(DMSG, "Illegal hex char (%c) received in state %d", ch, mp->state);
 471                                                 mp->inp = mp->data;
 472                                         }
 473                                         mp->state = 0;
 474                                 }
 475                         }
 476                         break;
 477
 478                 default:
 479                         die("invalid sort (%d) in input handler", f->sort);
 480                 }
 481         }
 482
 483         /* output modes */
 484 lout:;
 485         if (out) {
 486                 int l, r;
 487
 488                 if (!f->out) {
 489                         mp = f->out = cmsg_next(f->outq);
 490                         if (!mp) {
 491                                 sp->flags &= ~SEL_OUTPUT;
 492                                 return 0;
 493                         }
 494                         mp->inp = mp->data;
 495                 }
 496                 l = mp->size - (mp->inp - mp->data);
 497                 if (l > 0) {
 498
 499                         dbgdump(DBUF, "<-out", mp->inp, l);
 500
 501                         r = write(f->cnum, mp->inp, l);
 502                         if (r < 0) {
 503                                 switch (errno) {
 504                                 case EINTR:
 505                                 case EINPROGRESS:
 506                                 case EAGAIN:
 507                                         goto lend;
 508                                 default:
 509                                         dbg(DBUF,"got errno %d in output", errno);
 510                                         ending++;
 511                                         return;
 512                                 }
 513                         } else if (r > 0) {
 514                                 mp->inp += r;
 515                         }
 516                 } else if (l < 0)
 517                         die("got negative length in handler on node");
 518                 if (mp->inp - mp->data >= mp->size) {
 519                         cmsg_callback(mp, 0);
 520                         f->out = 0;
 521                 }
 522         }
 523 lend:;
 524         return 0;
 525 }
 526
 527 /*
 528  * set up the various mode flags, NL endings and things
 529  */
 530 void setmode(char *m)
 531 {
 532         connsort = strlower(m);
 533         if (eq(connsort, "telnet") || eq(connsort, "local") || eq(connsort, "nlonly")) {
 534                 nl = '\n';
 535                 echo = 1;
 536                 mode = eq(connsort, "nlonly") ? 2 : 1;
 537         } else if (eq(connsort, "ax25")) {
 538                 nl = '\r';
 539                 echo = 0;
 540                 mode = 0;
 541         } else if (eq(connsort, "connect")) {
 542                 nl = '\n';
 543                 echo = 0;
 544                 mode = 3;
 545         } else {
 546                 die("Connection type must be \"telnet\", \"nlonly\", \"ax25\", \"login\" or \"local\"");
 547         }
 548 }
 549
 550
 551 /*
 552  * things to do with ongoing processing of inputs
 553  */
 554
 555 void process_stdin()
 556 {
 557         cmsg_t *mp = cmsg_next(in->inq);
 558         char *p, hasa, hasn, i;
 559         char callsign[MAXCALLSIGN+1];
 560
 561         if (mp) {
 562                 dbg(DMSG, "MSG size: %d", mp->size);
 563
 564                 switch (state) {
 565                 case CONNECTED:
 566                         if (mp->size > 0) {
 567                                 send_msg(node, 'I', mp->data, mp->size);
 568                         }
 569                         break;
 570                 case WAITLOGIN:
 571                         for (i = 0; i < mp->size; ++i) {
 572                                 UC ch = mp->data[i];
 573                                 if (i < MAXCALLSIGN) {
 574                                         if (isalpha(ch))
 575                                                 ++hasa;
 576                                         if (isdigit(ch))
 577                                                 ++hasn;
 578                                     if (isalnum(ch) || ch == '-')
 579                                                 callsign[i] = ch;
 580                                         else
 581                                                 die("invalid callsign");
 582                                 } else
 583                                         die("invalid callsign");
 584                         }
 585                         callsign[i]= 0;
 586                         if (strlen(callsign) < 3)
 587                                 die("invalid callsign");
 588                         if (hasa && hasn)
 589                                 ;
 590                         else
 591                                 die("invalid callsign");
 592                         call = strupper(callsign);
 593
 594                         /* check the callsign against the regexes */
 595                         if (!iscallsign(call)) {
 596                                 die("Sorry, %s isn't a valid callsign", call);
 597                         }
 598
 599                         alarm(0);
 600                         signal(SIGALRM, SIG_IGN);
 601
 602                         /* tell the cluster who I am */
 603                         send_msg(node, 'A', connsort, strlen(connsort));
 604
 605                         chgstate(CONNECTED);
 606                 }
 607
 608                 cmsg_callback(mp, 0);
 609
 610         }
 611 }
 612
 613 void process_node()
 614 {
 615         cmsg_t *mp = cmsg_next(node->inq);
 616         if (mp) {
 617                 dbg(DMSG, "MSG size: %d", mp->size);
 618
 619                 if (mp->size > 0 && mp->inp > mp->data) {
 620                         char *p = strchr(mp->data, '|');
 621                         if (p)
 622                                 p++;
 623                         switch (mp->data[0]) {
 624                         case 'Z':
 625                                 ending++;
 626                                 return;
 627                         case 'E':
 628                                 if (isdigit(*p))
 629                                         in->echo = *p - '0';
 630                                 break;
 631                         case 'B':
 632                                 if (isdigit(*p))
 633                                         in->buffer_it = *p - '0';
 634                                 break;
 635                         case 'D':
 636                                 if (p) {
 637                                         int l = mp->inp - (UC *) p;
 638                                         send_text(in, p, l, 1);
 639                                 }
 640                                 break;
 641                         default:
 642                                 break;
 643                         }
 644                 }
 645                 cmsg_callback(mp, 0);
 646         } else {
 647                 flush_text(in);
 648         }
 649 }
 650
 651 /*
 652  * things to do with going away
 653  */
 654
 655 void term_timeout(int i)
 656 {
 657         /* none of this is going to be reused so don't bother cleaning up properly */
 658         if (in && in->t_set)
 659                 tcsetattr(0, TCSANOW, &in->t);
 660         if (node) {
 661                 shutdown(node->cnum, 3);
 662                 close(node->cnum);
 663         }
 664         exit(i);
 665 }
 666
 667 void terminate(int i)
 668 {
 669         signal(SIGALRM, term_timeout);
 670         alarm(10);
 671
 672         while ((in && !is_chain_empty(in->outq)) ||
 673                    (node && !is_chain_empty(node->outq))) {
 674                 sel_run();
 675         }
 676         if (in && in->t_set)
 677                 tcsetattr(0, TCSADRAIN, &in->t);
 678         if (node) {
 679                 shutdown(node->cnum, 3);
 680                 close(node->cnum);
 681         }
 682         exit(i);
 683 }
 684
 685 void login_timeout(int i)
 686 {
 687         write(0, "Timed Out", 10);
 688         write(0, &nl, 1);
 689         sel_run();                                      /* force a coordination */
 690         if (in && in->t_set)
 691                 tcsetattr(0, TCSANOW, &in->t);
 692         exit(i);
 693 }
 694
 695 /*
 696  * things to do with initialisation
 697  */
 698
 699 void initargs(int argc, char *argv[])
 700 {
 701         int i, c, err = 0;
 702
 703         while ((c = getopt(argc, argv, "h:p:x:")) > 0) {
 704                 switch (c) {
 705                 case 'h':
 706                         node_addr = optarg;
 707                         break;
 708                 case 'l':
 709                         paclen = atoi(optarg);
 710                         if (paclen < 80)
 711                                 paclen = 80;
 712                         if (paclen > MAXPACLEN)
 713                                 paclen = MAXPACLEN;
 714                         break;
 715                 case 'p':
 716                         node_port = atoi(optarg);
 717                         break;
 718                 case 'x':
 719                         dbginit("client");
 720                         dbgset(atoi(optarg));
 721                         break;
 722                 default:
 723                         ++err;
 724                         goto lerr;
 725                 }
 726         }
 727
 728 lerr:
 729         if (err) {
 730                 die("usage: client [-x n|-h<host>|-p<port>|-l<paclen>] <call>|login [local|telnet|ax25]");
 731         }
 732
 733         if (optind < argc) {
 734                 call = strupper(argv[optind]);
 735                 ++optind;
 736         }
 737         if (!call)
 738                 die("Must have at least a callsign (for now)");
 739
 740         if (optind < argc) {
 741                 setmode(argv[optind]);
 742         } else {
 743                 setmode("local");
 744         }
 745
 746         /* this is kludgy, but hey so is the rest of this! */
 747         if (mode != 0 && paclen == DEFPACLEN) {
 748                 paclen = MAXPACLEN;
 749         }
 750 }
 751
 752 void connect_to_node()
 753 {
 754         struct hostent *hp, *gethostbyname();
 755         struct sockaddr_in server;
 756         int nodef;
 757         sel_t *sp;
 758
 759         if ((hp = gethostbyname(node_addr)) == 0)
 760                 die("Unknown host tcp host %s for printer", node_addr);
 761
 762         memset(&server, 0, sizeof server);
 763         server.sin_family = AF_INET;
 764         memcpy(&server.sin_addr, hp->h_addr, hp->h_length);
 765         server.sin_port = htons(node_port);
 766
 767         nodef = socket(AF_INET, SOCK_STREAM, 0);
 768         if (nodef < 0)
 769                 die("Can't open socket to %s port %d (%d)", node_addr, node_port, errno);
 770
 771         if (connect(nodef, (struct sockaddr *) &server, sizeof server) < 0) {
 772                 die("Error on connect to %s port %d (%d)", node_addr, node_port, errno);
 773         }
 774         node = fcb_new(nodef, MSG);
 775         node->sp = sel_open(nodef, node, "Msg System", fcb_handler, MSG, SEL_INPUT);
 776
 777 }
 778
 779 /*
 780  * the program itself....
 781  */
 782
 783 main(int argc, char *argv[])
 784 {
 785         /* compile regexes for iscallsign */
 786         {
 787                 myregex_t *rp;
 788                 for (rp = iscallreg; rp->in; ++rp) {
 789                         regex_t reg;
 790                         int r = regcomp(&reg, rp->in, REG_EXTENDED|REG_ICASE|REG_NOSUB);
 791                         if (r)
 792                                 die("regcomp returned %d for '%s'", r, rp->in);
 793                         rp->regex = malloc(sizeof(regex_t));
 794                         if (!rp->regex)
 795                                 die("out of room - compiling regexes");
 796                         *rp->regex = reg;
 797                 }
 798         }
 799
 800         /* set up environment */
 801         {
 802                 char *p = getenv("DXSPIDER_ROOT");
 803                 if (p)
 804                         root = p;
 805                 p = getenv("DXSPIDER_HOST");
 806                 if (p)
 807                         node_addr = p;
 808                 p = getenv("DXSPIDER_PORT");
 809                 if (p)
 810                         node_port = atoi(p);
 811                 p = getenv("DXSPIDER_PACLEN");
 812                 if (p) {
 813                         paclen = atoi(p);
 814                         if (paclen < 80)
 815                                 paclen = 80;
 816                         if (paclen > MAXPACLEN)
 817                                 paclen = MAXPACLEN;
 818                 }
 819         }
 820
 821         /* get program arguments, initialise stuff */
 822         initargs(argc, argv);
 823         sel_init(10, 0, 10000);
 824
 825         /* trap signals */
 826         signal(SIGHUP, SIG_IGN);
 827         signal(SIGINT, terminate);
 828         signal(SIGQUIT, terminate);
 829         signal(SIGTERM, terminate);
 830 #ifdef SIGPWR
 831         signal(SIGPWR, terminate);
 832 #endif
 833
 834         /* connect up stdin */
 835         in = fcb_new(0, TEXT);
 836         in->sp = sel_open(0, in, "STDIN", fcb_handler, TEXT, SEL_INPUT);
 837         if (tcgetattr(0, &in->t) < 0) {
 838 /*              echo = 0; */
 839                 in->echo = echo;
 840                 in->t_set = 0;
 841         } else {
 842                 struct termios t = in->t;
 843                 t.c_lflag &= ~(ECHO|ECHONL|ICANON);
 844                 t.c_oflag = 0;
 845                 if (tcsetattr(0, TCSANOW, &t) < 0)
 846                         die("tcsetattr (%d)", errno);
 847                 in->echo = echo;
 848                 in->t_set = 1;
 849         }
 850         in->buffer_it = 1;
 851
 852         /* connect up node */
 853         connect_to_node();
 854
 855         /* is this a login? */
 856         if (eq(call, "LOGIN") || eq(call, "login")) {
 857
 858                 char buf[MAXPACLEN+1];
 859                 int r, i;
 860                 FILE *f = xopen("data", "issue", "r");
 861                 if (f) {
 862                         while (fgets(buf, paclen, f)) {
 863                                 i = strlen(buf);
 864                                 if (i && buf[i-1] == '\n')
 865                                         buf[--i] = 0;
 866                                 send_text(in, buf, i, 1);
 867                         }
 868                         fclose(f);
 869                 }
 870                 signal(SIGALRM, login_timeout);
 871                 alarm(timeout);
 872                 send_text(in, "login: ", 7, 0);
 873                 chgstate(WAITLOGIN);
 874         } else {
 875
 876                 /* check the callsign against the regexes */
 877                 if (!iscallsign(call)) {
 878                         die("Sorry, %s isn't a valid callsign", call);
 879                 }
 880
 881                 /* tell the cluster who I am */
 882                 send_msg(node, 'A', connsort, strlen(connsort));
 883
 884                 chgstate(CONNECTED);
 885         }
 886
 887
 888         /* main processing loop */
 889         while (ending == 0) {
 890                 sel_run();
 891                 if (ending == 0) {
 892                         process_stdin();
 893                         process_node();
 894                 }
 895         }
 896         terminate(0);
 897 }
 898
 899
 900
 901
 902
 903