No restriction on list names.

[moira.git] / gen / network.pc

diff --git a/gen/network.pc b/gen/network.pc
index 4fc586aa68591e46deb8c8393d3c69c0e2e909c1..e3c7e03a2e705151103b6847647ea6fe71bbcdd2 100644 (file)
--- a/gen/network.pc
+++ b/gen/network.pc
@@ -27,34 +27,24 @@ RCSID("$Header$");
 char *whoami = "network.gen";
 char *db = "moira/moira";
 
+char *cidr_from_inaddr(struct in_addr in);
+
 int main(int argc, char **argv)
 {
   FILE *out = stdout;
-  char *outf = NULL, outft[MAXPATHLEN];
-  struct stat sb;
+  char *outf = NULL, *cidr = NULL, address[BUFSIZ], outft[MAXPATHLEN];
   struct timeval now;
-  struct in_addr addr;
-  int flag1;
+  struct in_addr addr, maskaddr;
   EXEC SQL BEGIN DECLARE SECTION;
   int id, saddr;
   char name[SUBNET_NAME_SIZE], description[SUBNET_DESCRIPTION_SIZE];
+  char mask[SUBNET_MASK_SIZE];
   EXEC SQL END DECLARE SECTION;
 
   EXEC SQL CONNECT :db;
 
   if (argc == 2)
     {
-      if (stat(argv[1], &sb) == 0)
-       {
-         if (ModDiff(&flag1, "subnet", sb.st_mtime))
-           exit(MR_DATE);
-         if (flag1 < 0)
-           {
-             fprintf(stderr, "File %s does not need to be rebuilt.\n",
-                     argv[1]);
-             exit(MR_NO_CHANGE);
-           }
-       }
       outf = argv[1];
       sprintf(outft, "%s~", outf);
       if (!(out = fopen(outft, "w")))
@@ -83,12 +73,12 @@ int main(int argc, char **argv)
          ctime(&now.tv_sec));
 
   EXEC SQL DECLARE x CURSOR FOR SELECT
-    name, snet_id, saddr, description
+    name, snet_id, saddr, mask, description
     FROM subnet ORDER BY saddr;
   EXEC SQL OPEN x;
   while (1)
     {
-      EXEC SQL FETCH x INTO :name, :id, :saddr, :description;
+      EXEC SQL FETCH x INTO :name, :id, :saddr, :mask, :description;
       if (sqlca.sqlcode)
        break;
       if (id == 0)
@@ -96,8 +86,16 @@ int main(int argc, char **argv)
       if (!*strtrim(name))
        continue;
       addr.s_addr = htonl(saddr);
-      fprintf(out, "NETWORK : %-16.16s : %-12.12s : %s\n", name,
-             inet_ntoa(addr), strtrim(description));
+
+      maskaddr.s_addr = htonl(atoi(mask));
+      cidr = cidr_from_inaddr(maskaddr);
+
+      strcpy(address, inet_ntoa(addr));
+      if (cidr)
+       strcat(address, cidr);
+
+      fprintf(out, "NETWORK : %-16.16s : %-15.15s : %s\n", name,
+             address, strtrim(description));
     }
 
   EXEC SQL CLOSE x;
@@ -118,3 +116,65 @@ sqlerr:
   db_error(sqlca.sqlcode);
   exit(MR_DBMS_ERR);
 }
+
+char *cidr_from_inaddr(struct in_addr in) {
+  char *ptr1, *ptr2, *address, *out;
+  int a, b, c, d, addr, i, j = 0, k = 0;
+  int bits[32];
+
+  address = inet_ntoa(in);
+  
+  ptr1 = ptr2 = address;
+  ptr2 = (char *)strchr(ptr1, '.');
+  if (!ptr2) 
+    return(NULL);
+  a = atoi(ptr1);
+
+  ptr1 = ptr2 + 1;
+  ptr2 = (char *)strchr(ptr1, '.');
+  if (!ptr2)
+    return(NULL);
+  b = atoi(ptr1);
+
+  ptr1 = ptr2 + 1;
+  ptr2 = (char *)strchr(ptr1, '.');
+  if (!ptr2)
+    return(NULL);
+  c = atoi(ptr1);
+
+  ptr1 = ptr2 + 1;
+  d = atoi(ptr1);
+
+  if (a < 0 || a > 255 ||
+      b < 0 || b > 255 ||
+      c < 0 || c > 255 ||
+      d < 0 || d > 255)
+    return(NULL);
+
+  addr = d + (c*256) + (b*256*256) + (a*256*256*256);
+
+  for (i = 0; i < 32; i++) {
+    bits[i] = (addr & 1);
+    addr = (addr >> 1);
+  }
+  
+  while (bits[j] == 0) {
+    j++;
+    if (j > 31) break;
+  }
+  while (bits[j] == 1) {
+    j++;
+    k++;
+    if (j > 31) break;
+  }
+
+  if (j != 32)
+    return(NULL);
+
+  out = (char *)malloc(20);
+  if (!out)
+    exit(MR_NO_MEM);
+  sprintf(out, "/%i", k);
+
+  return(out);
+}