]>
Commit | Line | Data |
---|---|---|
76247cb2 JR |
1 | ; /etc/kermit/ckermit.modem.ini: modem initialization for C-Kermit |
2 | ||
3 | echo { Initializing modem \m(modem_dev) ...} | |
4 | ||
5 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
6 | ;; MODEM TYPE: | |
7 | ;; change to reflect your modem. | |
8 | ;; use `set modem type ?' to list available modem types. | |
9 | set modem type ppi | |
10 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
11 | ||
12 | ; set line to value from `modem' macro | |
13 | set line \m(modem_dev) | |
14 | xif fail { | |
15 | stop 0 { Error: couldn't set line to `\m(modem_dev)'} | |
16 | } | |
17 | ||
18 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
19 | ;; DEVICE PARAMETERS: | |
20 | ;; change speed and flow-control to suit. | |
21 | set carrier-watch auto | |
22 | set speed 115200 | |
23 | set flow rts/cts | |
24 | ;set flow xon/xoff | |
25 | ||
26 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
27 | ;; MODEM PARAMETERS: | |
28 | ;; `modem-command' hangup method sends `+++ATH0+++' and works for most modems. | |
29 | ;; `rs232-signal' hangup method only works if your modem respects DTR. | |
30 | set modem hangup-method modem-command | |
31 | ;set modem hangup-method rs232-signal | |
32 | set modem speed-matching off | |
33 | ||
34 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
35 | ;; MODEM STRINGS: | |
36 | ;; change to suit if necessary. | |
37 | ;; if your modem has a saved configuration, you can send `ATZ' to recall it. | |
38 | ;set modem command init-string {atz\x0d} | |
39 | set modem dial-command {atd %s\x0d} | |
40 | ||
41 | ;; `loud' and `quiet' commands turn the modem's | |
42 | ;; speaker on or off while dialing. | |
43 | define loud {set modem dial-command {atm1d %s\x0d}} | |
44 | define quiet {set modem dial-command {atm0d %s\x0d}} | |
45 | ||
46 | ;; `callwaiting' command turns anti-callwaiting prefix on or off | |
47 | define callwaiting { | |
48 | xif = \v(argc) 2 { | |
49 | set input case ignore | |
50 | switch \%1 { | |
51 | :on | |
52 | set dial prefix {*70\x2c} | |
53 | break | |
54 | :off | |
55 | set dial prefix {} | |
56 | break | |
57 | :default | |
58 | echo {Usage: CALLWAITING { ON | OFF }} | |
59 | } | |
60 | } else { | |
61 | echo {Usage: CALLWAITING { ON | OFF }} | |
62 | } | |
63 | } | |
64 | do callwaiting off | |
65 | ||
66 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
67 | ;; DIALING PARAMETERS: | |
68 | ;; change to suit | |
69 | set dial connect auto | |
70 | set dial confirmation off | |
71 | set dial display on | |
72 | set dial hangup on | |
73 | set dial method tone | |
74 | set dial sort off | |
75 | ||
76 | set dial timeout 75 | |
77 | set dial retries 0 | |
78 | set dial interval 10 | |
79 | ||
80 | ;; `setredial' command turns dialing retries on or off | |
81 | define setredial { | |
82 | xif = \v(argc) 2 { | |
83 | set input case ignore | |
84 | switch \%1 { | |
85 | :on | |
86 | set dial retries 20 | |
87 | set dial interval 15 | |
88 | break | |
89 | :polite | |
90 | set dial retries 10 | |
91 | set dial interval 30 | |
92 | break | |
93 | :rude | |
94 | set dial retries 60 | |
95 | set dial interval 10 | |
96 | break | |
97 | :off | |
98 | set dial retries 0 | |
99 | set dial interval 15 | |
100 | break | |
101 | :default | |
102 | echo {Usage: SETREDIAL { ON | POLITE | RUDE | OFF }} | |
103 | } | |
104 | } else { | |
105 | echo {Usage: SETREDIAL { ON | POLITE | RUDE | OFF }} | |
106 | } | |
107 | } | |
108 | do setredial off | |
109 | ||
110 | ;; dialing restrictions | |
111 | set dial restrict international | |
112 | ;set dial restrict long-distance | |
113 | ;set dial restrict none | |
114 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
115 | ||
116 | ; read a locale file, if it exists. the default can be | |
117 | ; overridden by the environment variable KERMIT_LOCALE_INI. | |
118 | xif defined \$(KERMIT_LOCALE_INI) { | |
119 | assign locale_ini {\$(KERMIT_LOCALE_INI)} | |
120 | } else { | |
121 | assign locale_ini {\m(sys_dir)ckermit.locale.ini} | |
122 | } | |
123 | xif exist \m(locale_ini) { | |
124 | take \m(locale_ini) | |
125 | } | |
126 | ||
127 | ; -------- End -------- |