home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / sndys200.zip / readme.cmd < prev    next >
OS/2 REXX Batch file  |  1996-03-01  |  2KB  |  69 lines
  1. /*
  2.  *      README.CMD
  3.  */
  4.  
  5.  SIGNAL ON HALT;
  6.  
  7.  /* load utils */
  8.  CALL RxFuncAdd    'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs';
  9.  CALL SysLoadFuncs;
  10.  
  11.  /* setup default values */
  12.  ValidLanguages       = 'ENG GER';
  13.  DefaultLanguage      = 'ENG';
  14.  Ini.FileName         = GetCallDir()'\sendyes.ini';
  15.  Ini.AppName          = "SendYes!";
  16.  Ini.KeyName_Language = "Language";
  17.  
  18.  ARG ParmLanguage .
  19.  IF (ParmLanguage \= '') THEN
  20.  DO
  21.     /* is laguage valid */
  22.     IF (WORDPOS(ParmLanguage, ValidLanguages) = 0) THEN
  23.     DO
  24.        SAY ParmLanguage': 'SysGetMessage(87, );
  25.        EXIT(87);
  26.     END;
  27.     ELSE
  28.        SelectedLanguage = ParmLanguage;
  29.  END
  30.  ELSE
  31.  DO
  32.     /* read selected language */
  33.     SelectedLanguage = SysIni( Ini.Filename, Ini.AppName, Ini.KeyName_Language);
  34.     IF (SelectedLanguage = 'ERROR:') THEN
  35.        SelectedLanguage = DefaultLanguage;
  36.     ELSE
  37.        SelectedLanguage =  LEFT(SelectedLanguage, 3);
  38.  END;
  39.  
  40.  /* is inf file there ? */
  41.  InfFile = 'SNDYS'SelectedLanguage'.INF';
  42.  SAY InfFile;
  43.  IF (\FileExist(InfFile)) THEN
  44.  DO
  45.     SAY SysGetMessage(2, );
  46.     EXIT(2);
  47.  END;
  48.  
  49.  /* now start up the inf file */
  50.  '@START VIEW' InfFile '"'Ini.AppName '*"'
  51.  
  52.  EXIT(rc);
  53.  
  54. HALT:
  55.  SAY 'Ctrl-Break';
  56.  EXIT(99);
  57. /* ------------------------------------------------------------------------- */
  58. GetCalldir: PROCEDURE
  59. PARSE SOURCE . . CallName
  60.  CallDir = FILESPEC('Drive', CallName)||FILESPEC('Path', CallName);
  61.  RETURN(LEFT(CallDir, LENGTH(CallDir) - 1));
  62.  
  63. /* ------------------------------------------------------------------------- */
  64. FileExist: PROCEDURE
  65.  ARG FileName
  66.  
  67.  RETURN(STREAM(Filename, 'C', 'QUERY EXISTS') > '');
  68.   
  69.