Changeset 24639

Timestamp:

Jul 1, 2009, 6:40:27 PM (17 years ago)

Author:

jhoblitt

Message:

change Nebulous::Server->stat_object() to return both the total number of instance and just those that are available

Location:

trunk/Nebulous-Server

Files:

• Changes (modified) (1 diff)
• lib/Nebulous/Server.pod (modified) (1 diff)
• lib/Nebulous/Server/SQL.pm (modified) (1 diff)
• t/10_server_stat_object.t (modified) (4 diffs)

trunk/Nebulous-Server/Changes

@@ -33 +33 @@
     - add the ability to delete a storage object when it has instances that are
       offline
+    - change Nebulous::Server->stat_object() to return both the total number of
+      instance and just those that are available
       
 0.16

trunk/Nebulous-Server/lib/Nebulous/Server.pod

@@ -183 +183 @@
     mtime
     number of instances
+    number of available instances
 
 =item * mounts( $key );

trunk/Nebulous-Server/lib/Nebulous/Server/SQL.pm

@@ -83 +83 @@
     stat_object          => qq{
         SELECT
-            storage_object.so_id,
-            storage_object.ext_id,
-            read_lock,
-            write_lock,
-            storage_object_attr.epoch,
-            storage_object_attr.mtime,
-            COUNT(instance.so_id) as instances
-        FROM storage_object
-        JOIN storage_object_attr
+            so.so_id,
+            so.ext_id,
+            attr.read_lock,
+            attr.write_lock,
+            attr.epoch,
+            attr.mtime,
+            COUNT(instance.so_id) as instances,
+            SUM(available) as available
+        FROM storage_object as so
+        JOIN storage_object_attr as attr
             USING (so_id)
         JOIN instance
             USING (so_id)
-        WHERE ext_id = ?
-        GROUP BY storage_object.so_id
+        LEFT JOIN mountedvol
+            USING(vol_id)
+        WHERE ext_id = ?
+        GROUP BY so.so_id
     },
     # Note: this sets an update lock

trunk/Nebulous-Server/t/10_server_stat_object.t

@@ -8 +8 @@
 use warnings FATAL => qw( all );
 
-use Test::More tests => 12;
+use Test::More tests => 13;
 
 use lib qw( ./t ./lib );
@@ -27 +27 @@
     my $info = $neb->stat_object("foo");
 
-    is(scalar @$info, 7, "number of columns");
+    is(scalar @$info, 8, "number of columns");
 }
 
@@ -37 +37 @@
     my $info = $neb->stat_object("foo");
 
-    is(scalar @$info, 7,                       "number of columns");
+    is(scalar @$info, 8,                       "number of columns");
     is(@$info[0], 1,                           "so_id");
     is(@$info[1], "foo",                       "ext_id");
@@ -45 +45 @@
     like(@$info[5], qr/....-..-.. ..:..:../,   "mtime");
     is(@$info[6], 1,                           "instances");
+    is(@$info[7], 1,                           "available instances");
 }