home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga GigaPD 3
/
Amiga_GigaPD_v3_3of3.iso
/
fred_fish
/
fish_601-700_lha
/
fish_619.lha
/
AFAXDEMO
/
AFaxDemo.lha
/
install
< prev
next >
Wrap
AmigaDOS Script File
|
1992-02-27
|
6KB
|
258 lines
.key idir,p2,p3,p4,p5,p6,p7,p8
.bra {
.ket }
; AmigaFax Install script.
;
; USAGES: Double click the Install_Now (or Install_Demo) icon,
; or click it once then double click the destination drawer.
;
; In a Shell window, change to the appropriate directory,
; eg cd df0:AFaxDemo
; or cd df0:AmigaFax
; then type either
; install disk:drawer
; or install
assign AmigaFax: ""
if not "{idir}" eq ""
if not "{idir}" eq "afax:"
if "{idir}" eq "q"
echo "Installation cancelled."
skip to_end
endif
if "{idir}" eq "n"
echo "Installation cancelled."
skip to_end
endif
if not "{p2}" eq ""
echo "*N*N*N **** ERROR **** No double quotes around: {idir} {p2}..."
skip to_redo
endif
echo >ram:faxfname {idir}
search >nil: ram:faxfname ":"
if warn
delete >nil: ram:faxfname
echo "*N*N*N **** ERROR **** Missing *":*" in {idir}."
skip to_redo
endif
delete >nil: ram:faxfname
if exists "{idir}"
echo "*N{idir} already exists!"
ask "Assign afax: to it and continue (y/n)?"
if not warn
skip to_redo
endif
assign afax: "{idir}"
if not exists {idir}.info
if exists AmigaFax:/AmigaFax.info
copy >nil: AmigaFax:/AmigaFax.info {idir}.info nopro
else
if exists AmigaFax:/AFaxDemo.info
copy >nil: AmigaFax:/AFaxDemo.info {idir}.info nopro
else
copy >nil: AmigaFax:docs.info {idir}.info nopro
endif
endif
endif
skip to_install
else
ask "*NCreate {idir}, assign afax: to it and continue (y/n)?"
if not warn
skip to_redo
endif
makedir {idir}
if warn
skip to_redo
endif
if exists AmigaFax:/AmigaFax.info
copy >nil: AmigaFax:/AmigaFax.info {idir}.info nopro
else
if exists AmigaFax:/AFaxDemo.info
copy >nil: AmigaFax:/AFaxDemo.info {idir}.info nopro
else
copy >nil: AmigaFax:docs.info {idir}.info nopro
endif
endif
assign afax: "{idir}"
skip to_install
endif
endif
endif
assign >nil: afax: exists
if not warn
echo "*NThe existing afax assignment is:"
assign afax: exists
ask "Do you want to install AmigaFax in this directory (y/n)? "
if warn
skip to_install
endif
endif
skip to_redo
lab to_install
echo "*NDirectory afax:s"
if exists afax:s
copy AmigaFax:s afax:s nopro
echo "The Afax:s directory already existed!"
echo "NOT overwriting files you may have edited:"
dir amigafax:s.user
wait 5 secs
else
copy AmigaFax:s afax:s nopro
copy AmigaFax:s.user afax:s nopro
endif
protect >nil: afax:s/AFAX-Startup +s
delete afax:s/User-Startup
echo >ram:fstart "assign afax: {idir}"
assign >nil: uucp: exists
if not warn
join ram:fstart AmigaFax:s/User-Startup as afax:s/User-Startup
else
join ram:fstart AmigaFax:s/User-Startup AmigaFax:s/UUCPStart as afax:s/User-Startup
endif
delete ram:fstart
echo "*NDirectory afax:lib"
if exists afax:lib
if exists AmigaFax:lib
copy AmigaFax:lib afax:lib nopro
endif
echo "The afax:lib directory already exists!"
echo "NOT overwriting files you may have edited:"
dir amigafax:lib.user
wait 5 secs
else
makedir afax:lib
if exists AmigaFax:lib
copy AmigaFax:lib afax:lib nopro
endif
copy AmigaFax:lib.user afax:lib nopro
endif
wait 2 secs
echo "*NDirectory afax:"
copy AmigaFax:#?fax#? afax: nopro
copy AmigaFax:READ#? afax: nopro
copy AmigaFax:DEMO#? afax: nopro
echo "*NDirectory afax:Docs"
if not exists afax:Docs.info
copy AmigaFax:Docs.info afax:Docs.info nopro
endif
copy AmigaFax:Docs afax:Docs nopro
echo "*NDirectory afax:c"
copy AmigaFax:c afax:c nopro
echo "*NDirectory afax:libs"
copy AmigaFax:libs afax:libs nopro
echo "*NDirectory afax:l"
copy AmigaFax:l afax:l nopro
echo "*NDirectory afax:devs"
copy AmigaFax:devs afax:devs nopro
echo "*NDirectory afax:faxdoc"
copy AmigaFax:faxdoc afax:faxdoc nopro
echo "*NDirectory afax:incoming"
copy AmigaFax:incoming afax:incoming nopro
echo "*NDirectory afax:spool"
copy AmigaFax:spool afax:spool nopro
echo "*NDirectory afax:uucp"
copy AmigaFax:uucp afax:uucp nopro
echo "*NDirectory afax:uucp/s"
copy AmigaFax:uucp/s afax:uucp/s nopro
echo "*NDirectory afax:uucp/c"
copy AmigaFax:uucp/c afax:uucp/c nopro
echo "*NDirectory afax:uucp/lib"
if exists afax:uucp/lib
echo "The afax:uucp/lib directory already exists!"
echo "NOT overwriting files you may have edited:"
dir amigafax:uucp/lib
wait 5 secs
else
copy AmigaFax:uucp/lib afax:uucp/lib nopro
endif
if not exists l:null-handler
ask "Install l:null-handler (y/n)?"
if warn
copy afax:l/null-handler l:
endif
endif
if not exists l:fifo-handler
ask "Install fifo-handler and fifo.library (y/n)?"
if warn
copy afax:l/fifo-handler l:
copy afax:libs/fifo.library libs:
endif
endif
if not exists libs:arp.library
ask "Install arp.library (y/n)?"
if warn
copy afax:libs/arp.library libs:
endif
endif
ask "*NDo you want the FaxFonts copied to FONTS: (y/n)?"
if warn
echo "*NDirectory fonts:"
copy AmigaFax:FaxFonts fonts: all nopro
endif
;ask "*NDo you want to OVERWRITE your standard FONTS: (y/n)?"
;if warn
; echo "*NDirectory fonts:"
; copy AmigaFax:fonts fonts: all nopro
;endif
echo "*NDirectory afax:BBS"
if not exists afax:BBS.info
if exists AmigaFax:BBS.info
copy AmigaFax:BBS.info afax:BBS.info nopro
endif
endif
if exists AmigaFax:BBS
copy AmigaFax:BBS afax:BBS all
endif
echo "*NAFax Assigns"
execute afax:s/AFaxAssign
echo "*NInstallation complete."
echo "You now must edit configuration files in the s and lib directories"
echo "See the README file for instructions."
ask "*NPress return to continue."
skip to_end
lab to_redo
echo "*NEnter the name of the disk and drawer"
echo "where you want to install AmigaFax. Type a colon between"
echo "disk and drawer parts and enclose it all in double quotes."
echo "Example: *"Work:fax*" (q=quit): " noline
execute >nil: amigafax:install ?
lab to_end