home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / AVMN199D.LHA / avminstall / avm-install < prev    next >
Encoding:
Text File  |  1995-08-21  |  12.1 KB  |  487 lines
  1. (welcome "AVM Suite Installation")
  2. (transcript "Installing the AVM Suite...")
  3.  
  4. ; **************************************************************************
  5. ; **************************************************************************
  6. ; **************************************************************************
  7.  
  8. (complete 20)
  9.  
  10. (set @default-dest "Work:")
  11.  
  12. (set @default-dest
  13.    (askdir
  14.       (prompt "Where do you want to put the AVMSuite2 DRAWER?  A Drawer named AVMSuite2 will be created here.")
  15.       (help @askdir-help)
  16.       (default @default-dest)
  17.       (newpath)
  18.    )
  19. )
  20.  
  21. (set avmdest (tackon @default-dest "AVMSuite2"))
  22.  
  23. (makedir avmdest (infos))
  24.  
  25. (makeassign "AVM" avmdest)
  26.  
  27. ; now let's ask where the mailboxes should be put
  28.  
  29. (set avmmboxdest
  30.   (askdir
  31.     (prompt "What directory should the mailboxes go in?  The Anonymous, Silent, ... mailboxes will be created here.")
  32.     (help "This is where all the mailboxes will be put.")
  33.     (default "avm:")
  34.   )
  35. )
  36.  
  37. (makeassign "AVMMBOX" avmmboxdest)
  38.  
  39. ;make all the mailboxes -- this is non-destructive
  40.  
  41. (trap 4 (makedir "avmmbox:anonymous"))
  42. (trap 4 (makedir "avmmbox:anonymous/logs"))
  43. (trap 4 (makedir "avmmbox:anonymous/voices"))
  44.  
  45. (trap 4 (makedir "avmmbox:mailbox1"))
  46. (trap 4 (makedir "avmmbox:mailbox1/logs"))
  47. (trap 4 (makedir "avmmbox:mailbox1/voices"))
  48.  
  49. (trap 4 (makedir "avmmbox:mailbox2"))
  50. (trap 4 (makedir "avmmbox:mailbox2/logs"))
  51. (trap 4 (makedir "avmmbox:mailbox2/voices"))
  52.  
  53. (trap 4 (makedir "avmmbox:manual"))
  54. (trap 4 (makedir "avmmbox:manual/logs"))
  55. (trap 4 (makedir "avmmbox:manual/voices"))
  56.  
  57. (trap 4 (makedir "avmmbox:archive"))
  58. (trap 4 (makedir "avmmbox:archive/logs"))
  59. (trap 4 (makedir "avmmbox:archive/voices"))
  60.  
  61. (trap 4 (makedir "avmmbox:silent"))
  62. (trap 4 (makedir "avmmbox:silent/logs"))
  63. (trap 4 (makedir "avmmbox:silent/voices"))
  64.  
  65. (trap 4 (makedir "avmmbox:outgoing"))
  66. (trap 4 (makedir "avmmbox:outgoing/logs"))
  67. (trap 4 (makedir "avmmbox:outgoing/voices"))
  68.  
  69. (trap 4 (makedir "avmmbox:outgoingarchive"))
  70. (trap 4 (makedir "avmmbox:outgoingarchive/logs"))
  71. (trap 4 (makedir "avmmbox:outgoingarchive/voices"))
  72.  
  73. (set avminwbstartup (exists "sys:wbstartup/startAVM"))
  74.  
  75. (if (> avminwbstartup 0)
  76.   (copyfiles
  77.     (prompt "Updating sys:WBStartup/StartAVM")
  78.     (help @copyfiles-help)
  79.     (source (expandpath ""))
  80.     (dest "sys:wbstartup")
  81.     (pattern "StartAVM#?")
  82.   )
  83.   (message "If you use StartAVM anywhere other than sys:WBStartup, you should update it with avm:StartAVM")
  84. )
  85.  
  86. (set previousinstallation (exists "avm:filenames.cfg"))
  87.  
  88. (execute "InstallExtra/copyoldfilenames"
  89.  (prompt "Copying old filenames.cfg to oldfilenames.cfg")
  90. )
  91.  
  92. (if (> previousinstallation 0)
  93.   (execute "InstallExtra/RemoveConflictingFiles"
  94.     (prompt "Removing old files")
  95.   )
  96. )
  97.  
  98. (if (> previousinstallation 0)
  99.   (set useoldicons
  100.     (askbool
  101.       (prompt "Do you want to save your current icons?")
  102.       (help "Say yes if you want to.")
  103.       (default 1)
  104.     )
  105.   )
  106.   (set useoldicons 0)
  107. )
  108.  
  109. (if (= useoldicons 1)
  110.   (execute "InstallExtra/backupoldicons"
  111.     (prompt "Backing up old icons")
  112.   )
  113. )
  114.  
  115. (if (> previousinstallation 0)
  116.   (set bool
  117.     (askbool
  118.       (prompt "Do you want me to backup stuff in avm:rexx?")
  119.      (help "If you've modified them and want to keep them, say yes.")
  120.       (default 1)
  121.     )
  122.   )
  123.   (set bool 0)
  124. )
  125.  
  126. (if (= bool 1)
  127.   (execute "InstallExtra/backupavmrexx"
  128.     (prompt "Backing up avm:rexx into avm:old/rexx")
  129.   )
  130. )
  131.  
  132. ;(if (> previousinstallation 0)
  133. ;  (set bool
  134. ;    (askbool
  135. ;      (prompt "Do you want me to backup stuff in avm:source?")
  136. ;      (help "If you've modified them and want to keep them, say yes.")
  137. ;      (default 1)
  138. ;    )
  139. ;  )
  140. ;  (set bool 0)
  141. ;)
  142.  
  143. ;(if (= bool 1)
  144. ;  (execute "InstallExtra/backupavmsource"
  145. ;    (prompt "Backing up avm:rexx into avm:old/source")
  146. ;  )
  147. ;)
  148.  
  149. (copyfiles
  150.    (prompt "Copying executables, scripts, icons, and documentation...")
  151.    (help @copyfiles-help)
  152.         (source (expandpath ""))
  153.    (dest avmdest)
  154.    (pattern "~(archive|mailbox1|mailbox2|anonymous|voices|outgoing|outgoingarchive|silent|manual)")
  155. )
  156.  
  157. (if (> previousinstallation 0)
  158.   (set bool
  159.     (askbool
  160.       (prompt "Should I change your mailbox configuration to their defaults?")
  161.       (help "This will *not* erase log files or voice files!")
  162.       (default 0)
  163.     )
  164.   )
  165.   (set bool 1)
  166. )
  167.  
  168. (if (= bool 1)
  169.   (
  170.     (copyfiles
  171.       (prompt "Fixing anonymous mailbox")
  172.       (help @copyfiles-help)
  173.       (source "protomailbox")
  174.       (dest "avmmbox:anonymous")
  175.       (pattern "(mailbox.cfg|pickup.iff)")
  176.     )
  177.     (copyfiles
  178.       (prompt "Fixing manual mailbox")
  179.       (help @copyfiles-help)
  180.       (source "protomailbox")
  181.       (dest "avmmbox:manual")
  182.       (pattern "(mailbox.cfg)")
  183.     )
  184.     (copyfiles
  185.       (prompt "Fixing archive mailbox")
  186.       (help @copyfiles-help)
  187.       (source "protomailbox")
  188.       (dest "avmmbox:archive")
  189.       (pattern "(mailbox.cfg)")
  190.     )
  191.     (copyfiles
  192.       (prompt "Fixing silent mailbox")
  193.       (help @copyfiles-help)
  194.       (source "protomailbox")
  195.       (dest "avmmbox:silent")
  196.       (pattern "(mailbox.cfg)")
  197.     )
  198.     (copyfiles
  199.       (prompt "Fixing mailbox1 mailbox")
  200.       (help @copyfiles-help)
  201.       (source "protomailbox")
  202.       (dest "avmmbox:mailbox1")
  203.       (pattern "(mailbox.cfg|pickup.iff)")
  204.     )
  205.     (copyfiles
  206.       (prompt "Fixing mailbox2 mailbox")
  207.       (help @copyfiles-help)
  208.       (source "protomailbox")
  209.       (dest "avmmbox:mailbox2")
  210.       (pattern "(mailbox.cfg|pickup.iff)")
  211.     )
  212.     (copyfiles
  213.       (prompt "Fixing outgoing mailbox")
  214.       (help @copyfiles-help)
  215.       (source "protomailbox")
  216.       (dest "avmmbox:outgoing")
  217.       (pattern "(mailbox.cfg)")
  218.     )
  219.     (copyfiles
  220.       (prompt "Fixing outgoingarchive mailbox")
  221.       (help @copyfiles-help)
  222.       (source "protomailbox")
  223.       (dest "avmmbox:outgoingarchive")
  224.       (pattern "(mailbox.cfg)")
  225.     )
  226.   )
  227. )
  228.  
  229. (makeassign "AVMREXX" "avm:rexx")
  230. (makeassign "AVMREXXALT" "avmrexx:")
  231. (makeassign "AVMTEMP" "t:")
  232. (makeassign "FAXOUT" "avmmbox:outgoing/voices")
  233. (makeassign "FAXTEMP" "t:")
  234.  
  235. (delete "avm:installer")
  236. (delete "avm:avm-install")
  237. (delete "avm:avm-install.info")
  238.  
  239. (makedir "avm:voices")
  240.  
  241. (complete 75)
  242.  
  243. (set voicecapable
  244.   (askbool
  245.     (prompt "Do you have a voice-capable modem?")
  246.     (help "Say yes if AT+FCLASS=8, AT#CLS=8, or AT#VS4 don't return ERROR.")
  247.     (default 1)
  248.   )
  249. )
  250.  
  251. (if (> previousinstallation 0)
  252.   (set usepreviousconfig
  253.     (askbool
  254.       (prompt "Do you want to use your previous configuration?")
  255.       (help "Say yes if you want to.")
  256.       (default 1)
  257.     )
  258.   )
  259.   (set usepreviousconfig 0)
  260. )
  261.  
  262. (if (= usepreviousconfig 0)
  263.   (
  264.     (if (= voicecapable 1)
  265.       (
  266.         (set modemtype
  267.           (askchoice
  268.             (prompt "What modem do you have?")
  269.             (help @askchoice-help)
  270.             (choices
  271.               "ZyXEL"
  272.               "LineLink"
  273.               "MTD Dolphin"
  274.               "Rockwell-based Voice modem"
  275.             )
  276.           )
  277.         )
  278.         (if (= modemtype 0)
  279.           (
  280.             (set modemtype
  281.               (askchoice
  282.                 (prompt "What ROM version?")
  283.                 (help @askchoice-help)
  284.                 (choices
  285.                   "6.01"
  286.                   "6.10"
  287.                   "6.11"
  288.                   "6.11a"
  289.                   "6.12"
  290.                   "6.13"
  291.                   "2864 1.04"
  292.                 )
  293.               )
  294.             )
  295.             (set modemtype (+ modemtype 10))
  296.           )
  297.         )
  298.       )
  299.       (
  300.         (set modemtype
  301.           (askchoice
  302.             (prompt "What modem do you have?")
  303.             (help @askchoice-help)
  304.             (choices
  305.               "Generic Class 2 fax/modem"
  306.               "Generic Class 1 fax/modem"
  307.               "AT&T DataPort Class 1"
  308.               "AT&T DataPort Class 2"
  309.               "Supra 144 LC (Class 1)"
  310.               "USR modem (Class 1)"
  311.               "USR old config (try above first)"
  312.             )
  313.           )
  314.         )
  315.         (set modemtype (+ modemtype 25))
  316.       )
  317.     )
  318.   )
  319. )
  320.  
  321. (debug modemtype)
  322.  
  323. (if (= usepreviousconfig 0)
  324.   (
  325.     (execute "InstallExtra/backupconfig"
  326.       (prompt "Backing up previous configuration")
  327.     )
  328.     (select modemtype
  329.       (debug "modemtype==0")
  330.       (execute "avm:defaultscripts/useLineLink144e")
  331.       (execute "avm:defaultscripts/useDolphin")
  332.       (execute "avm:defaultscripts/useRockwell")
  333.       (debug "modemtype==4")
  334.       (debug "modemtype==5")
  335.       (debug "modemtype==6")
  336.       (debug "modemtype==7")
  337.       (debug "modemtype==8")
  338.       (debug "modemtype==9")
  339.       (execute "avm:defaultscripts/useZyxel6.01")
  340.       (execute "avm:defaultscripts/useZyxel6.10")
  341.       (execute "avm:defaultscripts/useZyxel6.11")
  342.       (execute "avm:defaultscripts/useZyxel6.11a")
  343.       (execute "avm:defaultscripts/useZyxel6.12")
  344.       (execute "avm:defaultscripts/useZyxel6.13")
  345.       (execute "avm:defaultscripts/useZyxel2864_1.04")
  346.       (debug "modemtype==9")
  347.       (debug "modemtype==9")
  348.       (debug "modemtype==9")
  349.       (debug "modemtype==9")
  350.       (debug "modemtype==9")
  351.       (debug "modemtype==9")
  352.       (debug "modemtype==9")
  353.       (debug "modemtype==9")
  354.       (execute "avm:defaultscripts/useClass2")
  355.       (execute "avm:defaultscripts/useClass1")
  356.       (execute "avm:defaultscripts/useDataPortC1")
  357.       (execute "avm:defaultscripts/useDataPortC2")
  358.       (execute "avm:defaultscripts/useSupra144LC")
  359.       (execute "avm:defaultscripts/useUSR")
  360.       (execute "avm:defaultscripts/useUSROld")
  361.     )
  362.   )
  363. )
  364.  
  365. (complete 80)
  366.  
  367.  
  368. (if (= voicecapable 1)
  369.   (
  370.     (set digitizertype
  371.        (askchoice
  372.           (prompt "What type of digitizer do you have?")
  373.           (help @askchoice-help)
  374.           (choices
  375.              "Generic/None"
  376.              "Perfect Sound"
  377.           )
  378.           (default 0)
  379.        )
  380.     )
  381.  
  382.     (debug digitizertype)
  383.  
  384.     (if (= digitizertype 0)
  385.        (execute "avm:defaultscripts/useGenericDigitizer")
  386.        (if (= digitizertype 1)
  387.           (execute "avm:defaultscripts/usePerfectSound")
  388.           (message "Bad Stuff")
  389.        )
  390.     )
  391.   )
  392. )
  393.  
  394. (complete 85)
  395.  
  396. (set alerttype
  397.    (askchoice
  398.       (prompt "How do you want to be informed of new messages/faxes?")
  399.       (help @askchoice-help)
  400.       (choices
  401.          "Flashing LED"
  402.          "AmigaDOS Say Command"
  403.                         "Prerecorded Voice"
  404.       )
  405.       (default 2)
  406.    )
  407. )
  408.  
  409. (debug alerttype)
  410.  
  411. (if (= alerttype 0)
  412.    (execute "avm:defaultscripts/useFlashAlert")
  413.    (if (= alerttype 1)
  414.       (execute "avm:defaultscripts/useSayAlert")
  415.                 (if (= alerttype 2)
  416.                      (execute "avm:defaultscripts/useSayAlertPreRec")
  417.            (message "Bad Stuff")
  418.                 )
  419.    )
  420. )
  421.  
  422. (complete 90)
  423.  
  424.  
  425. ; **************************************************************************
  426. ; **************************************************************************
  427. ; **************************************************************************
  428.  
  429.  
  430. (startup "AVM Suite"
  431.   (prompt "Adding the required ASSIGNS to your user-startup.  Do this!  You have been warned!")
  432.    (help @startup-help)
  433.    (command "assign avm: \"" avmdest "\"\n")
  434.    (command "assign avmmbox: \"" avmmboxdest "\"\n")
  435.    (command "assign avmrexx: \"avm:rexx\"\n")
  436.    (command "assign avmrexxalt: \"t:\" \"avmrexx:\"\n")
  437.    (command "assign avmtemp: \"t:\"\n")
  438.    (command "assign faxout: \"avmmbox:outgoing/voices\"\n")
  439.    (command "assign faxtemp: \"t:\"\n")
  440. )
  441.  
  442. (if (= voicecapable 1)
  443.   (execute "avm:InstallExtra/renamevoicefiles"
  444.    (prompt "Renaming old voice files, if any.")
  445.   )
  446. )
  447.  
  448. (execute "avm:InstallExtra/copyfaxprinter"
  449.  (prompt "Copying faxprinter to devs:printers")
  450. )
  451.  
  452. (if (= useoldicons 1)
  453.   (execute "avm:InstallExtra/restoreoldicons"
  454.    (prompt "Restoring old icons")
  455.   )
  456. )
  457.  
  458. (if (= voicecapable 1)
  459.   (run "newshell con:////AVM-Install from InstallExtra/deletevfiles"
  460.    (prompt "Deleting old voice files that were incompatible with this version.")
  461.   )
  462. )
  463.  
  464. (if (= voicecapable 0)
  465.   (
  466.     (set deleteforfaxonly
  467.       (askbool
  468.         (prompt "You have a fax/modem only.  Delete unneeded files?")
  469.         (help "Say yes to delete avm:voices, avm:mailbox1, avm:mailbox2, ...")
  470.         (default 0)
  471.       )
  472.     )
  473.     (if (= deleteforfaxonly 1)
  474.       (execute "InstallExtra/deleteforfaxonly")
  475.     )
  476.   )
  477. )
  478.  
  479. (complete 100)
  480.  
  481.  
  482. ; **************************************************************************
  483. ; **************************************************************************
  484. ; **************************************************************************
  485.  
  486. (exit)
  487.