cku-ckermit.modem.generic.ini

   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 --------