home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / os2chat1.zip / RUNCHAT.CMD < prev    next >
OS/2 REXX Batch file  |  1995-01-05  |  714b  |  29 lines
  1. /*             runchat.cmd                        */
  2. /*   Script to get hostname and start Os2Chat     */
  3. /* I've not done much with REXX yet, so bare with */
  4. /* I was in a hurry to get this version out.      */
  5.  
  6. /* Begin user defineable settings */
  7. STARTPROGRAM = 'START /FS /B os2chat.exe 5555'
  8. /* End user defineable settings  */
  9.  
  10. RUNHOST = 'hostname > hostname.dat'
  11. DATAFILE = 'hostname.dat'
  12. SAY 'Starting Os2Chat....getting hostname....'
  13. RUNHOST
  14. HOST = LINEIN(DATAFILE)
  15. IF HOST = '' THEN
  16. DO
  17.   SAY 'Could not obtain hostname, exiting....'
  18.   EXIT
  19. END
  20. ELSE
  21. DO
  22. ENV = 'OS2ENVIRONMENT'
  23. SAY 'HOSTNAME was...'
  24. SAY VALUE('HOSTNAME',HOST,ENV)
  25. SAY 'HOSTNAME now...'
  26. SAY HOST
  27. END
  28. STARTPROGRAM
  29.