X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=fb_upload;h=b33a84eab086460a06a2a4d38aaecadc678fbe6f;hb=dcce90e77c92202b5fadca48de6fd1cefc41ff79;hp=f46e87d586fe9c0cc5e0b708fb3288be789bca63;hpb=a9cb077d8636288dbf4a0ff8adb5237929d7a820;p=bin.git

diff --git a/fb_upload b/fb_upload
index f46e87d..b33a84e 100755
--- a/fb_upload
+++ b/fb_upload
@@ -140,12 +140,19 @@ else {
 
 for my $photo (@photos) {
     print "Uploading $photo";
-    my $response =
-	$client->photos->upload(aid => $aid,
-				data => scalar read_file($photo),
-				caption => '',
-				filename => basename($photo),
-			       );
+    my $response;
+    my $try=0;
+    while (not $response =
+	   $client->photos->upload(aid => $aid,
+				   data => scalar read_file($photo),
+				   caption => '',
+				   filename => basename($photo),
+				  )) {
+	$try++;
+	print " [failure $try] ";
+	sleep 3;
+	last if $try > 10;
+    }
     if (not $response) {
 	die "Upload failure at photo $photo";
     }