home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / ckermit-8.0.206-0.3.i386.rpm / ckermit-8.0.206.0.3.cpio.gz / ckermit-8.0.206.0.3.cpio / etc / kermit / ckermit.local.ini < prev    next >
Text File  |  2002-12-12  |  3KB  |  129 lines
  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 --------
  129.