Changeset 19036

Timestamp:

Aug 12, 2008, 1:53:40 PM (18 years ago)

Author:

jhoblitt

Message:

add sanity checking

File:

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

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

@@ -1 +1 @@
 # Copyright (c) 2004-2008  Joshua Hoblitt
 #
-# $Id: Server.pm,v 1.81 2008-07-10 02:40:33 jhoblitt Exp $
+# $Id: Server.pm,v 1.82 2008-08-12 23:53:40 jhoblitt Exp $
 
 package Nebulous::Server;
@@ -1342 +1342 @@
                 or die "can't create storage path: $storage_path";
         }
+        # check to make sure at least the parent directory has the proper
+        # permissions
+        my $mode = (stat($storage_path))[2] & 07777;
+        unless ($mode == 0775) {
+            $log->error("$storage_path has the wrong permissions of: %04o", $mode);
+            chmod(0775, $storage_path) or die "can't chmod $storage_path: $!";
+        }
+
         my $fqpn = File::Spec->catfile($storage_path, $storage_filename);
         $uri = URI::file->new($fqpn);