source: trunk/athena/bin/getcluster/getcluster.c @ 749

#include <stdio.h>
#include <ctype.h>
#include <hesiod.h>

/*
 * Make a hesiod cluster query
 * for the machine you are on
 * and produce a set of environment variable
 * assignments for the C shell or the Bourne shell,
 * depending on the '-b' flag
 *
 * If any stdio errors, truncate standard output to 0
 * and return an exit status.
 */

main(argc, argv)
char *argv[];
{
        register char **hp;
        int bourneshell = 0;
        char myself[80];

        if (argc < 3 || argc > 4) {
                fprintf(stderr, "usage: getcluster [-b] hostname version\n");
                exit(-1);
        }
        if (argc == 4 && strcmp(argv[1], "-b") == 0) {
                bourneshell++;
                argv++;
        }
        
        hp = hes_resolve(argv[1], "cluster");
        if (hp == NULL) {
                fprintf(stderr, "No Hesiod information available for %s\n", argv[1]);
                exit(-1);
        }
        shellenv(hp, bourneshell, argv[2]);
}

shellenv(hp, bourneshell, version)
char **hp;
int bourneshell;
char *version;
{
        char var[80], val[80], vers[80];

        if (bourneshell) {
                while(*hp) {
                        vers[0] = '\0';
                        sscanf(*hp++, "%s %s %s", var, val, vers);
                        if (vers[0] != '\0' && strcmp(vers, version))
                                continue;
                        upper(var);
                        printf("%s=%s ; export %s\n", var, val, var);
                }
        } else
                while(*hp) {
                        vers[0] = '\0';
                        sscanf(*hp++, "%s %s %s", var, val, vers);
                        if (vers[0] != '\0' && strcmp(vers, version))
                                continue;
                        upper(var);
                        printf("setenv %s %s\n", var, val);
                }
        if (ferror(stdout)) {
                ftruncate(fileno(stdout), 0L);
                exit(-1);
        }
}

upper(v)
register char *v;
{
        while(*v) {
                *v = toupper(*v);
                v++;
        }
}