home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Security / Security.zip / quipu10.zip / install.cmd next >
OS/2 REXX Batch file  |  1995-12-15  |  3KB  |  64 lines
  1. /* Installation of Quipu */
  2. /* Laden von RexxUtil.DLL */
  3. CALL RxFuncAdd 'SysLoadFuncs','Rexxutil','SysLoadFuncs'
  4. CALL SysLoadFuncs
  5. /* Make Quipu directory */
  6. parse arg directory
  7. if directory = '' then do
  8.     say "Usage: INSTALL <Directory for Quipu> (INSTALL d:\quipu)"
  9.     exit
  10.     end
  11. rc = sysmkdir(directory)
  12. if \(rc = 0 | rc = 5) then do
  13.     say "Could not create the directory"
  14.     exit
  15.     end
  16. /* Copy all files to the Quipu directory */
  17. 'copy quipu.* 'directory
  18. /* Create Quipu.ini */
  19. inifile =  directory||'\quipu.ini'
  20. rc = stream( inifile, 'C', 'OPEN WRITE')
  21. call lineout inifile,'# Parameters for the Quipu.exe. These parameters will be'
  22. call lineout inifile,'# overwritten by command line parameters.'
  23. call lineout inifile,'# First we set the seed.'
  24. call lineout inifile,'-a <this is the test seed and should be replaced>'
  25. call lineout inifile,'# Now we set the key file length. '
  26. call lineout inifile,'# For higher security this should be increased.'
  27. call lineout inifile,'-l 5000'                                      
  28. call lineout inifile,'# Next we set the key file directory and name.' 
  29. call lineout inifile,'-k '||directory||'\quipu.key'
  30. call lineout inifile,'# Next we set the mode for making a new key file,'
  31. call lineout inifile,'# when no command line parameters are added.'
  32. call lineout inifile,'-m'
  33. call lineout inifile,'# Next we add the line on which you put your registration name.'
  34. call lineout inifile,'-n <name>
  35. call lineout inifile,'# At last we add the line on which you enter your registration number'
  36. call lineout inifile,'-r 0000000000'
  37. call lineout inifile,'#'
  38. rc = stream(inifile,'C','CLOSE')
  39. /* Create PMQuipu.cmd */
  40. cmdfile =  directory||'\pmquipu.cmd'
  41. rc = stream( cmdfile, 'C', 'OPEN WRITE')
  42. call lineout cmdfile,'/* PMQUIPU.CMD */'
  43. call lineout cmdfile,'parse arg datei'
  44. call lineout cmdfile,"mode = ''"
  45. call lineout cmdfile,"if datei = '' then"
  46. call lineout cmdfile,"'"||directory||"\quipu.exe -p "||directory||"\quipu.ini'"
  47. call lineout cmdfile,'else'
  48. call lineout cmdfile,"if right(datei,1) = '#' then '"||directory||"\quipu.exe -d -p "||directory||"\quipu.ini -c '|| datei"
  49. call lineout cmdfile,"else '"||directory||"\quipu.exe -e -p "||directory||"\quipu.ini -f '||datei||' -c '||left(datei,length(datei)-1)||'#'" 
  50. call lineout cmdfile,"'exit'"
  51. rc = stream(cmdfile,'C','CLOSE')
  52.  
  53. /* Create WP_DESKTOP Object */
  54. Eigenschaften = 'EXENAME='||directory||'\pmquipu.cmd;ASSOCFILTER=*#;ASSOCTYPE=Plain Text,DeScribe Document;ICONFILE='||directory||'\quipu.ico;PARAMETERS=%*'
  55. rc = syscreateobject('WPProgram','Quipu','<WP_DESKTOP>',eigenschaften)
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.