home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 14 / CDACTUAL.iso / cdactual / demobin / share / os2 / NFTP100 / MAKEOBJS.CMD < prev    next >
Encoding:
Text File  |  1997-01-30  |  4.3 KB  |  90 lines
  1. /* REXX */
  2.  
  3. say
  4. say "Creating/updating WPS objects for NFTP"
  5. say
  6.  
  7. /* Load RexxUtil extensions */
  8.  
  9. if RxFuncQuery("SysLoadFuncs") then do
  10.     call RxFuncAdd "SysLoadFuncs","RexxUtil","SysLoadFuncs"
  11.     if result \= "0" then do
  12.         say "error loading RexxUtil.dll"
  13.         exit
  14.     end
  15.     call SysLoadFuncs
  16. end
  17.  
  18. /* analyze arguments */
  19.  
  20. parse arg destpath .
  21. if destpath = "" then destpath = directory()
  22.  
  23. foldername = "<NFTP_FOLDER>"
  24.  
  25. /* creating folder */
  26.  
  27. settings = 'OBJECTID='foldername';ICONFILE='destpath'\nftp-fld.ico'
  28. rc = SysCreateObject('WPFolder', 'NFTP', '<WP_DESKTOP>', settings, 'update')
  29. if rc != 1 then say "Cannot create NFTP folder"
  30. else            say "NFTP folder                 has been created/updated"
  31.  
  32. /* creating WPS objects */
  33.  
  34. settings = 'EXENAME='destpath'\nftp.cmd;PARAMETERS=[FTP server to log in?];PROGTYPE=WINDOWABLEVIO;NOAUTOCLOSE=YES;MINIMIZED=NO;ICONFILE=nftp.ico'
  35. rc = SysCreateObject('WPProgram', 'NFTP', foldername, settings, 'replace')
  36. if rc != 1 then say "Cannot create NFTP object"
  37. else            say "NFTP object                 has been created/updated"
  38.  
  39. settings = 'EXENAME=E.EXE;PARAMETERS='destpath'\nftp.bmk;'
  40. rc = SysCreateObject('WPProgram', 'Edit bookmarks', foldername, settings, 'replace')
  41. if rc != 1 then say "Cannot create 'Edit bookmarks' object"
  42. else            say "'Edit bookmarks' object     has been created/updated"
  43.  
  44. settings = 'EXENAME=E.EXE;PARAMETERS='destpath'\nftp.ini;'
  45. rc = SysCreateObject('WPProgram', 'Edit NFTP.INI', foldername, settings, 'replace')
  46. if rc != 1 then say "Cannot create 'Edit NFTP.INI' object"
  47. else            say "'Edit NFTP.INI' object      has been created/updated"
  48.  
  49. settings = 'EXENAME=explore.exe;PARAMETERS=-q nftp-man.htm;STARTUPDIR='destpath';PROGTYPE=PM;MINIMIZED=NO;ICONFILE=nftp-man.ico'
  50. rc = SysCreateObject('WPProgram', 'NFTP manual', foldername, settings, 'replace')
  51. if rc != 1 then say "Cannot create documentation object"
  52. else            say "Documentation object        has been created/updated"
  53.  
  54. settings = 'EXENAME=explore.exe;PARAMETERS=-q nftpkeys.htm;STARTUPDIR='destpath';PROGTYPE=PM;MINIMIZED=NO;ICONFILE=nftp-man.ico'
  55. rc = SysCreateObject('WPProgram', 'Keyboard reference', foldername, settings, 'replace')
  56. if rc != 1 then say "Cannot create documentation object"
  57. else            say "Documentation object        has been created/updated"
  58.  
  59. settings = 'EXENAME=explore.exe;PARAMETERS=-q history.htm;STARTUPDIR='destpath';PROGTYPE=PM;MINIMIZED=NO;ICONFILE=nftp-man.ico'
  60. rc = SysCreateObject('WPProgram', 'History of changes', foldername, settings, 'replace')
  61. if rc != 1 then say "Cannot create documentation object"
  62. else            say "Documentation object        has been created/updated"
  63.  
  64. settings = 'EXENAME='destpath'\stat.cmd;STARTUPDIR='destpath';PARAMETERS=nftp.fls;PROGTYPE=WINDOWABLEVIO;NOAUTOCLOSE=YES;MINIMIZED=NO;ICONFILE=nftp.ico'
  65. rc = SysCreateObject('WPProgram', 'Gather statistics', foldername, settings, 'replace')
  66. if rc != 1 then say "Cannot create 'Gather statistics' object"
  67. else            say "'Gather statistics' object  has been created/updated"
  68.  
  69. settings = 'EXENAME=E.EXE;PARAMETERS='destpath'\nftp.sta;'
  70. rc = SysCreateObject('WPProgram', 'View statistics', foldername, settings, 'replace')
  71. if rc != 1 then say "Cannot create 'View statistics' object"
  72. else            say "'View statistics' object    has been created/updated"
  73.  
  74. settings = 'EXENAME=E.EXE;PARAMETERS='destpath'\regform.txt;'
  75. rc = SysCreateObject('WPProgram', 'Registration form', foldername, settings, 'replace')
  76. if rc != 1 then say "Cannot create 'Registration form' object"
  77. else            say "'Registration form' object  has been created/updated"
  78.  
  79. settings = 'EXENAME=E.EXE;PARAMETERS='destpath'\order.frm;'
  80. rc = SysCreateObject('WPProgram', 'BMT Micro registration form', foldername, settings, 'replace')
  81. if rc != 1 then say "Cannot create 'BMT Micro registration form' object"
  82. else            say "'BMT Micro registration form' object  has been created/updated"
  83.  
  84. settings = 'EXENAME='destpath'\PURCHASE.EXE;STARTUPDIR='destpath';PROGTYPE=PM;MINIMIZED=NO;ICONFILE=purchase.ico'
  85. rc = SysCreateObject('WPProgram', 'Register via BMT Micro', foldername, settings, 'replace')
  86. if rc != 1 then say "Cannot create 'Register via BMT Micro' object"
  87. else            say "'Register via BMT Micro' object  has been created/updated"
  88.  
  89. return
  90.