1#include <config.h>
2#include <stdio.h>
3#include <stdlib.h>
4#include <string.h>
5#include "netcdf.h"
6#include "ncdispatch.h"
7
8/**
9Given a partial suffix path,
10try to find a server for which
11a request to that server + path
12returns some kind of result.
13This indicates that the server is up
14and running.
15Return the complete url for the server
16plus the path.
17*/
18
19int
20main(int argc, char** argv)
21{
22    const char* url = NULL;
23    const char* path = NULL;
24    char* serverlist[64];
25    int nservers = 0;
26
27    if(argc == 1)
28 path = "";
29    else if(argc >= 2)
30 path = argv[1];
31    if(argc >= 3) {
32 int i;
33 for(i=2;i<argc;i++,nservers++)
34     serverlist[i-2] = argv[i];
35        serverlist[nservers] = NULL;
36    }
37    url = NC_findtestserver(path,(nservers==0?(const char**)NULL:(const char**)serverlist));
38    if(url == NULL)
39 url = "";
40    printf("%s",url);
41    fflush(stdout);
42    exit(0);
43}


HyperKWIC - Version 7.20DA executed at 11:37 on 27 Oct 2017 | Polyhedron Solutions - INTERNAL USE | COMMERCIAL (Any O/S) SN 4AKIed