home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fnb101.zip / fnping.cmd < prev   
OS/2 REXX Batch file  |  1999-06-28  |  3KB  |  104 lines
  1. extproc python -x %PYTHONHOME%\fnping.cmd
  2. #############################################################################
  3. # Copyright (C) DSTC Pty Ltd (ACN 052 372 577) 1997, 1998, 1999
  4. # All Rights Reserved.
  5. #
  6. # The software contained on this media is the property of the DSTC Pty
  7. # Ltd.  Use of this software is strictly in accordance with the
  8. # license agreement in the accompanying LICENSE.HTML file.  If your
  9. # distribution of this software does not contain a LICENSE.HTML file
  10. # then you have no rights to use this software in any manner and
  11. # should contact DSTC at the address below to determine an appropriate
  12. # licensing arrangement.
  13. # 
  14. #      DSTC Pty Ltd
  15. #      Level 7, GP South
  16. #      Staff House Road
  17. #      University of Queensland
  18. #      St Lucia, 4072
  19. #      Australia
  20. #      Tel: +61 7 3365 4310
  21. #      Fax: +61 7 3365 4311
  22. #      Email: enquiries@dstc.edu.au
  23. # 
  24. # This software is being provided "AS IS" without warranty of any
  25. # kind.  In no event shall DSTC Pty Ltd be liable for damage of any
  26. # kind arising out of or in connection with the use or performance of
  27. # this software.
  28. #
  29. # Project:      Fnorb
  30. # File:         $Source: /units/arch/src/Fnorb/script/RCS/fnping,v $
  31. # Version:      @(#)$RCSfile: fnping,v $ $Revision: 1.4 $
  32. #
  33. #############################################################################
  34. """ Read a UOL from stdin and 'ping' the object. """
  35.  
  36.  
  37. # Standard/built-in modules.
  38. import sys, time
  39.  
  40. # Fnorb modules.
  41. from Fnorb.orb import CORBA
  42.  
  43.  
  44. def main(argv):
  45.     """ Do it! """
  46.  
  47.     # fixme: This a hack to remove the spurious last argument ('\n') on
  48.     # Windows 95.
  49.     if argv[-1] == '\n':
  50.     del argv[-1]
  51.  
  52.     if len(argv) == 1:
  53.     # Read a UOL from stdin.
  54.     uol = sys.stdin.read()
  55.  
  56.     elif len(argv) == 2:
  57.     # Read a stringified IOR from the command line.
  58.     uol = argv[1]
  59.  
  60.     elif len(argv) == 3 and argv[1] == '-f':
  61.     # Read a stringified IOR from a file.
  62.     uol = open(argv[2]).read()
  63.  
  64.     else:
  65.     print 'Usage: fnping [-f file | UOL]'
  66.     return 1
  67.  
  68.     # Ping!
  69.     object = CORBA.ORB_init().string_to_object(uol)
  70.  
  71.     print 'FNPING',
  72.     print '%s:%d' % (object._fnorb_host(), object._fnorb_port()),
  73.     print object._fnorb_object_key()
  74.  
  75.     try:
  76.     while 1:
  77.         start = time.clock()
  78.         object._is_a('IDL:omg.org/CORBA/Object:1.0')
  79.         end = time.clock()
  80.  
  81.         print 'Reply from',
  82.         print '%s:%d' % (object._fnorb_host(), object._fnorb_port()),
  83.         print object._fnorb_object_key(),
  84.         print 'time=', int((end - start) * 1000), 'ms'
  85.  
  86.         time.sleep(1)
  87.  
  88.     except CORBA.SystemException, ex:
  89.     print ex.__class__.__name__, ex
  90.  
  91.     return 0
  92.  
  93. #############################################################################
  94.  
  95. if __name__ == '__main__':
  96.     # Do it!
  97.     try:
  98.     sys.exit(main(sys.argv[1:]))
  99.  
  100.     except KeyboardInterrupt:
  101.     pass
  102.  
  103. #############################################################################
  104.