home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 April / PCO_04_97.ISO / filesbbs / os2 / inadv096.arj / INADV096.ZIP / install.cmd < prev    next >
Encoding:
Text File  |  1997-02-11  |  5.0 KB  |  87 lines
  1. /*
  2.  
  3.   REXX Script to install Internet Adventurer - and create a desktop folder
  4.  
  5. */
  6.  
  7. if RxFuncQuery('SysLoadFuncs') then do
  8.    call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  9.    call SysLoadFuncs
  10. end
  11.  
  12. say "-----------------------------"
  13. say "|                           |"
  14. say "|   Thank you for chosing   |"
  15. say "|                           |"
  16. say "| Internet Adventurer v0.96 |"
  17. say "|                           |"
  18. say "-----------------------------"
  19. say ""
  20. say "-----------------------------"
  21. say "| Installing...             |"
  22. say "-----------------------------"
  23.  
  24. dir = directory() || '\'
  25.  
  26. dir2 = substr(dir, 1, 2) || '"' || substr(dir, 3, length(dir)-2)
  27. say ""
  28. say "-----------------------------"
  29. say "| Creating folders...       |"
  30. say "-----------------------------"
  31. call SysCreateObject "WPFolder", "Internet" || d2c(10) || "Adventurer", "<WP_DESKTOP>", "OBJECTID=<INETADVFOLDER>;ICONVIEW=FLOWED,NORMAL;ALWAYSSORT=NO;ICONFONT=8.Helv;BACKGROUND=" || dir || "backfldr.bmp,T;ICONFILE=" || dir || "INETADV.ICO", "replace"
  32. call SysCreateObject "WPFolder", "Utilities", "<INETADVFOLDER>", "OBJECTID=<INETADVUTILS>;ICONVIEW=FLOWED,NORMAL;ALWAYSSORT=NO;ICONFONT=8.Helv;BACKGROUND=" || dir || "backfldr.bmp,T", "replace"
  33.  
  34. say ""
  35. say "-----------------------------"
  36. say "| Creating program icons... |"
  37. say "-----------------------------"
  38. call SysCreateObject "WPProgram", "Uninstall", "<INETADVUTILS>", "EXENAME=CMD.EXE;PARAMETERS= /C" dir2 || 'UNINST.CMD"', "replace"
  39. call SysCreateObject "WPProgram", "Restore Configuration", "<INETADVUTILS>", "EXENAME=CMD.EXE;PARAMETERS=/C" dir2 || 'COPYINI.CMD" INETADV.INI OS2' || ";STARTUPDIR=" || dir, "replace"
  40. call SysCreateObject "WPProgram", "Backup Configuration", "<INETADVUTILS>", "EXENAME=CMD.EXE;PARAMETERS=/C" dir2 || 'COPYINI.CMD" OS2 INETADV.INI' || ";STARTUPDIR=" || dir, "replace"
  41. call SysCreateObject "WPProgram", "Edit quicklist.txt", "<INETADVUTILS>", "EXENAME=E.EXE;PARAMETERS=" || dir || "QUICKLST.TXT;STARTUPDIR=" || dir, "replace"
  42. call SysCreateObject "WPProgram", "Import quicklist" || d2c(10) || "from quicklist.txt", "<INETADVUTILS>", "EXENAME=CMD.EXE;PARAMETERS=/C " || dir2 || 'QIMPORT.CMD";STARTUPDIR=' || dir, "replace"
  43. call SysCreateObject "WPProgram", "Export quicklist" || d2c(10) || "to quicklist.txt", "<INETADVUTILS>", "EXENAME=CMD.EXE;PARAMETERS=/C " || dir2 || 'QEXPORT.CMD";STARTUPDIR=' || dir, "replace"
  44. call SysCreateObject "WPProgram", "Import quicklist" || d2c(10) || "from WebExplorer", "<INETADVUTILS>", "EXENAME=CMD.EXE;PARAMETERS=/C " || dir2 || 'IMPORT.CMD";STARTUPDIR=' || dir, "replace"
  45. call SysCreateObject "WPProgram", "Import quicklist" || d2c(10) || "from Netscape", "<INETADVUTILS>", "EXENAME=CMD.EXE;PARAMETERS=/C " || dir2 || 'IMPNETSC.CMD";STARTUPDIR=' || dir, "replace"
  46. call SysCreateObject "WPProgram", "Restore original quicklist" || d2c(10) || "Warning: Current will be lost", "<INETADVUTILS>", "EXENAME=CMD.EXE;PARAMETERS=/C " || dir2 || 'qimport.cmd" orgquick.lst replace;STARTUPDIR=' || dir, "replace"
  47.  
  48. call SysCreateObject "WPProgram", "Internet Adventurer", "<INETADVFOLDER>", "EXENAME=" || dir || "INETADV.EXE;STARTUPDIR=" || dir
  49. call SysCreateObject "WPProgram", "Internet Adventurer" || d2c(10) || "(with Netscape)", "<INETADVFOLDER>", "EXENAME=" || dir || "INETADV.EXE;STARTUPDIR=" || dir || ";PARAMETERS=/P:iaplugns.cfg"
  50. call SysCreateObject "WPProgram", "Readme", "<INETADVFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir2 || 'README.TXT"', "replace"
  51. call SysCreateObject "WPProgram", "Internet Adventurer" || d2c(10) || "Documentation", "<INETADVFOLDER>", "EXENAME=VIEW.EXE;PARAMETERS=" || dir2 || 'INETADV.INF"', "replace"
  52. call SysCreateObject "WPProgram", "Get legal and" || d2c(10) || "Register", "<INETADVFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir2 || 'REGISTER.TXT"', "replace"
  53. call SysCreateObject "WPProgram", "Register Online", "<INETADVFOLDER>", "EXENAME=" || dir || "PURCHASE.EXE;STARTUPDIR=" || dir
  54. call SysCreateObject "WPProgram", "License" || d2c(10) || "Agreement", "<INETADVFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir2 || 'LICENSE.TXT"', "replace"
  55.  
  56. if (stream('article.dat', 'c', 'query exists') \= '' & stream('news.p', 'c', 'query exists') \= '') then do
  57.    say ""
  58.    say "Delete news database ? (must be done when installing over v0.25 or v0.26)"
  59.    parse upper pull answer .
  60.  
  61.    if left(answer, 1) \= 'Y' then do
  62.       say "Installation completed - not deleting news database"
  63.       exit
  64.    end
  65.  
  66.    say "Deleting news database"
  67.    'del art*'
  68.    'del newsgrp.*'
  69.    'del news.p'
  70. end
  71.  
  72. if (stream('quicklst.dat', 'c', 'query exists') = '') then do
  73.    say "Installing default quicklist database"
  74.    'cmd /c qimport.cmd orgquick.lst replace'
  75. end
  76.  
  77. say ""
  78. say "-----------------------------"
  79. say "|                           |"
  80. say "| Installation completed!   |"
  81. say "|                           |"
  82. say "| To start, doubleclick on  |"
  83. say "| the Internet Adventurer   |"
  84. say "| folder on your desktop    |"
  85. say "|                           |"
  86. say "-----------------------------"
  87.