home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 5 / CD_Magazyn_EXEC_nr_5.iso / Gry / ToTDemo.lha / talesdemo1 / rexx / AmiTCPOnline.rexx < prev    next >
OS/2 REXX Batch file  |  1999-11-16  |  3KB  |  49 lines
  1. /******************************************************************************************************/
  2. /* Online-Script für AmiTCP mit Arexx                                                                 */
  3. /*     © by Martin Wolf / Eternity Hard & Software                                                  */
  4. /*                                                                                      */
  5. /*                                                                                                    */
  6. /*      First Bit set: 22.10.1998                                                                     */
  7. /*      Last Bit set : 09.11.1999                                                                     */
  8. /******************************************************************************************************/
  9.  
  10. OPTIONS RESULTS
  11. OPTIONS FAILAT 31
  12. SIGNAL ON ERROR
  13.  
  14. ADDRESS COMMAND
  15.     'SetEnv ToTDemo1:Data/TOT_ONLINE 0'            /* AmiTCP-EnvVar resetten              */
  16.     counter_MW=0
  17.     DO UNTIL SHOW('P','AMITCP')                /* Auf AmiTCP warten                   */
  18.       SIGNAL OFF ERROR
  19.       'WaitForPort AMITCP'
  20.       SIGNAL ON ERROR
  21.       IF counter_MW=3 THEN EXIT
  22.       counter_MW=counter_MW+1
  23.     END
  24.      IF SHOW('P','AMITCP') THEN
  25.     DO
  26.       'SetEnv ToTDemo1:Data/TOT_ONLINE 1'            /* AmiTCP-Port wurde gefunden          */
  27.       genesisport = AMITCP                    /* ist auf jeden Fall der aktive Port   */
  28.     END
  29.     IF ~SHOW('P','AMITCP') THEN
  30.     DO
  31.       'SetEnv ToTDemo1:Data/TOT_ONLINE 0'            /* Konnte AmiTCP nicht finden          */
  32.       EXIT
  33.     END
  34.  
  35.  
  36. /******************************************************************************************************/
  37. /* Erklärung zu den Env-Variablen                                                                     */
  38. /*     TOT_ONLINE                                                                     */
  39. /*                                                                                      */
  40. /*    -3=Fehler beim AmiTCP-Login                                              */
  41. /*    -2=Konnte AmiTCP-Port nicht finden                                      */
  42. /*    -1=Fehler im Script                                                      */
  43. /*       0=AmiTCP-Port wurde nicht gefunden                                                          */
  44. /*       1=AmiTCP-Port gefunden und Script versucht online zu gehen                                  */
  45. /*     2=AmiTCP ist online                                                                           */
  46. /*     3=AmiTCP war schon online !                                                                  */
  47. /*                                                                                                    */
  48. /******************************************************************************************************/
  49.