[ckermit/f14] Initial import (#716402).
Eric Smith
brouhaha at fedoraproject.org
Tue Jun 28 01:20:16 UTC 2011
commit f7762adaa023f225b16bace1f4950fba7588d4f6
Author: Eric Smith <eric at brouhaha.com>
Date: Mon Jun 27 18:20:04 2011 -0700
Initial import (#716402).
.gitignore | 1 +
ckermit.ini | 618 +++++++++++++++++++++++++++++++++++++++++
ckermit.spec | 181 ++++++++++++
cku-ckermit.local.ini | 128 +++++++++
cku-ckermit.locale.ini | 46 +++
cku-ckermit.modem.generic.ini | 127 +++++++++
cku-ckermit.phone | 7 +
sources | 1 +
8 files changed, 1109 insertions(+), 0 deletions(-)
---
diff --git a/.gitignore b/.gitignore
index e69de29..809e91f 100644
--- a/.gitignore
+++ b/.gitignore
@@ -0,0 +1 @@
+/x.tar.gz
diff --git a/ckermit.ini b/ckermit.ini
new file mode 100644
index 0000000..2e5132a
--- /dev/null
+++ b/ckermit.ini
@@ -0,0 +1,618 @@
+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.
diff --git a/ckermit.spec b/ckermit.spec
new file mode 100644
index 0000000..4d30a5e
--- /dev/null
+++ b/ckermit.spec
@@ -0,0 +1,181 @@
+Summary: The quintessential all-purpose communications program
+Name: ckermit
+Version: 9.0
+Release: 0.1.beta2%{?dist}
+License: BSD with advertising and MIT
+# Most of the package is under a three-clause BSD license, but the file
+# ckaut2.h appears to be covered by three licenses:
+# The blanket license in COPYING.TXT and ckcmai.c, which is BSD three-clause
+# BSD four-clause (w/ advertising)
+# MIT Old Style (no advertising without permission)
+Group: Applications/Communications
+# Ugly non-versioned URL for beta test source tarball:
+Source0: http://www.columbia.edu/kermit/ftp/test/tar/x.tar.gz
+# Once released, there should be a properly versioned URL something like:
+#Source0: ftp://kermit.columbia.edu/kermit/archives/cku211.tar.gz
+Source1: ckermit.ini
+Source2: cku-%{name}.local.ini
+Source3: cku-%{name}.modem.generic.ini
+Source4: cku-%{name}.locale.ini
+Source5: cku-%{name}.phone
+URL: http://www.columbia.edu/kermit/ck90.html
+BuildRequires: pam-devel
+BuildRequires: pkgconfig
+BuildRequires: openssl-devel >= 0.9.7
+BuildRequires: gmp-devel >= 3.1.1
+BuildRequires: libtermcap-devel
+BuildRequires: ncurses-devel
+BuildRequires: lockdev-devel >= 1.0.1-8
+Requires: lockdev >= 1.0.1-8
+BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
+# NB There used to be a spurious "Obsoletes: gkermit" line here, but ckermit
+# does NOT obsolete gkermit. They are independent programs with different
+# purposes.
+
+%description
+C-Kermit is a combined serial and network communication software
+package offering a consistent, medium-independent, cross-platform
+approach to connection establishment, terminal sessions, file transfer
+and management, character-set translation, and automation of
+communication tasks.
+
+%prep
+%setup -q -c
+
+%build
+%{__make} linux \
+ KFLAGS="-O0 $RPM_OPT_FLAGS -Wall -DOPENSSL_097 -Dsdata=s_data -DHAVE_BAUDBOY -DHAVE_OPENPTY -D'krb5_init_ets(__ctx)='" \
+ K4LIB= \
+ K4INC= \
+ K5LIB=-lutil \
+ K5INC=-I%{_includedir}/et \
+ SSLLIB= \
+ SSLINC= \
+ %{?_smp_mflags}
+
+# convert doc file from ISO-8859-1 to UTF-8 encoding
+for f in ckc299.txt
+do
+ iconv -fiso88591 -tutf8 $f >$f.new
+ touch -r $f $f.new
+ mv $f.new $f
+done
+
+%install
+rm -rf %{buildroot}
+install -d %{buildroot}{%{_bindir},%{_mandir}/man1,%{_sysconfdir}/kermit}
+
+perl -pi -e "s|%{_prefix}/local/bin/kermit|%{_bindir}/kermit|g" ckermit.ini
+
+install -m 755 wermit %{buildroot}%{_bindir}/kermit
+install -m 644 ckuker.nr %{buildroot}%{_mandir}/man1/kermit.1
+install -m 644 %{SOURCE1} %{buildroot}%{_sysconfdir}/kermit/
+install -m 644 %{SOURCE2} %{buildroot}%{_sysconfdir}/kermit/ckermit.local.ini
+install -m 644 %{SOURCE3} %{buildroot}%{_sysconfdir}/kermit/ckermit.modem.ini
+install -m 644 %{SOURCE4} %{buildroot}%{_sysconfdir}/kermit/ckermit.locale.ini
+install -m 644 %{SOURCE5} %{buildroot}%{_sysconfdir}/kermit/ckermit.phone
+
+%clean
+rm -rf %{buildroot}
+
+%files
+%defattr(-,root,root,-)
+%{_bindir}/kermit
+%dir %{_sysconfdir}/kermit
+%config(noreplace) %verify(not size mtime md5) %{_sysconfdir}/kermit/*
+%{_mandir}/man1/kermit.1*
+%doc COPYING.TXT
+%doc ckc299.txt
+
+%changelog
+* Fri Jun 24 2011 Eric Smith <eric at brouhaha.com> - 9.0-0.1.beta2
+- updated to upstream 9.0 beta 2 release
+
+* Mon Jul 03 2006 Peter Vrabec <pvrabec at redhat.com> - 8.0.211-5
+- fix requires (#195573)
+
+* Fri Feb 10 2006 Jesse Keating <jkeating at redhat.com> - 8.0.211-4.2.1
+- bump again for double-long bug on ppc(64)
+
+* Tue Feb 07 2006 Jesse Keating <jkeating at redhat.com> - 8.0.211-4.2
+- rebuilt for new gcc4.1 snapshot and glibc changes
+
+* Fri Dec 09 2005 Jesse Keating <jkeating at redhat.com>
+- rebuilt
+
+* Tue Nov 8 2005 Tomas Mraz <tmraz at redhat.com> 8.0.211-4
+- rebuilt with new openssl
+
+* Wed Aug 31 2005 Peter Vrabec <pvrabec at redhat.com> 8.0.211-3
+- use baudboy.h to create per-device lock(s) in /var/lock (#166155)
+
+* Fri Jul 29 2005 Peter Vrabec <pvrabec at redhat.com> 8.0.211-2
+- use openpty library (#156417,#164465)
+
+* Wed Mar 15 2005 Nalin Dahyabhai <nalin at redhat.com> 8.0.211-1
+- update to 211
+
+* Mon Feb 28 2005 Nalin Dahyabhai <nalin at redhat.com>
+- remove now-unnecessary use of krb5_init_ets()
+
+* Thu Feb 08 2005 Peter Vrabec <pvrabec at redhat.com>
+- rebuilt
+
+* Tue Nov 02 2004 Peter Vrabec <pvrabec at redhat.com>
+- fix ssh connection (#128349)
+
+* Wed Oct 20 2004 Peter Vrabec <pvrabec at redhat.com>
+- add BuildRequires: libtermcap-devel BuildRequires: ncurses-devel
+- rebuilt
+
+* Tue Jun 15 2004 Elliot Lee <sopwith at redhat.com>
+- rebuilt
+
+* Thu Apr 1 2004 Jeff Johnson <jbj at redhat.com> 8.0.209-7
+- remove old copyright from description (#115952).
+
+* Fri Feb 13 2004 Elliot Lee <sopwith at redhat.com>
+- rebuilt
+
+* Mon Jan 19 2004 Jeff Johnson <jbj at jbj.org> 8.0.209-5
+- fix: printf arg lists cleaned up, (itsadir && !iswild(*xp)) (#113663)
+
+* Tue Jul 22 2003 Nalin Dahyabhai <nalin at redhat.com> 8.0.209-4
+- rebuild
+
+* Wed Jun 04 2003 Elliot Lee <sopwith at redhat.com>
+- rebuilt
+
+* Thu May 1 2003 Elliot Lee <sopwith at redhat.com> 8.0.209-2
+- Define sdata=s_data to fix ppc64 build
+
+* Mon Apr 21 2003 Jeff Johnson <jbj at redhat.com> 8.0.209-1
+- update to 8.0.209.
+
+* Wed Feb 26 2003 Jeff Johnson <jbj at redhat.com> 8.0.206-1.20030226
+- build 20030226 snap shot (with errno fix) for raw hide.
+
+* Thu Jan 23 2003 Tim Powers <timp at redhat.com> 8.0.206-0.6
+- rebuild
+
+* Tue Jan 21 2003 Jeff Johnson <jbj at redhat.com> 8.0.26-0.5
+- remove "CLICK HERE" from description (#82133).
+
+* Tue Jan 7 2003 Nalin Dahyabhai <nalin at redhat.com> 8.0.206-0.4
+- rebuild
+
+* Fri Jan 3 2003 Nalin Dahyabhai <nalin at redhat.com>
+- Build using predefined redhat80 target
+- Pass include and library paths for Kerberos and SSL directly to make
+- Define OPENSSL_097 in KFLAGS to build with OpenSSL 0.9.7
+
+* Thu Dec 12 2002 Elliot Lee <sopwith at redhat.com> 8.0.206-0.3
+- Add patch2 to include errno.h
+- Change cku-makefile to not build KRB4 & KRB524, because kerberosIV/des.h
+ conflicts with openssl/des.h
+
+* Fri Nov 29 2002 Jeff Johnson <jbj at redhat.com> 8.0.206-0.2
+- obsolete gkermit
+
+* Mon Nov 25 2002 Jeff Johnson <jbj at redhat.com> 8.0.206-0.1
+- create (with thanks to PLD, who packaged C-Kermit before Red Hat did).
diff --git a/cku-ckermit.local.ini b/cku-ckermit.local.ini
new file mode 100644
index 0000000..799f798
--- /dev/null
+++ b/cku-ckermit.local.ini
@@ -0,0 +1,128 @@
+; /etc/kermit/ckermit.local.ini: local system-wide init file for kermit
+; created 27-Jan-1997 jmk
+; autodate: 12-Mar-1997
+; autotime: 00:27
+
+; this file is read from \m(sys_dir)ckermit.ini
+; before the user's personal init file (~/.mykermrc).
+
+; system-wide dialing directory; default can be
+; overridden with the environment variable KERMIT_SYS_DIALDIR
+xif defined \$(KERMIT_SYS_DIALDIR) {
+ assign sys_dial_dir {\$(KERMIT_SYS_DIALDIR)}
+} else {
+ assign sys_dial_dir {\m(sys_dir)ckermit.phone}
+}
+xif exist \m(sys_dial_dir) {
+ echo { Adding system dialing directory \m(sys_dial_dir) ...}
+ xif exist \m(_dialdir) {
+ set dial directory \m(_dialdir) \m(sys_dial_dir)
+ } else {
+ set dial directory \m(sys_dial_dir)
+ }
+}
+
+; initialize local modem; the default init file
+; can be overridden by environment variable KERMIT_MODEM_INI,
+; and the default device can be overriden by KERMIT_MODEM.
+xif defined \$(KERMIT_MODEM_INI) {
+ assign modem_ini {\$(KERMIT_MODEM_INI)}
+} else {
+ assign modem_ini {\m(sys_dir)ckermit.modem.ini}
+}
+xif not exist \m(modem_ini) {
+ echo { Warning: I can't find modem init file `\m(modem_ini)' ...}
+ echo { the `modem' command may not work properly.}
+}
+xif defined \$(KERMIT_MODEM) {
+ assign modem_default_dev {\$(KERMIT_MODEM)}
+} else {
+ assign modem_default_dev {/dev/modem}
+}
+; the `modem' command initializes a modem device
+; using a the modem init file above.
+define modem {
+ switch \v(argc) {
+ :1
+ assign modem_dev \m(modem_default_dev)
+ break
+ :2
+ assign modem_dev \%1
+ break
+ :default
+ stop 0 {Usage: MODEM [device-name]}
+ }
+ take \m(modem_ini)
+}
+
+; some other useful modem-oriented commands:
+; close line without hanging up
+define offline {
+ set modem hangup-method rs232-signal
+ set line
+}
+; list personal dialing directory
+define list {
+ type \m(_dialdir)
+}
+
+; redefine edit command to run editor even if
+; the user doesn't specify a file to edit.
+define edit {!\m(myeditor) \%1 \%2 \%3 \%4 \%5 \%6 \%7 \%8}
+
+; some useful shell commands
+define cls {!clear}
+xif defined \$(PAGER) {
+ assign page_cmd {\$(PAGER)}
+} else {
+ assign page_cmd {more}
+}
+define page {!\m(page_cmd) \%1 \%2 \%3 \%4 \%5 \%6 \%7 \%8}
+define more {do page \%1 \%2 \%3 \%4 \%5 \%6 \%7 \%8}
+
+; some useful macro commands
+define 8bit {set term bytesize 8, set term locking-shift off}
+define 7bit {set term bytesize 7, set term locking-shift on}
+define literal {set file names literal}
+define converted {set file names converted}
+
+; various parameters
+eightbit
+fast
+set exit warning off
+set file type text
+set file names literal
+set file collision update
+set file incomplete discard
+set file display crt
+set transmit linefeed off
+
+; set automatic commands off for security
+set terminal apc off
+set terminal autodownload off
+
+; server mode
+set server display on
+;set server get-path <path> <path> ...
+;set server idle-timeout 300
+;set server login <name> <password>
+
+; disable some server mode commands for a
+; reasonable level of security
+disable assign
+;disable copy
+;disable delete
+disable host
+disable mail
+disable print
+disable query
+;disable rename
+;disable retrieve
+;disable type
+disable who
+
+; set a somewhat useful prompt
+assign hostname {\fbreak(\v(host),.)}
+set prompt {C-Kermit@\m(hostname)> }
+
+; -------- End --------
diff --git a/cku-ckermit.locale.ini b/cku-ckermit.locale.ini
new file mode 100644
index 0000000..1080858
--- /dev/null
+++ b/cku-ckermit.locale.ini
@@ -0,0 +1,46 @@
+; /etc/kermit/ckermit.locale.ini: locale settings for C-Kermit
+; created 27-Jan-1997 jmk
+; autodate: 12-Mar-1997
+; autotime: 00:28
+
+echo { Setting locale ...}
+
+; define various locale settings
+define locale_set_country {
+ set input case ignore
+ switch \%1 {
+ :usa
+ set dial country-code 1
+ set dial intl-prefix 011
+ set dial ld-prefix 1
+ set dial toll-free-area-code 800 888
+ set dial toll-free-prefix 1
+ break
+ :canada
+ set dial country-code 1
+ set dial intl-prefix 011
+ set dial ld-prefix 1
+ set dial toll-free-area-code 800 888
+ set dial toll-free-prefix 1
+ break
+ :default
+ echo { Error: unknown country name `\%1' ...}
+ stop 0 { please add it to \m(locale_ini)}
+ }
+}
+define locale {
+ xif < \v(argc) 3 {
+ stop 0 { Usage: LOCALE country-name area-code}
+ }
+ xif numeric \%2 {
+ set dial area-code \%2
+ } else {
+ stop 0 { Error: area-code must be numeric}
+ }
+ locale_set_country \%1
+}
+
+; set the locale here
+locale usa 919
+
+; -------- End --------
diff --git a/cku-ckermit.modem.generic.ini b/cku-ckermit.modem.generic.ini
new file mode 100644
index 0000000..e01d310
--- /dev/null
+++ b/cku-ckermit.modem.generic.ini
@@ -0,0 +1,127 @@
+; /etc/kermit/ckermit.modem.ini: modem initialization for C-Kermit
+
+echo { Initializing modem \m(modem_dev) ...}
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; MODEM TYPE:
+;; change to reflect your modem.
+;; use `set modem type ?' to list available modem types.
+set modem type ppi
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+; set line to value from `modem' macro
+set line \m(modem_dev)
+xif fail {
+ stop 0 { Error: couldn't set line to `\m(modem_dev)'}
+}
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; DEVICE PARAMETERS:
+;; change speed and flow-control to suit.
+set carrier-watch auto
+set speed 115200
+set flow rts/cts
+;set flow xon/xoff
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; MODEM PARAMETERS:
+;; `modem-command' hangup method sends `+++ATH0+++' and works for most modems.
+;; `rs232-signal' hangup method only works if your modem respects DTR.
+set modem hangup-method modem-command
+;set modem hangup-method rs232-signal
+set modem speed-matching off
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; MODEM STRINGS:
+;; change to suit if necessary.
+;; if your modem has a saved configuration, you can send `ATZ' to recall it.
+;set modem command init-string {atz\x0d}
+set modem dial-command {atd %s\x0d}
+
+;; `loud' and `quiet' commands turn the modem's
+;; speaker on or off while dialing.
+define loud {set modem dial-command {atm1d %s\x0d}}
+define quiet {set modem dial-command {atm0d %s\x0d}}
+
+;; `callwaiting' command turns anti-callwaiting prefix on or off
+define callwaiting {
+ xif = \v(argc) 2 {
+ set input case ignore
+ switch \%1 {
+ :on
+ set dial prefix {*70\x2c}
+ break
+ :off
+ set dial prefix {}
+ break
+ :default
+ echo {Usage: CALLWAITING { ON | OFF }}
+ }
+ } else {
+ echo {Usage: CALLWAITING { ON | OFF }}
+ }
+}
+do callwaiting off
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; DIALING PARAMETERS:
+;; change to suit
+set dial connect auto
+set dial confirmation off
+set dial display on
+set dial hangup on
+set dial method tone
+set dial sort off
+
+set dial timeout 75
+set dial retries 0
+set dial interval 10
+
+;; `setredial' command turns dialing retries on or off
+define setredial {
+ xif = \v(argc) 2 {
+ set input case ignore
+ switch \%1 {
+ :on
+ set dial retries 20
+ set dial interval 15
+ break
+ :polite
+ set dial retries 10
+ set dial interval 30
+ break
+ :rude
+ set dial retries 60
+ set dial interval 10
+ break
+ :off
+ set dial retries 0
+ set dial interval 15
+ break
+ :default
+ echo {Usage: SETREDIAL { ON | POLITE | RUDE | OFF }}
+ }
+ } else {
+ echo {Usage: SETREDIAL { ON | POLITE | RUDE | OFF }}
+ }
+}
+do setredial off
+
+;; dialing restrictions
+set dial restrict international
+;set dial restrict long-distance
+;set dial restrict none
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+; read a locale file, if it exists. the default can be
+; overridden by the environment variable KERMIT_LOCALE_INI.
+xif defined \$(KERMIT_LOCALE_INI) {
+ assign locale_ini {\$(KERMIT_LOCALE_INI)}
+} else {
+ assign locale_ini {\m(sys_dir)ckermit.locale.ini}
+}
+xif exist \m(locale_ini) {
+ take \m(locale_ini)
+}
+
+; -------- End --------
diff --git a/cku-ckermit.phone b/cku-ckermit.phone
new file mode 100644
index 0000000..16ceca1
--- /dev/null
+++ b/cku-ckermit.phone
@@ -0,0 +1,7 @@
+; /etc/kermit/ckermit.phone: system-wide dialing directory for C-Kermit
+; created 27-Jan-1997 jmk
+; autodate: 27-Jan-1997
+; autotime: 04:08
+
+; format:
+; name +country-code (area-code) phone-number ; comment
diff --git a/sources b/sources
index e69de29..eb5a972 100644
--- a/sources
+++ b/sources
@@ -0,0 +1 @@
+d41cebed2f86f009f70a1ebc667f4b1f x.tar.gz
More information about the scm-commits
mailing list