home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 8 / amigaformatcd08.iso / look_here_1st! / af_on_the_web / voyager10 / tools / clearcachedir next >
Text File  |  1996-05-03  |  5KB  |  143 lines
  1. ;******************************************************************************
  2. ;         __  __                                     
  3. ;        / / / /                                    
  4. ;       / / / /______ __  __ ______  ______ ______ _____
  5. ;      / / / // __  / \ \/ // __  / / __  // ____// .__/
  6. ;     /  \/ // /_/ /   \  // __  / / /_/ // __/_ / /
  7. ;     \____//_____/    / //_/ /_/ _\__  //_____//_/
  8. ;                     /_/        /_____/   
  9. ; ClearCacheDir
  10. ;
  11. ; $VER: .101a_Voyager_Installer (April-22-1996) 
  12. ; Changes, suggestions or problems: rcr@netcom.com
  13. ; May not be hacked into any "internet pack"!
  14. ; If you wish to use any part of this installer you must ask.
  15. ;
  16. ; Installer by Robert C. Reiswig ©1995, 1996 
  17. ; Voyager by Oliver Wagner ©1995, 1996 
  18. ;******************************************************************************
  19. ;*** System Stuff ***
  20. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  21. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  22. (set osver (/ (getversion "LIBS:version.library") 65536))
  23. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  24. (set fastmem (- totmem graphmem))
  25.  
  26. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  27. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  28. (if (= osver 41) (set workbench "3.2"))
  29.  
  30. (set cpu (database "cpu"))
  31. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  32. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  33. (if (= cpu 68040) (set #cpu 4)) 
  34. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  35.  
  36. (if (> cpu 68010)  (set #fpuGuess 0)  (set #fpuGuess 1) )
  37.    
  38. (set vernum1 (getversion "V")) (set ver1 (/ vernum1 65536)) 
  39. (set rev1 (- vernum1 (* ver1 65536) ) ) (set Voyagerver (cat ver1 "." rev1))
  40.  
  41. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  42. (set lan 0)
  43.  
  44. (if (= "english"    lanfound) (set lan 0))  (if (= "deutsch"    lanfound) (set lan 1))
  45. (set #English    "English")  (set #Deutsch    "Deutsch")
  46.  
  47. (set mfound 0) (set newicon1 1) 
  48. (set keeper 1) (set firsttime 0)
  49.  
  50. (if (= OlliSendMePizza 1) (welcome))
  51. ;********************************************************************
  52. ; English Strings
  53. ;********************************************************************
  54. (set #updateinstaller "\nJust to let you know ESCOM AG has released a new version of the installer, Version 43.1\n\n\nIt can be found on Aminet in:\n\n/util/misc/Installer-43_1.lha\n\n\nYou might want to upgrade soon.")
  55.  
  56. (set #whereVoyagerC "Where is the *Voyager directory* located. The 'Cache' directory will be looked for there.\n(Do not select the Cache dir.)")
  57. (set #scanning "Scanning:")
  58. (set #has "has")
  59. (set #files "file(s)")
  60. (set #in "in")
  61. (set #clearc "Clear Cache Dir")
  62. (set #Skip "Skip")
  63. (set #oktokill "Is it ok to delete the files in the Cache directory?")
  64. (set #deletefile "\n\nDeleteing file:\n\n")
  65. (set #nocache "\nCould not clear the Voyager Cache directory. Could not find the 'Cache' directory in:\n\n")
  66. (set #byebyec (cat "\nVoyager Cache Directory Complete!\n\n" ))
  67.  
  68. ;********************************************************************
  69. ; German Strings
  70. ;********************************************************************
  71. (if (= lan 1)
  72.  (set OlliDontShareThePizza TRUE)
  73. )
  74.  
  75. ;********************************************************************
  76. ; Ask where Voyager is. 
  77. ;********************************************************************
  78. (set Package (getassign "AmiTCP"))
  79. (if (= Package "") (set Package (getassign "Inet")) )
  80.  
  81. (set VoyagerC  (askdir (prompt #whereVoyagerC)
  82.                (help   #whereVoyagerC)
  83.                     (default (tackon Package "Voyager"))
  84.                )  
  85. )
  86.  
  87. (set whereC (tackon VoyagerC "Cache"))
  88.  
  89. ;********************************************************************
  90. ; Ask to clear out cache dir.. 
  91. ;********************************************************************
  92. (if (> (exists whereC) 0)
  93.  (
  94.   (set sizem "") 
  95.   (set size 0) (set sizek 0) (set sizem 0) (set num 0)
  96.  
  97.   (working (cat "\n\n" #scanning "\n\n" whereC))
  98.   (foreach whereC "#?aaa" ( (set size (+ size (getsize (tackon whereC @each-name))))  (set num (+ num 1)) )  )
  99.   (set sizek (/ size 1024))
  100.   (set sizem (/ sizek 1024))
  101.  
  102.   (if (< sizek 1024)
  103.     (set sizem "") 
  104.     ;(set sizem (cat " [" sizem "Meg(s)] "))
  105.   ) 
  106.  
  107.  
  108.   (set killc (askbool (prompt (cat "\n\n'" whereC "'\n\n" #has " " sizek "K " #in " " num " " #files "\n\n\n\n" #oktokill))
  109.                   (help   (cat "\n\n'" whereC "'\n\n" #has " " sizek "K " #in " " num " " #files "\n\n\n\n" #oktokill))
  110.                       (choices #clearc #Skip)
  111.              )
  112.   )
  113.  
  114.    (if (= killc 1) 
  115.     (foreach whereC "#?aaa" 
  116.      (
  117.        (working (cat #deletefile " " whereC @each-name))  
  118.        (delete (tackon whereC @each-name)) 
  119.      ) 
  120.     )    
  121.    )
  122.  
  123.  )
  124.  
  125.  (exit (cat #nocache VoyagerC))
  126.  
  127. )
  128.  
  129. ;********************************************************************
  130. ; Check on New installer 
  131. ;********************************************************************
  132. (set vernum1 @installer-version) (set ver1 (/ vernum1 65536)) 
  133. (set rev1 (- vernum1 (* ver1 65536) ) ) (set InstallerVer (cat ver1 "." rev1))
  134.  
  135. (if (< InstallerVer 43.1)
  136.  (message #updateinstaller)
  137. )
  138.  
  139. ;********************************************************************
  140. ; End Bye 
  141. ;********************************************************************
  142. (exit #byebyec)
  143.