home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1999 April / PCO0499.ISO / filesbbs / os2 / nftp150o.arj / NFTP150O.ZIP / makeobjs.cmd < prev    next >
Encoding:
Text File  |  1999-02-06  |  3.6 KB  |  82 lines
  1. /* REXX */
  2.  
  3. version="1.50"
  4.  
  5. say
  6. say "Creating/updating WPS objects for NFTP"
  7. say
  8.  
  9. /* Load RexxUtil extensions */
  10.  
  11. if RxFuncQuery("SysLoadFuncs") then do
  12.     call RxFuncAdd "SysLoadFuncs","RexxUtil","SysLoadFuncs"
  13.     if result \= "0" then do
  14.         say "error loading RexxUtil.dll"
  15.         exit
  16.     end
  17.     call SysLoadFuncs
  18. end
  19.  
  20. /* analyze arguments */
  21.  
  22. parse arg destpath .
  23. if destpath = "" then destpath = directory()
  24.  
  25. foldername = "<NFTP_FOLDER>"
  26.  
  27. /* creating folder */
  28.  
  29. settings = 'OBJECTID='foldername';ICONFILE='destpath'\nftp-fld.ico'
  30. rc = SysCreateObject('WPFolder', 'NFTP', '<WP_DESKTOP>', settings, 'update')
  31. if rc != 1 then say "Cannot create NFTP folder"
  32. else            say "NFTP folder                 has been created/updated"
  33.  
  34. /* creating WPS objects */
  35.  
  36. settings = 'EXENAME='destpath'\nftp.exe;PARAMETERS=[FTP server to log in?];PROGTYPE=WINDOWABLEVIO;MINIMIZED=NO;ICONFILE=nftp.ico'
  37. rc = SysCreateObject('WPProgram', 'NFTP', foldername, settings, 'update')
  38. if rc != 1 then say "Cannot create NFTP object"
  39. else            say "NFTP object                 has been created/updated"
  40.  
  41. settings = 'EXENAME='destpath'\nftppm.exe;MINIMIZED=NO;ICONFILE=nftp.ico'
  42. rc = SysCreateObject('WPProgram', 'NFTP/PM', foldername, settings, 'update')
  43. if rc != 1 then say "Cannot create NFTP/PM object"
  44. else            say "NFTP/PM object              has been created/updated"
  45.  
  46. settings = 'EXENAME=E.EXE;PARAMETERS='destpath'\nftp.bmk;'
  47. rc = SysCreateObject('WPProgram', 'Edit bookmarks', foldername, settings, 'update')
  48. if rc != 1 then say "Cannot create 'Edit bookmarks' object"
  49. else            say "'Edit bookmarks' object     has been created/updated"
  50.  
  51. settings = 'EXENAME=E.EXE;PARAMETERS='destpath'\nftp.ini;'
  52. rc = SysCreateObject('WPProgram', 'Edit NFTP.INI', foldername, settings, 'update')
  53. if rc != 1 then say "Cannot create 'Edit NFTP.INI' object"
  54. else            say "'Edit NFTP.INI' object      has been created/updated"
  55.  
  56. settings = 'EXENAME=explore.exe;PARAMETERS=-q nftp-man.html;STARTUPDIR='destpath';PROGTYPE=PM;MINIMIZED=NO;ICONFILE=nftp-man.ico'
  57. rc = SysCreateObject('WPProgram', 'NFTP manual', foldername, settings, 'update')
  58. if rc != 1 then say "Cannot create documentation object"
  59. else            say "Documentation object        has been created/updated"
  60.  
  61. settings = 'EXENAME=explore.exe;PARAMETERS=-q nftp-faq.html;STARTUPDIR='destpath';PROGTYPE=PM;MINIMIZED=NO'
  62. rc = SysCreateObject('WPProgram', 'Frequently Asked Questions', foldername, settings, 'update')
  63. if rc != 1 then say "Cannot create FAQ           object"
  64. else            say "FAQ object                  has been created/updated"
  65.  
  66. settings = 'EXENAME=explore.exe;PARAMETERS=-q nftp-keys.html;STARTUPDIR='destpath';PROGTYPE=PM;MINIMIZED=NO;ICONFILE=nftp-man.ico'
  67. rc = SysCreateObject('WPProgram', 'Keyboard reference', foldername, settings, 'update')
  68. if rc != 1 then say "Cannot create documentation object"
  69. else            say "Documentation object        has been created/updated"
  70.  
  71. settings = 'EXENAME=explore.exe;PARAMETERS=-q history.html;STARTUPDIR='destpath';PROGTYPE=PM;MINIMIZED=NO;ICONFILE=nftp-man.ico'
  72. rc = SysCreateObject('WPProgram', 'History of changes', foldername, settings, 'update')
  73. if rc != 1 then say "Cannot create documentation object"
  74. else            say "Documentation object        has been created/updated"
  75.  
  76. settings = 'EXENAME=E.EXE;PARAMETERS='destpath'\regform.txt;'
  77. rc = SysCreateObject('WPProgram', 'Registration form', foldername, settings, 'update')
  78. if rc != 1 then say "Cannot create 'Registration form' object"
  79. else            say "'Registration form' object  has been created/updated"
  80.  
  81. return
  82.