; Installations-Script für MPhone
(delopts "oknodelete" "force" "askuser")
(complete 0)

(If (= @language "deutsch")
 (
  (set #intro (cat

                "                                      \n"
                "                                      \n"
                "Alle Rechte vorbehalten.              \n"
                "                                      \n"
                "MPhone ©1995 Stefan Kraus             \n"
                "                                      \n"
                "MPhone ist ein Gebührenrechner mit    \n"
                "integriertem Telefonbuch. Zusätzlich  \n"
                "stehen noch diverse Erweiterungen zur \n"
                "Verfügung.                            \n"
              )
  )

  (set #dest1 (cat
               "Bitte, Verzeichnis für MPhone auswählen.\n"
               "Es wird automatisch ein Verzeichnis für\n"
               "MPhone angelegt."
              )
  )

  (set #dest2 (cat
               "\n"
               "\n"
               "     Es muß ein Verzeichnis ausgewählt werden\n"
               "     um MPhone installieren zu können.       \n"
              )
  )

  (set #data  "Scanner, Tarife und Vorwahlen installieren...")

  (set #pref  (cat
               "\n"
               "\n"
               "Alte Voreinstellungen gefunden !!!          \n"
               "Sollen diese überschrieben werden ?         \n"
              )
  )

  (set #prefI  "Ja")

  (set #prefII "Nein")

  (set #prefh (cat
               "\n"
               "\n"
               "    Es wurden alte Voreinstellungen gefunden.    \n"
               "    Bei ja gehen diese Voreinstellungen verloren.\n"
               "    Bei nein wird dieser Bereich übergangen.     \n"
              )
  )

  (set #MT (cat
            "\n"
            "\n"
            "   Möchten Sie die Optimierten Logdateien und die  \n"
            "   Telefonbuch-Logdatei, von MadisonTools, für     \n"
            "   MPhone konvertieren ?                           \n"
           )
  )

  (set #MT2MP "Starte Konverter...")

  (set #MT2MPh (cat
                "\n"
                "  Der Konverter wandelt die Optimierten Log-       \n"
                "  dateien, von MadisonTools, für MPhone um.        \n"
                "  Somit kann MPhone alle bisherigen Berechnungen   \n"
                "  weiterverwenden.                                 \n"
                "  Zusätzlich wird das Telefonbuch auch konvertiert.\n"
               )
  )

  (set #MPD (cat
             "\n"
             "Sollen die Entwicklerdaten auch installiert\n"
             "werden ?                                   \n"
            )
  )

  (set #MPDm "kopiere Entwicklerdaten...")

  (set #MPDh (cat
                "\n"
                "  Falls Sie Module für MPhone schreiben möchten, \n"
                "  sollten Sie diese Daten unbedingt installieren.\n"
                "  Es befinden sich darunter Include-Daten und    \n"
                "  eine genaue Anleitung.  In dieser Anleitung    \n"
                "  werden diverse Internas von MPhone erläutert.  \n"
               )
  )

 )
)

(complete 0)

(message #intro)

(welcome)

(set @default-dest "SYS:Tools")
(set #ddest "SYS:Tools-II")

(if (exists #ddest (noreq))
 (set @default-dest "SYS:Tools-II")
)

(set #default-dest
 (askdir (prompt #dest1)
         (help #dest2)
         (default @default-dest)
 )
)

(set @default-dest #default-dest)

(complete 1)

; Analyse ob Assign gesetzt werden muß



; Grunddaten installieren
(copyfiles (source "MPhone1:Main1")
           (dest #default-dest)
           (infos)
           (all)
)

(complete 40)

; KeyFile und Passwort installieren 
(if (exists "MPhone1:Main2/MPKey" (noreq))
 (
  (set #dest (tackon #default-dest "MPhone"))
  (copyfiles (source "MPhone1:Main2/MPKey")
             (dest #dest)
             (infos)
             (all)
  )
  (copyfiles (source "MPhone1:Main2/MPPassword")
             (dest "ENVARC:")
             (infos)
             (all)
  )           
 )
) 

(complete 50)

; Grunddaten installieren
(copyfiles (source "MPhone2:Main1")
           (dest #default-dest)
           (infos)
           (all)
)

(complete 65)

; Localisierung installieren
(
  (copyfiles (source "MPhone2:Main4")
             (dest "SYS:")
             (infos)
             (all)
  )             
)

; alte Localisierung löschen
(Set #ddest (tackon #default-dest "MPhone/Locale/"))
(if (exists #ddest (noreq))
 (
  (set dels (tackon #default-dest "MPhone"))
  (makeassign "MPhone" dels)
  (run "c:delete >NIL: MPhone:Locale ALL") 
 )
) 
(Set #ddest (tackon #default-dest "MPhone/Module/Locale/"))
(if (exists #ddest (noreq))
 (
  (set dels (tackon #default-dest "MPhone"))
  (makeassign "MPhone" dels)
  (run "c:delete >NIL: MPhone:Module/Locale ALL") 
 )
) 

(makeassign "MPhone")

(complete 75)

; Voreinstellungen installieren
(Set #ddest (tackon #default-dest "MPhone/Pref/"))
(if (exists #ddest (noreq))

 (

  (set #cpref
   (askbool (prompt #pref)
            (choices #prefI #prefII)
            (help #prefh)
            (default 0)
   )
  )

  (if (= #cpref 1)
   ; Grunddaten installieren
   (copyfiles (source "MPhone2:Main2")
              (dest #default-dest)
              (infos)
              (all)
   )
  )

  (complete 100)

 )

 ; Neuinstallation
 ; Grunddaten installieren
 (
  (copyfiles (source "MPhone2:Main2")
             (dest #default-dest)
             (infos)
             (all)
  )

  (complete 80)


 )

)

; MPhone-Developer Daten kopieren
(
  (set #cpref
   (askbool (prompt #MPD)
            (choices #prefI #prefII)
            (help #MPDh)
            (default 0)
   )


  )

  (if (= #cpref 1)

   (
    (copyfiles (source "MPhone2:Main3")
               (dest #default-dest)
               (infos)
               (all)
   )


   )

  )
)

; MadisonTools-Daten kovertieren
(if (exists "Madison:MadisonTools" (noreq))
 (

  (set #cpref
   (askbool (prompt #MT)
            (choices #prefI #prefII)
            (help #prefh)
            (default 0)
   )


  )

  (if (= #cpref 1)

   (
    (Set #ddest (tackon #default-dest "MPhone/MT-2-MP"))
    (run c:cd #ddest >NIL:)
    (run MT-2-MP)
   )

  )

 )
)