Changeset 108

Timestamp:

05/13/07 19:07:07 (2 years ago)

Author:

bradfitz

Message:

start of some code to show size actually needed to upload, ahead of time. usually undesirable, so guard with env variable for now... maybe an option later?

Files:

• trunk/lib/Brackup/Backup.pm (modified) (3 diffs)

trunk/lib/Brackup/Backup.pm

@@ -37 +37 @@
-    my $n_files      = 0;   # int
-    my $n_kb_done    = 0.0; # num
+    my $n_kb_up      = 0.0; # num
-    my $n_files_done = 0;   # int
-    my @files;         # Brackup::File objs
@@ -48 +49 @@
-    });
-
+    $self->debug("Number of files: $n_files\n");
+
+    # calc needed chunks
+    my $n_kb_up_need = 0;
+    if ($ENV{CALC_NEEDED}) {
+        my $fn = 0;
+        foreach my $f (@files) {
+            $fn++;
+            if ($fn % 100 == 0) { warn "$fn / $n_files ...\n"; }
+            foreach my $pc ($f->chunks) {
+                if ($target->stored_chunk_from_inventory($pc)) {
+                    $pc->forget_chunkref;
+                    next;
+                }
+                $n_kb_up_need += $pc->length / 1024;
+                $pc->forget_chunkref;
+            }
+        }
+        warn "kb need to upload = $n_kb_up_need\n";
+    }
+   
+
-    my $chunk_iterator = Brackup::ChunkIterator->new(@files);
-
@@ -108 +131 @@
-            $schunk = Brackup::StoredChunk->new($pchunk);
-
- (TODO: make GPGProcessManager method do this)
+
-            if ($gpg_rcpt) {
-                $schunk->set_encrypted_chunkref($gpg_pm->enc_chunkref_of($pchunk));