ckcmai.c

   1 #define EDITDATE  "20 Aug 2011"         /* Last edit date dd mmm yyyy */
   2 #define EDITNDATE "20110820"            /* Keep them in sync */
   3 /* Sat Aug 20 17:20:17 2011 */
   4
   5 /* ckcmai.c - Main program for C-Kermit plus some miscellaneous functions */
   6
   7 /*
   8   ckcsym.h is used for for defining symbols that normally would be defined
   9   using -D or -d on the cc command line, for use with compilers that don't
  10   support this feature.  Must come before any tests for preprocessor symbols.
  11 */
  12 #include "ckcsym.h"
  13 /*
  14   Consolidated program C-Kermit version information for all platforms
  15   (but for UNIX also see ckuver.h).  See makever() below for how they are used.
  16 */
  17 #ifdef COMMENT                    /* Uncomment this for real K95 version */
  18 #ifndef OS2                             /* OS2 actually means Kermit 95. */
  19 #ifndef BETATEST                        /* It's because Kermit 95 started */
  20 #define BETATEST                        /* out as C-Kermit for OS/2. */
  21 #endif /* BETATEST */
  22 #endif /* OS2 */
  23 #endif /* COMMENT */
  24
  25 #ifdef BETATEST
  26 #ifdef OS2
  27 #ifdef __DATE__
  28 #define BETADATE
  29 #endif /* __DATE__ */
  30 #endif /* OS2 */
  31 #endif /* BETATEST */
  32
  33 char * ck_cryear = "2011";              /* C-Kermit copyright year */
  34
  35 #ifndef MAC                             /* MAC = Kermit for MAC OS 6, 7, ... */
  36 /*
  37   Note: initialize ck_s_test to "" if this is not a test version.
  38   Use (*ck_s_test != '\0') to decide whether to print test-related messages.
  39 */
  40
  41 #ifndef BETATEST
  42 #ifndef OS2                             /* UNIX, VMS, etc... (i.e. C-Kermit) */
  43 char *ck_s_test = "";                   /* "Dev","Alpha","Beta","RC", or "" */
  44 char *ck_s_tver = "";                   /* Test version number or "" */
  45 #else  /* OS2 */
  46 char *ck_s_test = "";                   /* (i.e. K95) */
  47 char *ck_s_tver = "";
  48 #endif /* OS2 */
  49 #else
  50 char *ck_s_test = "";                   /* Development */
  51 char *ck_s_tver = "";
  52 #endif /* BETATEST */
  53 #else /* MAC */
  54 char *ck_s_test = "Pre-Alpha";          /* Mac Kermit is always a test... */
  55 char *ck_s_tver = "";                   /* (pre Mac OS X 10, that is!) */
  56 #endif /* MAC */
  57
  58 #ifdef BETADATE                         /* Date of this version or edit */
  59 char *ck_s_date = __DATE__;             /* Compilation date */
  60 #else
  61 char *ck_s_date = EDITDATE;             /* See top */
  62
  63 #endif /* BETADATE */
  64 char *buildid = EDITNDATE;              /* See top */
  65
  66 #ifdef UNIX
  67 static char sccsid[] = "@(#)C-Kermit 9.0.302";
  68 #endif /* UNIX */
  69
  70 /*
  71   The C-Kermit Version number is major.minor.edit (integers).
  72   Major version always goes up.
  73   Minor version is historical, hasn't been used since C-Kermit 7.1.
  74   Edit is sequential, always goes up, but there can be gaps.
  75   For example there might be many edits between releases.
  76   If the major goes to 10, some version-number-based feature tests
  77   could fail.  It might be better to use the minor version field
  78   for future releases.
  79 */
  80
  81 char *ck_s_ver = "9.0.302";             /* C-Kermit version string */
  82 long  ck_l_ver =  900302L;              /* C-Kermit version number */
  83
  84 #ifdef OS2
  85 char *ck_s_xver = "3.0.0";              /* Product-specific version string */
  86 long  ck_l_xver = 3000L;                /* Product-specific version number */
  87 #else
  88 #ifdef MAC
  89 char *ck_s_xver = "0.995";              /* Product-specific version string */
  90 long  ck_l_xver = 995L;                 /* Product-specific version number */
  91 #else
  92 char *ck_s_xver = "";                   /* Don't touch these... */
  93 long  ck_l_xver = 0L;                   /* they are computed at runtime */
  94 #endif /* MAC */
  95 #endif /* OS2 */
  96
  97 #ifdef OS2
  98 #ifdef IKSDONLY
  99 #ifdef NT
 100 char *ck_s_name = "IKS-NT";
 101 #else /* NT */
 102 char *ck_s_name = "IKS-OS/2";
 103 #endif /* NT */
 104 #else /* IKSDONLY */
 105 char *ck_s_name = "Kermit 95";          /* Program name */
 106 #endif /* IKSDONLY */
 107 #else
 108 #ifdef MAC
 109 char *ck_s_name = "Mac Kermit";
 110 #else
 111 char *ck_s_name = "C-Kermit";
 112 #endif /* MAC */
 113 #endif /* OS2 */
 114
 115 char *ck_s_who = "";                    /* Where customized, "" = not. */
 116 char *ck_patch = "";                    /* Patch info, if any. */
 117
 118 #define CKVERLEN 128
 119 char versiox[CKVERLEN];                 /* Version string buffer  */
 120 char *versio = versiox;                 /* These are filled in at */
 121 long vernum, xvernum;                   /* runtime from above.    */
 122
 123 #define CKCMAI
 124
 125 #include "ckcasc.h"                     /* ASCII character symbols */
 126 #include "ckcdeb.h"                     /* Debug & other symbols */
 127
 128 char * myname = NULL;                   /* The name I am called by */
 129 #ifndef OS2
 130 char * exedir = NULL;                   /* Directory I was executed from */
 131 #endif /* OS2 */
 132 char * myhome = NULL;                   /* Home directory override */
 133
 134 /*  C K C M A I  --  C-Kermit Main program  */
 135
 136 /*
 137   Author: Frank da Cruz (fdc@columbia.edu),
 138   Columbia University in the city of New York,
 139   Computer Center / Center for Computing Activities / Information Technology.
 140   I am no longer at Columbia U as of 1 July 2011, but the email address
 141   should still work.  The Kermit website http://kermit.columbia.edu should
 142   still be available and under my control, as well as the Kermit FTP site,
 143   ftp://kermit.columbia.edu/kermit/.
 144
 145 COPYRIGHT NOTICE:
 146 */
 147
 148 char *copyright[] = {
 149
 150 #ifdef pdp11
 151 "Copyright (C) 1985, %s, Trustees of Columbia University, NYC.",
 152 "All rights reserved.",
 153 " ",
 154 #else
 155 "Copyright (C) 1985, %s,",
 156 "  The Trustees of Columbia University in the City of New York.",
 157 "  All rights reserved.",
 158 " ",
 159 "Redistribution and use in source and binary forms, with or without",
 160 "modification, are permitted provided that the following conditions",
 161 "are met:",
 162 " ",
 163 " + Redistributions of source code must retain the above copyright",
 164 "   notice, this list of conditions and the following disclaimer.",
 165 " ",
 166 " + Redistributions in binary form must reproduce the above copyright",
 167 "   notice, this list of conditions and the following disclaimer in",
 168 "   the documentation and/or other materials provided with the",
 169 "   distribution.",
 170 " ",
 171 " + Neither the name of Columbia University nor the names of its",
 172 "   contributors may be used to endorse or promote products derived",
 173 "   from this software without specific prior written permission.",
 174 " ",
 175 "THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS",
 176 "\"AS IS\" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT",
 177 "LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR",
 178 "A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT",
 179 "HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,",
 180 "SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT",
 181 "LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,",
 182 "DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY",
 183 "THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT",
 184 "(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE",
 185 "OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.",
 186 #endif /* pdp11 */
 187
 188 #ifdef OS2
 189 "Portions Copyright (C) 2002-2005, Secure Endpoints Inc, New York NY USA.",
 190 "Portions Copyright (C) 1995, Oy Online Solutions Ltd., Jyvaskyla, Finland.",
 191 #endif /* OS2 */
 192
 193 #ifdef CK_AUTHENTICATION
 194 "Portions Copyright (C) 1990, Massachusetts Institute of Technology.",
 195 #ifdef CK_ENCRYPTION
 196 "Portions Copyright (C) 1991, 1993 Regents of the University of California.",
 197 "Portions Copyright (C) 1991, 1992, 1993, 1994, 1995 by AT&T.",
 198 "Portions Copyright (C) 1995, 1997, Eric Young <eay@cryptosoft.com>.",
 199 #endif /* CK_ENCRYPTION */
 200 #ifdef CK_SRP
 201 "Portions Copyright (C) 1997, Stanford University.",
 202 #endif /* CK_SRP */
 203 #endif /* CK_AUTHENTICATION */
 204
 205 #ifndef pdp11
 206 " ",
 207 "For further information, visit the Kermit Project website:",
 208 "http://www.columbia.edu/kermit/ .",
 209 #endif /* pdp11 */
 210 ""};
 211
 212 /* Windows IKSD copyright used to be separate */
 213 char *wiksdcpr = (char *) copyright;
 214
 215
 216 /*
 217 DOCUMENTATION:
 218
 219  "Using C-Kermit" by Frank da Cruz and Christine M. Gianone,
 220   Digital Press / Butterworth-Heinemann, Woburn MA, USA.
 221   Second edition (1997), ISBN 1-55558-164-1.
 222   Order from Digital Press:    +1 (800) 366-2665
 223   Or from Columbia University: +1 (212) 854-3703
 224
 225 For Kermit 95, also:
 226
 227   "Kermit 95" by Christine M. Gianone and Frank da Cruz,
 228   Manning Publications, Greenwich CT, USA (1998) - Online.
 229
 230 ACKNOWLEDGMENTS:
 231
 232   The Kermit file transfer protocol was developed at the Columbia University
 233   Center for Computing Activities (CUCCA), which was since renamed to Columbia
 234   University Academic Information Systems (AcIS) and after that Columbia
 235   University Information Technology (CUIT).  Kermit is named after Kermit the
 236   Frog, star of the television series THE MUPPET SHOW; the name is used by
 237   permission of Henson Associates, Inc.
 238
 239   Thanks to at least the following people for their contributions to this
 240   program over the years, and apologies to anyone who was inadvertantly
 241   omitted:
 242
 243    Chris Adie, Edinburgh U, Scotland (OS/2)
 244    Robert Adsett, University of Waterloo, Canada
 245    Larry Afrin, Clemson U
 246    Russ Allbery, Stanford U
 247    Jeffrey Altman, Columbia University
 248    Greg Andrews, Telebit Corp
 249    Barry Archer, U of Missouri
 250    Robert Andersson, International Systems A/S, Oslo, Norway
 251    Chris Armstrong, Brookhaven National Lab (OS/2)
 252    William Bader, Software Consulting Services, Nazareth, PA
 253    Fuat Baran, Columbia U
 254    Stan Barber, Rice U
 255    Jim Barbour, U of Colorado
 256    Donn Baumgartner, Dell
 257    Ian Beckwith, Debian Project
 258    Nelson Beebe, U of Utah
 259    Gerry Belanger, Cognitronics
 260    Karl Berry, UMB
 261    Mark Berryman, SAIC
 262    Dean W Bettinger, SUNY
 263    Gary Bilkus
 264    Peter Binderup, Denmark
 265    David Bolen, Advanced Networks and Services, Inc.
 266    Joop Bonen
 267    Marc Boucher, U of Montreal
 268    Charles Brooks, EDN
 269    Bob Brown
 270    Mike Brown, Purdue U
 271    Rob Brown
 272    Jack Bryans, California State U at Long Beach
 273    Mark Buda, DEC (VMS)
 274    Fernando Cabral, Padrao iX, Brasilia
 275    Bjorn Carlsson, Stockholm University Computer Centre QZ, Sweden
 276    Bill Catchings, (formerly of) Columbia U
 277    Bob Cattani, Columbia U CS Dept
 278    Davide Cervone, Rochester U
 279    Seth Chaiklin, Denmark
 280    John Chandler, Harvard U / Smithsonian Astronomical Observatory
 281    Bernard Chen, UCLA
 282    Andrew A Chernov, RELCOM Team, Moscow
 283    John L Chmielewski, AT&T, Lisle, IL
 284    Howard Chu, U of Michigan
 285    Bill Coalson, McDonnell Douglas
 286    Bertie Coopersmith, London
 287    Christian Corti
 288    Chet Creider, U of Western Ontario
 289    Alan Crosswell, Columbia U
 290    Jeff Damens, (formerly of) Columbia U
 291    Mark Davies, Bath U, UK
 292    Sin-itirou Dezawa, Fujifilm, Japan
 293    Joe R. Doupnik, Utah State U
 294    Frank Dreano, Honeywell
 295    John Dunlap, U of Washington
 296    Alex Dupuy, SMART.COM
 297    David Dyck, John Fluke Mfg Co.
 298    Stefaan A. Eeckels, Eurokom, Luxembourg
 299    Nick Efthymiou
 300    Paul Eggert, Twin Sun, Inc., El Segundo, CA
 301    Bernie Eiben, DEC
 302    Peter Eichhorn, Assyst International
 303    Kristoffer Eriksson, Peridot Konsult AB, Oerebro, Sweden
 304    John R. Evans, IRS, Kansas City
 305    Glenn Everhart, RCA Labs
 306    Charlie Finan, Cray Research
 307    Herm Fischer, Encino, CA (extensive contributions to version 4.0)
 308    Carl Fongheiser, CWRU
 309    Mike Freeman, Bonneville Power Authority
 310    Carl Friedberg
 311    Marcello Frutig, Catholic University, Sao Paulo, Brazil (X.25 support)
 312    Hirofumi Fujii, Japan Nat'l Lab for High Energy Physics, Tokyo (Kanji)
 313    Chuck Fuller, Westinghouse Corporate Computer Services
 314    Andy Fyfe, Caltech
 315    Christine M. Gianone, Columbia U
 316    John Gilmore, UC Berkeley
 317    Madhusudan Giyyarpuram, HP
 318    Rainer Glaschick, Siemens AG, Paderborn
 319    William H. Glass
 320    German Goldszmidt, IBM
 321    Chuck Goodhart, NASA
 322    Alistair Gorman, New Zealand
 323    Richard Gration, ADFA, Australia
 324    Chris Green, Essex U, UK
 325    Alan Grieg, Dundee Tech, Scotland
 326    Yekta Gursel, MIT
 327    Jim Guyton, Rand Corp
 328    Michael Haertel
 329    Bruno Haible
 330    Bob Hain, UMN
 331    Marion Hakanson, ORST
 332    Richard Hamilton
 333    John Hamilston, Iowa State U
 334    Simon Hania, Netherlands
 335    Stan Hanks, Rice U.
 336    Ken Harrenstein, SRI
 337    Eugenia Harris, Data General (AOS/VS)
 338    David Harrison, Kingston Warren Corp
 339    Lucas Hart, Oregon State University
 340    James Harvey, Indiana/Purdue U (VMS)
 341    Rob Healey
 342    Chuck Hedrick, Rutgers U
 343    Ron Heiby, Technical Systems Division, Motorola Computer Group
 344    Steve Hemminger, Tektronix
 345    Christian Hemsing, RWTH Aachen, Germany (OS-9)
 346    Randolph Herber, US DOE,
 347    Andrew Herbert, Monash Univ, Australia
 348    Marcus Herbert, Germany
 349    Mike Hickey, ITI
 350    Dan Hildebrand, QNX Software Systems Inc, Kanata, ON (QNX)
 351    R E Hill
 352    Stephan Hoffman-Emden
 353    Sven Holmstrom, ABB Utilities AB, Sweden
 354    Bill Homer, Cray Research
 355    Ray Hunter, The Wollongong Group
 356    Randy Huntziger, National Library of Medicine
 357    Larry Jacobs, Transarc
 358    Steve Jenkins, Lancaster University, UK
 359    Dave Johnson, Gradient Technologies
 360    Mark B Johnson, Apple Computer
 361    Jyke Jokinen, Tampere University of Technology, Finland (QNX)
 362    Eric F Jones, AT&T
 363    Luke Jones, AT&T
 364    Peter Jones, U of Quebec Montreal
 365    Phil Julian, SAS Institute
 366    Peter Kabal, U of Quebec
 367    Mic Kaczmarczik, U of Texas at Austin
 368    Sergey Kartashoff, Inst. of Precise Mechanics & Computer Equipment, Moscow
 369    Howie Kaye, Columbia U
 370    Rob Kedoin, Linotype Co, Hauppauge, NY (OS/2)
 371    Phil Keegstra
 372    Mark Kennedy, IBM
 373    Terry Kennedy, St Peter's College, Jersey City, NJ (VMS and more)
 374    "Carlo Kid", Technical University of Delft, Netherlands
 375    Tim Kientzle
 376    Paul Kimoto, Cornell U
 377    Douglas Kingston, morgan.com
 378    Lawrence Kirby, Wiltshire, UK
 379    Tom Kloos, Sequent Computer Systems
 380    Guenter Knauf
 381    Jim Knutson, U of Texas at Austin
 382    John T. Kohl (BSDI)
 383    Scott Kramer, SRI International, Menlo Park, CA
 384    John Kraynack, US Postal Service
 385    David Kricker, Encore Computer
 386    Thomas Krueger, UWM
 387    Bo Kullmar, ABC Klubben, Stockholm, and Central Bank of Sweden, Kista
 388    R. Brad Kummer, AT&T Bell Labs, Atlanta, GA
 389    John Kunze, UC Berkeley
 390    David Lane, BSSI / BellSouth (Stratus VOS, X.25)
 391    Bob Larson, USC (OS-9)
 392    Bert Laverman, Groningen U, Netherlands
 393    Steve Layton
 394    David Lawyer, UC Irvine
 395    Jason Lehr
 396    David LeVine, National Semiconductor Corporation
 397    Daniel S. Lewart, UIUC
 398    S.O. Lidie, Lehigh U
 399    Tor Lillqvist, Helsinki U, Finland
 400    David-Michael Lincke, U of St Gallen, Switzerland
 401    Robert Lipe (for SCO makefile entries & advice)
 402    Dean Long
 403    Mike Long, Analog Devices, Norwood MA
 404    Kevin Lowey, U of Saskatchewan (OS/2)
 405    Andy Lowry, Columbia U
 406    James Lummel, Caprica Telecomputing Resources (QNX)
 407    Lewis McCarthy
 408    David MacKenzie, Environmental Defense Fund, U of Maryland
 409    John Mackin, University of Sidney, Australia
 410    Martin Maclaren, Bath U, UK
 411    Chris Maio, Columbia U CS Dept
 412    Montserrat Mane, HP, Grenoble, France
 413    Fulvio Marino, Olivetti, Ivrea, Italy
 414    Arthur Marsh, dircsa.org.au
 415    Peter Mauzey, Lucent Technologies
 416    Tye McQueen, Utah State U
 417    Ted Medin
 418    Hellmuth Michaelis, Hanseatischer Computerservice GmbH, Hamburg, Germany
 419    Leslie Mikesell, American Farm Bureau
 420    Todd Miller, Courtesan Consulting
 421    Gary Mills
 422    Martin Minow, DEC (VMS)
 423    Pawan Misra, Bellcore
 424    Ken Mizialko, IBM, Manassas, VA
 425    Wolfgang Moeller, DECUS Germany
 426    Ray Moody, Purdue U
 427    Bruce J Moore, Allen-Bradley Co, Highland Heights, OH (Atari ST)
 428    Steve Morley, Convex
 429    Peter Mossel, Columbia U
 430    Tony Movshon, NYU
 431    Lou Muccioli, Swanson Analysis Systems
 432    Dan Murphy
 433    Neal P. Murphy, Harsof Systems, Wonder Lake IL
 434    Gary Mussar
 435    John Nall, FSU
 436    Jack Nelson, U of Pittsburgh
 437    Jim Noble, Planning Research Corporation (Macintosh)
 438    Ian O'Brien, Bath U, UK
 439    Melissa O'Neill, SFU
 440    John Owens
 441    Thomas Pinkl, Health Business Systems Inc.
 442    Michael Pins, Iowa Computer Aided Engineering Network
 443    Andre' Pirard, University of Liege, Belgium
 444    Paul Placeway, Ohio State U
 445    Piet W. Plomp, ICCE, Groningen University, Netherlands
 446    Ken Poulton, HP Labs
 447    Manfred Prange, Oakland U
 448    Christopher Pratt, APV Baker, UK
 449    Frank Prindle, NADC
 450    Tony Querubin, U of Hawaii
 451    Jean-Pierre Radley
 452    Anton Rang
 453    Mike Rechtman
 454    Scott Ribe
 455    Alan Robiette, Oxford University, UK
 456    Michel Robitaille, U of Montreal (Mac)
 457    Huw Rogers, Schweizerische Kreditanstalt, Zuerich
 458    Nigel Roles, Cambridge, England
 459    Kai Uwe Rommel, Technische Universitaet Muenchen (OS/2)
 460    Larry Rosenman (Amiga)
 461    Jay Rouman, U of Michigan
 462    Jack Rouse, SAS Institute (Data General and/or Apollo)
 463    Stew Rubenstein, Harvard U (VMS)
 464    Gerhard Rueckle, FH Darmstadt, Fb. E/Automatisierungstechnik
 465    John Santos, EG&H
 466    Bill Schilit, Columbia U
 467    Ulli Schlueter, RWTH Aachen, Germany (OS-9, etc)
 468    Michael Schmidt, U of Paderborn, Germany
 469    Eric Schnoebelen, Convex
 470    Benn Schreiber, DEC
 471    Dan Schullman, DEC (modems, DIAL command, etc)
 472    John Schultz, 3M
 473    Steven Schultz, Contel (PDP-11)
 474    Steven Schweda
 475    APPP Scorer, Leeds Polytechnic, UK
 476    Gordon Scott, Micro Focus, Newbury UK
 477    Gisbert W. Selke, WIdO, Bonn, Germany
 478    Kijal Shah
 479    David Singer, IBM Almaden Research Labs
 480    David Sizeland, U of London Medical School
 481    Fridrik Skulason, Iceland
 482    Rick Sladkey (Linux)
 483    Dave Slate
 484    Bradley Smith, UCLA
 485    Fred Smith, Merk / Computrition
 486    Richard S Smith, Cal State
 487    Ryan Stanisfer, UNT
 488    Bertil Stenstroem, Stockholm University Computer Centre (QZ), Sweden
 489    James Sturdevant, CAP GEMENI AMERICA, Minneapolis
 490    Peter Svanberg, Royal Techn. HS, Sweden
 491    James R. Swenson, Accu-Weather, Inc.
 492    Ted T'so, MIT (Linux)
 493    Andy Tanenbaum, Vrije U, Amsterdam, Netherlands
 494    Seth Theriault, Columbia U
 495    Glen Thobe
 496    Markku Toijala, Helsinki U of Technology
 497    Teemu Torma, Helsinki U of Technology
 498    Linus Torvalds, Helsinki
 499    Rick Troxel, NIH
 500    Warren Tucker, Tridom Corp, Mountain Park, GA
 501    Dave Tweten, AMES-NAS
 502    G Uddeborg, Sweden
 503    Walter Underwood, Ford Aerospace
 504    Pieter Van Der Linden, Centre Mondial, Paris
 505    Ge van Geldorp, Netherlands
 506    Fred van Kempen, MINIX User Group, Voorhout, Netherlands
 507    Wayne Van Pelt, GE/CRD
 508    Mark Vasoll, Oklahoma State U (V7 UNIX)
 509    Konstantin Vinogradov, ICSTI, Moscow
 510    Paul Vixie, DEC
 511    Bernie Volz, Process Software
 512    Eduard Vopicka, Prague University of Economics, Czech Republic
 513    Martin Vorlaender
 514    Dimitri Vulis, CUNY
 515    Roger Wallace, Raytheon
 516    Stephen Walton, Calif State U, Northridge (Amiga)
 517    Jamie Watson, Adasoft, Switzerland (AIX)
 518    Rick Watson, U of Texas (Macintosh)
 519    Eric Weaver, Columbia U
 520    Scott Weikart (Association for Progressive Communications)
 521    Robert Weiner, Programming Plus, New York City
 522    Lauren Weinstein, Vortex Technlogy
 523    David Wexelblat, AT&T
 524    Clark Wierda, Illuminati Online
 525    Joachim Wiesel, U of Karlsruhe
 526    Lon Willett, U of Utah
 527    Michael Williams, UCLA
 528    Nate Williams, U of Montana
 529    David Wilson
 530    Joellen Windsor, U of Arizona
 531    Patrick Wolfe, Kuck & Associates, Inc.
 532    Gregg Wonderly, Oklahoma State U (V7 UNIX)
 533    Farrell Woods, Concurrent (formerly Masscomp)
 534    Dave Woolley, CAP Communication Systems, London
 535    Jack Woolley, SCT Corp
 536    Frank Wortner
 537    Ken Yap, formerly of U of Rochester
 538    John Zeeff, Ann Arbor, MI
 539 */
 540
 541 #include "ckcker.h"                     /* Kermit symbols */
 542 #include "ckcnet.h"                     /* Network symbols */
 543
 544 #ifdef CK_SSL
 545 #include "ck_ssl.h"
 546 #endif /* CK_SSL */
 547
 548 #ifndef NOSPL
 549 #include "ckuusr.h"
 550 #endif /* NOSPL */
 551
 552 #ifdef OS2ONLY
 553 #define INCL_VIO                        /* Needed for ckocon.h */
 554 #include <os2.h>
 555 #undef COMMENT
 556 #endif /* OS2ONLY */
 557
 558 #ifdef NT
 559 #include <windows.h>
 560 #include <tapi.h>
 561 #include "ckntap.h"
 562 #endif /* NT */
 563
 564 #ifndef NOSERVER
 565 /* Text message definitions.. each should be 256 chars long, or less. */
 566 #ifdef MINIX
 567 char *srvtxt = "\r\n\
 568 Entering server mode.\r\n\0";
 569 #else
 570 #ifdef OLDMSG
 571 /*
 572   It seems there was a large installation that was using C-Kermit 5A(165)
 573   or thereabouts, which had deployed thousands of MS-DOS Kermit scripts in
 574   scattered locations that looked for strings in the old server message,
 575   which changed in 5A(183), August 1992.
 576 */
 577 char *srvtxt = "\r\n\
 578 C-Kermit server starting.  Return to your local machine by typing\r\n\
 579 its escape sequence for closing the connection, and issue further\r\n\
 580 commands from there.  To shut down the C-Kermit server, issue the\r\n\
 581 FINISH or BYE command and then reconnect.\n\
 582 \r\n\0";
 583 #else
 584 #ifdef OSK
 585 char *srvtxt = "\r\012\
 586 Entering server mode.  If your local Kermit software is menu driven, use\r\012\
 587 the menus to send commands to the server.  Otherwise, enter the escape\r\012\
 588 sequence to return to your local Kermit prompt and issue commands from\r\012\
 589 there. Use SEND and GET for file transfer. Use REMOTE HELP for a list of\r\012\
 590 other available services.  Use BYE or FINISH to end server mode.\r\012\0";
 591 #else /* UNIX, VMS, AOS/VS, and all others */
 592 char *srvtxt = "\r\n\
 593 Entering server mode.  If your local Kermit software is menu driven, use\r\n\
 594 the menus to send commands to the server.  Otherwise, enter the escape\r\n\
 595 sequence to return to your local Kermit prompt and issue commands from\r\n\
 596 there.  Use SEND and GET for file transfer.  Use REMOTE HELP for a list of\r\n\
 597 other available services.  Use BYE or FINISH to end server mode.\r\n\0";
 598 #endif /* OSK */
 599 #endif /* OLDMSG */
 600 #endif /* MINIX */
 601 #else  /* server mode disabled */
 602 char *srvtxt = "";
 603 #endif /* NOSERVER */
 604
 605 int initflg = 0;                        /* sysinit() has executed... */
 606 int howcalled = I_AM_KERMIT;            /* How I was called */
 607 int hmtopline = 0;
 608 int quitting = 0;                       /* I'm in the act of quitting */
 609
 610 #ifdef IKSDCONF
 611 char * iksdconf = IKSDCONF;             /* IKSD configuration file */
 612 int    iksdcf   = 0;                    /* Has IKSD c.f. been processed? */
 613 #endif /* IKSDCONF */
 614
 615 int srvcdmsg = 0;                       /* [Server] CD message */
 616 char * cdmsgfile[8] = { NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL };
 617 char * cdmsgstr = NULL;
 618 char * ckcdpath = NULL;
 619
 620 #ifdef NLCHAR                           /* Text-file line terminator */
 621 CHAR feol = NLCHAR;
 622 #else
 623 CHAR feol = 0;
 624 #endif /* NLCHAR */
 625
 626 int fblksiz = DBLKSIZ;          /* File blocksize */
 627 int frecl = DLRECL;             /* File record length */
 628 int frecfm = XYFF_S;            /* File record format (default = stream) */
 629 int forg = XYFO_S;              /* File organization (sequential) */
 630 int fcctrl = XYFP_N;            /* File carriage control (ctrl chars) */
 631 int filecase = FILECASE;        /* Case matters in filenames */
 632 int stathack = 1;               /* Fast directory lookups by default */
 633
 634 char uidbuf[UIDBUFLEN] = { NUL, NUL };  /* User ID buffer */
 635 int cfilef = 0;                         /* Application ("kerbang") file flag */
 636 char cmdfil[CKMAXPATH + 1] = { NUL, NUL }; /* Application file name */
 637 int haveurl = 0;                        /* URL given on command line */
 638
 639 #ifndef NOXFER
 640 /* Multi-protocol support */
 641
 642 struct ck_p ptab[NPROTOS] = {           /* Initialize the Kermit part ... */
 643   { "Kermit",
 644     DRPSIZ,                             /* Receive packet size */
 645     DSPSIZ,                             /* Send packet size */
 646     0,                                  /* Send-packet-size-set flag */
 647     DFWSIZ,                             /* Window size */
 648
 649 #ifdef NEWDEFAULTS
 650     PX_CAU,                             /* Control char unprefixing... */
 651 #else
 652     PX_ALL,
 653 #endif /* NEWDEFAULTS */
 654
 655 #ifdef VMS                              /* Default filename collision action */
 656     XYFX_X,                             /* REPLACE for VAX/VMS */
 657 #else
 658     XYFX_B,                             /* BACKUP for everybody else */
 659 #endif /* VMS */
 660
 661 #ifdef OS2                              /* Flag for file name conversion */
 662     XYFN_L,                             /* Literal for OS2 */
 663 #else
 664     XYFN_C,                             /* Converted for others */
 665 #endif /* OS2 */
 666
 667     PATH_OFF,                   /* Send pathnames OFF */
 668     PATH_AUTO,                  /* Receive pathnames AUTO */
 669     NULL,                       /* Host receive initiation string (binary) */
 670     NULL,                       /* Host receive initiation string (text)   */
 671     NULL,                       /* Host server string */
 672     NULL,                       /* External protocol send command (binary) */
 673     NULL,                       /* External protocol send command (text)   */
 674     NULL,                       /* External protocol receive command (bin) */
 675     NULL }                      /* External protocol receive command (txt) */
 676 #ifdef CK_XYZ
 677 ,
 678 {"XMODEM",    128,128,-1,-1,   1,-1,-1,0,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL},
 679 {"XMODEM-CRC",128,128,-1,-1,  -1,-1,-1,0,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL},
 680 {"YMODEM",   -1, -1,-1,-1,    -1,-1,-1,0,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL},
 681 {"YMODEM-g", -1, -1,-1,-1,    -1,-1,-1,0,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL},
 682 {"ZMODEM",   -1, -1,-1,-1,PX_WIL,-1,-1,0,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL},
 683 {"Other",    -1, -1,-1,-1,    -1,-1,-1,0,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL}
 684 #endif /* CK_XYZ */
 685 };
 686
 687 /* Declarations for Send-Init Parameters */
 688
 689 int spsiz = DSPSIZ,                     /* Current packet size to send */
 690     spmax = DSPSIZ,                     /* Biggest packet size we can send */
 691     lastspmax = DSPSIZ,                 /* Send-packet size last used */
 692     spsizr = DSPSIZ,                    /* Send-packet size requested */
 693     spsizf = 0,                         /* Flag to override size negotiation */
 694     rpsiz = DRPSIZ,                     /* Biggest we want to receive */
 695     urpsiz = DRPSIZ,                    /* User-requested receive pkt size */
 696     maxrps = MAXRP,                     /* Maximum incoming long packet size */
 697     maxsps = MAXSP,                     /* Maximum outbound l.p. size */
 698     maxtry = MAXTRY,                    /* Maximum retries per packet */
 699     wslots = 1,                         /* Window size currently in use */
 700     wslotr = DFWSIZ,                    /* Window size from SET WINDOW */
 701     wslotn = 1,                         /* Window size negotiated in S-pkt */
 702     timeouts = 0,                       /* For statistics reporting */
 703     spackets = 0,                       /*  ... */
 704     rpackets = 0,                       /*  ... */
 705     retrans = 0,                        /*  ... */
 706     crunched = 0,                       /*  ... */
 707     wmax = 0,                           /*  ... */
 708     wcur = 0,                           /*  ... */
 709     srvidl = 0,                         /* Server idle timeout */
 710     srvdis = 1,                         /* Server file xfer display */
 711     srvtim = DSRVTIM,                   /* Server command wait timeout */
 712     srvping = 1,                        /* Server keepalive */
 713 /*
 714   timint is the timeout interval I use when waiting for a packet.
 715   pkttim is the SET RECEIVE TIMEOUT value, sent to the other Kermit.
 716   rtimo is the SET SEND TIMEOUT value.  rtimo is the initial value of
 717   timint.  timint is changed by the value in the incoming negotiation
 718   packet unless a SET SEND TIMEOUT command was given.
 719 */
 720     timint = DMYTIM,                    /* Timeout interval I use */
 721     pkttim = URTIME,                    /* Timeout I want you to use */
 722     rtimo = DMYTIM,                     /* Normal packet wait timeout */
 723     timef = 0,                          /* Flag to override what you ask */
 724 #ifdef CK_TIMERS
 725     rttflg = 1,                         /* Use dynamic round-trip timers */
 726 #else
 727     rttflg = 0,                         /* Use fixed timer */
 728 #endif /* CK_TIMERS */
 729     mintime = 1,                        /* Minimum timeout */
 730     maxtime = 0,                        /* Maximum timeout */
 731
 732     npad = MYPADN,                      /* How much padding to send */
 733     mypadn = MYPADN,                    /* How much padding to ask for */
 734     bctr = DFBCT,                       /* Block check type requested */
 735     bctu = 1,                           /* Block check type used */
 736     bctl = 1,                           /* Block check length */
 737     bctf = 0,                           /* Block check type 3 forced on all */
 738     c_save = -1,                        /* Block check saving and restoring */
 739     ss_save = -1,                       /* Slow-start saving and restoring */
 740     ebq =  MYEBQ,                       /* 8th bit prefix */
 741     ebqflg = 0,                         /* 8th-bit quoting flag */
 742     rqf = -1,                           /* Flag used in 8bq negotiation */
 743     rq = 0,                             /* Received 8bq bid */
 744     sq = 'Y',                           /* Sent 8bq bid */
 745     rpt = 0,                            /* Repeat count */
 746     rptq = MYRPTQ,                      /* Repeat prefix */
 747     rptflg = 0,                         /* Repeat processing flag */
 748     rptena = 1,                         /* Repeat processing enabled */
 749     xfrcan = 1,                         /* Transfer cancellation enabled */
 750     xfrint = 1,                         /* Transfer interruption enabled */
 751     xfrchr = 3,                         /* Transfer cancel char = Ctrl-C */
 752     xfrnum = 3,                         /* Need three of them by default */
 753     g_xfrxla = -1;
 754     char * xfrmsg = NULL;               /* Message for f.t. display screen */
 755 #endif /* NOXFER */
 756
 757 #ifdef NOCSETS
 758 int xfrxla = 0;                         /* Character-set translation */
 759 #else
 760 int xfrxla = 1;                         /* enabled or disabled */
 761 #endif /* NOCSETS */
 762
 763 int havelfs = 0;                        /* Large file support available */
 764
 765 #ifndef NOXFER
 766 int epktflg = 0;                        /* E-PACKET command active */
 767
 768 int capas  = 9,                         /* Position of Capabilities */
 769     lpcapb = 2,                         /* Long Packet capability */
 770     lpcapr = 1,                         /*  requested */
 771     lpcapu = 0,                         /*  used */
 772     swcapb = 4,                         /* Sliding Window capability */
 773     swcapr = 1,                         /*  requested (allowed) */
 774     swcapu = 0,                         /*  used */
 775     atcapb = 8,                         /* Attribute capability */
 776     atcapr = 1,                         /*  requested */
 777     atcapu = 0,                         /*  used */
 778     rscapb = 16,                        /* RESEND capability */
 779     rscapr = 1,                         /*  requested by default */
 780     rscapu = 0,                         /*  used */
 781     lscapb = 32,                        /* Locking Shift capability */
 782     lscapr = 1,                         /*  requested by default */
 783     lscapu = 0;                         /*  used */
 784
 785 /* Flags for whether to use particular attributes */
 786
 787 int atenci = 1,                         /* Encoding in */
 788     atenco = 1,                         /* Encoding out */
 789     atdati = 1,                         /* Date in */
 790     atdato = 1,                         /* Date out */
 791     atdisi = 1,                         /* Disposition in/out */
 792     atdiso = 1,
 793     atleni = 1,                         /* Length in/out (both kinds) */
 794     atleno = 1,
 795     atblki = 1,                         /* Blocksize in/out */
 796     atblko = 1,
 797     attypi = 1,                         /* File type in/out */
 798     attypo = 1,
 799     atsidi = 1,                         /* System ID in/out */
 800     atsido = 1,
 801     atsysi = 1,                        /* System-dependent parameters in/out */
 802     atsyso = 1;
 803
 804 int dispos = 0;                         /* Disposition */
 805
 806 #ifdef CK_PERMS
 807 int atlpri = 1,
 808     atlpro = 1,
 809     atgpri = 1,
 810     atgpro = 1;
 811 #endif /* CK_PERMS */
 812
 813 int atfrmi = 1,                         /* Record Format in/out */
 814     atfrmo = 1;
 815
 816 #ifdef STRATUS
 817 int atcrei = 1,                         /* Creator ID in/out */
 818     atcreo = 1,
 819     atacti = 1,                         /* Account in/out */
 820     atacto = 1;
 821 #endif /* STRATUS */
 822
 823 int sprmlen = -1;                       /* Send/Receive protocol parameter */
 824 int rprmlen = -1;                       /* string length limits */
 825 int sendipkts = 1;                      /* Send I packets */
 826
 827 CHAR padch = MYPADC,                    /* Padding character to send */
 828     mypadc = MYPADC,                    /* Padding character to ask for */
 829     seol = MYEOL,                       /* End-Of-Line character to send */
 830     eol = MYEOL,                        /* End-Of-Line character to look for */
 831     ctlq = CTLQ,                        /* Control prefix in incoming data */
 832     myctlq = CTLQ,                      /* Outbound control character prefix */
 833     myrptq = MYRPTQ;                    /* Repeat prefix I want to use */
 834
 835 int rptmin = 3;                         /* Repeat-count minimum */
 836
 837 int usepipes = 0,                       /* Used for xfer to/from pipes */
 838     g_usepipes = -1;
 839
 840 char * filefile = NULL;                 /* File containing list of filenames */
 841 /* CD message filename list */
 842
 843 char whoareu[16] = { NUL, NUL };        /* System ID of other Kermit */
 844 int sysindex = -1;                      /* and index to its system ID struct */
 845 int myindex  = -1;
 846 int wearealike = 0;                     /* 2 Kermits have compatible sysids */
 847 char * cksysid =                        /* My system ID */
 848 #ifdef UNIX
 849     "U1"
 850 #else
 851 #ifdef VMS
 852     "D7"
 853 #else
 854 #ifdef OSK
 855     "UD"
 856 #else
 857 #ifdef AMIGA
 858     "L3"
 859 #else
 860 #ifdef MAC
 861     "A3"
 862 #else
 863 #ifdef OS2
 864 #ifdef NT
 865     "UN"
 866 #else /* NT */
 867     "UO"
 868 #endif /* NT */
 869 #else /* OS2 */
 870 #ifdef datageneral
 871     "F3"
 872 #else
 873 #ifdef GEMDOS
 874     "K2"
 875 #else
 876 #ifdef STRATUS
 877     "MV"
 878 #else
 879     ""
 880 #endif /* STRATUS */
 881 #endif /* GEMDOS */
 882 #endif /* datageneral */
 883 #endif /* OS2 */
 884 #endif /* MAC */
 885 #endif /* AMIGA */
 886 #endif /* OSK */
 887 #endif /* VMS */
 888 #endif /* UNIX */
 889     ;
 890
 891 int oopts = -1;                         /* O-Packet Options */
 892 int omode = -1;                         /* O-Packet Transfer Mode */
 893 int oname = -1;                         /* O-Packet Filename Options */
 894 int opath = -1;                         /* O-Packet Pathname Options */
 895
 896 struct zattr iattr;                     /* Incoming file attributes */
 897
 898 #ifdef VMS
 899 /* VMS labeled file default options - name only. */
 900 int lf_opts = LBL_NAM;
 901 #else
 902 #ifdef OS2
 903 /* OS/2 labeled file default options, all attributes but archived. */
 904 unsigned long int lf_opts = LBL_EXT|LBL_HID|LBL_RO|LBL_SYS;
 905 #else
 906 int lf_opts = 0;
 907 #endif /* OS2 */
 908 #endif /* VMS */
 909
 910 /* Packet-related variables */
 911
 912 int pktnum = 0,                         /* Current packet number */
 913     sndtyp = 0,                         /* Type of packet just sent */
 914     rcvtyp = 0,                         /* Type of packet just received */
 915     rsn,                                /* Received packet sequence number */
 916     rln,                                /* Received packet length */
 917     size,                               /* Current size of output pkt data */
 918     osize,                              /* Previous output packet data size */
 919     maxsize,                            /* Max size for building data field */
 920     spktl = 0,                          /* Length packet being sent */
 921     rpktl = 0,                          /* Length of packet just received */
 922     pktpaus = 0,                        /* Interpacket pause interval, msec */
 923     rprintf,                            /* REMOTE PRINT flag */
 924     rmailf,                             /* MAIL flag */
 925     xferstat = -1,                      /* Status of last transaction */
 926     filestatus = 0;                     /* Status of last file transfer */
 927
 928 CHAR pktmsgbuf[PKTMSGLEN+1];
 929 CHAR *epktmsg = pktmsgbuf;
 930
 931 #ifdef pdp11
 932 int srvcmdlen = MAXRP;                  /* srvcmd buffer length */
 933 #else
 934 #ifdef DYNAMIC
 935 int srvcmdlen = MAXRP;
 936 #else
 937 int srvcmdlen = 0;
 938 #endif /* DYNAMIC */
 939 #endif /* pdp11 */
 940
 941 CHAR
 942 #ifdef pdp11
 943     srvcmdbuf[MAXRP+4],
 944     *srvcmd = srvcmdbuf,
 945 #else
 946 #ifdef DYNAMIC
 947     *srvcmd = (CHAR *)0,                /* Where to decode server command */
 948 #else
 949     srvcmdbuf[MAXRP+4],
 950     *srvcmd = srvcmdbuf,
 951 #endif /* DYNAMIC */
 952 #endif /* pdp11 */
 953     padbuf[96],                         /* Buffer for send-padding */
 954     *recpkt,
 955     *rdatap,                            /* Pointer to received packet data */
 956     *data = (CHAR *)0,                  /* Pointer to send-packet data */
 957     *srvptr,                            /* Pointer to srvcmd */
 958     mystch = SOH,                       /* Outbound packet-start character */
 959     stchr = SOH;                        /* Incoming packet-start character */
 960
 961 /* File-related variables */
 962
 963 #ifndef NOMSEND                         /* Multiple SEND */
 964 struct filelist * filehead = NULL;      /* SEND list */
 965 struct filelist * filetail = NULL;
 966 struct filelist * filenext = NULL;
 967 int addlist = 0;
 968 #endif /* NOMSEND */
 969
 970 char filnam[CKMAXPATH + 1];             /* Name of current file. */
 971 char ofilnam[CKMAXPATH + 1];            /* Original name. */
 972
 973 int pipesend = 0;                       /* Nonzero if sending from pipe */
 974 #ifdef PIPESEND
 975 char * sndfilter = NULL;                /* Send and receive filters */
 976 char * rcvfilter = NULL;
 977 #endif /* PIPESEND */
 978
 979 char ** sndarray = NULL;                /* SEND /ARRAY pointer and range */
 980 #ifndef NOSPL
 981 int sndxlo = -1, sndxhi = -1, sndxin = -1;
 982 #endif /* NOSPL */
 983 #endif /* NOXFER */
 984
 985 #ifndef NOSERVER
 986 int ngetpath = 0;                       /* GET search path */
 987 int fromgetpath = 0;
 988 char * getpath[MAXGETPATH];
 989 char * x_user = NULL;                   /* Server login information */
 990 char * x_passwd = NULL;
 991 char * x_acct = NULL;
 992 #endif /* NOSERVER */
 993
 994 int x_login = 0;                        /* Login required */
 995 int x_logged = 0;                       /* User is logged in */
 996
 997 extern int timelimit;
 998
 999 #ifdef CK_LOGIN
