Changeset 24276 for trunk/Nebulous-Server

Timestamp:

May 29, 2009, 12:21:43 PM (17 years ago)

Author:

jhoblitt

Message:

add chmod_object() method

Location:

trunk/Nebulous-Server

Files:

• Changes (modified) (1 diff)
• MANIFEST (modified) (1 diff)
• lib/Nebulous/Server.pm (modified) (2 diffs)
• t/17_server_chmod_object.t (added)

trunk/Nebulous-Server/Changes

@@ -2 +2 @@
 
 0.17
+    - add chmod_object() method
     - retry database transactions when a deadlock is detected
     - add log4perl logging to nebdiskd

trunk/Nebulous-Server/MANIFEST

@@ -48 +48 @@
 t/15_mounts.t
 t/16_server_swap_objects.t
+t/17_server_chmod_object.t
 t/75_parse_neb_key.t

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

@@ -15 +15 @@
 use DBI;
 use Digest::SHA1 qw( sha1_hex );
+use Fcntl ':mode';
 use File::Basename qw( basename dirname fileparse );
 use File::ExtAttr qw( setfattr );
@@ -1576 +1577 @@
 }
 
+sub chmod_object
+{
+    my $self = shift;
+
+    my ($key, $mode) = validate_pos( @_, 
+        {
+            type        => SCALAR,
+            callbacks   => {
+                'is valid object key' => sub { $self->_is_valid_object_key($_[0]) },
+            },
+        },
+        {
+            type        => SCALAR,
+            regex       => qr/\d{3,4}/,
+            callbacks   => {
+                'is allowable mode' => sub {
+                    $_[0] == (S_IRUSR | S_IRGRP)
+                },
+            },
+        },
+    );
+
+    # ignore volume
+    $key = parse_neb_key($key);
+
+    my $log = $self->log;
+    my $sql = $self->sql;
+    my $db  = $self->db($key);
+
+    $log->debug("entered - @_");
+
+    # find all instances of this object
+    my $locations;
+    eval {
+        $locations = $self->find_instances("$key");
+    };
+    $log->logdie("error: $@") if $@;
+
+    # update each instances
+    foreach my $inst (@$locations) {
+        chmod $mode, URI->new($inst)->path 
+            or $log->logdie("chmod() failed: $!");
+    }
+
+    # stick an xattr on this object with the mode
+    # XXX this would probably be better as a field in the storage_object_attr
+    # table but since we're not planning to use this for very many objects (as
+    # a %) it may not be worth adding the extra field at this time.
+    eval {
+        $self->setxattr_object("$key", 'user.mode', $mode, 'replace');
+    };
+    $log->logdie("error: $@") if $@;
+
+    $log->debug("leaving");
+
+    return $mode;
+}
 
 sub _get_storage_volume