updated to handle subnets as well

diff --git a/server/cache.dc b/server/cache.dc
index 85b0688be729c23c53e85a8e2681fd9c7e7ea3dc..a22c0d18416704447b641fdefeb911fb0cb8f389 100644 (file)
--- a/server/cache.dc
+++ b/server/cache.dc
@@ -30,6 +30,7 @@ extern int ingres_errno, mr_errcode;
  *             List
  *             String
  *             Machine
+ *             Subnet
  *             Cluster
  *             Filesystem
  *    then we will have to rework the code that only looks at the first
@@ -152,6 +153,10 @@ int *id;
     case 'm':
        EXEC SQL SELECT mach_id INTO :j FROM machine WHERE name=UPPERCASE(:iname);
        break;
+    case 'S':
+    case 's':
+       EXEC SQL SELECT snet_id INTO :j FROM subnet WHERE name=UPPERCASE(:iname);
+       break;
     case 'C':
     case 'c':
        EXEC SQL SELECT clu_id INTO :j FROM cluster WHERE name=:iname;
@@ -249,6 +254,10 @@ char **name;
     case 'm':
        EXEC SQL SELECT CHAR(name) INTO :iname FROM machine WHERE mach_id=:j;
        break;
+    case 'S':
+    case 's':
+       EXEC SQL SELECT CHAR(name) INTO :iname FROM subnet WHERE snet_id=:j;
+       break;
     case 'C':
     case 'c':
        EXEC SQL SELECT CHAR(name) INTO :iname FROM cluster WHERE clu_id=:j;