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