home *** CD-ROM | disk | FTP | other *** search
/ Dream 49 / Amiga_Dream_49.iso / amiga / applications / database / bbase_060_pch.lha / BBase13a_060pch / Update_ita < prev    next >
Text File  |  1998-02-06  |  4KB  |  117 lines
  1. ;   ---------------------------------------------
  2. ;   Update BancaBase 1.3a to 060 enhanced version
  3. ;   ---------------------------------------------
  4. ;   Description:
  5. ;
  6. ;   Commodore Installer Script for patch
  7. ;   BancaBase V 1.3a 060 enhanced version
  8. ;   $VER: 1.00 (c) 1998 by Stefano Dardari
  9.  
  10. ; some useful variables
  11.     (set 
  12.         newline         "\n"
  13.         #prg            "BancaBase"
  14.         #prgnew         "BancaBase.new"
  15.         #prg060         "BancaBase060"
  16.         #prgicon        "BancaBase.info"
  17.         #prg060icon     "BancaBase060.info"
  18.         #bbpatchname     "BancaBase060.pch"
  19.         #bb3-path       "BancaBase/"
  20.         #bb3-dest       "SYS:"
  21.         #BB3size        351772
  22.     )
  23.  
  24. ; some strings
  25. (set #omp (cat "\nUn momento prego..." newline))
  26.  
  27. (set #installtext (cat "Benvenuti nello script di AGGIORNAMENTO di BancaBase.\n\nBancaBase3 V 1.3a (C) 1997/98 by Stefano Dardari\nAll rights reserved\n\n060 Enhanced UPDATE script V 1.0\n"))
  28. (set #BB3dest-prompt "Prego selezionare la directory dov'Φ attualmente installata la versione 1.3a (68000) di BancaBase.\n(Vedere l'Aiuto per ulteriori dettagli)")
  29. (set #BB3dest-help (cat "Si deve indicare il percorso completo nel quale Φ stato installato il programma BancaBase per 68000.\n\nNOTA : per applicare questo aggiornamento Φ necessario disporre della versione 1.3a REGISTRATA di BancaBase, installata su HardDisk."))
  30. (set #BB3end (cat "Aggiornamento completato. Leggere il file readme prima di iniziare."))
  31. (set #msgpchfailed "ATTENZIONE!!!\n\nIl Patch non Φ stato applicato a causa di un errore.\n\nAssicurarsi di applicare il patch esclusivamente alla versione 1.3a (68000) REGISTRATA di BancaBase, con qualsiasi altra versione il patch non pu≥ essere applicato.\nSe avete una versione 1.3a registrata e non riuscite ad applicare questo patch contattate l'autore.")
  32.  
  33. (welcome #installtext)
  34.  
  35. (procedure set_dir
  36.    (set #bb3-dest
  37.       (askdir
  38.          (prompt #BB3dest-prompt)
  39.          (help #BB3dest-help)
  40.          (default #bb3-dest)
  41.          (newpath)
  42.       )
  43.    )
  44. )
  45.  
  46. (set_dir)
  47. (set #dest-path #bb3-dest)
  48. (set @default-dest #dest-path)
  49.  
  50.  
  51. (if (= 0 (exists #dest-path (noreq)))
  52.    (
  53.       (set #file-exist (cat "Spiacente ma la directory " #dest-path " non esiste.\n\nSelezionare la directory destinazione contenente la versione 1.3a di BancaBase.\n"))
  54.       (message #file-exist)
  55.       (set_dir)
  56.       (set #dest-path #bb3-dest)
  57.       (set @default-dest #dest-path)
  58.    )
  59. )
  60.  
  61. (complete 10)
  62.  
  63. (set #dst-path #dest-path)
  64. (set #dst (tackon #dest-path #prg))
  65.  
  66. (if (exists #dst)
  67.     (
  68.     (set size (getsize #dst))
  69.     (if (= size #BB3size)
  70.        (message ("\n\nTrovato %s (%ld bytes)\n\nIl patch Φ applicabile." #dst size))
  71.        )
  72.     )
  73. )
  74.  
  75. (if (not(= size #BB3size))
  76.     (abort #msgpchfailed)
  77.     )
  78.  
  79.  
  80. ;(working #omp (cat "\n\nScompatto il file di patch ...\n" #dest-path))
  81.  
  82. ;(run ("lha -x x "#bbprogname" "#dest-path))
  83.  
  84. (complete 50)
  85.  
  86. (working #omp "\n\n\nEseguo l'aggiornamento del software ...\nattendere prego ...")
  87.  
  88. (set #pchcommand (cat "spatch -o" (tackon #dest-path #prg060) " -p" #bbpatchname " " (tackon #dest-path #prg)))
  89. ;(message #pchcommand)
  90.  
  91. (set a (run #pchcommand))
  92. ;(message ("\nIl patch ritorna :%ld" a))
  93.  
  94. (if (not(= a 0))
  95.     (abort #msgpchfailed)
  96.     )
  97.  
  98. (complete 90)
  99.  
  100. (rename (tackon #dest-path #prgicon) (tackon #dest-path #prg060icon))
  101. (delete (tackon #dest-path #prg))
  102.  
  103. (complete 100)
  104.  
  105. ; The last message
  106. (set end_text (cat "\nComplimenti !!!\n\n"
  107.               "Hai appena potenziato la tua versione di BancaBase con una ottimizzata per i processori 68060 che rendera' le normali operazioni molto piu' fluide e veloci!!!\n"
  108.               "Spero che BancaBase ti piaccia!\n"
  109.               "Non esitare a mandarmi commenti, suggerimenti e bugreports.\n\n"
  110.               "Le registrazioni sono BENVENUTE !!! :))"))
  111.  
  112. ; the end
  113. (set @default-dest #dest-path)
  114.     (exit end_text)
  115. ;EOF
  116.  
  117.