[Pyxida-cvs-commits] Pyxida/bin query.pl,1.13,1.14

[Peter P. <pr...@us...>]

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

Modified Files:
	query.pl 
Log Message:
Minor fixes to query tool

Index: query.pl
===================================================================
RCS file: /cvsroot/pyxida/Pyxida/bin/query.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** query.pl	6 Feb 2007 17:54:03 -0000	1.13
--- query.pl	21 Feb 2007 15:35:31 -0000	1.14
***************
*** 41,49 ****
  }
  
! if ($url =~ /^http:\/\/[\w+\.]+$/) {
      $url .= ":$API_PORT/xmlrpc"
  }
  
! if ($url !~ /^http:\/\/[\w+\.]+:\d+\/xmlrpc$/) {
      die ("word: $url\n$usage\n");
  }
--- 41,53 ----
  }
  
! if ($url =~ /^http:\/\/[\w+\.-]+$/) {
      $url .= ":$API_PORT/xmlrpc"
  }
  
! if ($url =~ /^http:\/\/[\w+\.-]+:\d+$/) {
! 		$url .= "/xmlrpc";
! }
! 
! if ($url !~ /^http:\/\/[\w+\.-]+:\d+\/xmlrpc$/) {
      die ("word: $url\n$usage\n");
  }