cku-ckermit.local.ini

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