Changeset 17077 for trunk/Nebulous-Server/lib/Nebulous/Server.pm

Timestamp:

Mar 20, 2008, 3:25:21 PM (18 years ago)

Author:

jhoblitt

Message:

add Nebulous::Server::mounts()

File:

• trunk/Nebulous-Server/lib/Nebulous/Server.pm (modified) (2 diffs)

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

@@ -1 @@
-# Copyright (c) 2004  Joshua Hoblitt
+# Copyright (c) 2004-2008  Joshua Hoblitt
 #
-# $Id: Server.pm,v 1.56 2008-03-20 23:29:56 jhoblitt Exp $
+# $Id: Server.pm,v 1.57 2008-03-21 01:24:36 jhoblitt Exp $
 
 package Nebulous::Server;
@@ -1105 +1105 @@
 
 
+sub mounts
+{
+    my $self = shift;
+
+    validate_pos(@_); 
+
+    my $log = $self->log;
+    my $sql = $self->sql;
+    my $db  =$self->db;
+
+    $log->debug("entered - @_");
+
+    my $stats;
+    my $query;
+    eval {
+        # ask the db to generate the table of mounted Nebulous volume 
+        $db->do("call getmountedvol()");
+
+        $query = $db->prepare_cached( $sql->get_mounted_volumes );
+        $query->execute();
+
+        # suck that table into an AoA
+        $stats = $query->fetchall_arrayref;
+
+        $query->finish;
+    };
+    $log->logdie("database error: $@") if $@;
+
+    $log->logdie("no mounted volumes found") unless (scalar @$stats);
+
+    $log->debug("leaving");
+
+    return $stats;
+}
+
+
 sub _get_storage_volume
 {