home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ijgwy1_0.zip / folder.cmd < prev    next >
OS/2 REXX Batch file  |  1998-12-03  |  3KB  |  38 lines
  1. /*
  2.  
  3.   REXX Script to install the InJoy Firewall - 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 "Installing..."
  13.  
  14. dir = directory() || '\'
  15.  
  16. say "Creating folder"
  17. call SysCreateObject "WPFolder", "InJoy Firewall", "<WP_DESKTOP>", "OBJECTID=<INJOYFIREFOLDER>;ICONVIEW=FLOWED,NORMAL;ALWAYSSORT=NO;ICONFONT=10.Helv;BACKGROUND=" || dir || "back.bmp,T;ICONFILE=" || dir || "FOLDER.ICO", "replace"
  18. call SysCreateObject "WPFolder", "Information", "<INJOYFIREFOLDER>", "OBJECTID=<INJOYFIREINFOFOLDER>;ICONVIEW=FLOWED,NORMAL;ALWAYSSORT=NO;ICONFONT=8.Helv;BACKGROUND=" || dir || "back.bmp,T", "replace"
  19. call SysCreateObject "WPFolder", "Different methods"|| d2c(10) || "of payment", "<INJOYFIREFOLDER>", "OBJECTID=<INJOYFIREPAYFOLDER>;ICONVIEW=FLOWED,NORMAL;ALWAYSSORT=NO;ICONFONT=8.Helv;BACKGROUND=" || dir || "back.bmp,T", "replace"
  20. say "Creating program objects"
  21.  
  22. call SysCreateObject "WPProgram", "BMT resellers", "<INJOYFIREPAYFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir || "DOCS\" || "ORDER.BMT", "replace"
  23. call SysCreateObject "WPProgram", "Deutsche Bank" || d2c(10) || "money transfer", "<INJOYFIREPAYFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir || "DOCS\" || "ORDER.DE", "replace"
  24. call SysCreateObject "WPProgram", "Payment via" || d2c(10) || "Phone/FAX (USA)", "<INJOYFIREPAYFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir || "DOCS\" || "ORDER.USA", "replace"
  25.  
  26.  
  27. call SysCreateObject "WPProgram", "License"  || d2c(10) || "Agreement", "<INJOYFIREINFOFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir || "DOCS\" || "LICENSE.TXT", "replace"
  28. call SysCreateObject "WPProgram", "File_ID.DIZ", "<INJOYFIREINFOFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir || "FILE_ID.DIZ", "replace"
  29. call SysCreateObject "WPProgram", "Reference Manual", "<INJOYFIREINFOFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir || "DOCS\" || "GATEWAY.TXT", "replace"
  30.  
  31. call SysCreateObject "WPProgram", "F/X Communications" || d2c(10) || "(www.fx.dk)", "<INJOYFIREINFOFOLDER>", "EXENAME=NETSCAPE.EXE;PARAMETERS=" || "http://www.fx.dk", "replace"
  32. call SysCreateObject "WPProgram", "InJoy Firewall home page" || d2c(10) || "(www.fx.dk/firewall)", "<INJOYFIREINFOFOLDER>", "EXENAME=NETSCAPE.EXE;PARAMETERS=" || "http://www.fx.dk/firewall", "replace"
  33. call SysCreateObject "WPProgram", "BMT Registration" || d2c(10) || "Applet", "<INJOYFIREFOLDER>", "EXENAME=" || dir || "PURCHASE\" || "PURCHASE.EXE;STARTUPDIR=" || dir || "purchase\" || ";ICONVIEW=FLOWED,NORMAL;ALWAYSSORT=YES;"
  34. call SysCreateObject "WPProgram", "Get legal and" || d2c(10) || "Register", "<INJOYFIREFOLDER>", "EXENAME=E.EXE;PARAMETERS=" || dir || "DOCS\" || "REGISTER.TXT", "replace"
  35. call SysCreateObject "WPProgram", "Uninstall" || d2c(10) || "Device Driver", "<INJOYFIREFOLDER>", "EXENAME=" || dir || "UNINSTAL.CMD;STARTUPDIR=" || dir || ";ICONVIEW=FLOWED,NORMAL;ALWAYSSORT=YES;"
  36. call SysCreateObject "WPProgram", "InJoy Gateway", "<INJOYFIREFOLDER>", "EXENAME=" || dir || "GATEWAY.EXE;STARTUPDIR=" || dir || ";ICONVIEW=FLOWED,NORMAL;ALWAYSSORT=YES;"
  37. say "Installation completed - InJoy Firewall"
  38.