]>
Commit | Line | Data |
---|---|---|
76247cb2 JR |
1 | ; /etc/kermit/ckermit.local.ini: local system-wide init file for kermit |
2 | ; created 27-Jan-1997 jmk | |
3 | ; autodate: 12-Mar-1997 | |
4 | ; autotime: 00:27 | |
5 | ||
6 | ; this file is read from \m(sys_dir)ckermit.ini | |
7 | ; before the user's personal init file (~/.mykermrc). | |
8 | ||
9 | ; system-wide dialing directory; default can be | |
10 | ; overridden with the environment variable KERMIT_SYS_DIALDIR | |
11 | xif defined \$(KERMIT_SYS_DIALDIR) { | |
12 | assign sys_dial_dir {\$(KERMIT_SYS_DIALDIR)} | |
13 | } else { | |
14 | assign sys_dial_dir {\m(sys_dir)ckermit.phone} | |
15 | } | |
16 | xif exist \m(sys_dial_dir) { | |
17 | echo { Adding system dialing directory \m(sys_dial_dir) ...} | |
18 | xif exist \m(_dialdir) { | |
19 | set dial directory \m(_dialdir) \m(sys_dial_dir) | |
20 | } else { | |
21 | set dial directory \m(sys_dial_dir) | |
22 | } | |
23 | } | |
24 | ||
25 | ; initialize local modem; the default init file | |
26 | ; can be overridden by environment variable KERMIT_MODEM_INI, | |
27 | ; and the default device can be overriden by KERMIT_MODEM. | |
28 | xif defined \$(KERMIT_MODEM_INI) { | |
29 | assign modem_ini {\$(KERMIT_MODEM_INI)} | |
30 | } else { | |
31 | assign modem_ini {\m(sys_dir)ckermit.modem.ini} | |
32 | } | |
33 | xif not exist \m(modem_ini) { | |
34 | echo { Warning: I can't find modem init file `\m(modem_ini)' ...} | |
35 | echo { the `modem' command may not work properly.} | |
36 | } | |
37 | xif defined \$(KERMIT_MODEM) { | |
38 | assign modem_default_dev {\$(KERMIT_MODEM)} | |
39 | } else { | |
40 | assign modem_default_dev {/dev/modem} | |
41 | } | |
42 | ; the `modem' command initializes a modem device | |
43 | ; using a the modem init file above. | |
44 | define modem { | |
45 | switch \v(argc) { | |
46 | :1 | |
47 | assign modem_dev \m(modem_default_dev) | |
48 | break | |
49 | :2 | |
50 | assign modem_dev \%1 | |
51 | break | |
52 | :default | |
53 | stop 0 {Usage: MODEM [device-name]} | |
54 | } | |
55 | take \m(modem_ini) | |
56 | } | |
57 | ||
58 | ; some other useful modem-oriented commands: | |
59 | ; close line without hanging up | |
60 | define offline { | |
61 | set modem hangup-method rs232-signal | |
62 | set line | |
63 | } | |
64 | ; list personal dialing directory | |
65 | define list { | |
66 | type \m(_dialdir) | |
67 | } | |
68 | ||
69 | ; redefine edit command to run editor even if | |
70 | ; the user doesn't specify a file to edit. | |
71 | define edit {!\m(myeditor) \%1 \%2 \%3 \%4 \%5 \%6 \%7 \%8} | |
72 | ||
73 | ; some useful shell commands | |
74 | define cls {!clear} | |
75 | xif defined \$(PAGER) { | |
76 | assign page_cmd {\$(PAGER)} | |
77 | } else { | |
78 | assign page_cmd {more} | |
79 | } | |
80 | define page {!\m(page_cmd) \%1 \%2 \%3 \%4 \%5 \%6 \%7 \%8} | |
81 | define more {do page \%1 \%2 \%3 \%4 \%5 \%6 \%7 \%8} | |
82 | ||
83 | ; some useful macro commands | |
84 | define 8bit {set term bytesize 8, set term locking-shift off} | |
85 | define 7bit {set term bytesize 7, set term locking-shift on} | |
86 | define literal {set file names literal} | |
87 | define converted {set file names converted} | |
88 | ||
89 | ; various parameters | |
90 | eightbit | |
91 | fast | |
92 | set exit warning off | |
93 | set file type text | |
94 | set file names literal | |
95 | set file collision update | |
96 | set file incomplete discard | |
97 | set file display crt | |
98 | set transmit linefeed off | |
99 | ||
100 | ; set automatic commands off for security | |
101 | set terminal apc off | |
102 | set terminal autodownload off | |
103 | ||
104 | ; server mode | |
105 | set server display on | |
106 | ;set server get-path <path> <path> ... | |
107 | ;set server idle-timeout 300 | |
108 | ;set server login <name> <password> | |
109 | ||
110 | ; disable some server mode commands for a | |
111 | ; reasonable level of security | |
112 | disable assign | |
113 | ;disable copy | |
114 | ;disable delete | |
115 | disable host | |
116 | disable mail | |
117 | disable print | |
118 | disable query | |
119 | ;disable rename | |
120 | ;disable retrieve | |
121 | ;disable type | |
122 | disable who | |
123 | ||
124 | ; set a somewhat useful prompt | |
125 | assign hostname {\fbreak(\v(host),.)} | |
126 | set prompt {C-Kermit@\m(hostname)> } | |
127 | ||
128 | ; -------- End -------- |