home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d8xx / d862 / phonelist.lha / PhoneList / install-pl next >
Text File  |  1993-04-14  |  1KB  |  60 lines

  1. (complete 0)
  2.  
  3. (set @default-dest "" )
  4.  
  5. (set version (/ (getversion) 65536))
  6. (set version2 36)
  7.  
  8.  
  9. ; install
  10.  
  11. (set dest2 (askdir  (prompt "Choose destination dir/drive to install :")
  12.                           (default @default-dest)
  13.                           (help "\n\n    'PHONELIST' will be copied to dir/drive\n"
  14.                                   "  of your choice !\n"
  15.                           )
  16.              )
  17. )
  18.  
  19. (message "\n\n'PHONELIST' will be installed in "
  20.                   dest2 )
  21.  
  22.  
  23. (set error (trap 4
  24.   (copyfiles (source "phonelist:pl") (dest dest2) )
  25.   (complete 20 )
  26.   (copyfiles (source "phonelist:pl.info") (dest dest2) )
  27.   (complete 40 )
  28. ))
  29.  
  30.  
  31. (if (> error 0)
  32.     (
  33.         ( message ("\n\nDos Error %ld " @ioerr));
  34.         (abort("Cannot continue !"))
  35.     ))
  36.  
  37.  
  38. (set error (trap 4
  39.   (set dest1 (tackon dest2 "libs"))
  40.   ( makedir ( dest1 ) (safe))
  41.   ( copyfiles (source "phonelist:libs/intuisupport.library")
  42.   ( dest dest1 ) )
  43.   ( complete 100 )
  44. ))
  45.  
  46. (if (> error 0)
  47.     (
  48.         ( message ("\n\nDos Error %ld " @ioerr));
  49.         (abort("Cannot continue !"))
  50.     ))
  51.  
  52.  
  53. ( message ("\n\nPlease be shure to have\n\n '%s'\n\n" dest2 )
  54.              "added to your current path and your\n 'startup-sequence'\n"
  55.              "contains a command like\n\n"
  56.              ("'setenv PL_FILES %s'\n\n" dest2 )
  57.              "before you start !"
  58.              )
  59.  
  60.