home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Online / InetDial / AREXX / mdr_register.awebrx < prev    next >
Text File  |  2000-07-23  |  743b  |  34 lines
  1. /*rx register data
  2. */
  3.  
  4. ADDRESS COMMAND
  5. ARG filename
  6. 'echo >ram:mdr_register_data' filename
  7. 'echo >ram:mdr_aweb_input_register.html' '"<HTML><TITLE>MDR Register info</TITLE><BODY><FONT SIZE=+1>Registering - Wait!</TBODY></HTML>"'
  8.  
  9. ports = SHOW('P')
  10. PARSE VAR ports dummy 'AWEB.' portnr .
  11. ADDRESS VALUE 'AWEB.' || portnr
  12. OPTIONS RESULTS
  13.  
  14. SAY 'AWEB PORT NUMBER =' portnr
  15.  
  16. IF (portnr <1) THEN DO
  17.    CALL OPEN out,"ram:mdrawebcomms", write
  18.    CALL WRITELN out, 'WARNING! AWEB not running'
  19.    CALL CLOSE out
  20. END
  21.  
  22. IF (portnr >0) THEN DO
  23.    'GET ACTIVEPORT'
  24.    ADDRESS VALUE RESULT
  25.    'RELOAD'
  26.    'WINDOWTOFRONT'
  27.    'SCREENTOFRONT'
  28.    CALL OPEN out,"ram:mdrawebcomms", write
  29.    CALL WRITELN out, 'WARNING! AWEB is running'
  30.    CALL CLOSE out
  31. END
  32.  
  33. EXIT
  34.