home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / uucp / wUUCP_0.0.29.lha / install-execute.me < prev    next >
Encoding:
AmigaDOS Script File  |  1994-06-14  |  6.6 KB  |  196 lines
  1. .key none
  2. .bra {
  3. .ket }
  4.  
  5. ; to do: explain use of userfile ...
  6.  
  7. echo "Welcome to the quick-and-dirty wUUCP installation script ;)*N"
  8. echo "If someone want's to write a script for Commodore's Installer, please*Nget in touch with me!*N"
  9. echo "NOTE: to update your installation only, please use the supplied*Nscript update-execute.me.*N"
  10. echo "NOTE ALSO: There is no way to back up, if you make any mistakes, you*Neither have to delete anything and start over or edit the files manually.*N"
  11.  
  12. bin/getline "Where shall I install wUUCP?" >env:wuucpdir1
  13.  
  14. setenv env:wuucpdir `rx "if right('$wuucpdir1', 1)=='/' then say left('$wuucpdir1', length('$wuucpdir1')-1); else say '$wuucpdir1'"`
  15. unsetenv wuucpdir1
  16.  
  17. echo ""
  18.  
  19. if exists $wuucpdir
  20.    echo "$wuucpdir already exists! Please use update-execute.me."
  21.    unset wuucpdir
  22.    quit 20
  23. endif
  24.  
  25. set wuucplibdir $wuucpdir/lib
  26. set wuucpspooldir $wuucpdir/spool
  27.  
  28. failat 20
  29. makedir $wuucpdir
  30. makedir $wuucpdir/bin
  31. makedir $wuucpdir/man
  32. makedir $wuucplibdir
  33. makedir $wuucpspooldir
  34. makedir $wuucpspooldir/mail
  35. makedir $wuucpspooldir/news
  36. makedir $wuucpspooldir/uucp
  37.  
  38. echo  >ram:add2user-startup "; BEGIN wUUCP"
  39. echo >>ram:add2user-startup "assign UUCP:    $wuucpdir"
  40. echo >>ram:add2user-startup "assign UULIB:   $wuucplibdir"
  41. echo >>ram:add2user-startup "assign UUMAN:   $wuucpdir/man"
  42. echo >>ram:add2user-startup "assign UUSPOOL: $wuucpspooldir/uucp"
  43. echo >>ram:add2user-startup "assign UUMAIL:  $wuucpspooldir/mail"
  44. echo >>ram:add2user-startup "assign UUNEWS:  $wuucpspooldir/news"
  45. echo >>ram:add2user-startup "path $wuucpdir/bin add"
  46. echo >>ram:add2user-startup "; END wUUCP"
  47.  
  48. echo "Copying several files ...*N"
  49. copy uucplib $wuucplibdir clone
  50. copy bin $wuucpdir/bin clone
  51. copy bin/sendmail $wuucpdir/bin/rmail clone
  52. copy man $wuucpdir/man clone
  53.  
  54. echo ""
  55. bin/getline "What's your system's name?" >env:answer
  56. bin/ChangeConfigLine $wuucplibdir/Config NodeName "$answer"
  57. echo ""
  58.  
  59. bin/getline "What's your full name?" >env:answer
  60. bin/ChangeConfigLine $wuucplibdir/Config RealName "$answer"
  61. echo ""
  62.  
  63. bin/getline "The name of your organization?" >env:answer
  64. bin/ChangeConfigLine $wuucplibdir/Config Organization "$answer"
  65. echo ""
  66.  
  67. echo "You will now be asked about your favourite Editors; please note"
  68. echo "that these are expected NOT to detach from the invoking process."
  69. echo "*NIn other words: if you type*N"
  70. echo "   1> your_editor filename*N"
  71. echo "the shell in which you typed this must not allow you to execute"
  72. echo "other programs unless you left your_editor.*N"
  73. echo "Thus, if you like to use CED as your editory, you must specify"
  74. echo "'ed -sticky' in the following questions."
  75. bin/getline "What's your favourite mail editor?" >env:answer
  76. bin/ChangeConfigLine $wuucplibdir/Config MailEditor "$answer"
  77. set maileditor $answer
  78. echo ""
  79.  
  80. bin/getline "What's your favourite news editor?" >env:answer
  81. bin/ChangeConfigLine $wuucplibdir/Config NewsEditor "$answer"
  82. echo ""
  83.  
  84. bin/getline "What's your timezone (e. g. MET-1 or CST+6)?" >env:answer
  85. bin/ChangeConfigLine $wuucplibdir/Config TimeZone "$answer"
  86. echo ""
  87.  
  88. bin/getline "What's your default node's UUCP name?" >env:answer
  89. bin/ChangeConfigLine $wuucplibdir/Config DefaultNode "$answer"
  90. echo >>$wuucplibdir/domain "$answer MD UU $answer"
  91. echo >>$wuucplibdir/domain "** MF UU $answer"
  92. echo ""
  93.  
  94. bin/getline "What's your modem's DTE rate?" >env:answer2
  95. echo ""
  96.  
  97. bin/getline "Name the device to use?" >env:answer6
  98. echo ""
  99.  
  100. bin/getline "Which unit of $answer6 shall I use?" >env:answer7
  101. echo ""
  102.  
  103. bin/getline "What's $answer's phone number (modem)?" >env:answer3
  104. echo ""
  105.  
  106. bin/getline "What's your loginname for $answer?" >env:answer4
  107. echo ""
  108.  
  109. bin/getline "What's your passwort for $answer?" >env:answer5
  110. echo ""
  111.  
  112. echo >>$wuucplibdir/L.sys "$answer Any serial0 $answer2 ATD$answer3 ogin: $answer4 word: $answer5"
  113. echo >>$wuucplibdir/L.ports "acu=serial0 device=$answer6 unit=$answer7"
  114.  
  115. echo "*NBasic installation completed, please add the file 'ram:add2user-startup'"
  116. echo "to your s:User-Startup manually.*N"
  117. echo "(Waiting 30 seconds before starting an editor so you can read this ...)"
  118.  
  119. execute ram:add2user-startup
  120. protect ram:add2user-startup +se
  121. copy ram:add2user-startup $wuucpdir/bin/Set_wUUCP-Assigns clone
  122.  
  123. wait 30
  124.  
  125. $maileditor s:User-Startup
  126.  
  127. echo "*NTheoretically wUUCP should be installed by now, PLEASE read the man-"
  128. echo "pages in UUMAN: ($wuucpdir/man) for fine tuning of your UUCP system!"
  129. echo "Especially the configuration files in UULIB: ($wuucplibdir)"
  130. echo "should be tailored to your specific needs.*N"
  131. echo "NOTE: if you intend to move one of the directories"
  132. echo "      UUSPOOL: ($wuucpspooldir/uucp),"
  133. echo "      UUMAIL: ($wuucpspooldir/mail),"
  134. echo "      UUNEWS: ($wuucpspooldir/news) or"
  135. echo "      the general uucp spool dir ($wuucpspooldir),"
  136. echo "      make sure that you change the ASSIGNs in s:User-Startup"
  137. echo "      to point to the new locations!"
  138.  
  139. ; Now send a mail to the author, he just LIKES to get email =;->
  140.  
  141. echo "*NSending message about installation to bugs@hactar.hanse.de ..."
  142.  
  143. set bugreportUSERNAME `findconfig USERNAME`
  144. if "$bugreportUSERNAME" eq "*$USERNAME"
  145.    set bugreportUSERNAME root
  146. endif
  147. set bugreportREALNAME `findconfig REALNAME`
  148. set bugreportHOSTNAME `findconfig NODENAME`
  149. set bugreportEDITOR `findconfig MAILEDITOR`
  150. set bugreportID `messageid`
  151. set bugreportCTIME `ctime rfc`
  152. set tmpversionid `type version.id`
  153.  
  154. failat 10
  155.  
  156. echo  >t:report.form "To: bugs@hactar.hanse.de"
  157. echo >>t:report.form "From: $bugreportUSERNAME@$bugreportHOSTNAME ($bugreportREALNAME)"
  158. echo >>t:report.form "Sender: BugReport@$bugreportHOSTNAME (Script)"
  159. echo >>t:report.form "Date: $bugreportCTIME"
  160. echo >>t:report.form "Message-ID: <$bugreportID@$bugreportHOSTNAME>"
  161. echo >>t:report.form "Subject: Installed UUCP system $tmpversionid on $bugreportCTIME"
  162. echo >>t:report.form "X-Report-For: wUUCP/-install-message-*N"
  163. echo >>t:report.form "%id:*N$bugreportID-$bugreportUSERNAME@$bugreportHOSTNAME*N%%*N"
  164. set bugreportkludge1 `which uucico`
  165. echo >>t:report.form "%path:*N$bugreportkludge1*N%%*N"
  166. echo >>t:report.form "%avail:"
  167. avail >>t:report.form
  168. echo >>t:report.form "%%*N"
  169. set bugreportkludge1 `cpu`
  170. set bugreportkludge2 `version`
  171. echo >>t:report.form "%cpu:*N$bugreportkludge1*N%%*N"
  172. echo >>t:report.form "%ver:*N$bugreportkludge2*N%%*N"
  173. sendmail <t:report.form
  174. unset bugreportUSERNAME
  175. unset bugreportREALNAME
  176. unset bugreportHOSTNAME
  177. unset bugreportEDITOR
  178. unset bugreportID
  179. unset bugreportCTIME
  180. unset bugreportkludge1
  181. unset bugreportkludge2
  182. unset tmpversionid
  183. delete t:report.#?  quiet
  184.  
  185. delete $wuucplibdir/Config.old
  186. unset wuucplibdir
  187. unset wuucpspooldir
  188. unset maileditor
  189. unsetenv answer
  190. unsetenv answer2
  191. unsetenv answer3
  192. unsetenv answer4
  193. unsetenv answer5
  194. unsetenv answer6
  195. unsetenv answer7
  196.