1 files changed, 100 insertions, 0 deletions
diff --git a/vo/votools/resdb.x b/vo/votools/resdb.x
new file mode 100644
index 00000000..3437b122
--- /dev/null
+++ b/vo/votools/resdb.x
@@ -0,0 +1,100 @@
+#
+#  RESDB -- Utility routines to manage the local resource database
+
+
+bool procedure rdb_lookup (resdb, term, type, sname, ivorn, svcurl)
+
+char	resdb[ARB]				#i resource database
+char	term[ARB]				#i search term
+char	type[ARB]				#i service type
+char	sname[ARB]				#i short name
+char	ivorn[ARB]				#i ivorn string
+char	svcurl[ARB]				#i URL string
+
+char	typ[SZ_FNAME], alias[SZ_FNAME], bpass[SZ_FNAME], line[SZ_LINE]
+char	ivo[SZ_FNAME], shortname[SZ_FNAME], url[SZ_FNAME]
+int	fd, ip, i, lnum
+
+int	access(), open(), getline()
+bool	streq()
+
+begin
+	if (access (resdb, 0, 0) == NO) {
+	    call eprintf ("Error: cannot open resdb '%s'\n")
+		call pargstr (resdb)
+	    return
+	}
+
+	call strlwr (term)
+
+	# Open the resource database
+	fd = open (resdb, READ_ONLY, TEXT_FILE)
+	for (lnum=0; getline (fd, line) != EOF; lnum=lnum+1) {
+
+	    if (line[1] == '#' || line[1] == EOS || line[1] == '\n')
+		next
+
+	    call aclrc (type,      SZ_FNAME)
+	    call aclrc (alias,     SZ_FNAME)
+	    call aclrc (bpass,     SZ_FNAME)
+	    call aclrc (ivo,       SZ_FNAME)
+	    call aclrc (url,       SZ_FNAME)
+	    call aclrc (shortname, SZ_FNAME)
+
+	    ip = 1
+	    for (i=1; line[ip] != ','; i=i+1) { 	# type string
+		typ[i] = line[ip]
+		ip = ip + 1
+	    }
+	    call strlwr (typ)
+	    ip = ip + 1
+
+	    for (i=1; line[ip] != ','; i=i+1) { 	# alias string
+		alias[i] = line[ip]
+		ip = ip + 1
+	    }
+	    call strlwr (alias)
+	    ip = ip + 1
+
+	    for (i=1; line[ip] != ','; i=i+1) { 	# bandpass string
+		bpass[i] = line[ip]
+		ip = ip + 1
+	    }
+	    call strlwr (typ)
+	    ip = ip + 1
+
+	    for (i=1; line[ip] != ','; i=i+1) { 	# ivorn string
+		ivo[i] = line[ip]
+		ip = ip + 1
+	    }
+	    call strlwr (typ)
+	    ip = ip + 1
+
+	    for (i=1; line[ip] != ','; i=i+1) { 	# ShortName string
+		shortname[i] = line[ip]
+		ip = ip + 1
+	    }
+	    call strlwr (typ)
+	    ip = ip + 1
+
+	    for (i=1; line[ip] != ','; i=i+1) { 	# URL string
+		url[i] = line[ip]
+		ip = ip + 1
+	    }
+	    call strlwr (typ)
+	    ip = ip + 1
+
+
+	    if (type[1] == EOS || typ[1] == type[1]) {
+		if (streq (alias, term)) {
+		    call strcpy (shortname, sname, SZ_FNAME)		
+		    call strcpy (ivo, ivorn, SZ_FNAME)		
+		    call strcpy (url, svcurl, SZ_FNAME)		
+		    return (true)
+		}
+	    }
+	}
+	call close (fd)
+
+	return (false)
+end