pyxida-cvs-commits

[Jonathan L. <le...@us...>]

Update of /cvsroot/pyxida/Pyxida/bin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32507/bin

Modified Files:
	query.pl 
Log Message:
ping failure causes crash

Index: query.pl
===================================================================
RCS file: /cvsroot/pyxida/Pyxida/bin/query.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** query.pl	4 Dec 2006 16:32:44 -0000	1.5
--- query.pl	5 Dec 2006 15:47:56 -0000	1.6
***************
*** 6,9 ****
--- 6,11 ----
  use Data::Dumper;
  
+ my $DEFAULT_PYXIDA_PORT=55504;
+ my $DEFAULT_PYXIDA_API_PORT=55501;
  my $USE_HEIGHT = 1;
  
***************
*** 14,19 ****
  
  $usage .=   "\n";
! $usage .=   "query.pl -l http://righthand.eecs.harvard.edu:55501\n";
! $usage .=   "query.pl -a sb02.eecs.harvard.edu:55500 -b sb03.eecs.harvard.edu:55500 http://sb01.eecs.harvard.edu:55501\n";
  my %para = ();
  getopts('lr:a:b:', \%para);
--- 16,22 ----
  
  $usage .=   "\n";
! $usage .=   "query.pl -l http://righthand.eecs.harvard.edu:$DEFAULT_PYXIDA_API_PORT\n";
! $usage .=   "query.pl -a sb02.eecs.harvard.edu:$DEFAULT_PYXIDA_PORT -b sb03.eecs.harvard.edu:$DEFAULT_PYXIDA_PORT http://sb01.eecs.harvard.edu:$DEFAULT_PYXIDA_API_PORT\n";
! $usage .=   "If port numbers are not supplied, defaults are used\n";
  my %para = ();
  getopts('lr:a:b:', \%para);