home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / CRX-FF20.LHA / FiloFax_v2.0 / HD_Install < prev    next >
Encoding:
Text File  |  1995-09-22  |  6.8 KB  |  269 lines
  1. (procedure INSTALL
  2.    (SET Filo_dest
  3.            (askdir
  4.                 (prompt #ziel)
  5.                 (help #ziel_hilfe)
  6.                 (default @default-dest)
  7.            )
  8.    )
  9.  
  10.    (complete 10)
  11.  
  12.    (makedir (tackon Filo_dest "FiloFax") (infos))
  13.    (makedir (tackon "SYS:S/" "FiloData"))
  14.  
  15.    (SET Filo_dest (tackon Filo_dest "FiloFax"))
  16.    (set @default-dest Filo_dest)
  17.  
  18.    (copyfiles
  19.            (source "")
  20.            (dest Filo_dest) (pattern "#?") (infos)
  21.    )       
  22.  
  23.    (complete 70)
  24.  
  25.           ((SET zusatze (askoptions
  26.                (prompt #zusatz)
  27.                (choices #zusatz_wahl1
  28.                         #zusatz_wahl2)
  29.                (help #zusatz_hilfe)
  30.                (DEFAULT 0)
  31.            ))
  32.        )
  33.  
  34.        (IF (IN zusatze 0) (
  35.            (copyfiles
  36.                (source "FiloCheck")
  37.                (dest   "SYS:WBStartup/")
  38.            )
  39.            (copyfiles
  40.  
  41.                (source "FiloCheck.info")
  42.                (dest   "SYS:WBStartup/")
  43.            )
  44.            (tooltype (dest (tackon "SYS:WBStartup/" "FiloCheck"))
  45.            (settooltype "FILO_FAX" (tackon Filo_dest "FiloFax"))
  46.            (settooltype "FILO_STAT" (tackon Filo_dest "FiloStat"))
  47.            (settooltype "FILO_NOTE" (tackon Filo_dest "FiloNote"))
  48.            )
  49.        ))                   
  50.  
  51.        (complete 85)                    
  52.        (IF (IN zusatze 1) (
  53.            (copyfiles
  54.                (source "Configs/FiloPrefs")
  55.                (dest   "s:")
  56.            )
  57.        ))
  58.  
  59.    (copylib    (prompt #library)
  60.                (help "")
  61.                (source lib)
  62.                (dest "LIBS:")
  63.                (confirm)
  64.    )
  65.  
  66.    (IF (< (/ (getversion) 65536) 38)
  67.        (tooltype (dest (tackon Filo_dest "FiloFax.guide"))
  68.                  (setdefaulttool "sys:utilities/AmigaGuide")
  69.        )
  70.        (tooltype (dest (tackon Filo_dest "FiloFax.guide"))
  71.                  (setdefaulttool "sys:utilities/Multiview")
  72.        )
  73.    )           
  74.    (complete 100)
  75. )
  76.  
  77.  
  78.  
  79.  
  80. (procedure UPDATE
  81.    (message #update)
  82.  
  83.    (SET Filo_dest
  84.            (askdir
  85.                    (prompt #u_ziel)
  86.                    (help #u_ziel_hilfe)
  87.                    (default @default-dest)
  88.            )
  89.    )
  90.  
  91.    (complete 10)
  92.  
  93.    (set @default-dest Filo_dest)
  94.    (run "delete " Filo_dest "ALL FORCE")
  95.    ;(delete Filo_dest "#?")
  96.    (makedir (tackon "SYS:S/" "FiloData"))
  97.  
  98.    (if (exists "SYS:S/FiloFax.terms")
  99.      (copyfiles (source "SYS:S/FiloFax.terms") (dest "SYS:S/FiloData"))
  100.    )
  101.    (if (exists "SYS:S/Filo.Key")
  102.      (copyfiles (source "SYS:S/Filo.Key") (dest "SYS:S/FiloData"))
  103.    )
  104.    (if (exists "SYS:S/FiloPrefs")
  105.      (copyfiles (source "SYS:S/FiloPrefs") (dest "SYS:S/FiloData"))
  106.    )
  107.  
  108.    (copyfiles
  109.            (source "")
  110.            (dest Filo_dest) (pattern "#?") (infos)
  111.    )       
  112.    (complete 70)
  113.           ((SET zusatze (askoptions
  114.                (prompt #zusatz)
  115.                (choices #zusatz_wahl1
  116.                         #zusatz_wahl2)
  117.                (help #zusatz_hilfe)
  118.                (DEFAULT 0)
  119.            ))
  120.        )
  121.  
  122.        (IF (IN zusatze 0) (
  123.            (copyfiles
  124.                (source "FiloCheck")
  125.                (dest   "SYS:WBStartup/")
  126.            )
  127.            (copyfiles
  128.                (source "FiloCheck.info")
  129.                (dest   "SYS:WBStartup/")
  130.            )
  131.            (tooltype (dest (tackon "SYS:WBStartup/" "FiloCheck"))
  132.            (settooltype "FILO_FAX" (tackon Filo_dest "FiloFax"))
  133.            (settooltype "FILO_STAT" (tackon Filo_dest "FiloStat"))
  134.            (settooltype "FILO_NOTE" (tackon Filo_dest "FiloNote"))
  135.            )
  136.        ))                   
  137.  
  138.        (complete 85)                    
  139.        (IF (IN zusatze 1) (
  140.            (copyfiles
  141.                (source "Configs/FiloPrefs")
  142.                (dest   "s:")
  143.            )
  144.        ))
  145.  
  146.    (copylib    (prompt #library)
  147.                (help "")
  148.                (source lib)
  149.                (dest "LIBS:")
  150.                (confirm)
  151.    )
  152.  
  153.    (IF (< (/ (getversion) 65536) 38)
  154.        (tooltype (dest (tackon Filo_dest "FiloFax.guide"))
  155.                  (setdefaulttool "sys:utilities/AmigaGuide")
  156.        )
  157.        (tooltype (dest (tackon Filo_dest "FiloFax.guide"))
  158.                  (setdefaulttool "sys:utilities/Multiview")
  159.        )
  160.    )           
  161.    (complete 100)
  162. )
  163.  
  164. (procedure ende
  165.    (message #ende)
  166. )
  167.  
  168. (procedure setzen
  169.    (set #ziel (cat ""
  170.      "In welche Disk/Schublade soll FiloFax installiert werden?"
  171.    ))
  172.  
  173.    (set #ziel_hilfe (cat ""
  174.      "Das Installationsprogramm erstellt das Verzeichnis   \n"
  175.      "\"FiloFax\" in diesem Verzeichnis.                   \n"
  176.      "Alle \"FiloFax\" Dateien werden in dieses Verzeichnis\n"
  177.      "kopiert                                              \n"
  178.    ))
  179.  
  180.    (set #zusatz (cat ""
  181.       "Wollen Sie folgende Installationsteile auch durchführen ?\n"
  182.    ))
  183.  
  184.    (set #zusatz_wahl1 (cat ""
  185.       "FiloCheck in die WB-Startup:"
  186.    ))
  187.  
  188.    (set #zusatz_wahl2 (cat ""
  189.       "FiloPrefs nach S:"
  190.    ))
  191.  
  192.    (set #zusatz_hilfe (cat ""
  193.       "1. Das Programm FiloCheck wird beim Booten \n"
  194.       "   automatisch gestartet. (FiloCheck wird  \n"
  195.       "   über die Tooltypes konfiguriert, mehr   \n"
  196.       "   dazu in der Anleitung)                \n\n"
  197.       "2. Es wird eine Konfiguration von FiloFax nach S:\n"
  198.       "   kopiert.                                      "
  199.    ))
  200.  
  201.    (set #library (cat ""
  202.       "FiloFax benöntigt die ReqTools.library   \n"
  203.       "Wollen Sie diese jetzt installieren     \n"
  204.    ))
  205.  
  206.    (set #update (cat ""
  207.       "Sie haben sich für eine Updateinstallation entschieden.\n\n"
  208.       "Wählen Sie im folgenden Dateirequester, den Pfad von \n"
  209.       "FiloFax aus. Die Daten diese Verzeichnisses sind dann\n"
  210.       "unwiderruflich verloren und werden durch das Update \n"
  211.       "ersetzt.                                             \n"
  212.    ))
  213.  
  214.    (set #u_ziel (cat ""
  215.       "Bitte wählen Sie den Pfad in dem sich die alte Version von "
  216.       "FiloFax befindet."
  217.    ))
  218.  
  219.    (set #u_ziel_hilfe (cat ""
  220.       "Das Installationsprogramm löscht alle Daten dieses Verzeichnises.\n"
  221.       "Danach wird die neue Version von FiloFax in dieses Verzeichnises "
  222.       "kopiert.                                                           "
  223.    ))
  224.  
  225.    (set #ende (cat "\n"
  226.       "\n\n"
  227.       "Die Installation ist nun beendet.            \n\n"
  228.       "Bitte starten Sie ihren Rechner neu um FiloFax \n"
  229.       "richtig zu nutzen.                             \n"
  230.    ))
  231. )
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238. (SET lib "libs/reqtools.library")
  239. (SET @default-dest "SYS:")
  240.  
  241. (complete 0)
  242.  
  243. (IF (< (/ (getversion) 65536) 37)
  244.     (
  245.       (message "\n Tut mir leid, dieses Paket benoetigt mind. OS2.04.\n")
  246.       (exit (quiet))
  247.     )
  248. )
  249.  
  250. (SET neu_update (askchoice
  251.     (prompt "Welche Art der Installation wünschen Sie ?")
  252.     (choices
  253.         "Neu Installation"
  254.         "Update Installation"
  255.     )
  256.     (help "Falls Sie schon eine Version von FiloFax instaliert haben sollten Sie Update wählen")
  257. ))
  258.  
  259. (setzen)
  260. (IF (= neu_update 0) (INSTALL))
  261. (IF (= neu_update 1) (UPDATE))
  262.  
  263. (ende)
  264. (exit (quiet))
  265.  
  266.  
  267.  
  268.  
  269.