1000 int logintimo = 300;                    /* Login timeout */
1001 char * userfile = NULL;                 /* Forbidden user file */
1002 #endif /* CK_LOGIN */
1003 #ifdef IKSD
1004 char * anonfile = NULL;                 /* Anonymous login init file */
1005 char * anonroot = NULL;                 /* Anonymous file-system root */
1006 int iks_timo  = 300;                    /* 5 minutes idle timo */
1007 int iks_retry = 3;                      /* 3 attempts at login */
1008 #endif /* IKSD */
1009
1010 #ifdef CKSYSLOG
1011 extern VOID zsyslog();
1012 extern int ckxlogging, ckxsyslog;
1013 #endif /* CKSYSLOG */
1014
1015 CK_OFF_T fsize = (CK_OFF_T)0,           /* Size of current file */
1016  sendstart = (CK_OFF_T)0,               /* SEND start position */
1017  calibrate = (CK_OFF_T)0;               /* Nonzero if calibration run */
1018
1019 int nzxopts = 0;                        /* Options for nzxpand() */
1020 int nfils = 0;                          /* Number of files in file group */
1021 int wildena = 1;                        /* Wildcard expansion enabled */
1022 #ifdef UNIX
1023 int wildxpand = 0;                      /* Who expands wildcards, 0=Kermit.. */
1024 #else /* UNIX */
1025 #ifdef STRATUS
1026 int wildxpand = 1;                      /* 1=Shell. */
1027 #endif /* STRATUS */
1028 #endif /* UNIX */
1029 #ifdef UNIXOROSK
1030 int matchdot = 0;                       /* Whether to match dot files */
1031 #else
1032 int matchdot = 1;
1033 #endif /* UNIXOROSK */
1034 int matchfifo = 0;                      /* Whether to match FIFO "files" */
1035 int clfils = 0;                         /* Flag for command-line files */
1036 int stayflg = 0;                        /* Flag for "stay", i.e. "-S" */
1037 int xfinish = 0;                        /* Flag for FINISH = EXIT */
1038 long ztusec = -1L;                      /* Used with ztime() */
1039 long ztmsec = -1L;                      /* Ditto */
1040
1041 /* Communication device / connection variables */
1042
1043 char ttname[TTNAMLEN+1];                /* Name of communication device */
1044
1045 #ifdef MAC
1046 int connected = 0;                      /* True if connected */
1047 int startconnected;                     /* initial state of connected */
1048 #endif /* MAC */
1049
1050 long speed = -1L;                       /* Communication device speed */
1051 int wasclosed = 0;                      /* Connection was just closed */
1052 int whyclosed = WC_REMO;                /* why it was closed */
1053 int qnxportlock = 0;                    /* QNX port locking on/off */
1054
1055 #ifndef CLSONDISC
1056 #define CLSONDISC 0
1057 #endif /* CLSONDISC */
1058
1059 int cxflow[CXT_MAX+1];                  /* See initflow() */
1060
1061 #ifndef NOSHOW
1062 char * floname[] = {                    /* Flow control names */
1063   "none", "xon/xoff", "rts/cts", "dtr/cd", "etx/ack", "string",
1064   "xxx1", "xxx2", "dtr/cts", "keep", "auto"
1065 };
1066 int nfloname = (sizeof(floname) / sizeof(char *));
1067
1068 char * cxname[] = {                     /* Connection type names */
1069   "remote", "direct-serial", "modem", "tcp/ip", "x.25", "decnet",
1070   "lat", "netbios", "named-pipe", "ssh", "pipe"
1071 };
1072 int ncxname = (sizeof(cxname) / sizeof(char *));
1073 #endif /* NOSHOW */
1074
1075 int parity = DEFPAR,                    /* Parity specified, 0,'e','o',etc */
1076     hwparity = 0,                       /* Hardware parity for serial port */
1077     stopbits = -1,                      /* Stop bits for serial port */
1078     clsondisc = CLSONDISC,              /* Serial port close on disconnect */
1079     autopar = 0,                        /* Automatic parity change flag */
1080     sosi = 0,                           /* Shift-In/Out flag */
1081     flow = 0,                           /* Flow control (see initflow()) */
1082     autoflow = 1,                       /* Automatic flow control */
1083     turn = 0,                           /* Line turnaround handshake flag */
1084     turnch = XON,                       /* Line turnaround character */
1085     duplex = 0,                         /* Duplex, full by default */
1086     escape = DFESC,                     /* Escape character for connect */
1087     ckdelay = DDELAY,                   /* Initial delay before sending */
1088     tnlm = 0;                           /* Terminal newline mode */
1089
1090 /* Networks for SET HOST */
1091
1092 #ifdef BIGBUFOK
1093 #define MYHOSTL 1024
1094 #else
1095 #define MYHOSTL 100
1096 #endif /* BIGBUFOK */
1097
1098 char myhost[MYHOSTL];                   /* Local host name */
1099 int network = 0;                        /* Network vs serial connection */
1100 int inserver = 0;                       /* Running as an Internet server */
1101 int isguest = 0;                        /* User is anonymous */
1102 char * clienthost = NULL;               /* Peer host name or address */
1103 int tcp_incoming = 0;                   /* Incoming TCP connection? */
1104
1105 #ifdef NETCONN
1106 #ifdef TCPSOCKET
1107 int nettype = NET_TCPB;                 /* Default network type */
1108 #else
1109 #ifdef SUNX25
1110 int nettype = NET_SX25;
1111 #else
1112 #ifdef IBMX25
1113 int nettype = NET_IX25;
1114 #else
1115 #ifdef HPX25
1116 int nettype = NET_HX25;
1117 #else
1118 #ifdef STRATUSX25
1119 int nettype = NET_VX25;
1120 #else
1121 #ifdef DECNET
1122 int nettype = NET_DEC;
1123 #else
1124 #ifdef SUPERLAT
1125 int nettype = NET_SLAT;
1126 #else
1127 int nettype = NET_NONE;
1128 #endif /* SUPERLAT */
1129 #endif /* DECNET */
1130 #endif /* STRATUSX25 */
1131 #endif /* HPX25 */
1132 #endif /* IBMX25 */
1133 #endif /* SUNX25 */
1134 #endif /* TCPSOCKET */
1135 #else  /* NETCONN */
1136 int nettype = NET_NONE;
1137 #endif /* NETCONN */
1138
1139 #ifdef ANYX25
1140 int revcall = 0;                        /* X.25 reverse call not selected */
1141 int closgr  = -1;                       /* X.25 closed user group  */
1142 int cudata = 0;                         /* X.25 call user data not specified */
1143 char udata[MAXCUDATA];                  /* X.25 call user data */
1144
1145 #ifdef IBMX25
1146 /*
1147   I was unable to find any pre-defined MAX values for x25 addresses - the
1148   addresses that I've seen have been around 10-12 characters 32 is probably
1149   enough, 64 is hopefully safe for everyone.
1150 */
1151     x25addr_t local_nua = {'\0'};       /* local x.25 address */
1152     x25addr_t remote_nua = {'\0'};      /* remote x.25 address */
1153     char x25name[32] = {'\0'};          /* x25 device name, sx25a0 or sx25a1 */
1154     char x25dev[64] =  "/dev/x25pkt";   /* x25 device in /dev */
1155     int x25port = 0;                    /* port used for X.25 - AIX only */
1156 #endif /* IBMX25 */
1157
1158 #ifndef IBMX25
1159 /*
1160   This condition is unrelated to the above IBMX25 condition.
1161   IBM X.25 doesn't have PAD support.
1162 */
1163     CHAR padparms[MAXPADPARMS+1]; /* X.3 parameters */
1164 #endif /* IBMX25 */
1165 #endif /* ANYX25 */
1166
1167 /* Other items */
1168
1169 int isinterrupted = 0;                  /* Used in exception handling */
1170 int what = W_INIT;                      /* What I am doing */
1171 int lastxfer = 0;                       /* Last transfer (send or receive) */
1172
1173 extern int mdmtyp;                      /* Modem (/network) type */
1174
1175 #ifdef NT
1176 extern int StartedFromDialer;
1177 #ifdef NTSIG
1178 extern int TlsIndex;
1179 #endif /* NTSIG */
1180 #ifdef NTASM
1181 unsigned long ESPToRestore;             /* Ditto */
1182 #endif /* NTASM */
1183 #endif /* NT */
1184
1185 #ifdef OS2PM
1186 int os2pm = 0;                          /* OS/2 Presentation Manager flag */
1187 #endif /* OS2PM */
1188
1189 /* Terminal screen size, if known, -1 means unknown. */
1190
1191 #ifdef OS2
1192 #include "ckocon.h"
1193 #ifdef KUI
1194 int tt_rows[VNUM] = {24,24,25,1};       /* Rows (height) */
1195 int tt_cols[VNUM] = {80,80,80,80};      /* Columns (width) */
1196 int cmd_rows = 24, cmd_cols = 80;       /* Command/console screen dimensions */
1197 #else /* KUI */
1198 int tt_rows[VNUM] = {-1,24,25,1};       /* Rows (height) */
1199 int tt_cols[VNUM] = {-1,80,80,80};      /* Columns (width) */
1200 int cmd_rows = -1, cmd_cols = -1;       /* Command/console screen dimensions */
1201 #endif /* KUI */
1202 int k95stdio = 0;                       /* Stdio threads */
1203 int tt_bell = XYB_AUD | XYB_SYS;        /* BELL AUDIBLE (system sounds) */
1204 #else /* OS2 */
1205 int tt_rows = -1;                       /* Rows (height) */
1206 int tt_cols = -1;                       /* Columns (width) */
1207 int cmd_rows = 24, cmd_cols = 80;       /* Command/console screen dimensions */
1208 int tt_bell = XYB_AUD;                  /* BELL ON */
1209 #endif /* OS2 */
1210
1211 int tt_print = 0;                       /* Transparent print disabled */
1212 int tt_escape = 1;                      /* Escaping back is enabled */
1213 int tt_scroll = 1;                      /* Scrolling operations are enabled */
1214
1215 int tn_exit = 0;                        /* Exit on disconnect */
1216
1217 int exitonclose = 0;                    /* Exit on close */
1218 int exithangup = 1;                     /* Hangup on exit */
1219 int haveline = 0;                       /* SET LINE or SET HOST in effect */
1220 int tlevel = -1;                        /* Take-file command level */
1221 int hints = 1;                          /* Whether to give hints */
1222
1223 #ifdef NOLOCAL
1224 int remonly = 1;                        /* Remote-mode-only advisory (-R) */
1225 int nolocal = 1;                        /* Remote-only strictly enforced */
1226 #else
1227 int remonly = 0;
1228 int nolocal = 0;
1229 int cx_status = 0;                      /* CONNECT return status */
1230 #endif /* NOLOCAL */
1231
1232 #ifndef NOSPL
1233 extern int cmdlvl;                      /* Command level */
1234 extern int maclvl;                      /* Macro invocation level */
1235 #endif /* NOSPL */
1236
1237 int protocol  = PROTO_K;                /* File transfer protocol = Kermit */
1238
1239 #ifdef NEWDEFAULTS
1240 int prefixing = PX_CAU;
1241 #else
1242 int prefixing = PX_ALL;
1243 #endif /* NEWDEFAULTS */
1244
1245 extern short ctlp[];                    /* Control-prefix table */
1246
1247 int carrier = CAR_AUT;                  /* Pay attention to carrier signal */
1248 int cdtimo = 0;                         /* Carrier wait timeout */
1249 int xitsta = GOOD_EXIT;                 /* Program exit status */
1250
1251 #ifdef VMS                              /* Default filename collision action */
1252 int fncact = XYFX_X;                    /* REPLACE for VMS */
1253 #else
1254 int fncact = XYFX_B;                    /* BACKUP for everybody else */
1255 #endif /* VMS */
1256
1257 int fncsav = -1;                        /* For saving & restoring the above */
1258 int bgset = -1;                         /* BACKGROUND mode set explicitly */
1259
1260 int cmdint = 1;                         /* Interrupts are allowed */
1261 #ifdef UNIX
1262 int xsuspend = DFSUSP;                  /* Whether SUSPEND command, etc, */
1263 #else                                   /* is to be allowed. */
1264 int xsuspend = 0;
1265 #endif /* UNIX */
1266
1267 /* Statistics variables */
1268
1269 CK_OFF_T
1270     flci,                       /* Characters from line, current file */
1271     flco,                       /* Chars to line, current file  */
1272     tlci,                       /* Chars from line in transaction */
1273     tlco,                       /* Chars to line in transaction */
1274     ffc,                        /* Chars to/from current file */
1275     tfc;                        /* Chars to/from files in transaction */
1276
1277 long filcnt,                    /* Number of files in transaction */
1278     filrej,                     /* Number of files rejected in transaction */
1279     cps = 0L,                   /* Chars/sec last transfer */
1280     peakcps = 0L,               /* Peak chars/sec last transfer */
1281     ccu,                        /* Control chars unprefixed in transaction */
1282     ccp,                        /* Control chars prefixed in transaction */
1283     rptn;                       /* Repeated characters compressed */
1284
1285 int tsecs = 0;                          /* Seconds for transaction */
1286 int fsecs = 0;                          /* Per-file timer */
1287
1288 #ifdef GFTIMER
1289 CKFLOAT
1290   fpfsecs = 0.0,                        /* Floating point per-file timer */
1291   fptsecs = 0.0;                        /* and per-transaction timer */
1292 #endif /* GFTIMER */
1293
1294 /* Flags */
1295
1296 int deblog = 0,                         /* Debug log is open */
1297     debok = 1,                          /* Debug log is not disabled */
1298     debxlen = 54,                       /* Default length for debug strings */
1299     debses = 0,                         /* Flag for DEBUG SESSION */
1300     debtim = 0,                         /* Include timestamp in debug log */
1301     debmsg = 0,                         /* Debug messages on/off */
1302     pktlog = 0,                         /* Flag for packet logging */
1303     seslog = 0,                         /* Session logging */
1304     dialog = 0,                         /* DIAL logging */
1305     tralog = 0,                         /* Transaction logging */
1306     tlogfmt = 1,                        /* Transaction log format (verbose) */
1307     tlogsep = (int)',',                 /* Transaction log field separator */
1308     displa = 0,                         /* File transfer display on/off */
1309     stdouf = 0,                         /* Flag for output to stdout */
1310     stdinf = 0,                         /* Flag for input from stdin */
1311     xflg   = 0,                         /* Flag for X instead of F packet */
1312     hcflg  = 0,                         /* Doing Host command */
1313     dest   = DEST_D,                    /* Destination for packet data */
1314     zchkod = 0,                         /* zchko() should work for dirs too? */
1315     zchkid = 0,                         /* zchki() should work for dirs too? */
1316
1317 /* If you change this, also see struct ptab above... */
1318
1319 #ifdef OS2                              /* Flag for file name conversion */
1320     fncnv  = XYFN_L,                    /* Default is Literal in OS/2, */
1321     f_save = XYFN_L,                    /* (saved copy of same) */
1322 #else
1323     fncnv  = XYFN_C,                    /* elsewhere Convert them */
1324     f_save = XYFN_C,                    /* (ditto) */
1325 #endif /* OS2 */
1326
1327     fnspath = PATH_OFF,                 /* Send file path */
1328     fnrpath = PATH_AUTO,                /* Receive file path */
1329     fackpath = 1,                       /* Send back path in ACK to F */
1330     binary = XYFT_B,                    /* Default file transfer mode */
1331     b_save = XYFT_B,                    /* Saved file mode */
1332     eofmethod = 0,                      /* EOF detection method (length) */
1333
1334 #ifdef OS2
1335     cursor_save = -1,                   /* Cursor state */
1336 #endif /* OS2 */
1337
1338     xfermode = XMODE_A,                 /* Transfer mode, manual or auto */
1339     xfiletype = -1,                     /* Transfer only text (or binary) */
1340     recursive = 0,                      /* Recursive directory traversal */
1341     nolinks   = 2,                      /* Don't follow symbolic links */
1342     skipbup   = 0,                      /* Skip backup files when sending */
1343     sendmode = SM_SEND,                 /* Which type of SEND operation */
1344     slostart  = 1,                      /* Slow start (grow packet lengths) */
1345     cmask  = 0377,                      /* CONNECT (terminal) byte mask */
1346     fmask  = 0377,                      /* File byte mask */
1347     ckwarn = 0,                         /* Flag for file warning */
1348     quiet  = 0,                         /* Be quiet during file transfer */
1349     local  = 0,                         /* 1 = local mode, 0 = remote mode */
1350     cxtype = CXT_REMOTE,                /* Connection type */
1351     server = 0,                         /* Flag for I Am Server */
1352     query = 0,                          /* Flag for Query active */
1353     justone = 0,                        /* Server should do Just One command */
1354     urserver = 0,                       /* Flag for You Are Server */
1355     bye_active = 0,                     /* Flag for BYE command active */
1356     diractive = 0,                      /* Flag for DIRECTORY command active */
1357     cdactive = 0,                       /* Flag for CD command active */
1358     cflg   = 0,                         /* Connect before transaction */
1359     cnflg  = 0,                         /* Connect after transaction */
1360     cxseen = 0,                         /* Flag for cancelling a file */
1361     czseen = 0,                         /* Flag for cancelling file group */
1362     fatalio = 0,                        /* Flag for fatal i/o error */
1363     discard = 0,                        /* Flag for file to be discarded */
1364     keep = SET_AUTO,                    /* Keep incomplete files = AUTO */
1365     unkcs = 1,                          /* Keep file w/unknown character set */
1366 #ifdef VMS
1367     filepeek = 0,                       /* Inspection of files */
1368 #else
1369 #ifdef datgeneral
1370     filepeek = 0,
1371 #else
1372     filepeek = 1,
1373 #endif /* datageneral */
1374 #endif /* VMS */
1375     nakstate = 0,                       /* In a state where we can send NAKs */
1376     dblchar = -1,                       /* Character to double when sending */
1377     moving = 0,                         /* MOVE = send, then delete */
1378     reliable = SET_AUTO,                /* Nonzero if transport is reliable */
1379     xreliable = -1,
1380     setreliable = 0,
1381     urclear = 0,                        /* Nonzero for clear channel to you */
1382     clearrq = SET_AUTO,                 /* SET CLEARCHANEL value */
1383     cleared = 0,
1384     streaming = 0,                      /* Nonzero if streaming is active */
1385     streamok = 0,                       /* Nonzero if streaming negotiated */
1386     streamrq = SET_AUTO,                /* SET STREAMING value */
1387     streamed = -1;                      /* Whether we streamed last time */
1388
1389 char * snd_move = NULL;                 /* Move file after sending it */
1390 char * snd_rename = NULL;               /* Rename file after sending it */
1391 char * rcv_move = NULL;                 /* Move file after receiving it */
1392 char * rcv_rename = NULL;               /* Rename file after receiving it */
1393
1394 char * g_snd_move = NULL;
1395 char * g_snd_rename = NULL;
1396 char * g_rcv_move = NULL;
1397 char * g_rcv_rename = NULL;
1398
1399 #ifdef CK_TRIGGER
1400 char *tt_trigger[TRIGGERS] = { NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL };
1401 CHAR *tt_trmatch[TRIGGERS] = { NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL };
1402 char *triggerval = NULL;
1403 #endif /* CK_TRIGGER */
1404
1405 int ckxlogging = 0;                     /* Flag for syslogging active */
1406 int ikdbopen = 0;                       /* Flag for IKSD database active */
1407 int dbinited = 0;                       /* Flag for IKSDB record init'd */
1408 #ifndef CKSYSLOG
1409 int ckxsyslog = 0;                      /* Logging level 0 */
1410 #else
1411 #ifdef SYSLOGLEVEL
1412 int ckxsyslog = SYSLOGLEVEL;            /* Logging level specified */
1413 #else
1414 int ckxsyslog = SYSLG_DF;               /* Default logging level */
1415 #endif /* SYSLOGLEVEL */
1416 #endif /* CKSYSLOG */
1417
1418 #ifndef NOHELP
1419 #ifndef NOCMDL
1420 _PROTOTYP( VOID iniopthlp, (void) );    /* Command-line help initializer */
1421 #endif /* NOCMDL */
1422 #endif /* NOHELP */
1423
1424 _PROTOTYP( VOID getexedir, (void) );
1425 _PROTOTYP( int putnothing, (char) );
1426
1427 #ifdef IKSD
1428 _PROTOTYP( VOID doiksdinit, (void) );
1429 _PROTOTYP( VOID iksdinit, (void) );
1430 _PROTOTYP( VOID doiklog, (void) );
1431 _PROTOTYP( int dbinit, (void) );
1432 #endif /* IKSD */
1433
1434 /* Variables passed from command parser to protocol module */
1435
1436 #ifndef NOSPL
1437 #ifndef NOICP
1438 #ifdef CK_APC
1439 _PROTOTYP( VOID apconect, (void) );
1440 #endif /* CK_APC */
1441 #ifdef OS2
1442 extern int initvik;
1443 #endif /* OS2 */
1444 #endif /* NOICP */
1445 #endif /* NOSPL */
1446 char *clcmds = NULL;                    /* Pointer to command-line commands */
1447
1448 #ifndef NOSETKEY
1449 extern KEY *keymap;
1450 extern MACRO *macrotab;
1451 #endif /* NOSETKEY */
1452
1453 #ifndef NOPUSH
1454 int nopush = 0;                         /* PUSH enabled */
1455 #else
1456 int nopush = 1;                         /* PUSH disabled */
1457 #endif /* NOPUSH */
1458
1459 CHAR sstate  = (CHAR) 0;                /* Starting state for automaton */
1460 CHAR zstate  = (CHAR) 0;                /* For remembering sstate */
1461 char * printername = NULL;              /* NULL if printer not redirected */
1462 int printpipe = 0;                      /* For SET PRINTER */
1463 int noprinter = 0;
1464
1465 #ifndef NOXFER
1466 char *cmarg  = "";                      /* Pointer to command data */
1467 char *cmarg2 = "";                      /* Pointer to 2nd command data */
1468 char **cmlist;                          /* Pointer to file list in argv */
1469
1470 #ifdef CK_AUTODL                        /* Autodownload */
1471 int autodl = 1;                         /* Enabled by default */
1472 #else
1473 int autodl = 0;                         /* (or if not implemented). */
1474 #endif /* CK_AUTODL */
1475 int adl_err = 1;                        /* 1 = stop on error */
1476 #ifdef KUI
1477 int adl_ask = 1;                        /* 1 = file dialog on autodownload */
1478 #else
1479 int adl_ask = 0;                        /* 0 = no file dialog */
1480 #endif /* KUI */
1481 #ifdef OS2                              /* AUTODOWNLOAD parameters */
1482 int adl_kmode = ADL_PACK,               /* Match Packet to signal download */
1483     adl_zmode = ADL_PACK;
1484 char * adl_kstr = NULL;                 /* KERMIT Download String */
1485 char * adl_zstr = NULL;                 /* ZMODEM Download String */
1486 #endif /* OS2 */
1487
1488 int remfile = 0, rempipe = 0, remappd = 0; /* REMOTE output redirection */
1489 char * remdest = NULL;
1490
1491 #ifndef NOSERVER
1492 /*
1493   Server services:
1494    0 = disabled
1495    1 = enabled in local mode
1496    2 = enabled in remote mode
1497    3 = enabled in both local and remote modes
1498   only as initial (default) values.
1499 */
1500 int en_xit = 2;                         /* EXIT */
1501 int en_cwd = 3;                         /* CD/CWD */
1502 int en_cpy = 3;                         /* COPY   */
1503 int en_del = 2;                         /* DELETE */
1504 int en_mkd = 3;                         /* MKDIR */
1505 int en_rmd = 2;                         /* RMDIR */
1506 int en_dir = 3;                         /* DIRECTORY */
1507 int en_fin = 3;                         /* FINISH */
1508 int en_get = 3;                         /* GET */
1509 #ifndef NOPUSH
1510 int en_hos = 2;                         /* HOST enabled */
1511 #else
1512 int en_hos = 0;                         /* HOST disabled */
1513 #endif /* NOPUSH */
1514 int en_ren = 3;                         /* RENAME */
1515 int en_sen = 3;                         /* SEND */
1516 int en_set = 3;                         /* SET */
1517 int en_spa = 3;                         /* SPACE */
1518 int en_typ = 3;                         /* TYPE */
1519 int en_who = 3;                         /* WHO */
1520 #ifdef datageneral
1521 /* Data General AOS/VS can't do this */
1522 int en_bye = 0;                         /* BYE */
1523 #else
1524 int en_bye = 2;                         /* PCs in local mode... */
1525 #endif /* datageneral */
1526 int en_asg = 3;                         /* ASSIGN */
1527 int en_que = 3;                         /* QUERY */
1528 int en_ret = 2;                         /* RETRIEVE */
1529 int en_mai = 3;                         /* MAIL */
1530 int en_pri = 3;                         /* PRINT */
1531 int en_ena = 3;                         /* ENABLE */
1532 #else
1533 int en_xit = 0, en_cwd = 0, en_cpy = 0, en_del = 0, en_mkd = 0, en_rmd = 0,
1534     en_dir = 0, en_fin = 0, en_get = 0, en_hos = 0, en_ren = 0, en_sen = 0,
1535     en_set = 0, en_spa = 0, en_typ = 0, en_who = 0, en_bye = 0, en_asg = 0,
1536     en_que = 0, en_ret = 0, en_mai = 0, en_pri = 0, en_ena = 0;
1537 #endif /* NOSERVER */
1538 #endif /* NOXFER */
1539
1540 /* Miscellaneous */
1541
1542 char **xargv;                           /* Global copies of argv */
1543 int xargc;                              /* and argc  */
1544 int xargs;                              /* an immutable copy of argc */
1545 char *xarg0;                            /* and of argv[0] */
1546 char *pipedata;                         /* Pointer to -P (pipe) data */
1547
1548 extern char *dftty;                     /* Default tty name from ck?tio.c */
1549 extern int dfloc;                       /* Default location: remote/local */
1550 extern int dfprty;                      /* Default parity */
1551 extern int dfflow;                      /* Default flow control */
1552
1553 #ifdef TNCODE
1554 extern int tn_deb;
1555 #endif /* TNCODE */
1556 /*
1557   Buffered file input and output buffers.  See getpkt() in ckcfns.c
1558   and zoutdump() in the system-dependent file i/o module (usually ck?fio.c).
1559 */
1560 #ifndef DYNAMIC
1561 /* Now we allocate them dynamically, see getiobs() below. */
1562 char zinbuffer[INBUFSIZE], zoutbuffer[OBUFSIZE];
1563 #endif /* DYNAMIC */
1564 char *zinptr, *zoutptr;
1565 int zincnt, zoutcnt;
1566 int zobufsize = OBUFSIZE;
1567 int zofbuffer = 1;
1568 int zofblock  = 1;
1569
1570 #ifdef SESLIMIT
1571 int seslimit = 0;
1572 #endif /* SESLIMIT */
1573
1574 #ifdef CK_AUTHENTICATION
1575 #include "ckuath.h"
1576 #endif /* CK_AUTHENTICATION */
1577
1578 _PROTOTYP( int getiobs, (VOID) );
1579
1580 /*  M A I N  --  C-Kermit main program  */
1581
1582 #include <signal.h>
1583
1584 #ifndef NOCCTRAP
1585 #include <setjmp.h>
1586 #include "ckcsig.h"
1587 ckjmpbuf cmjbuf;
1588 #ifdef GEMDOS                           /* Special for Atari ST */
1589 cc_clean();                             /* This can't be right? */
1590 #endif /* GEMDOS */
1591 #endif /* NOCCTRAP */
1592
1593 #ifndef NOXFER
1594 /* Info associated with a system ID */
1595
1596 struct sysdata sysidlist[] = {          /* Add others as needed... */
1597   { "0",  "anonymous",    0, NUL,  0, 0, 0 },
1598   { "A1", "Apple II",     0, NUL,  0, 0, 3 }, /* fix this */
1599   { "A3", "Macintosh",    1, ':',  0, 2, 1 },
1600   { "D7", "VMS",          0, ']',  1, 0, 0 },
1601   { "DA", "RSTS/E",       0, ']',  1, 0, 3 }, /* (i think...) */
1602   { "DB", "RT11",         0, NUL,  1, 0, 3 }, /* (maybe...) */
1603   { "F3", "AOS/VS",       1, ':',  0, 0, 2 },
1604   { "I1", "VM/CMS",       0, NUL,  0, 0, 0 },
1605   { "I2", "MVS/TSO",      0, NUL,  0, 0, 0 },
1606   { "I4", "MUSIC",        0, NUL,  0, 0, 0 },
1607   { "I7", "CICS",         0, NUL,  0, 0, 0 },
1608   { "I9", "MVS/ROSCOE",   0, NUL,  0, 0, 0 },
1609   { "K2", "Atari ST",     1, '\\', 1, 0, 3 },
1610   { "L3", "Amiga",        1, '/',  1, 0, 2 },
1611   { "MV", "Stratus VOS",  1, '>',  0, 1, 0 },
1612   { "N3", "Apollo Aegis", 1, '/',  0, 3, 2 },
1613   { "U1", "UNIX",         1, '/',  0, 3, 2 },
1614   { "U8", "MS-DOS",       1, '\\', 1, 0, 3 },
1615   { "UD", "OS-9",         1, '/',  0, 3, 2 },
1616   { "UN", "Windows-32",   1, '\\', 1, 2, 3 },
1617   { "UO", "OS/2",         1, '\\', 1, 2, 3 }
1618 };
1619 static int nxxsysids = (sizeof(sysidlist) / sizeof(struct sysdata));
1620
1621 /* Given a Kermit system ID code, return the associated name string */
1622 /* and some properties of the filenames... */
1623
1624 char *
1625 getsysid(s) char * s; {                 /* Get system-type name */
1626     int i;
1627     if (!s) return("");
1628     for (i = 0; i < nxxsysids; i++)
1629       if (!strcmp(sysidlist[i].sid_code,s))
1630         return(sysidlist[i].sid_name);
1631     return(s);
1632 }
1633
1634 int
1635 getsysix(s) char *s; {                  /* Get system-type index */
1636     int i;
1637     if (!s) return(-1);
1638     for (i = 0; i < nxxsysids; i++)
1639       if (!strcmp(sysidlist[i].sid_code,s))
1640         return(i);
1641     return(-1);
1642 }
1643 #endif /* NOXFER */
1644
1645 /* Tell if a pathname is absolute (versus relative) */
1646 /* This should be parceled out to each of the ck*fio.c modules... */
1647 /* VMS isabsolute() is now in ckvfio.c. */
1648 #ifndef VMS
1649 int
1650 isabsolute(path) char * path; {
1651     int rc = 0;
1652     int x;
1653     if (!path)
1654       return(0);
1655     if (!*path)
1656       return(0);
1657     x = (int) strlen(path);
1658     debug(F111,"isabsolute",path,x);
1659 #ifdef UNIX
1660     if (*path == '/'
1661 #ifdef DTILDE
1662         || *path == '~'
1663 #endif /* DTILDE */
1664         )
1665       rc = 1;
1666 #else /* def UNIX */
1667 #ifdef OS2
1668     if (*path == '/' || *path == '\\')
1669       rc = 1;
1670     else if (isalpha(*path) && x > 2)
1671       if (*(path+1) == ':' && (*(path +2) == '/' || *(path+2) == '\\'))
1672         rc = 1;
1673 #else /* def OS2 */
1674 #ifdef AMIGA
1675     if (*path == '/'
1676 #ifdef DTILDE
1677         || *path == '~'
1678 #endif /* DTILDE */
1679         )
1680       rc = 1;
1681 #else /* def AMIGA */
1682 #ifdef OSK
1683     if (*path == '/'
1684 #ifdef DTILDE
1685         || *path == '~'
1686 #endif /* DTILDE */
1687         )
1688       rc = 1;
1689 #else /* def OSK */
1690 #ifdef datageneral
1691     if (*path == ':')
1692       rc = 1;
1693 #else /* def datageneral */
1694 #ifdef MAC
1695     rc = 0;                             /* Fill in later... */
1696 #else /* def MAC */
1697 #ifdef STRATUS
1698     rc = 0;                             /* Fill in later... */
1699 #else /* def STRATUS */
1700 #ifdef GEMDOS
1701     if (*path == '/' || *path == '\\')
1702       rc = 1;
1703     else if (isalpha(*path) && x > 1)
1704       if (*(path+1) == ':')
1705         rc = 1;
1706 #endif /* GEMDOS */
1707 #endif /* STRATUS */
1708 #endif /* MAC */
1709 #endif /* datageneral */
1710 #endif /* OSK */
1711 #endif /* AMIGA */
1712 #endif /* OS2 */
1713 #endif /* UNIX */
1714     debug(F101,"isabsolute rc","",rc);
1715     return(rc);
1716 }
1717 #endif /* ndef VMS */
1718
1719 /*  See if I have direct access to the keyboard  */
1720
1721 int
1722 is_a_tty(n) int n; {
1723 #ifdef UNIX
1724     extern int ttfdflg;
1725     if (ttfdflg > 0)
1726       return(1);
1727 #endif /* UNIX */
1728 #ifdef KUI
1729     return 1;
1730 #else /* KUI */
1731 #ifdef NT
1732     if (isWin95())
1733       return(1);
1734     else
1735       return(_isatty(n));
1736 #else
1737 #ifdef IKSD
1738    if (inserver)
1739      return(1);
1740    else
1741 #endif /* IKSD */
1742      return(isatty(n));
1743 #endif /* NT */
1744 #endif /* KUI */
1745 }
1746
1747 #ifndef NOXFER
1748 VOID
1749 initxlist() {
1750     extern char * sndexcept[], * rcvexcept[];
1751     int i;
1752     for (i = 0; i < NSNDEXCEPT; i++) {
1753         sndexcept[i] = NULL;
1754         rcvexcept[i] = NULL;
1755     }
1756 }
1757 #endif /* NOXFER */
1758
1759 /* Initialize flow control table */
1760
1761 VOID
1762 initflow() {                            /* Default values for flow control */
1763 #ifdef VMS                              /* for each kind of connection. */
1764     /* The VMS telnet terminal driver treats "none" as request to lose chars */
1765     cxflow[CXT_REMOTE]  = FLO_XONX;     /* Remote mode... */
1766 #else
1767 #ifdef HPUX
1768     /* Ditto for HP-UX */
1769     cxflow[CXT_REMOTE]  = FLO_XONX;     /* Remote mode... */
1770 #else
1771     /* The temptation is to make this one FLO_KEEP but don't!!! */
1772     /* It totally wrecks binary-file transfer when coming in via Telnet. */
1773     /* In UNIX at least... */
1774     cxflow[CXT_REMOTE]  = FLO_NONE;
1775 #endif /* HPUX */
1776 #endif /* VMS */
1777
1778 #ifdef VMS
1779     cxflow[CXT_DIRECT]  = FLO_XONX;     /* Direct serial connections... */
1780 #else
1781     cxflow[CXT_DIRECT]  = FLO_NONE;
1782 #endif /* VMS */
1783
1784 #ifdef CK_RTSCTS
1785     cxflow[CXT_MODEM]   = FLO_RTSC;     /* Modem connections... */
1786 #else
1787 #ifdef VMS
1788     cxflow[CXT_MODEM]   = FLO_XONX;
1789 #else
1790     cxflow[CXT_MODEM]   = FLO_NONE;
1791 #endif /* VMS */
1792 #endif /* CK_RTSCTS */
1793
1794 #ifdef VMS
1795     cxflow[CXT_TCPIP]   = FLO_XONX;     /* TCP/IP connections... */
1796 #else
1797     cxflow[CXT_TCPIP]   = FLO_NONE;
1798 #endif /* VMS */
1799
1800     cxflow[CXT_SSH]     = FLO_NONE;
1801     cxflow[CXT_X25]     = FLO_NONE;     /* Other kinds of networks... */
1802     cxflow[CXT_DECNET]  = FLO_XONX;
1803     cxflow[CXT_LAT]     = FLO_XONX;
1804     cxflow[CXT_NETBIOS] = FLO_NONE;
1805     cxflow[CXT_NPIPE]   = FLO_NONE;
1806     cxflow[CXT_PIPE]    = FLO_NONE;
1807     flow = cxflow[cxtype];              /* Initial flow setting. */
1808     debug(F101,"initflow","",flow);
1809 }
1810
1811 #ifndef NOXFER
1812 /* Initialize file transfer protocols */
1813
1814 VOID
1815 initproto(y, upbstr, uptstr, srvstr, sndbstr, sndtstr, rcvbstr, rcvtstr)
1816     int y;
1817     char * upbstr, * uptstr, * srvstr, * sndbstr, * sndtstr, * rcvbstr,
1818     * rcvtstr;
1819 /* initproto */ {
1820
1821     if (upbstr)                         /* Convert null strings */
1822       if (!*upbstr)                     /* to null pointers */
1823         upbstr = NULL;
1824
1825     if (uptstr)                         /* Convert null strings */
1826       if (!*uptstr)                     /* to null pointers */
1827         uptstr = NULL;
1828
1829     if (sndbstr)
1830       if (!*sndbstr)
1831         sndbstr = NULL;
1832
1833     if (sndtstr)
1834       if (!*sndtstr)
1835         sndtstr = NULL;
1836
1837     if (rcvbstr)
1838       if (!*rcvbstr)
1839         rcvbstr = NULL;
1840
1841     if (rcvtstr)
1842       if (!*rcvtstr)
1843         rcvtstr = NULL;
1844
1845     if (srvstr)
1846       if (!*srvstr)
1847         srvstr = NULL;
1848
1849     protocol = y;                       /* Set protocol */
1850
1851     if (ptab[protocol].rpktlen > -1)
1852       urpsiz = ptab[protocol].rpktlen;
1853     if (ptab[protocol].spktflg > -1)
1854       spsizf = ptab[protocol].spktflg;
1855     if (ptab[protocol].spktlen > -1) {
1856         spsiz = ptab[protocol].spktlen;
1857         debug(F101,"initproto spsiz","",spsiz);
1858         if (spsizf) {
1859             spsizr = spmax = spsiz;
1860             debug(F101,"initproto spsizr","",spsizr);
1861         }
1862     }
1863     if (ptab[protocol].winsize > -1)
1864       wslotr = ptab[protocol].winsize;
1865     if (ptab[protocol].prefix > -1)
1866       prefixing = ptab[protocol].prefix;
1867     if (ptab[protocol].fnca > -1)
1868       fncact  = ptab[protocol].fnca;
1869     if (ptab[protocol].fncn > -1)
1870       fncnv   = ptab[protocol].fncn;
1871     if (ptab[protocol].fnsp > -1)
1872       fnspath = ptab[protocol].fnsp;
1873     if (ptab[protocol].fnrp > -1)
1874       fnrpath = ptab[protocol].fnrp;
1875
1876     makestr(&(ptab[protocol].h_b_init),upbstr);
1877     makestr(&(ptab[protocol].h_t_init),uptstr);
1878     makestr(&(ptab[protocol].h_x_init),srvstr);
1879     makestr(&(ptab[protocol].p_b_scmd),sndbstr);
1880     makestr(&(ptab[protocol].p_t_scmd),sndtstr);
1881     makestr(&(ptab[protocol].p_b_rcmd),rcvbstr);
1882     makestr(&(ptab[protocol].p_t_rcmd),rcvtstr);
1883 }
1884 #endif /* NOXFER */
1885
1886 #ifndef NOCMDL
1887 VOID
1888 #ifdef CK_ANSIC
1889 docmdline(void * threadinfo)
1890 #else /* CK_ANSIC */
1891 docmdline(threadinfo) VOID * threadinfo;
1892 #endif /* CK_ANSIC */
1893 {
1894 #ifdef NTSIG
1895     setint();
1896     if (threadinfo) {                   /* Thread local storage... */
1897        TlsSetValue(TlsIndex,threadinfo);
1898        debug( F100, "docmdline called with threadinfo block", "", 0 );
1899     } else
1900       debug( F100, "docmdline threadinfo is NULL","",0);
1901 #endif /* NTSIG */
1902 #ifdef CK_LOGIN
1903 #ifdef NT
1904 #ifdef IKSD
1905     if (inserver)
1906       setntcreds();
1907 #endif /* IKSD */
1908 #endif /* NT */
1909 #endif /* CK_LOGIN */
1910     proto();                            /* Take any requested action, then */
1911     if (!quiet)                         /* put cursor back at left margin, */
1912       conoll("");
1913 #ifndef NOLOCAL
1914     if (cnflg) {                        /* Re-connect if requested */
1915         cnflg = 0;
1916         doconect(0,0);
1917         if (ttchk() < 0)
1918           dologend();
1919     }
1920 #endif /* NOLOCAL */
1921
1922 #ifdef NTSIG
1923      ckThreadEnd(threadinfo);
1924 #endif /* NTSIG */
1925    return;
1926 }
1927
1928 void
1929 ikslogin() {
1930     if (sstelnet
1931 #ifdef IKSD
1932         || inserver                     /* Internet server */
1933 #endif /* IKSD */
1934         ) {
1935         char *s;
1936         extern int fdispla;             /* File-transfer display format */
1937         extern char * ikprompt;         /* IKSD prompt */
1938
1939 #ifdef IKSD
1940 #ifdef CK_LOGIN
1941         if (inserver) {
1942             x_login = 1;                /* Login required */
1943             x_logged = 0;               /* Not logged in yet */
1944             cmsetp(ikprompt);           /* Set up IKSD's prompt */
1945 #ifndef NOSERVER
1946             en_mai = 0;                 /* MAIL is disabled */
1947             en_who = 0;                 /* REMOTE WHO is disabled */
1948             en_hos = 0;                 /* REMOTE HOST is disabled */
1949             en_pri = 0;                 /* PRINT is disabled */
1950 #endif /* NOSERVER */
1951         } else {
1952             x_login = 0;                /* Login not required */
1953             x_logged = 1;               /* Already logged in */
1954         }
1955 #endif /* CK_LOGIN */
1956 #endif /* IKSD */
1957         nolocal = 1;                    /* SET LINE/HOST not allowed */
1958         fdispla = XYFD_N;               /* No file-transfer display */
1959 #ifdef NETCONN
1960         clienthost = ckgetpeer();       /* Get client's hostname */
1961         debug(F110,"ikslogin clienthost",clienthost,0);
1962 #endif /* NETCONN */
1963         ztime(&s);                      /* Get current date and time */
1964
1965 #ifdef CK_LOGIN
1966 #ifdef CK_AUTHENTICATION
1967         if (x_login) {
1968             x_logged = ck_tn_auth_valid(); /* Did Telnet Auth succeed? */
1969             debug(F111,"ikslogin","x_logged",x_logged);
1970
1971 #ifdef NT
1972             /* On Windows 9x, we do not have the ability in  */
1973             /* zvuser() at present to determine if the name  */
1974             /* approved in a Kerberos principal is really a  */
1975             /* an account in the Windows Access Control List */
1976             if (isWin95() && x_logged == AUTH_VALID
1977                  && (ck_tn_authenticated() != AUTHTYPE_NTLM)
1978 #ifdef CK_SRP
1979                  && (ck_tn_authenticated() != AUTHTYPE_SRP)
1980 #endif /* CK_SRP */
1981                  ) {
1982                 auth_finished(AUTH_USER);
1983                 x_logged = AUTH_USER;
1984                 printf("WARNING:\r\n");
1985                 printf(
1986 " The Telnet authentication method used cannot provide for automated\r\n");
1987                 printf(
1988 " login to Windows 95 or Windows 98.  A password must be entered\r\n");
1989                 printf(
1990 " locally to validate your userid.  Telnet authentication (and encryption)\r\n"
1991                 );
1992                 printf(
1993 " can be used to validate the host (and protect the privacy of your password.)\
1994 \r\n"
1995                 );
1996             }
1997 #endif /* NT */
1998
1999             if (x_logged == AUTH_VALID) {
2000 #ifdef CK_SSL
2001                 if ((ssl_active_flag || tls_active_flag) &&
2002                     (!TELOPT_U(TELOPT_AUTHENTICATION) ||
2003                      ck_tn_authenticated() == AUTHTYPE_NULL ||
2004                      ck_tn_authenticated() == AUTHTYPE_AUTO)
2005                     ) {
2006 #ifdef SSL_KRB5
2007                     if (tls_is_krb5(0)) {
2008                         printf("Authenticated using Kerberos 5\r\n");
2009 #ifdef CKSYSLOG
2010                         if (ckxsyslog >= SYSLG_LI && ckxlogging) {
2011                             extern char szUserNameAuthenticated[];
2012                             cksyslog(SYSLG_LI, 1, "AUTH_VALID",
2013                                      "Kerberos 5",
2014                                      szUserNameAuthenticated
2015                                      );
2016                         }
2017 #endif /* CKSYSLOG */
2018                     } else
2019 #endif /* SSL_KRB5 */
2020                     {
2021                         printf("Authenticated using X.509 certificate\r\n");
2022 #ifdef CKSYSLOG
2023                         if (ckxsyslog >= SYSLG_LI && ckxlogging) {
2024                             extern char szUserNameAuthenticated[];
2025                             cksyslog(SYSLG_LI, 1, "AUTH_VALID",
2026                                      "X.509 certificate",
2027                                      szUserNameAuthenticated
2028                                      );
2029                         }
2030 #endif /* CKSYSLOG */
2031                     }
2032                 } else
2033 #endif /* CK_SSL */
2034                   {
2035                       printf("Authenticated using %s\r\n",
2036                              AUTHTYPE_NAME(ck_tn_authenticated()));
2037 #ifdef CKSYSLOG
2038                       if (ckxsyslog >= SYSLG_LI && ckxlogging) {
2039                           extern char szUserNameAuthenticated[];
2040                           cksyslog(SYSLG_LI, 1, "AUTH_VALID",
2041                                    AUTHTYPE_NAME(ck_tn_authenticated()),
2042                                    szUserNameAuthenticated
2043                                    );
2044                       }
2045 #endif /* CKSYSLOG */
2046                   }
2047                 zvuser(uidbuf);
2048                 if (zvpass("") == 0)
2049                   x_logged = 0;
2050             } else if (x_logged == AUTH_USER && !strcmp(uidbuf,"anonymous")) {
2051                 extern char szUserNameAuthenticated[];
2052                 zvuser(uidbuf);
2053                 debug(F110,"szUserNameAuthenticated",
2054                       szUserNameAuthenticated,0);
2055                 if (zvpass(szUserNameAuthenticated) == 0) {
2056                   /* Anonymous login failed.  Force a username prompt. */
2057                   x_logged = 0;
2058                   uidbuf[0] = '\0';
2059                 } else {
2060 #ifdef CK_SSL
2061                     if ((ssl_active_flag || tls_active_flag) &&
2062                         (!TELOPT_U(TELOPT_AUTHENTICATION) ||
2063                          ck_tn_authenticated() == AUTHTYPE_NULL ||
2064                          ck_tn_authenticated() == AUTHTYPE_AUTO)) {
2065                         printf("Authenticated using X.509 certificate\r\n");
2066 #ifdef CKSYSLOG
2067                         if (ckxsyslog >= SYSLG_LI && ckxlogging) {
2068                             extern char szUserNameAuthenticated[];
2069                             cksyslog(SYSLG_LI, 1, "AUTH_USER",
2070                                      "X.509 certificate",
2071                                      szUserNameAuthenticated
2072                                      );
2073                         }
2074 #endif /* CKSYSLOG */
2075                     } else
2076 #endif /* CK_SSL */
2077                       {
2078                           printf("Authenticated using %s\r\n",
2079                                  AUTHTYPE_NAME(ck_tn_authenticated())
2080                                  );
2081 #ifdef CKSYSLOG
2082                           if (ckxsyslog >= SYSLG_LI && ckxlogging) {
2083                               cksyslog(SYSLG_LI, 1, "AUTH_USER",
2084                                        AUTHTYPE_NAME(ck_tn_authenticated()),
2085                                        szUserNameAuthenticated
2086                                        );
2087                           }
2088 #endif /* CKSYSLOG */
2089                       }
2090                 }
2091             } else {
2092 #ifdef CKSYSLOG
2093                 if (ckxsyslog >= SYSLG_LI && ckxlogging &&
2094                     x_logged == AUTH_USER) {
2095                     extern char szUserNameAuthenticated[];
2096                     cksyslog(SYSLG_LI, 1, "AUTH_USER",
2097                              AUTHTYPE_NAME(ck_tn_authenticated()),
2098                              szUserNameAuthenticated
2099                              );
2100                 }
2101 #endif /* CKSYSLOG */
2102                 x_logged = 0;
2103                 if (!strcmp("(unknown)",uidbuf)
2104 #ifdef NT
2105                     || !stricmp("administrator",uidbuf)
2106 #ifdef UNIX
2107                     || !strcmp("root",uidbuf)
2108 #else
2109 #ifdef Plan9
2110                     || !strcmp("root",uidbuf)
2111 #else
2112 #ifdef OSK
2113                     || !strcmp("root",uidbuf)
2114 #endif /* OSK */
2115 #endif /* Plan9 */
2116 #endif /* UNIX */
2117 #endif /* NT */
2118                     )
2119                   uidbuf[0] = '\0';
2120             }
2121         }
2122 #endif /* CK_AUTHENTICATION */
2123 #endif /* CK_LOGIN */
2124
2125 #ifdef IKSD
2126         if (inserver)
2127           printf("\r\nInternet Kermit Service ready at %s%s\r\n",s,versio);
2128         else
2129 #endif /* IKSD */
2130           printf("\r\nC-Kermit ready at %s%s\r\n",s,versio);
2131         if (*myhost)
2132           printf("%s\r\n", myhost);
2133         printf("\r\n");
2134     }
2135 #ifdef CK_LOGIN
2136 #ifdef IKSD
2137     if (inserver) {
2138         int i;
2139         extern int arg_x;               /* Flag for '-x' on command line */
2140 #ifndef NOSPL
2141         extern struct mtab *mactab;         /* For ON_LOGIN macro. */
2142         extern int nmac;
2143 #endif /* NOSPL */
2144
2145         debug(F110,"MAIN clienthost",clienthost,0);
2146         srvidl = timelimit = logintimo; /* For interactive login */
2147         rtimer();                       /* Reset timer */
2148         for (i = 0; i < iks_retry && !x_logged; i++) { /* Count retries */
2149             if (gtimer() > logintimo)
2150               break;
2151 #ifdef TNCODE
2152             tn_wait("login loop");
2153             tn_push();
2154 #endif /* TNCODE */
2155             debug(F101,"MAIN LOGIN try","",i);
2156             what = W_NOTHING;           /* Because proto() changes this */
2157
2158 #ifdef IKS_OPTION
2159             debug(F111,"MAIN LOGIN",
2160                   "TELOPT_SB(TELOPT_KERMIT).kermit.me_start",
2161                   TELOPT_SB(TELOPT_KERMIT).kermit.me_start
2162                   );
2163             /* Kermit server negotiated */
2164             if (TELOPT_SB(TELOPT_KERMIT).kermit.me_start) {
2165                 debug(F101,"IKSD starting in server mode","",0);
2166                 arg_x = 1;              /* Enter server mode */
2167                 sstate = 'x';
2168 #ifdef IKSDPOPBACK
2169                 justone = 1;            /* Execute one command at a time. */
2170 #endif /* IKSDPOPBACK */
2171                 proto();                /* Enter protocol if requested. */
2172 #ifdef NTSIG
2173                 ck_ih();
2174 #endif /* NTSIG */
2175                 if (x_logged)           /* Logged in */
2176                   break;
2177             } else {                    /* Not in client/server mode */
2178 #endif /* IKS_OPTION */
2179                 debug(F101,"IKSD starting with Username prompt","",0);
2180                 x_logged = ckxlogin((CHAR *)uidbuf,NULL,NULL,1);
2181                 if (sstate) {           /* Received a packet at prompt */
2182 #ifdef IKSDPOPBACK
2183                     justone = 1;        /* Go handle it */
2184 #endif /* IKSDPOPBACK */
2185                     proto();
2186                 }
2187                 if (!x_logged) {        /* In case we are at the prompt... */
2188                     printf("Access denied.\n");
2189                     uidbuf[0] = '\0';   /* Forget the name if we have one */
2190                 }
2191 #ifdef IKS_OPTION
2192             }
2193 #endif /* IKS_OPTION */
2194         }
2195         srvidl = timelimit = iks_timo;  /* Reset command timelimit */
2196         debug(F101,"MAIN LOGIN","",x_logged);
2197         if (!x_logged) {                /* Logins failed. */
2198             if (TELOPT_SB(TELOPT_KERMIT).kermit.me_start)
2199               errpkt((CHAR *)"Login Timeout");
2200             msleep(500);
2201             doexit(BAD_EXIT,0);
2202         }
2203         what = W_NOTHING;               /* Stay in known state */
2204 #ifndef NOSERVER
2205         if (isguest) {
2206             en_pri = 0;                 /* No printing for anonymous users */
2207             en_mai = 0;                 /* No email for anonymous users */
2208             en_mkd = 0;                 /* Or directory creation */
2209             en_rmd = 0;                 /* Or directory removal */
2210             en_ena = 0;                 /* Or ENABLing DISABLEd items */
2211         }
2212 #endif /* NOSERVER */
2213
2214 #ifndef NOSPL
2215 /*
2216   If a macro named "on_login" is defined, execute it.  Also remove it from the
2217   macro table so the user cannot see what it does.  Execute it as part of the
2218   iksd.conf file.
2219 */
2220         if (nmac) {                     /* Any macros defined? */
2221             int k;                      /* Yes */
2222             char * cmd = "on_login";    /* MSVC 2.x compiler error */
2223             k = mlook(mactab,cmd,nmac); /* Look up "on_login" */
2224             if (k >= 0) {               /* If found, */
2225 #ifdef IKSDCONF
2226                 int saved = iksdcf;
2227                 iksdcf = 0;
2228 #endif /* IKSDCONF */
2229                 if (dodo(k,"",0) > -1)  /* set it up, */
2230                   parser(1);            /* execute it */
2231 #ifdef IKSDCONF
2232                 iksdcf = saved;
2233 #endif /* IKSDCONF */
2234                 delmac(cmd,1);          /* and delete it */
2235             }
2236         }
2237 #endif /* NOSPL */
2238     } /* if (inserver) */
2239 #else /* CK_LOGIN */
2240     if (inserver)
2241         srvidl = timelimit = iks_timo;  /* Set idle limits for IKS */
2242 #endif /* CK_LOGIN */
2243 #endif /* IKSD */
2244 }
2245
2246 VOID
2247 #ifdef CK_ANSIC
2248 failcmdline(void * foo)
2249 #else /* CK_ANSIC */
2250 failcmdline(foo) VOID * foo;
2251 #endif /* CK_ANSIC */
2252 {
2253 #ifdef GEMDOS
2254     cc_clean();
2255 #endif /* GEMDOS */
2256 #ifndef NOLOCAL
2257     if (cnflg) doconect(0,0);           /* connect again if requested. */
2258     if (ttchk() < 0)
2259       dologend();
2260 #endif /* NOLOCAL */
2261 }
2262 #endif /* NOCMDL */
2263
2264 #ifndef NOICP
2265 VOID
2266 #ifdef CK_ANSIC
2267 dotakeini(void * threadinfo)            /* Execute init file. */
2268 #else  /* CK_ANSIC */
2269 dotakeini(threadinfo) VOID * threadinfo; /* Execute init file. */
2270 #endif /* CK_ANSIC */
2271 /* dotakeini */ {
2272 #ifdef NTSIG
2273     setint();
2274     if (threadinfo) {                   /* Thread local storage... */
2275        TlsSetValue(TlsIndex,threadinfo);
2276        debug(F100, "dotakeini called with threadinfo block","", 0);
2277     } else
2278       debug(F100, "dotakeini - threadinfo is NULL", "", 0);
2279 #endif /* NTSIG */
2280 #ifdef CK_LOGIN
2281 #ifdef NT
2282 #ifdef IKSD
2283     if (inserver)
2284       setntcreds();
2285 #endif /* IKSD */
2286 #endif /* NT */
2287 #endif /* CK_LOGIN */
2288     cmdini();                           /* Sets tlevel */
2289
2290     debug(F111,"dotakeini","inserver",inserver);
2291     debug(F111,"dotakeini","sstelnet",sstelnet);
2292
2293 #ifdef COMMENT
2294 /* Wrong place for this... */
2295 #ifndef NOXFER
2296 #ifdef CK_FAST
2297     dofast();                           /* By now FAST defaults should be OK */
2298 #endif /* CK_FAST */
2299 #endif /* NOXFER */
2300 #endif /* COMMENT */
2301
2302     doinit();                           /* Now do the initialization file */
2303     debug(F101,"main executing init file","",tlevel);
2304     while (tlevel > -1) {
2305         sstate = (CHAR) parser(1);      /* Execute one command at a time. */
2306         if (sstate) proto();            /* Enter protocol if requested. */
2307 #ifdef NTSIG
2308         ck_ih();
2309 #endif /* NTSIG */
2310     }
2311     debug(F101,"main exits init file","",tlevel);
2312
2313 #ifdef NTSIG
2314     ckThreadEnd(threadinfo);
2315 #endif /* NTSIG */
2316     return;
2317 }
2318
2319 VOID
2320 #ifdef CK_ANSIC
2321 failtakeini(void * threadinfo)
2322 #else /* CK_ANSIC */
2323 failtakeini(threadinfo) VOID * threadinfo;
2324 #endif /* CK_ANSIC */
2325 /* failtakeini */ {
2326 #ifdef GEMDOS
2327     cc_clean();                         /* Atari: Clean up after ^C-trap. */
2328 #endif /* GEMDOS */
2329     fixcmd();
2330     if (!cfilef) {
2331         conoll("Interrupted during initialization or \
2332 command-line processing.");
2333         conoll("C-Kermit quitting...");
2334     }
2335     doexit(BAD_EXIT,-1);                /* Exit with bad status. */
2336 }
2337
2338 VOID
2339 #ifdef CK_ANSIC
2340 doicp(void * threadinfo)
2341 #else /* CK_ANSIC */
2342 doicp(threadinfo) VOID * threadinfo;
2343 #endif /* CK_ANSIC */
2344 /* doicp */ {
2345 #ifdef NTSIG
2346     setint();
2347     if (threadinfo) {                   /* Thread local storage... */
2348        if (!TlsSetValue(TlsIndex,threadinfo))
2349           debug(F101,"doicp TlsSetValue failed","",GetLastError());
2350        debug(F101, "doicp a threadinfo block - TlsIndex", "", TlsIndex);
2351     } else {
2352         debug(F100, "doicp received a null threadinfo", "", 0);
2353     }
2354 #endif /* NTSIG */
2355 #ifdef CK_LOGIN
2356 #ifdef NT
2357 #ifdef IKSD
2358     if (inserver)
2359       setntcreds();
2360 #endif /* IKSD */
2361 #endif /* NT */
2362 #endif /* CK_LOGIN */
2363 #ifdef MAC
2364     while (1) {
2365         extern char *lfiles;            /* Fake pointer cast */
2366
2367         if (connected) {
2368             debug(F100, "doicp: calling macparser", "", 0);
2369             sstate = newparser(1, 1, 0L);
2370
2371             /* ignore null command state */
2372             if (sstate == 'n')
2373               sstate = '\0';
2374
2375             if (sstate)
2376               proto();
2377         } else {
2378             /*
2379              * process take files the finder gave us.
2380              */
2381             if ((tlevel == -1) && lfiles)
2382               startlfile();
2383
2384             debug(F100, "doicp: calling parser", "", 0);
2385             sstate = (CHAR) parser(0);
2386             if (sstate == 'c')          /* if MAC connect */
2387               sstate = 0;
2388             if (sstate)
2389               proto();
2390         }
2391     }
2392 #else /* Not MAC */
2393
2394 #ifndef NOSPL
2395 /*
2396   If interactive commands were given on the command line (using the
2397   -C "command, command, ..." option), assign them to a macro called
2398   "cl_commands", then execute the macro and leave it defined for
2399   subsequent re-execution if desired.
2400 */
2401     if (clcmds) {                       /* Check for -C commands */
2402         int x;
2403         x = addmac("cl_commands",clcmds); /* Put macro in table */
2404         if (x > -1) {                   /* If successful, */
2405             dodo(x,NULL,CF_CMDL);       /* set up for macro execution */
2406             while (maclvl > -1) {       /* Loop getting macro commands. */
2407                 sstate = (CHAR) parser(1);
2408                 if (sstate) proto();    /* Enter protocol if requested. */
2409 #ifdef NTSIG
2410                 ck_ih();
2411 #endif /* NTSIG */
2412             }
2413         }
2414         debug(F100,"doicp calling herald","",0);
2415         herald();
2416     }
2417 #endif /* NOSPL */
2418     while(1) {                          /* Loop getting commands. */
2419         sstate = (CHAR) parser(0);
2420         if (sstate) proto();            /* Enter protocol if requested. */
2421 #ifdef NTSIG
2422        ck_ih();
2423 #endif /* NTSIG */
2424     }
2425 #ifdef NTSIG
2426     ckThreadEnd(threadinfo);
2427 #endif /* NTSIG */
2428 #endif /* MAC */
2429 }
2430
2431 VOID
2432 #ifdef CK_ANSIC
2433 failicp(void * threadinfo)
2434 #else /* CK_ANSIC */
2435 failicp(threadinfo) VOID * threadinfo;
2436 #endif /* CK_ANSIC */
2437 {
2438 #ifdef GEMDOS
2439     cc_clean();
2440 #endif /* GEMDOS */
2441     fixcmd();                           /* Pop command stacks, etc. */
2442     clcmds = NULL;
2443     debug(F100,"ckcmai got interrupt","",0);
2444 }
2445 #endif /* NOICP */
2446
2447 #ifndef NOICP
2448 VOID
2449 #ifdef CK_ANSIC
2450 docmdfile(void * threadinfo)            /* Execute application file */
2451 #else /* CK_ANSIC */
2452 docmdfile(threadinfo) VOID * threadinfo;
2453 #endif /* CK_ANSIC */
2454 /* docmdfile */ {
2455 #ifdef NTSIG
2456     concb((char)escape);
2457     setint();
2458     if (threadinfo) {                   /* Thread local storage... */
2459         TlsSetValue(TlsIndex,threadinfo);
2460         debug(F100, "docmdfile called with threadinfo block","", 0);
2461     } else debug(F100, "docmdfile - threadinfo is NULL", "", 0);
2462 #endif /* NTSIG */
2463 #ifdef CK_LOGIN
2464 #ifdef IKSD
2465 #ifdef NT
2466     if (inserver)
2467       setntcreds();
2468 #endif /* NT */
2469 #endif /* IKSD */
2470 #endif /* CK_LOGIN */
2471     debug(F110,"main cmdfil",cmdfil,0);
2472 #ifndef NOSPL
2473     addmac("\\%0",cmdfil);
2474 #endif /* NOSPL */
2475     dotake(cmdfil);                     /* Set up the command file */
2476     if (tlevel > -1)                    /* Remember we did this */
2477       cfilef = 1;
2478     while (tlevel > -1) {               /* Execute it until it runs out. */
2479         sstate = parser(1);             /* Loop getting commands. */
2480         if (sstate) proto();            /* Enter protocol if requested. */
2481 #ifdef NTSIG
2482         ck_ih();
2483 #endif /* NTSIG */
2484     }
2485
2486 #ifdef NTSIG
2487     ckThreadEnd(threadinfo);
2488 #endif /* NTSIG */
2489     return;
2490 }
2491
2492 VOID
2493 #ifdef CK_ANSIC
2494 failcmdfile(void * threadinfo)
2495 #else /* CK_ANSIC */
2496 failcmdfile(threadinfo) VOID * threadinfo;
2497 #endif /* CK_ANSIC */
2498 /* failcmdfile */ {
2499 #ifdef GEMDOS
2500     cc_clean();                         /* Atari: Clean up after ^C-trap. */
2501 #endif /* GEMDOS */
2502     fixcmd();
2503     if (!cfilef) {
2504         conoll("Interrupted during initialization or \
2505 command-line processing.");
2506         conoll("C-Kermit quitting...");
2507     }
2508     doexit(BAD_EXIT,-1);                /* Exit with bad status. */
2509 }
2510 #endif /* NOICP */
2511
2512 #ifndef NOXFER
2513 VOID
2514 setprefix(z) int z; {                   /* Initial control-char prefixing */
2515 #ifdef CK_SPEED
2516     int i, val;
2517
2518     prefixing = z;
2519     ptab[protocol].prefix = prefixing;
2520     debug(F101,"setprefix","",prefixing);
2521     switch (z) {
2522       case PX_ALL:                      /* All */
2523 #ifdef COMMENT
2524         /* Don't let Clear-Channel be dependent on prefixing */
2525         clearrq = 0;                    /* Turn off clearchannel, fall thru */
2526 #endif /* COMMENT */
2527       case PX_NON:                      /* None */
2528         val = (z == PX_ALL) ? 1 : 0;
2529         for (i =
2530 #ifdef UNPREFIXZERO
2531              0
2532 #else
2533              1
2534 #endif /* UNPREFIXZERO */
2535              ; i < 32; i++)
2536           ctlp[i] = val;
2537         for (i = 127; i < 160; i++) ctlp[i] = val;
2538         ctlp[(unsigned)255] = val;
2539         if (z == PX_NON) {              /* These are never safe */
2540             if (network) {              /* Assume network = telnet or rlogin */
2541                 ctlp[CR] = 1;           /* Prefix CR because of NVT rules */
2542                 ctlp[XON] = ctlp[XOFF] = 1; /* Because of Telnet server */
2543                 ctlp[127] = ctlp[255] = 1;  /* Telnet IAC */
2544                 ctlp[mystch] = ctlp[mystch+128] = 1; /* Kermit packet start */
2545             } else {
2546                 ctlp[CR] = ctlp[255] = ctlp[mystch] = ctlp[mystch+128] = 1;
2547                 if (flow == FLO_XONX)       /* Xon/Xoff forces prefixing */
2548                   ctlp[XON] = ctlp[XOFF] = ctlp[XON+128] = ctlp[XOFF+128] = 1;
2549             }
2550         }
2551         break;
2552
2553       case PX_CAU:                      /* Cautious or Minimal */
2554 #ifdef COMMENT
2555         /* Don't let CLEAR-CHANNEL be dependent on Prefixing */
2556         clearrq = 0;                    /* Turn off clearchannel */
2557 #endif /* COMMENT */
2558       case PX_WIL:                      /* Minimal ("wild") */
2559         ctlp[0] = 1;                    /* Does not include 0 */
2560         for (i = 1; i < 32; i++)
2561           ctlp[i] = 0;
2562         for (i = 127; i < 160; i++)
2563           ctlp[i] = 0;
2564         ctlp[mystch] = ctlp[mystch+128] = 1; /* Kermit start of packet */
2565         if (seol != 13)
2566           ctlp[seol] = ctlp[seol+128] = 1; /* Kermit end */
2567         ctlp[13] = ctlp[141] = 1;       /* In case of TELNET (NVT rules) */
2568         ctlp[(unsigned)255] = 1;        /* Ditto */
2569
2570         /* ^D, ^J, ^M, or ^U followed by tilde trigger Rlogin escape */
2571
2572         ctlp[4]  = ctlp[4+128]  = 1;    /* In case of RLOGIN */
2573         ctlp[10] = ctlp[10+128] = 1;    /* In case of RLOGIN */
2574         ctlp[21] = ctlp[21+128] = 1;    /* In case of RLOGIN */
2575
2576         if (flow == FLO_XONX ||         /* Xon/Xoff forces prefixing these */
2577             prefixing == PX_CAU ||      /* So does CAUTIOUS */
2578             network)                    /* Networks too... */
2579           ctlp[XON] = ctlp[XOFF] = ctlp[XON+128] = ctlp[XOFF+128] = 1;
2580         if (prefixing == PX_CAU) {      /* Cautious - add some more */
2581 #ifdef UNPREFIXZERO
2582             ctlp[0] = 1;
2583 #endif /* UNPREFIXZERO */
2584             ctlp[3]   = ctlp[16]  = 1;             /* ^C, DLE */
2585             ctlp[14]  = ctlp[15]  = 1;             /* SO/SI */
2586             ctlp[24]  = ctlp[25]  = 1;             /* VMS might need these */
2587             ctlp[26]  = ctlp[26+128] = 1;          /* UNIX suspend */
2588             ctlp[28]  = ctlp[29]  = ctlp[30]  = 1; /* Assorted esc chars */
2589             ctlp[131] = ctlp[141] = ctlp[144] = 1; /* and 8-bit versions */
2590             ctlp[(unsigned)255] = ctlp[156] = ctlp[157] = ctlp[158] = 1;
2591         }
2592         break;
2593     }
2594 #endif /* CK_SPEED */
2595 }
2596 #endif /* NOXFER */
2597
2598 VOID
2599 makever() {                             /* Make version string from pieces */
2600     int x, y;
2601     char * s;
2602 #ifndef OS2
2603 #ifndef MAC
2604     ck_s_xver = ck_s_ver;               /* Fill in C-Kermit version number */
2605     ck_l_xver = ck_l_ver;               /* for UNIX, VMS, etc. */
2606 #endif /* MAC */
2607 #endif /* OS2 */
2608     x = strlen(ck_s_name);
2609     y = strlen(ck_s_xver);
2610     if (y + x + 1 < CKVERLEN) {
2611         ckmakmsg(versio,CKVERLEN,ck_s_name," ",ck_s_xver,NULL);
2612     } else {
2613         ckstrncpy(versio,"C-Kermit",CKVERLEN);
2614         return;
2615     }
2616     x += y + 1;
2617
2618     s = " OPEN SOURCE:";                /* C-Kermit 9.0 and later */
2619     y = strlen(s);
2620     if (CKVERLEN < x + y + 1)
2621       return;
2622     ckstrncat(versio,s,CKVERLEN);
2623
2624     x += y + 1;
2625     if (*ck_s_who) {
2626         y = strlen(ck_s_who);
2627         if (CKVERLEN < x + y + 1)
2628           return;
2629         ckstrncat(versio,"-",CKVERLEN);
2630         ckstrncat(versio,ck_s_who,CKVERLEN);
2631     }
2632     x += y + 1;
2633     y = strlen(ck_s_test);
2634     if (y > 0 && y + x + 1 < CKVERLEN) {
2635         ckstrncat(versio," ",CKVERLEN);
2636         ckstrncat(versio,ck_s_test,CKVERLEN);
2637         x += y + 1;
2638         y = strlen(ck_s_tver);
2639         if (y > 0 && y + x + 1 < CKVERLEN) {
2640             ckstrncat(versio,".",CKVERLEN);
2641             ckstrncat(versio,ck_s_tver,CKVERLEN);
2642             x += y + 1;
2643         }
2644     }
2645     y = strlen(ck_s_date);
2646     if (y > 0 && y + x + 2 < CKVERLEN) {
2647         ckstrncat(versio,", ",CKVERLEN);
2648         ckstrncat(versio,ck_s_date,CKVERLEN);
2649     }
2650     vernum = ck_l_ver;
2651     xvernum = ck_l_xver;
2652     debug(F110,"Kermit version",versio,0);
2653 }
2654
2655 union ck_short shortbytes;              /* For determining byte order */
2656 int byteorder = 0;                      /* 0 = Big Endian; 1 = Little Endian */
2657 int bigendian = 1;
2658 /* NOTE: MUST BE 0 or 1 - nothing else */
2659
2660 #ifndef NOSPL
2661 #define SCRIPTLEN 10240
2662 #endif  /* NOSPL */
2663
2664 #ifdef NETCONN
2665 #ifndef NOCMDL
2666 #ifndef NOURL
2667 VOID
2668 dourl() {
2669     int rc = 0;
2670     char * port = NULL;
2671     extern int ttnproto;
2672     extern struct urldata g_url;
2673
2674 #ifdef COMMENT
2675     /* NOTE: debug() doesn't work yet - must use printf's */
2676     printf("URL:  %s\n",g_url.sav ? g_url.sav : "(none)");
2677     printf("Type: %s\n",g_url.svc ? g_url.svc : "(none)");
2678     printf("User: %s\n",g_url.usr ? g_url.usr : "(none)");
2679     printf("Pass: %s\n",g_url.psw ? g_url.psw : "(none)");
2680     printf("Host: %s\n",g_url.hos ? g_url.hos : "(none)");
2681 /*  printf("Port: %s\n",g_url.por ? g_url.por : "(none)"); */
2682     printf("Path: %s\n",g_url.pth ? g_url.pth : "(none)");
2683 #endif /* COMMENT */
2684
2685     if (!ckstrcmp(g_url.svc,"iksd",-1,0) ||
2686         !ckstrcmp(g_url.svc,"kermit",-1,0)) {
2687         extern char pwbuf[];
2688         extern int pwflg;
2689 #ifdef OS2
2690         extern int pwcrypt;
2691 #endif /* OS2 */
2692
2693         if (!g_url.hos) {
2694             printf("?Incomplete IKSD URL\n");
2695             doexit(BAD_EXIT,1);
2696         }
2697         if (!g_url.usr)
2698             makestr(&g_url.usr,"anonymous");
2699         if (!g_url.psw) {
2700             char * tmpbuf = NULL;
2701             if (!(tmpbuf = (char *)malloc(1024)))
2702                 fatal("dourl: out of memory");
2703             if (!ckstrcmp(g_url.usr,"anonymous",-1,0)) {
2704                 ckmakmsg(tmpbuf,1024,uidbuf,"@",myhost,NULL);
2705                 makestr(&g_url.psw,tmpbuf);
2706             } else {
2707                 readpass(" Password:",tmpbuf,1024);
2708                 makestr(&g_url.psw,tmpbuf);
2709             }
2710             free(tmpbuf);
2711         }
2712         port = "kermit";
2713         ttnproto = NP_TELNET;
2714         nettype = NET_TCPB;
2715         mdmtyp = -nettype;
2716         local = -1;
2717         ckstrncpy(uidbuf,g_url.usr,UIDBUFLEN);
2718         if (g_url.psw) {
2719             ckstrncpy(pwbuf,g_url.psw,PWBUFL);
2720             pwflg = 1;
2721 #ifdef OS2
2722             pwcrypt = 0;
2723 #endif /* OS2 */
2724         }
2725         ckmakmsg(ttname,
2726                  TTNAMLEN,
2727                  g_url.hos,
2728                  ":",
2729                  g_url.por ? g_url.por : port,
2730                  NULL
2731                  );
2732         rc = ttopen(ttname,&local,mdmtyp,0);
2733         if (rc > -1) {
2734             network = 1;
2735             exitonclose = 1;
2736 #ifdef CKLOGDIAL
2737             dolognet();
2738 #endif /* CKLOGDIAL */
2739         } else {
2740             printf("?Connection failed: %s\n",g_url.sav);
2741             doexit(BAD_EXIT,1);
2742         }
2743         /* Also need to check here for secure authentication already done */
2744
2745 #ifdef NOSPL
2746         cflg = 1;
2747 #else
2748         {
2749             char * script = NULL;
2750             if (!(script = (char *)malloc(SCRIPTLEN)))
2751               fatal("dourl: out of memory");
2752             if (!g_url.pth) {           /* Write the appropriate script */
2753                 cflg = 1;
2754                 ckmakxmsg(script,SCRIPTLEN,
2755                           "if not eq {\\v(authstate)} {user} ",
2756                           "if not eq {\\v(authstate)} {valid} { ",
2757                           "remote login ", /* No path */
2758                           g_url.usr,       /* Just log in and CONNECT */
2759                           " ",
2760                           g_url.psw,
2761                           ", if fail exit 1 {IKSD login failed} }",
2762                           ", connect",
2763                           NULL,NULL,NULL,NULL);
2764                 /* printf("CLCMDS 1: %s\n",script); */
2765             } else {
2766                 /* does the path specify a file or a directory? */
2767                 int len = strlen(g_url.pth);
2768                 if (ISDIRSEP(g_url.pth[len-1])) {
2769                     ckmakxmsg(script,SCRIPTLEN, /* Directory name given */
2770                               "if not eq {\\v(authstate)} {user} \
2771 if not eq {\\v(authstate)} {valid} { remote login ",
2772                               g_url.usr,
2773                               " ",
2774                               g_url.psw,
2775                               ", if fail exit 1 {IKSD login failed} }",
2776                               ", set macro error on",
2777                               ", set xfer displ brief",
2778                               ", set xfer bell off",
2779                               ", remote cd ",
2780                               g_url.pth,
2781                               ", lineout directory",
2782                               ", connect"
2783                               );
2784                     /* printf("CLCMDS 2: %s\n",script); */
2785                 } else {
2786                     ckmakxmsg(script,SCRIPTLEN, /* Path given, try to GET */
2787                               "if not eq {\\v(authstate)} {user} \
2788 if not eq {\\v(authstate)} {valid} { remote login ",
2789                               g_url.usr,
2790                               " ",
2791                               g_url.psw,
2792                               ", if fail exit 1 {IKSD login failed} }",
2793                               ", set xfer displ brief",
2794                               ", set xfer bell off",
2795                               ", get ",
2796                               g_url.pth,
2797                               ", .rc := \\v(status)",
2798                               ", if open connection bye",
2799                               ", exit \\m(rc)"
2800                               );
2801                     /* printf("CLCMDS 2: %s\n",script); */
2802                 }
2803             }
2804             clcmds = script;            /* Make this our -C cmdline macro */
2805             /* printf("HAVEURL=%d\n",haveurl); */
2806         }
2807 #endif /* NOSPL */
2808     } else {
2809         if (ckstrcmp(g_url.svc,"telnet",-1,0) &&
2810 #ifdef SSHBUILTIN
2811             ckstrcmp(g_url.svc,"ssh",-1,0) &&
2812 #endif /* SSHBUILTIN */
2813             ckstrcmp(g_url.svc,"ftp",-1,0)) {
2814             printf("?Sorry, %s URLs not supported\n",
2815                    g_url.svc ? g_url.svc : "");
2816             doexit(BAD_EXIT,1);
2817         }
2818     }
2819 }
2820 #endif /* NOCMDL */
2821 #endif /* NETCONN */
2822 #endif /* NOURL */
2823
2824 /*
2825   main()...
2826
2827   If you get complaints about "main: return type is not blah",
2828   define MAINTYPE on the CC command line, e.g. "CFLAGS=-DMAINTYPE=blah"
2829   (where "blah" is int, long, or whatever).
2830
2831   If the complaint is "Attempt to return a value from a function of type void"
2832   then add -DMAINISVOID.
2833 */
2834 #ifndef MAINTYPE
2835 #ifndef MAINISVOID
2836 #define MAINTYPE int
2837 #endif /* MAINISVOID */
2838 #endif /* MAINTYPE */
2839
2840 #ifdef MAINISVOID
2841 #ifndef MAINTYPE
2842 #define MAINTYPE void
2843 #endif /* MAINTYPE */
2844 #endif /* MAINISVOID */
2845
2846 #ifdef aegis
2847 /* On the Apollo, intercept main to insert a cleanup handler */
2848 int
2849 ckcmai(argc,argv) int argc; char **argv;
2850 #else
2851 #ifdef MAC                              /* Macintosh */
2852 int
2853 main (void)
2854 #else
2855 #ifdef __GNUC__                         /* GCC compiler */
2856 int
2857 main(argc,argv) int argc; char **argv;
2858 #else
2859 #ifdef __DECC                           /* DEC Alpha with DEC C compiler */
2860 #ifdef __ALPHA
2861 int
2862 main(argc,argv) int argc; char **argv;
2863 #else                                   /* DEC C compiler, not Alpha */
2864 #define MAINISVOID
2865 VOID
2866 main(argc,argv) int argc; char **argv;
2867 #endif  /* __ALPHA */
2868 #else
2869 #ifdef STRATUS                          /* Stratus VOS */
2870 int
2871 main(argc,argv) int argc; char **argv;
2872 #else                                   /* K-95 */
2873 #ifdef OS2
2874 #ifdef KUI
2875 #define MAINISVOID
2876 void
2877 Main( int argc, char ** argv )
2878 #else /* KUI */
2879 #define MAINISVOID
2880 VOID
2881 main(argc,argv) int argc; char **argv;
2882 #endif /* KUI */
2883 #else  /* Not K95 */
2884 MAINTYPE                                /* All others... */
2885 main(argc,argv) int argc; char **argv;
2886 #endif /* OS2 */
2887 #endif /* STRATUS */
2888 #endif /* __DECC */
2889 #endif /* __GNUC__ */
2890 #endif /* MAC */
2891 #endif /* aegis */
2892
2893 /* main */ {
2894
2895     char *p;
2896
2897 #ifndef NOSETKEY
2898     int i;
2899 #endif /* NOSETKEY */
2900
2901 #ifdef datageneral
2902     short *pfha = 016000000036;         /* Get around LANG_RT problem */
2903     *pfha = (short) 0;                  /* No user protection fault handler */
2904 #endif /* datageneral */
2905
2906     int unbuf = 0;                      /* nonzero for unbuffered stdout */
2907
2908 /* setbuf has to be called on the file descriptor before it is used */
2909
2910 #ifdef UNIX
2911 #ifdef NONOSETBUF                       /* Unbuffered console i/o */
2912     unbuf++;                            /* as a compile-time option */
2913 #endif  /* NONOSETBUF */
2914     if (!unbuf) {                       /* Or as a command-line selection */
2915         int i, n;                       /* We have to pre-pre-scan for */
2916         char * s;                       /* this one. */
2917         for (i = 1; i < argc; i++) {
2918             s = argv[i];
2919             if (!s) n = 0; else n = (int)strlen(s);
2920             if (n > 4) {
2921                 if (!ckstrcmp("--unbuffered",s,n,0)) {
2922                     unbuf++;
2923                     break;
2924                 }
2925             }
2926         }
2927     }
2928     if (unbuf)
2929       setbuf(stdout,NULL);
2930 #endif  /* UNIX */
2931
2932 /* Do some initialization */
2933
2934 #ifdef VMS
2935 #ifdef __DECC
2936     /* Get some RMS default settings. */
2937     get_rms_defaults();
2938 #endif /* def __DECC */
2939 #endif /* def VMS */
2940
2941 #ifndef MAC
2942     xargc = xargs = argc;               /* Make global copies of argc */
2943     xargv = argv;                       /* ...and argv. */
2944     xarg0 = argv[0];
2945 #ifdef NT
2946     setOSVer();
2947 #endif /* NT */
2948     zstrip(argv[0],&p);                 /* Get name we were invoked with */
2949     makestr(&myname,p);
2950     if (!ckstrcmp(myname,"telnet",-1,0))       howcalled = I_AM_TELNET;
2951 #ifdef CK_KERBEROS
2952     else if (!ckstrcmp(myname,"ktelnet",-1,0)) howcalled = I_AM_TELNET;
2953 #endif /* CK_KERBEROS */
2954     else if (!ckstrcmp(myname,"rlogin",-1,0))  howcalled = I_AM_RLOGIN;
2955     else if (!ckstrcmp(myname,"iksd",-1,0))    howcalled = I_AM_IKSD;
2956 #ifdef NEWFTP
2957     else if (!ckstrcmp(myname,"ftp",-1,0))     howcalled = I_AM_FTP;
2958 #endif /* NEWFTP */
2959 #ifndef NOHTTP
2960     else if (!ckstrcmp(myname,"http",-1,0))    howcalled = I_AM_HTTP;
2961 #endif /* NOHTTP */
2962 #ifdef OS2
2963     else if (!ckstrcmp(myname,"telnet.exe",-1,0))  howcalled = I_AM_TELNET;
2964 #ifdef SSHBUILTIN
2965     else if (!ckstrcmp(myname,"ssh",-1,0))  howcalled = I_AM_SSH;
2966     else if (!ckstrcmp(myname,"ssh.exe",-1,0))  howcalled = I_AM_SSH;
2967 #endif /* SSHBUILTIN */
2968 #ifdef CK_KERBEROS
2969     else if (!ckstrcmp(myname,"ktelnet.exe",-1,0)) howcalled = I_AM_TELNET;
2970 #endif /* CK_KERBEROS */
2971     else if (!ckstrcmp(myname,"rlogin.exe",-1,0))  howcalled = I_AM_RLOGIN;
2972 #ifdef NT
2973     else if (!ckstrcmp(myname,"iksdnt",-1,0))    howcalled = I_AM_IKSD;
2974     else if (!ckstrcmp(myname,"iksdnt.exe",-1,0))    howcalled = I_AM_IKSD;
2975 #endif /* NT */
2976 #ifdef NEWFTP
2977     else if (!ckstrcmp(myname,"ftp.exe",-1,0))     howcalled = I_AM_FTP;
2978 #endif /* NEWFTP */
2979 #ifndef NOHTTP
2980     else if (!ckstrcmp(myname,"http.exe",-1,0))    howcalled = I_AM_HTTP;
2981 #endif /* NOHTTP */
2982 #endif /* OS2 */
2983     else if (!ckstrcmp(myname,"kermit-sshsub",-1,0)) howcalled = I_AM_SSHSUB;
2984
2985 #ifndef NOICP
2986     cmdini();                           /* Must come before prescan */
2987     debug(F100,"main cmdini() done","",0);
2988 #endif /* NOICP */
2989     prescan(0);                         /* Pre-Check for debugging, etc */
2990 #endif /* MAC */
2991     debug(F101,"MAIN feol","",feol);
2992     makever();                          /* Put together version strings */
2993 #ifndef NOSETKEY                        /* Allocate & initialize the keymap */
2994     /* This code has been moved to before sysinit() for K95G */
2995     if (!(keymap = (KEY *) malloc(sizeof(KEY)*KMSIZE)))
2996       fatal("main: no memory for keymap");
2997     if (!(macrotab = (MACRO *) malloc(sizeof(MACRO)*KMSIZE)))
2998       fatal("main: no memory for macrotab");
2999     for (i = 0; i < KMSIZE; i++) {
3000        keymap[i] = (KEY) i;
3001        macrotab[i] = NULL;
3002     }
3003 #endif /* NOSETKEY */
3004
3005     shortbytes.x_short = 0xABCD;        /* Get Endianness */
3006     if (shortbytes.x_char[0] == 0xCD) { /* 0 = Big Endian */
3007         byteorder = 1;                  /* 1 = Little Endian */
3008         bigendian = 0;                  /* (for clarity in programming) */
3009     } else {
3010         byteorder = 0;                  /* Big Endian */
3011         bigendian = 1;
3012     }
3013     if (sizeof(CK_OFF_T) == 8)          /* Large files and ints? */
3014       havelfs = 1;
3015
3016     if (sysinit() < 0)                  /* System-dependent initialization. */
3017       fatal("Can't initialize!");
3018     else
3019       initflg = 1;                      /* Remember we did. */
3020     debug(F111,"ckcmai myname",myname,howcalled);
3021
3022 #ifdef UNIX
3023     getexedir();                        /* Compute exedir variable */
3024 #endif /* UNIX */
3025
3026 #ifdef CKSYSLOG
3027 #ifdef SYSLOGLEVEL
3028 /*
3029   If built with -DSYSLOGLEVEL on cc command line, this means we always
3030   do syslogging at the indicated level.
3031 */
3032     zsyslog();                          /* Open syslog */
3033 #else /* SYSLOGLEVEL */
3034 #ifdef IKSD
3035     if (inserver)
3036       zsyslog();                        /* Open syslog */
3037 #endif /* IKSD */
3038 #endif /* SYSLOGLEVEL */
3039 #endif /* CKSYSLOG */
3040
3041 #ifdef CK_KERBEROS
3042     ini_kerb();                         /* Initialize Kerberos data */
3043 #endif /* CK_KERBEROS */
3044 #ifdef CK_SSL
3045     ssl_once_init();
3046 #endif /* CK_SSL */
3047 #ifdef TNCODE
3048     tn_set_modes();                     /* Init Telnet Option tables */
3049 #endif /* TNCODE */
3050
3051 #ifdef CK_TTGWSIZ                       /* Initialize screen dimensions */
3052 #ifdef OS2
3053     ttgcwsz();
3054 #else /* OS2 */
3055     if (ttgwsiz() > 0) {
3056         if (tt_rows > 0 && tt_cols > 0) {
3057             cmd_rows = tt_rows;
3058             cmd_cols = tt_cols;
3059         }
3060     }
3061 #endif /* OS2 */
3062 #endif /* CK_TTGWSIZ */
3063
3064 #ifndef OS2
3065 #ifdef TCPSOCKET
3066 #ifdef CK_SOCKS
3067     SOCKSinit(argv[0]);                 /* Internet relay package... */
3068 #endif /* CK_SOCKS */
3069 #endif /* TCPSOCKET */
3070 #endif /* OS2 */
3071
3072     initflow();                         /* Initialize flow-control table */
3073
3074 #ifndef NOICP
3075 #ifdef CKFLOAT
3076     initfloat();                        /* Deduce floating-point precision */
3077 #endif /* CKFLOAT */
3078 #endif /* NOICP */
3079
3080 #ifndef NOXFER
3081     initxlist();                        /* Init exception lists */
3082
3083 #ifdef CK_XYZ                           /* Initialize protocols...  */
3084
3085 #ifdef XYZ_INTERNAL /* XYZMODEM are internal ... */
3086
3087 #ifdef COMMENT
3088     /* Can't do this for XMODEM because if filename contains a "C" etc... */
3089     initproto(PROTO_X, "rx %s","rx %s", NULL, NULL, NULL, NULL, NULL);
3090     initproto(PROTO_XC,"rc %s","rc %s", NULL, NULL, NULL, NULL, NULL);
3091 #else /* COMMENT */
3092     initproto(PROTO_X, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
3093     initproto(PROTO_XC,NULL, NULL, NULL, NULL, NULL, NULL, NULL);
3094 #endif /* COMMENT */
3095     initproto(PROTO_Y, "rb","rb", NULL, NULL, NULL, NULL, NULL);
3096     initproto(PROTO_G, "rb","rb", NULL, NULL, NULL, NULL, NULL);
3097     initproto(PROTO_Z, "rz","rz", NULL, NULL, NULL, NULL, NULL);
3098    initproto(PROTO_K,"kermit -ir","kermit -r","kermit -x",NULL,NULL,NULL,NULL);
3099     /* Kermit Must be last */
3100
3101 #else /* XYZMODEM are external protocols ... */
3102
3103  /*                  s1      s2     s3    s4      s5         s6      s7     */
3104  initproto(PROTO_X, "rx %s","rx %s",NULL,"sx %s","sx -a %s","rx %s", "rx %s");
3105  initproto(PROTO_XC,"rc %s","rc %s",NULL,"sx %s","sx -a %s","rc %s", "rc %s");
3106  initproto(PROTO_Y, "rb",   "rb",   NULL,"sb %s","sb -a %s","rb",    "rb"   );
3107  initproto(PROTO_G, "rb",   "rb",   NULL,"sb %s","sb -a %s","rb",    "rb"   );
3108  initproto(PROTO_Z, "rz",   "rz",   NULL,"sz %s","sz -a %s","rz",    "rz"   );
3109  initproto(PROTO_K, "kermit -ir","kermit -r","kermit -x",NULL,NULL,NULL,NULL);
3110  /* Kermit must be last */
3111
3112 #endif /* XYZ_INTERNAL */
3113
3114 #else  /* No XYZMODEM support */
3115
3116    initproto(PROTO_K,"kermit -ir","kermit -r","kermit -x",NULL,NULL,NULL,NULL);
3117
3118 #endif /* CK_XYZ */
3119 #endif /* NOXFER */
3120
3121     connoi();                           /* Console interrupts off */
3122
3123 #ifndef NOXFER
3124 #ifdef OS2
3125     /* Initialize Kermit and Zmodem Auto-Download Strings */
3126     adl_kstr = strdup("KERMIT READY TO SEND...");
3127     adl_zstr = strdup("rz\r");
3128 #endif /* OS2 */
3129
3130 #ifdef PATTERNS
3131     initpat();                          /* Initialize filename patterns */
3132 #endif /* PATTERNS */
3133 #endif /* NOXFER */
3134
3135 #ifndef NOCSETS
3136     initcsets();                        /* Initialize character sets */
3137 #endif /* NOCSETS */
3138
3139 #ifndef NOICP
3140 #ifdef DFCDMSG
3141     makestr(&cdmsgstr,DFCDMSG);
3142     makelist(cdmsgstr,cdmsgfile,8);     /* Initialize CD message filenames */
3143 #endif /* DFCDMSG */
3144 #endif /* NOICP */
3145
3146     sstate = 0;                         /* No default start state. */
3147 #ifdef DYNAMIC
3148     if (getiobs() < 0)
3149       fatal("Can't allocate i/o buffers!");
3150 #endif /* DYNAMIC */
3151
3152 #ifndef NOSPL
3153 #ifndef NORANDOM
3154     {
3155         char stackdata[256];
3156         unsigned int c = 1234, n;
3157         /* try to make a random unsigned int to feed srand() */
3158 #ifndef VMS
3159         /* time.h and MultiNet do not get along */
3160         c = time(NULL);
3161 #endif /* VMS */
3162         c *= getpid();
3163         /* Referenced before set... DELIBERATELY */
3164         for (n = 0; n < sizeof(stackdata); n++) /* IGNORE WARNING */
3165           c += stackdata[n];            /* DELIBERATELY USED BEFORE SET */
3166         srand((unsigned int)c);
3167     }
3168 #endif /* NORANDOM */
3169 #endif /* NOSPL */
3170
3171     ckhost(myhost,MYHOSTL);             /* Name of local host */
3172     debug(F110,"main ckhost",myhost,0);
3173 #ifdef IKSD
3174     if (!inserver) {
3175 #endif /* IKSD */
3176         ckstrncpy(ttname,dftty,TTNAMLEN); /* Set up default tty name. */
3177         local = nolocal ? 0 : dfloc;    /* And whether it's local or remote. */
3178         parity = dfprty;                /* Set initial parity, */
3179 #ifndef NOXFER
3180         myindex = getsysix(cksysid);    /* System index */
3181 #endif /* NOXFER */
3182         if (local) if (ttopen(ttname,&local,0,0) < 0) {
3183 #ifndef OS2
3184             conol("Can't open device: ");
3185             conoll(ttname);
3186 #endif /* OS2 */
3187             local = 0;
3188             ckstrncpy(ttname,CTTNAM,TTNAMLEN);
3189         }
3190         setflow();                      /* Set appropriate flow control */
3191         speed = ttgspd();               /* Get transmission speed. */
3192 #ifdef IKSD
3193     }
3194 #endif /* IKSD */
3195
3196 #ifdef ANYX25                           /* All X.25 implementations */
3197 #ifndef IBMX25                          /* except IBM have PAD support */
3198     initpad();                          /* Initialize X.25 PAD */
3199 #endif /* IBMX25 */
3200 #endif /* ANYX25 */
3201
3202 #ifndef NOXFER
3203     if (inibufs(SBSIZ,RBSIZ) < 0)       /* Allocate packet buffers */
3204       fatal("Can't allocate packet buffers!");
3205 #ifndef NOCKSPEED
3206     setprefix(prefixing);               /* Set up control char prefixing */
3207 #endif /* NOCKSPEED */
3208 #endif /* NOXFER */
3209
3210 #ifndef NOICP
3211     if (sstelnet
3212 #ifdef IKSD
3213         || inserver
3214 #endif /* IKSD */
3215         ) {
3216         int on = 1, x = 0;
3217         extern int ckxech, ttnet, ttnproto, cmdmsk;
3218 #ifdef SO_SNDBUF
3219         extern int tcp_sendbuf;
3220 #endif
3221 #ifdef SO_RCVBUF
3222         extern int tcp_recvbuf;
3223 #endif
3224 #ifdef SO_KEEPALIVE
3225         extern int tcp_keepalive;
3226 #endif
3227 #ifdef SO_LINGER
3228         extern int tcp_linger, tcp_linger_tmo;
3229 #endif /* SO_LINGER */
3230 #ifdef SO_DONTROUTE
3231         extern int tcp_dontroute;
3232 #endif /* SO_DONTROUTE */
3233 #ifdef TCP_NODELAY
3234         extern int tcp_nodelay;
3235 #endif /* TCP_NODELAY */
3236 #ifdef IKSD
3237         extern int iklogopen;
3238 #endif /* IKSD */
3239         extern int ttmdm;
3240
3241 #ifdef UNIX
3242         if (isatty(0))
3243           fatal("Internet Kermit Service cannot be started at a terminal.");
3244 #endif /* UNIX */
3245
3246         reliable = xreliable = SET_ON;  /* IKSD has reliable connection */
3247 #ifndef VMS
3248         flow = 0;                       /* No flow control needed */
3249 #endif /* VMS */
3250         bgset = 0;                      /* Not in background */
3251         nopush = 1;                     /* No external processes */
3252         parity = 0;                     /* 8 bits ... */
3253         cmdmsk = 0xff;                  /* all the way */
3254         cmask = 0xff;
3255
3256 #ifdef IKSD
3257         if (inserver) {                 /* If IKSD */
3258             doiksdinit();               /* Execute IKSD configuration file */
3259             while (tlevel > -1)
3260               parser(1);                /* (Ignore any file-xfer commands) */
3261             iksdcf = 1;                 /* IKSD c.f. has been processed */
3262         }
3263         if (!iklogopen) (VOID) doiklog(); /* Open Kermit-specific log */
3264 #endif /* IKSD */
3265
3266 #ifdef UNIX
3267         setbuf(stdout,NULL);            /* Don't buffer the output */
3268         ckstrncpy(ttname,"0",TTNAMLEN); /* not "/dev/tty"... */
3269 #endif /* UNIX */
3270         local = 0;                      /* We are in remote mode */
3271         ckxech = 1;                     /* We will echo */
3272 #ifdef OS2
3273         nettype = NET_TCPB;             /* So ttopen() treats the connection */
3274         mdmtyp = -nettype;              /* as a network */
3275 #endif /* OS2 */
3276         debug(F100,"main about to call ttopen() inserver","",0);
3277         if (ttopen(ttname,&local,mdmtyp,0) < 0) { /* Open comm channel */
3278             fatal("can't initialize i/o");
3279         }
3280 #ifdef OS2
3281         local = 0;
3282         network = 1;                    /* Does use networking code */
3283 #else  /* OS2 */
3284         network = 0;                    /* Does not use networking code */
3285 #endif /* OS2 */
3286         ttmdm = -1;                     /* Does not use a modem */
3287         sstelnet = 1;                   /* Do server-side Telnet negotations */
3288         debug(F111,"MAIN","sstelnet",sstelnet);
3289         ttnet = NET_TCPB;               /* Network type is TCP sockets */
3290         ttnproto = NP_TELNET;           /* Netword protocol is Telnet */
3291 #ifdef IKSDB
3292         dbinit();                       /* Initialize database record */
3293 #endif /* IKSDB */
3294 #ifndef OS2
3295 #ifdef CK_AUTHENTICATION
3296         /* Before initializating Telnet/Rlogin negotiations, init Kerberos */
3297         ck_auth_init(ckgetpeer(),"","",0);
3298 #endif /* CK_AUTHENTICATION */
3299
3300 #ifdef NON_BLOCK_IO
3301         on = 1;
3302         x = socket_ioctl(0,FIONBIO,&on);
3303         debug(F101,"main FIONBIO","",x);
3304 #endif /* NON_BLOCK_IO */
3305 #ifdef SO_OOBINLINE
3306         on = 1;
3307         x = setsockopt(0, SOL_SOCKET, SO_OOBINLINE, (char *)&on, sizeof(on));
3308         debug(F101,"main SO_OOBINLINE","",x);
3309 #endif /* SO_OOBINLINE */
3310
3311 #ifndef NOTCPOPTS
3312 #ifndef datageneral
3313 #ifdef SOL_SOCKET
3314 #ifdef TCP_NODELAY
3315         no_delay(0,tcp_nodelay);
3316 #endif /* TCP_NODELAY */
3317 #ifdef SO_KEEPALIVE
3318         keepalive(0,tcp_keepalive);
3319 #endif /* SO_KEEPALIVE */
3320 #ifdef SO_LINGER
3321         ck_linger(0,tcp_linger, tcp_linger_tmo);
3322 #endif /* SO_LINGER */
3323 #ifdef SO_DONTROUTE
3324         dontroute(0,tcp_dontroute);
3325 #endif /* SO_DONTROUTE */
3326 #ifdef SO_SNDBUF
3327         sendbuf(0,tcp_sendbuf);
3328 #endif /* SO_SNDBUF */
3329 #ifdef SO_RCVBUF
3330         recvbuf(0,tcp_recvbuf);
3331 #endif /* SO_RCVBUF */
3332 #endif /* SOL_SOCKET */
3333 #endif /* datageneral */
3334 #endif /* NOTCPOPTS */
3335
3336 #ifdef CK_SSL
3337         if (ck_ssleay_is_installed()) {
3338             if (!ssl_tn_init(SSL_SERVER)) {
3339                 if (bio_err != NULL) {
3340                     BIO_printf(bio_err,"do_ssleay_init() failed\r\n");
3341                     ERR_print_errors(bio_err);
3342                 } else {
3343                     fflush(stderr);
3344                     fprintf(stderr,"do_ssleay_init() failed\r\n");
3345                     ERR_print_errors_fp(stderr);
3346                 }
3347                 switch (ttnproto) {
3348                   case NP_SSL:
3349                   case NP_TLS:
3350                   case NP_SSL_RAW:
3351                   case NP_TLS_RAW:
3352                   case NP_SSL_TELNET:
3353                   case NP_TLS_TELNET:
3354                     doexit(BAD_EXIT,1);
3355                 }
3356                 /* otherwise we will continue to accept the connection   */
3357                 /* without SSL or TLS support unless required. */
3358                 if ( TELOPT_DEF_S_ME_MODE(TELOPT_START_TLS) != TN_NG_MU )
3359                     TELOPT_DEF_S_ME_MODE(TELOPT_START_TLS) = TN_NG_RF;
3360                 if ( TELOPT_DEF_S_U_MODE(TELOPT_START_TLS) != TN_NG_MU )
3361                     TELOPT_DEF_S_U_MODE(TELOPT_START_TLS) = TN_NG_RF;
3362                 if ( TELOPT_DEF_C_ME_MODE(TELOPT_START_TLS) != TN_NG_MU )
3363                     TELOPT_DEF_C_ME_MODE(TELOPT_START_TLS) = TN_NG_RF;
3364                 if ( TELOPT_DEF_C_U_MODE(TELOPT_START_TLS) != TN_NG_MU )
3365                     TELOPT_DEF_C_U_MODE(TELOPT_START_TLS) = TN_NG_RF;
3366             } else {
3367                 if ( ck_ssl_incoming(0) < 0 ) {
3368                     doexit(BAD_EXIT,1);
3369                 }
3370             }
3371         }
3372 #endif /* CK_SSL */
3373
3374 #ifdef TNCODE
3375         tn_ini();                       /* Start Telnet negotiation now */
3376 #endif /* TNCODE */
3377 #endif /* OS2 */
3378     }
3379     debug(F101,"main argc after prescan()","",argc);
3380
3381     /* Now process any relevant environment variables */
3382
3383 #ifndef NODIAL
3384     getdialenv();                       /* Dialing */
3385 #ifdef NETCONN
3386     ndinit();                           /* Initialize network directory info */
3387     getnetenv();                        /* Network directories */
3388 #endif /* NETCONN */
3389 #endif /* NODIAL */
3390
3391 #ifndef NOXFER
3392 #ifdef CK_FAST
3393     dofast();                           /* By now FAST defaults should be OK */
3394 #endif /* CK_FAST */
3395 #endif /* NOXFER */
3396
3397 #ifndef NOCMDL
3398     ikslogin();                          /* IKSD Login and other stuff */
3399 #ifdef IKSD
3400 #ifdef NT
3401     if ( inserver )
3402       setntcreds();
3403 #endif /* NT */
3404 #endif /* IKSD */
3405 #endif /* NOCMDL */
3406
3407     if (howcalled == I_AM_SSHSUB) {
3408         reliable = 1;                   /* We say the connection is reliable */
3409         xreliable = 1;                  /* And that we said it was */
3410         setreliable = 1;                /* And pretend the "user" did too */
3411         xfinish = 1;                    /* For REMOTE HELP response */
3412         mdmtyp = 0;                     /* For ttopen() */
3413         ckstrncpy(ttname,"0",TTNAMLEN+1);  /* Use file descriptor 0 */
3414         local = 0;                         /* And force remote mode */
3415         ttopen(ttname,&local,mdmtyp,0); /* Open the "connection" */
3416         sstate = 'x';                   /* Initial state is Server */
3417         proto();                        /* Enter protocol */
3418         doexit(GOOD_EXIT,xitsta);       /* Exit when done */
3419     }
3420     debug(F111,"howcalled",myname,howcalled);
3421
3422 #ifdef NOCCTRAP
3423     dotakeini(0);
3424 #else /* NOCCTRAP */
3425     debug(F100,"main about to cc_execute","",0);
3426     setint();
3427     cc_execute( ckjaddr(cmjbuf), dotakeini, failtakeini );
3428 #endif /* NOCCTRAP */
3429
3430     debug(F111,"main 2 cfilef",cmdfil,cfilef);
3431     if (cmdfil[0]) {                    /* If we got one (see prescan())... */
3432 #ifdef NOCCTRAP
3433         docmdfile(0);                   /* execute it. */
3434 #else /* NOCCTRAP */
3435         setint();
3436         cc_execute( ckjaddr(cmjbuf), docmdfile, failcmdfile );
3437 #endif /* NOCCTRAP */
3438     }
3439 #ifndef OS2                             /* Preserve name so we can delete it */
3440     *cmdfil = '\0';                     /* Done, nullify the file name */
3441 #endif /* OS2 */
3442 #endif /* NOICP */
3443
3444 #ifndef NOCMDL
3445 /* Look for a UNIX-style command line... */
3446
3447     what = W_NOTHING;
3448
3449     debug(F101,"main argc","",argc);
3450 #ifndef NOHELP
3451     iniopthlp();                        /* Initialize cmdline arg help */
3452 #endif /* NOHELP */
3453     if (
3454 #ifdef COMMENT
3455         !cfilef &&
3456 #endif /* COMMENT */
3457         argc > 1) {                     /* Command line arguments? */
3458         sstate = (CHAR) cmdlin();       /* Yes, parse. */
3459 #ifdef NETCONN
3460 #ifndef NOURL
3461         if (haveurl) {                  /* Was a URL given? */
3462             dourl();                    /* if so, do it. */
3463         }
3464 #endif /* NOURL */
3465 #endif /* NETCONN */
3466 #ifndef NOXFER
3467         zstate = sstate;                /* Remember sstate around protocol */
3468         debug(F101,"main zstate","",zstate);
3469 #endif /* NOXFER */
3470
3471 #ifndef NOLOCAL
3472         if (cflg) {                     /* Connect first if requested */
3473             doconect(0,0);
3474             if (ttchk() < 0)
3475               dologend();
3476             cflg = 0;
3477         }
3478 #endif /* NOLOCAL */
3479
3480 #ifndef NOXFER
3481         if (sstate) {
3482 #ifndef NOLOCAL
3483             if (displa) concb((char)escape); /* (for console "interrupts") */
3484 #endif /* NOLOCAL */
3485 #ifdef NOCCTRAP
3486             docmdline(1);
3487 #else /* NOCCTRAP */
3488             setint();
3489             cc_execute( ckjaddr(cmjbuf), docmdline, failcmdline );
3490 #endif /* NOCCTRAP */
3491         }
3492 #endif /* NOXFER */
3493
3494 #ifndef NOICP
3495 /*
3496   If a command-line action argument was given and -S ("stay") was not given,
3497   exit now.
3498 */
3499         if ((cflg || cnflg || zstate) && !stayflg)
3500 #endif /* NOICP */
3501           doexit(GOOD_EXIT,xitsta);     /* Exit with good status */
3502
3503 #ifndef NOLOCAL
3504 #ifndef NOICP
3505         if (local) {
3506 #ifdef NETCONN
3507             if ((cflg || cnflg) && tn_exit && ttchk() < 0)
3508               doexit(GOOD_EXIT,xitsta); /* Exit with good status */
3509 #endif /* NETCONN */
3510             if (exitonclose && !network &&
3511                 (carrier != CAR_OFF && (ttgmdm() & BM_DCD) == 0))
3512               doexit(GOOD_EXIT,xitsta); /* Exit with good status */
3513             if (exitonclose && network && ttchk() < 0)
3514               doexit(GOOD_EXIT,xitsta); /* Exit with good status */
3515         }
3516 #endif /* NOICP */
3517 #endif /* NOLOCAL */
3518     }
3519 #endif /* NOCMDL */
3520
3521 #ifdef NOICP                            /* No interactive command parser */
3522 #ifndef NOCMDL
3523     else {
3524
3525         /* Command-line-only version */
3526         fatal("?No command-line options given - type 'kermit -h' for help");
3527     }
3528 #else                                   /* Neither one! */
3529         sstate = 'x';
3530         justone = 0;
3531         proto();                        /* So go into server mode */
3532         doexit(GOOD_EXIT,xitsta);       /* exit with good status */
3533
3534 #endif /* NOCMDL */
3535 #else /* not NOICP */
3536 /*
3537   If no action requested on command line, or if -S ("stay") was included,
3538   enter the interactive command parser.
3539 */
3540     if (!clcmds)
3541       herald();                         /* Display program herald. */
3542
3543 #ifdef NOCCTRAP
3544     debug(F100,"main NOCCTRAP setting interrupt trap","",0);
3545     setint();                           /* Set up command interrupt traps */
3546     doicp(NULL);
3547 #else /* NOCCTRAP */
3548     while (1) {
3549         debug(F100,"main setting interrupt trap","",0);
3550         setint();                       /* Set up command interrupt traps */
3551         if (!cc_execute(ckjaddr(cmjbuf), doicp, failicp))
3552           break;
3553     }
3554 #endif /* NOCCTRAP */
3555 #endif /* NOICP */
3556 #ifndef MAINISVOID
3557     return(1);
3558 #endif /* MAINISVOID */
3559 }
3560
3561 #ifdef DYNAMIC
3562 /* Allocate file i/o buffers */
3563
3564 char *zinbuffer = NULL, *zoutbuffer = NULL;
3565
3566 int
3567 getiobs() {
3568     zinbuffer = (char *)malloc(INBUFSIZE);
3569     if (!zinbuffer) return(-1);
3570     zoutbuffer = (char *)malloc(zobufsize);
3571     debug(F101,"zoutbuffer malloc","",zobufsize);
3572     if (!zoutbuffer) return(-1);
3573     debug(F100,"getiobs ok","",0);
3574     return(0);
3575 }
3576 #endif /* DYNAMIC */