increase machine name length

[moira.git] / gen / hosts.dc

diff --git a/gen/hosts.dc b/gen/hosts.dc
index 0e396a5f985020eb6065a38f591eb68a5da2b9f2..a4f27a1675824f75b85c6c47a50a99d46f8595a1 100644 (file)
--- a/gen/hosts.dc
+++ b/gen/hosts.dc
@@ -78,6 +78,7 @@ char **argv;
     while (1) {
        EXEC SQL FETCH y INTO :id, :name;
        if (sqlca.sqlcode != 0) break;
+       if (id == 0) continue;
        if (*strtrim(name) == 0) continue;
        if ((i = strlen(name)) < 9 || strcmp(&name[i-8], ".MIT.EDU")) {
            fprintf(stderr, "Name %s not in MIT domain\n", name);
@@ -87,8 +88,8 @@ char **argv;
        }
        if (p = hash_lookup(aliases, id)) {
            sprintf(buf, "%s,%s", p, name);
-           free(p);
            hash_update(aliases, id, strsave(buf));
+           free(p);
        } else
          hash_store(aliases, id, strsave(name));
     }
@@ -100,6 +101,7 @@ char **argv;
     while (1) {
        EXEC SQL FETCH x INTO :name, :id, :vendor, :model, :os, :addr;
        if (sqlca.sqlcode != 0) break;
+       if (id == 0) continue;
        if (*strtrim(name) == 0) continue;
        if ((i = strlen(name)) < 9 || strcmp(&name[i-8], ".MIT.EDU")) {
            fprintf(stderr, "Name %s not in MIT domain\n", name);