COMMENT - Standard C-Kermit initialization file ; ; For C-Kermit Version: 8.0 ; ; Filename: ; .kermrc (UNIX, OS-9, Aegis) ; CKERMIT.INI (OS/2, VMS, OpenVMS, AOS/VS, Atari ST, Commodore Amiga) ; ckermit.ini (Stratus VOS) ; K95.INI (Kermit 95 -- but this big version is not used there) ; K2.INI (Kermit/2 -- but ditto) ; ; Authors: ; Frank da Cruz, Christine M. Gianone, Jeffrey Altman ; Columbia University, New York, NY 10025-7799, USA ; ; This is the standard and recommended C-Kermit 8.0 initialization file. To ; override settings or definitions made in this file, to add new settings or ; definitions, or to make any other desired customizations, create a separate, ; personal customization file called: ; ; .mykermrc (UNIX, OS-9, Aegis, BeBox, Plan 9) ; CKERMOD.INI (OS/2, VMS, OpenVMS, AOS/VS, Atari ST, Commodore Amiga) ; ckermod.ini (VOS) ; ; You can also define the customization filename in an environment ; variable (logical name in VMS), CKERMOD, which takes precedence over ; the names shown above. ; ; WHAT THIS FILE DOES: ; ; . Defines your default dialing directory name: ; .kdd for UNIX, OS-9 and Aegis; CKERMIT.KDD for other operating systems. ; You can override this with the environment variable K_DIAL_DIRECTORY ; . Defines your default network directory name: ; .knd for UNIX, OS-9 and Aegis; CKERMIT.KND for other operating systems. ; You can override this with the environment variable K_NET_DIRECTORY ; . Defines your default services directory name: ; .ksd for UNIX, OS-9 and Aegis; CKERMIT.KSD for other operating systems. ; You can override this with environment variable K_SERVICE_DIRECTORY. ; . Defines your customization file name (name given above) ; . Performs system-dependent setups for UNIX, VMS, OS/2, etc. ; . Defines VTPRINT macros for use with K95, MS-DOS Kermit, etc. ; . If you have a services directory, all the macros needed to use it are ; defined. If you don't have a services directory, the macros are not ; defined and Kermit starts faster. ; . Executes your personal customization file, if you have one. ; NOTE: Your customization file is NOT executed by Kermit itself; it is ; executed by this file. ; ; In UNIX, with C-Kermit 7.0 and later, you can store this file with a name ; other than .kermrc, and it will not be executed automatically, but, if you ; give this file execute permission, you can execute directly because of the ; "kerbang line" at the top, whenever you want all of the above actions to ; occur. The kerbang line must reflect the actual full path of the Kermit ; 7.0-or-later executable. ; ; C-Kermit 6.0 is documented in the book "Using C-Kermit", 2nd Edition, ; by Frank da Cruz and Christine M. Gianone, 1997, Digital Press / ; Butterworth-Heinemann, ISBN 1-55558-164-1. New features of subsequent ; versions are documented at the Kermit website: ; http://www.columbia.edu/kermit/ ; ; Everything after this point depends on the script programming language. ; The CHECK command terminates this command file immediately if the script ; programming language (IF command) is not configured. ; set take error on ; This makes CHECK quit if no script language. check if ; Do we have an IF command? If not, quit now. set take error off ; Back to normal. local _sd _servicedir _xp ; Declare local variables. COMMENT - C-Kermit version 6.0 or later required. ; asg _xp \v(xprogram) if not def _xp asg _xp \v(program) if not equal "\m(_xp)" "C-Kermit" - stop 1 \v(cmdfile): This initialization file is only for C-Kermit. echo Executing \v(cmdfile) for \v(system)... if < \v(version) 60000 - stop 1 \v(cmdfile): C-Kermit 6.0 or later required. forward \v(system) ; First do system-dependent items... :unknown ; Should not happen Stop 1 Error: System type unknown! :Aegis ; Apollo Aegis and :UNIX ; UNIX, all versions asg _myinit - \v(home).mykermrc ; Customization filename if remote forward COMMON ; Skip local-mode items if "-R" asg _dialdir - \v(home).kdd ; C-Kermit dialing directory asg _netdir - \v(home).knd ; C-Kermit network directory asg _servicedir - \v(home).ksd ; C-Kermit services directory forward COMMON ; End of UNIX section :OS9/68K ; OS-9 asg _myinit - \v(home).mykermrc ; Customization filename if remote forward COMMON asg _dialdir - \v(home).kdd ; C-Kermit dialing directory asg _netdir - \v(home).knd ; C-Kermit network directory asg _servicedir - \v(home).ksd ; C-Kermit services directory else set file display crt forward COMMON ; End of OS-9 section :VMS ; VMS and OpenVMS forward COMMON :OS/2 ; Kermit 95 :WIN32 echo This initialization file is not for use with K95. forward COMMON ; End of OS/2 section :AOS/VS ; Data General AOS/VS set window 1 ; Sliding windows don't work set file char dg-international ; File character-set set xfer char latin1 ; Transfer character-set set file display crt ; File transfer fisplay def cli push ; Escape to CLI def reset - ; Macro to reset DG DASHER terminal run write [!ascii 236 306 301] forward COMMON ; End of AOS/VS section :Amiga ; Commodore Amiga def cls echo \27[H\27[2J ; CLS command to clear the screen set file char latin1 ; Use Latin Alphabet 1 for file transfer set xfer char latin1 ; ... forward COMMON ; End of Amiga section :Atari_ST ; Atari ST def cls echo \27H\27J ; Clear screen a`la VT52 set server display on ; Show file xfer display in server mode too set server timeout 15 ; Nonzero required for ^C interruption! forward COMMON ; End of Atari ST section :Macintosh ; Apple Macintosh set server display on ; Show file xfer display in server mode too. forward COMMON :Stratus_VOS ; Stratus VOS asg _myinit \v(home)ckermod.ini if remote forward COMMON asg _dialdir \v(home)ckermit.kdd asg _netdir \v(home)ckermit.knd asg _servicedir \v(home)ckermit.ksd forward COMMON ; End of Stratus VOS section :COMMON ; For all systems ; Define macros that are useful when running C-Kermit in remote mode. ; These macros serve no purpose on local-mode-only versions such as ; OS/2, Macintosh, Amiga, and Atari ST Kermit, so we skip defining them ; for those systems. ; if not = 0 \findex(\v(system),WIN32:OS/2:Macintosh:Amiga:Atari_ST) - forward files ; VTPRINT macro. Print a file on your PC's local printer. def VTPRINT echo \27[5i, type \%1, echo \27[4i ; or if your printer needs a formfeed to force the page out: ; def VTPRINT def echo \27[5i, type \%1, echo \12\27[4i ; Macros for host-initiated file transfer using APC: ; NOT NEEDED ANY MORE because of autodownload/autoupload. ; Remove the following FORWARD command to reinstate these definitions: :FILES ; Get customization and directory file names. Environment variables take ; precedence, so you do not have to edit this file to change these filenames. ; if def \$(CKERMOD) assign _myinit \$(CKERMOD) if not def _myinit assign _myinit \v(home)CKERMOD.INI if remote forward CUSTOM ; Skip all this if -R given on command line if def \$(K_NET_DIRECTORY) assign _netdir \$(K_NET_DIRECTORY) if not def _netdir assign _netdir \v(home)CKERMIT.KND if def \$(K_DIAL_DIRECTORY) assign _dialdir \$(K_DIAL_DIRECTORY) if not def _dialdir assign _dialdir \v(home)CKERMIT.KDD CHECK DIAL ; Is there a DIAL command? xif fail { ; No. echo DIAL disabled forward CUSTOM } CHECK NETWORK xif success { xif exist \m(_netdir) { set net directory \m(_netdir) echo { Network directory is \m(_netdir) } } } if eq "\v(name)" "telnet" forward CUSTOM xif exist \m(_dialdir) { set dial directory \m(_dialdir) echo { Dial directory is \m(_dialdir) } } COMMENT - Services directory if def \$(K_SERVICE_DIRECTORY) assign _servicedir \$(K_SERVICE_DIRECTORY) if not def _servicedir assign _servicedir \v(home)CKERMIT.KSD ; If no services directory is found skip all the big macro definitions and ; go straight to the bottom, where we execute the customization file. if not exist \m(_servicedir) forward custom echo { Services directory is \m(_servicedir)} def MAX_SVCS 200 ; Adjust this if you have more entries define _sd 0 ; Assume no services directory open read \m(_servicedir) ; Try to open services directory file xif success { declare \&d[\m(MAX_SVCS)] ; It's open, declare directory array for \%i 1 \m(MAX_SVCS) 1 { ; Read the lines into the array read \&d[\%i] if fail break } close read xif > \%i \m(MAX_SVCS) { echo Too many entries in services directory echo { Maximum is \m(MAX_SVCS).} echo { Change definition of MAX_SVCS in \v(cmdfile) to allow more. } echo { Services directory disabled.} } else { asg \&d[0] \feval(\%i - 1) define _sd 1 } } xif not \m(_sd) { def access echo { Services directory not available.} asg list \m(access) } else { def FIND { set case off for \%i 1 \&d[0] 1 { if eq {\%1} {\fsubstr(\&d[\%i],1,\flen(\%1))} break } if not > \%i \&d[0] return \&d[\%i] } def LIST { xif > \v(argc) 1 { find \%1 if def \v(return) echo \v(return) else echo \%1: Not found } else { echo \&d[0] items in services directory: for \%i 1 \&d[0] 1 { echo \fcont(\&d[\%i]) } } } def SPLIT { asg _word1 \%1, asg _word2 \%2 } def DOACCESS { ; (Used internally by ACCESS macro) do \%5 \%6 \%7 \%8 \%9 ; Do the connection macro if fail end 1 split \%3 ; Get words from \%3 asg \%3 \m(_word1) asg \%2 \m(_word2) do \%3 \%4 {\%1} \%2 ; Login macro, userid, password, prompt } def ACCESS { if not defined \%1 end 1 access what? ; Check service find \%1 ; Look it up if success doaccess {\%2} \v(return) ; OK, try it else end 1 "\%1" not in services directory ; Not found if fail end 1 ; DOACCESS failed? xif eq \v(cmdlevel) 1 { echo echo ACCESS: Login succeeded - CONNECTing... show escape output \13 connect /quietly } } } :CONNECTION ; Macros for making connections COMMENT - SERIAL macro. Arguments: ; \%1 = device name ; \%2 = speed ; def SERIAL { if < \v(argc) 3 ; All arguments given? end 1 Usage: SERIAL device speed ; No. set line \%1 ; OK, try to SET LINE. if failure - ; If this failed, end 1 Can't open device: \%1 ; print message and quit. set speed \%2 ; Try to set the speed. if fail end 1 Unsupported speed: \%2 ; Failed. echo Connection successful. ; Succeeded. } COMMENT - NET macro. Arguments: ; \%1 = network type ; \%2 = host name or address ; def NET { if < \v(argc) 3 end 1 Usage: NET network host set network type \%1 if fail end 1 unsupported network: \%1 set login user ; Don't send user ID. set host \%2 if fail end 1 Can't reach host: \%2 echo Connection successful. } COMMENT - CALL macro. Arguments: ; ; \%1 = modem type ; \%2 = device name ; \%3 = speed ; \%4 = phone number ; def CALL { if < \v(argc) 5 - ; All arguments present? end 1 Usage: CALL modem device speed number xif not equal {\v(modem)} {\%1} { ; Set modem type set modem \%1 if fail end 1 unknown modem type: \%1 } xif not equal {\v(line)} {\%2} { ; Communication device set line \%2 if fail end 1 can't open device: \%2 } xif not equal {\v(speed)} {\%3} { ; Communication speed set speed \%3 if fail end 1 unsupported speed: \%3 } dial \%4 ; Dial the number if fail end 1 Can't place call: \%4 end 0 Connection successful. } COMMENT - TCPCALL macro. Arguments: ; ; \%1 = server name:port ; \%2 = modem type ; \%3 = phone number ; def TCPCALL { if < \v(argc) 4 - ; All arguments present? end 1 Usage: TCPCALL server[:port] modem number set net type tcp/ip ; Which network to use if fail end 1 unsupported network: tcp/ip set host \%1 ; Access server and port if fail end 1 can't access server \%1 set modem \%2 ; Set modem type if fail end 1 unknown modem type: \%2 dial \%3 ; Dial the number if fail end 1 Can't place call: \%3 end 0 Connection successful. } COMMENT - SPRINT macro. Arguments: ; \%1 = Service name or address ; def SPRINT { if < \v(argc) 2 end 1 Usage: \%0 service set input timeout proceed output @D\13 input 10 TERMINAL= if fail end 1 No terminal prompt out D1\13 inp 10 @ if fail end 1 No atsign prompt output c \%1\13 input 10 CONNECTED if fail end 1 Can't access \%1 from SprintNet } COMMENT - ULOGIN macro. For logging into systems where user ID is required ; but there is no password. Arguments: ; \%1 = UNIX user ID ; define ULOGIN { if < \v(argc) 2 end 1 Usage: \%0 userid set input timeout proceed ; Handle timeouts ourselves set case on ; Case is important in UNIX minput 5 login: Username: {User ID:} {User Name:} out \%1\13 ; Send username, carriage return end 0 } COMMENT - VMSLOGIN macro. Arguments: ; \%1 = VMS user ID ; \%2 = Password. If password not supplied, it is prompted for. ; \%3 = System prompt. If omitted a default is supplied. ; define VMSLOGIN { if < \v(argc) 2 end 1 Usage: \%0 userid [ password [ prompt ] ] while not defined \%2 { askq \%2 { \%1's password: } } set parity none ; Set communication parameters set duplex full set handshake none set input timeout proceed ; Handle timeouts ourselves in 5 Username: ; Is prompt already there? xif fail { ; No. for \%i 1 3 1 { ; Try 3 times to get it. out \13 ; Send carriage return in 5 Username: ; Look for prompt if success break ; Success, go log in } if > \%i 3 end 1 No Username prompt } out \%1\13 ; Send username, carriage return inp 5 Password: ; Wait 5 sec for this prompt if fail end 1 No password prompt pause ; Wait a sec out \%2\13 ; Send password xif not emulation { ; No emulator built in? set input echo off ; Protect terminal from this minput 10 {\27Z} {\27[c} {\27[0c} ; Get terminal ID query xif success { ; Got one output \27[\?1c ; Send VT100 terminal ID in 2 \27[6n ; Screen dimension query? if succ out \27[\v(rows);\v(cols)R ; Send dimensions } set input echo on ; Echo input again } if not def \%3 - ; If we were not given a prompt asg \%3 {\v(prompt)} ; use the SET LOGIN PROMPT value if not def \%3 - ; If we still don't have a prompt asg \%3 {\13$\32} ; use this one as the default reinp 0 \%3 ; Did we INPUT the prompt already? if fail inp 60 \%3 ; No, look now. if fail end 1 } COMMENT - UNIXLOGIN macro. Arguments: ; \%1 = UNIX user ID ; \%2 = Password. If password not supplied, it is prompted for. ; \%3 = System prompt. If omitted a default is supplied. ; define UNIXLOGIN { local \%m \%i if < \v(argc) 2 - end 1 Usage: \%0 userid [ password [ prompt ] ] while not defined \%2 { askq \%2 { \%1's password: } } set input echo on set parity none ; Set communication parameters. set duplex full set handshake none set input timeout proceed ; Handle timeouts ourselves set case on ; Case is important in UNIX def \%m 10 ; Waiting time for INPUT for \%i 1 5 1 { minput \%m login: {ssword:} {Password for \%1:} if success break output \B\13 \%m ::= 6-\%1 } if > \%i 5 end 1 {No response from host} xif = \v(minput) 1 { ; Have username prompt output \%1\13 ; Send username minput 5 {ssword:} {ssword for \%1:} ; Wait for password prompt if fail end 1 {No password prompt} } pause ; Wait a sec out \%2\13 ; Send password if not def \%3 - ; If we were not given a prompt asg \%3 {\v(prompt)} ; use the SET LOGIN PROMPT value if not def \%3 - ; If we still don't have a prompt asg \%3 {\10$ } ; use this one as the default reinp 0 \%3 ; Did we INPUT the prompt already? if fail inp 60 \%3 ; No, look now. if fail end 1 } COMMENT - VMLINELOGIN macro. Arguments: ; \%1 = User ID ; \%2 = Password ; define VMLINELOGIN { if < \v(argc) 2 - end 1 Usage: \%0 userid [ password ] while not defined \%2 { askq \%2 { \%1's password: } } set parity mark ; Set communication parameters set flow none set handshake xon set duplex half set input timeout quit ; Don't bother with IF FAILURE input 10 BREAK KEY ; Look for BREAK KEY prompt pause 1 ; Wait a second output \B ; Send BREAK input 10 .\17, output logon \%1\13 ; Now log in input 10 .\17, output \%2\13 ; Send password input 10 .\17, output \13 ; Send carriage return input 10 .\17, output \13 ; Send another one end 0 } COMMENT - VMFULLOGIN macro. Arguments: ; \%1 = User ID ; \%2 = Password ; define VMFULLOGIN { if < \v(argc) 2 - end 1 Usage: \%0 userid [ password ] while not defined \%2 { askq \%2 { \%1's password: } } set input timeout quit ; Quit if INPUT fails set parity even ; Set communication parameters set duplex full set handshake none set flow xon/xoff out \13 ; Send carriage return inp 5 TERMINAL TYPE: ; Get terminal-type prompt out vt-100\13 ; Just send "vt-100" inp 20 RUNNING ; Get RUNNING message pau 1 ; Wait one second out \%1\9\%2\13 ; Send user ID, tab, password out \13\13 ; Two more carriage returns end 0 } COMMENT - CISLOGIN macro. Arguments: ; \%1 = CompuServe User ID ; \%2 = Password ; \%3 = Prompt ; define CISLOGIN { if < \v(argc) 2 - end 1 Usage: \%0 userid [ password [ prompt ] ] while not defined \%2 { askq \%2 { \%1's password: } } set terminal bytesize 7 ; No 8-bit characters set input timeout quit ; Skip the IF FAILURE's output \13 ; Send initial carriage return input 5 Host Name: ; Look for Host Name prompt output cis\13 ; Send "cis" and carriage return input 5 User ID: ; Look for User ID prompt output \%1\13 ; Send ID and carriage return input Password: ; Look for Password prompt output \%2\13 ; Send password and CR if not def \%3 asg \%3 \v(prompt) if not def \%3 asg \%3 {CompuServe Information Service} input 30 \%3 end 0 } COMMENT - DOWLOGIN macro. Arguments: ; \%1 = Dow Jones Password ; define DOWLOGIN { while not defined \%1 { ; Get password askq \%1 { Dow Jones password: } } set input timeout proceed input 20 SERVICE PLEASE\?\?\?\? ; Look for Dow prompt if fail end 1 No service prompt out djnr\13 ; Select DJNR input 10 @@@@@@@@ ; Get password prompt if fail end 1 No password prompt pause 1 ; Wait a second, then... output \%1\13 ; send password and CR input 30 ENTER QUERY ; Get DJNR query prompt if fail end 1 No main query prompt pause 1 } COMMENT - DJNRSPRINT macro: Log in to Dow Jones via SprintNet. ; def djnrsprint sprint dow, if success dowlogin COMMENT - NOLOGIN macro. Does nothing. Use when login not required. ; def nologin comment :CUSTOM ; Customization file ; In VMS and OpenVMS, allow for system-wide site customizations xif equal "\v(system)" "VMS" { xif exist CKERMIT_INI:CKERMIT.SYS { echo Executing CKERMIT_INI:CKERMIT.SYS take CKERMIT_INI:CKERMIT.SYS } } ; Execute user's personal customization file xif exist \m(_myinit) { ; If it exists, echo Executing \m(_myinit)... ; print message, take \m(_myinit) ; and TAKE the file. } ; Finish up with traditional greeting. if < \v(ntime) 43200 echo Good Morning! else if < \v(ntime) 61200 echo Good Afternoon! else echo Good Evening. End ; of C-Kermit 7.0 initialization file.