123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619 |
- 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 {
- do 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
- do 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 8.0 initialization file.
|