Changeset 27230 for trunk/DataStoreServer/scripts/dsreg

Timestamp:

Mar 9, 2010, 3:32:15 PM (16 years ago)

Author:

bills

Message:

fail if that the supplied file size does not match the file on disk.

File:

• trunk/DataStoreServer/scripts/dsreg (modified) (1 diff)

trunk/DataStoreServer/scripts/dsreg

@@ -356 +356 @@
                 die "file $path not found";
             }
-            if (!$file->{bytes}) {
-                my @finfo = stat($path);
-                unless (@finfo) {
-                    die ("can't stat $path");
+            # get the size of the file
+            my @finfo = stat($path);
+            unless (@finfo) {
+                die ("can't stat $path");
+            }
+            # if size was supplied make sure that it matches the actual
+            # size
+            if ($file->{bytes}) {
+                my $current_size = $finfo[7];
+                if ($file->{bytes} != $current_size) {
+                    die "size on disk: $current_size does not match supplied"
+                    . " size: $file->{bytes} for $path";
                 }
+            } else {
                 $file->{bytes}  = $finfo[7];
             }