.key none .bra { .ket } ; to do: explain use of userfile ... echo "Welcome to the quick-and-dirty wUUCP installation script ;)*N" echo "If someone want's to write a script for Commodore's Installer, please*Nget in touch with me!*N" echo "NOTE: to update your installation only, please use the supplied*Nscript update-execute.me.*N" 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" bin/getline "Where shall I install wUUCP?" >env:wuucpdir1 setenv env:wuucpdir `rx "if right('$wuucpdir1', 1)=='/' then say left('$wuucpdir1', length('$wuucpdir1')-1); else say '$wuucpdir1'"` unsetenv wuucpdir1 echo "" if exists $wuucpdir echo "$wuucpdir already exists! Please use update-execute.me." unset wuucpdir quit 20 endif set wuucplibdir $wuucpdir/lib set wuucpspooldir $wuucpdir/spool failat 10 makedir $wuucpdir makedir $wuucpdir/bin makedir $wuucpdir/man makedir $wuucplibdir makedir $wuucpspooldir makedir $wuucpspooldir/mail makedir $wuucpspooldir/news makedir $wuucpspooldir/uucp echo >ram:add2user-startup "; BEGIN wUUCP" echo >>ram:add2user-startup "assign UUCP: $wuucpdir" echo >>ram:add2user-startup "assign UULIB: $wuucplibdir" echo >>ram:add2user-startup "assign UUMAN: $wuucpdir/man" echo >>ram:add2user-startup "assign UUSPOOL: $wuucpspooldir/uucp" echo >>ram:add2user-startup "assign UUMAIL: $wuucpspooldir/mail" echo >>ram:add2user-startup "assign UUNEWS: $wuucpspooldir/news" echo >>ram:add2user-startup "path $wuucpdir/bin add" echo >>ram:add2user-startup "; END wUUCP" echo "Copying several files ...*N" copy lib $wuucplibdir clone copy bin $wuucpdir/bin clone copy bin/sendmail $wuucpdir/bin/rmail clone copy man $wuucpdir/man clone echo "" bin/getline "What's your system's name?" >env:answer bin/ChangeConfigLine $wuucplibdir/Config NodeName "$answer" echo "" bin/getline "What's your full name?" >env:answer bin/ChangeConfigLine $wuucplibdir/Config RealName "$answer" echo "" bin/getline "The name of your organization?" >env:answer bin/ChangeConfigLine $wuucplibdir/Config Organization "$answer" echo "" echo "You will now be asked about your favourite Editors; please note" echo "that these are expected NOT to detach from the invoking process." echo "*NIn other words: if you type*N" echo " 1> your_editor filename*N" echo "the shell in which you typed this must not allow you to execute" echo "other programs unless you left your_editor.*N" echo "Thus, if you like to use CED as your editory, you must specify" echo "'ed -sticky' in the following questions. If your favourite editor" echo "is not in your standard DOS search path, please specify it's full" echo "path, e. g. 'sys:Tools/ed -sticky'.*N" bin/getline "What's your favourite mail editor?" >env:answer bin/ChangeConfigLine $wuucplibdir/Config MailEditor "$answer" set maileditor $answer echo "" bin/getline "What's your favourite news editor?" >env:answer bin/ChangeConfigLine $wuucplibdir/Config NewsEditor "$answer" echo "" bin/getline "What's your timezone (e. g. MET-1 or CST+6)?" >env:answer bin/ChangeConfigLine $wuucplibdir/Config TimeZone "$answer" echo "" bin/getline "What's your default node's UUCP name?" >env:answer bin/ChangeConfigLine $wuucplibdir/Config DefaultNode "$answer" echo >>$wuucplibdir/domain "$answer MD UU $answer" echo >>$wuucplibdir/domain "** MF UU $answer" echo "" bin/getline "What's your modem's DTE rate?" >env:answer2 echo "" bin/getline "Name the device to use?" >env:answer6 echo "" bin/getline "Which unit of $answer6 shall I use?" >env:answer7 echo "" bin/getline "What's $answer's phone number (modem)?" >env:answer3 echo "" bin/getline "What's your loginname for $answer?" >env:answer4 echo "" bin/getline "What's your passwort for $answer?" >env:answer5 echo "" echo >>$wuucplibdir/L.sys "$answer Any serial0 $answer2 ATD$answer3 ogin: $answer4 word: $answer5" echo >>$wuucplibdir/L.sys "hactar Any serial0 $answer2 ATD0405503549 ogin: nuucp word: nuucp" echo >>$wuucplibdir/L.ports "acu=serial0 device=$answer6 unit=$answer7" echo "*NBasic installation completed, please add the file 'ram:add2user-startup'" echo "to your s:User-Startup manually.*N" echo "(Waiting 30 seconds before starting an editor so you can read this ...)" execute ram:add2user-startup protect ram:add2user-startup +se copy ram:add2user-startup $wuucpdir/bin/Set_wUUCP-Assigns clone wait 30 $maileditor s:User-Startup echo "*NTheoretically wUUCP should be installed by now, PLEASE read the man-" echo "pages in UUMAN: ($wuucpdir/man) for fine tuning of your UUCP system!" echo "Especially the configuration files in UULIB: ($wuucplibdir)" echo "should be tailored to your specific needs.*N" echo "NOTE: if you intend to move one of the directories" echo " UUSPOOL: ($wuucpspooldir/uucp)," echo " UUMAIL: ($wuucpspooldir/mail)," echo " UUNEWS: ($wuucpspooldir/news) or" echo " the general uucp spool dir ($wuucpspooldir)," echo " make sure that you change the ASSIGNs in s:User-Startup" echo " to point to the new locations!" ; Now send a mail to the author, he just LIKES to get email =;-> echo "*NSending message about installation to bugs@hactar.hanse.de ..." set bugreportUSERNAME `findconfig USERNAME` if "$bugreportUSERNAME" eq "*$USERNAME" set bugreportUSERNAME root endif set bugreportREALNAME `findconfig REALNAME` set bugreportHOSTNAME `findconfig NODENAME` set bugreportEDITOR `findconfig MAILEDITOR` set bugreportID `messageid` set bugreportCTIME `ctime rfc` set tmpversionid `type version.id` failat 10 echo >t:report.form "To: bugs@hactar.hanse.de" echo >>t:report.form "From: $bugreportUSERNAME@$bugreportHOSTNAME ($bugreportREALNAME)" echo >>t:report.form "Sender: BugReport@$bugreportHOSTNAME (Script)" echo >>t:report.form "Date: $bugreportCTIME" echo >>t:report.form "Message-ID: <$bugreportID@$bugreportHOSTNAME>" echo >>t:report.form "Subject: Installed UUCP system $tmpversionid on $bugreportCTIME" echo >>t:report.form "X-Report-For: wUUCP/-install-message-*N" echo >>t:report.form "%id:*N$bugreportID-$bugreportUSERNAME@$bugreportHOSTNAME*N%%*N" set bugreportkludge1 `which uucico` echo >>t:report.form "%path:*N$bugreportkludge1*N%%*N" echo >>t:report.form "%avail:" avail >>t:report.form echo >>t:report.form "%%*N" set bugreportkludge1 `cpu` set bugreportkludge2 `version` echo >>t:report.form "%cpu:*N$bugreportkludge1*N%%*N" echo >>t:report.form "%ver:*N$bugreportkludge2*N%%*N" sendmail