|
From: Jonathan L. <le...@us...> - 2006-12-05 15:48:01
|
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); |