home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Security / Security.zip / quipu10.zip / install.d < prev    next >
Text File  |  1995-12-15  |  3KB  |  66 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 "Aufruf: INSTALL <Directory fuer Quipu> (z.B.: INSTALL d:\quipu)"
  9.     exit
  10.     end
  11. rc = sysmkdir(directory)
  12. if \(rc = 0 | rc = 5) then do
  13.     say "Directory konnte nicht angelegt werden!"
  14.     exit
  15.     end
  16. /* Alle Dateien werden in das neue Directory kopiert. */
  17. 'copy quipu.* 'directory
  18. /* Create Quipu.ini */
  19. inifile =  directory||'\quipu.ini'
  20. rc = stream( inifile, 'C', 'OPEN WRITE')
  21. call lineout inifile,'# Parameter fuer QUIPU.EXE. Diese Parameter werden'
  22. call lineout inifile,'# von der Kommandozeile ueberschrieben.'
  23. call lineout inifile,'# Zuerst wird die Authentisierung festgelegt.'
  24. call lineout inifile,'-a <Authentisierung, diese sollte geaendert werden!>'
  25. call lineout inifile,'# Jetzt wird die Standardlaenge fuer die' 
  26. call lineout inifile,'# Schluesseldatei festgelegt.'
  27. call lineout inifile,'# Diese sollte verlaengert werden.'
  28. call lineout inifile,'-l 5000'                                      
  29. call lineout inifile,'# Jetzt kommen Directory und Name der Schluesseldatei.' 
  30. call lineout inifile,'-k '||directory||'\quipu.key'
  31. call lineout inifile,'# Als naechstes wird das Anlegen der Schluesseldatei als' 
  32. call lineout inifile,'# Standard Modus festgelegt.'
  33. call lineout inifile,'-m'
  34. call lineout inifile,'# In der naechsten Zeile wird der Name entsprechend der'
  35. call lineout inifile,'# Lizenz eingetragen. Groß-/Kleinschreibung beachten. '
  36. call lineout inifile,'-n <Name>
  37. call lineout inifile,'# Zum Schluss wird noch die Lizenznummer eingetragen.'
  38. call lineout inifile,'-r 0000000000'
  39. call lineout inifile,'#'
  40. rc = stream(inifile,'C','CLOSE')
  41. /* Create PMQuipu.cmd */
  42. cmdfile =  directory||'\pmquipu.cmd'
  43. rc = stream( cmdfile, 'C', 'OPEN WRITE')
  44. call lineout cmdfile,'/* PMQUIPU.CMD */'
  45. call lineout cmdfile,'parse arg datei'
  46. call lineout cmdfile,"mode = ''"
  47. call lineout cmdfile,"if datei = '' then"
  48. call lineout cmdfile,"'"||directory||"\quipu.exe -p "||directory||"\quipu.ini'"
  49. call lineout cmdfile,'else'
  50. call lineout cmdfile,"if right(datei,1) = '#' then '"||directory||"\quipu.exe -d -p "||directory||"\quipu.ini -c '|| datei"
  51. call lineout cmdfile,"else '"||directory||"\quipu.exe -e -p "||directory||"\quipu.ini -f '||datei||' -c '||left(datei,length(datei)-1)||'#'" 
  52. call lineout cmdfile,"'exit'"
  53. rc = stream(cmdfile,'C','CLOSE')
  54.  
  55. /* Create WP_DESKTOP Object */
  56. Eigenschaften = 'EXENAME='||directory||'\pmquipu.cmd;ASSOCFILTER=*#;ASSOCTYPE=Plain Text,DeScribe Document;ICONFILE='||directory||'\quipu.ico;PARAMETERS=%*'
  57. rc = syscreateobject('WPProgram','Quipu','<WP_DESKTOP>',eigenschaften)
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.