Merge pull request #481 from CPAN-API/mickey/fix_backup

fix backup script (use update when id exists)
metacpan · May 17, 2016 · c022205 · c022205
2 parents c0f7664 + 432e730
commit c022205
Showing 1 changed file with 23 additions and 6 deletions.
diff --git a/lib/MetaCPAN/Script/Backup.pm b/lib/MetaCPAN/Script/Backup.pm
@@ -152,14 +152,31 @@ sub run_restore {
             }
         }
 
-        $bulk->create(
-            {
-                id => $raw->{_id},
-                $parent ? ( parent => $parent ) : (),
-                source => $raw->{_source},
-            }
+        my $exists = $es->exists(
+            index => $raw->{_index},
+            type  => $raw->{_type},
+            id    => $raw->{_id},
         );
 
+        if ($exists) {
+            $bulk->update(
+                {
+                    id            => $raw->{_id},
+                    doc           => $raw->{_source},
+                    doc_as_upsert => 1,
+                }
+            );
+
+        }
+        else {
+            $bulk->create(
+                {
+                    id => $raw->{_id},
+                    $parent ? ( parent => $parent ) : (),
+                    source => $raw->{_source},
+                }
+            );
+        }
     }
 
     # Flush anything left over just incase